Remove duplicate lines with perl
By Jit 2284 days ago
#! perl -sw
use strict;
my %lines;
#open DATA, $ARGV[0] or die "Couldn't open $ARGV[0]: $!\n";
while (<DATA>) {
print if not $lines{$_}++;
}
__DATA__
apple
apple
plum
vinegar
apple
banana
banana
banana
apple
