#!/usr/bin/perl -w -elw #use: anti-dubl.pl input.txt $inputF = shift; $ouputF = 'out_'.$inputF; open (F , "<$inputF"); @input = <F>; chomp (@input); close F; %out = (); @input = grep(!$out{$_}++, @input); open (F , ">>$ouputF"); print F join("\n",@input); close F;