Re^3: how to remove duplicate based on the first column value

Another nice perl command line switch is -n. This builds the while(<>) loop for you. Example:

perl -i.bak -ne 'print unless $s{(split /\|/)[0]}++' infile

Note: more of these can be found in perlrun.

Comment on Re^3: how to remove duplicate based on the first column value Select or Download Code