#!/usr/local/bin/perl while (@ARGV && ($List = $ARGV[0])) { print "Process $List\n"; open(TMP,"$List"); while () { 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); } ;