duplicates1.pl new version of duplicates.pl

JUrban · Mar 15, 2011 · aa687aa · aa687aa
1 parent d4d4af1
commit aa687aa
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/duplicates1.pl b/duplicates1.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+%h=();
+$_=<>;
+chop;
+m/(.*):(.*)/;
+($k,$l)=($1,$2);
+@aa=split(/\ +/,$l);
+@h{@aa} = ();
+my @bb= ();
+foreach my $v (keys %h) { push(@bb, "mml/$v"); }
+print "$k: ";
+print join(" ", keys %h);
+print "\n";
+# print "\t\@touch $k\n";