diff options
author | Karl Berry <karl@freefriends.org> | 2005-12-27 23:56:17 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2005-12-27 23:56:17 +0000 |
commit | 577983747d8680b8defbfdd03a9d50bad6fd54b7 (patch) | |
tree | 16b160f53c6c4c309c07db2c5b095d3abb16f69a /Build/cdbuild/tar2find.pl | |
parent | 07fed0169bae91dfb5616f9d19e7969727e19d4d (diff) |
initial Build
git-svn-id: svn://tug.org/texlive/trunk@4 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/cdbuild/tar2find.pl')
-rwxr-xr-x | Build/cdbuild/tar2find.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/Build/cdbuild/tar2find.pl b/Build/cdbuild/tar2find.pl new file mode 100755 index 00000000000..70e8925e87d --- /dev/null +++ b/Build/cdbuild/tar2find.pl @@ -0,0 +1,25 @@ +#!/usr/local/bin/perl +while (@ARGV && ($List = $ARGV[0])) { + print "Process $List\n"; + open(TMP,"$List"); + while (<TMP>) { + chop; + $found{$_} = 1; + while ($_ ne "") { + if (/(.*)\/(.*)/) { + $found{$1. "/"} = 0; + $found{$1} = 0; + $_=$1; + } + else { last; } + } + } + close(TMP); + open(TMP,">$List"); + foreach $key (sort keys(%found)) { + print TMP "$key\n" if ($found{$key} eq 1); +} + close(TMP); + shift(@ARGV); +} +; |