Если файл небольшой, то: PHP: <?php $filename='файл.txt'; $a=file($filename); $f=fopen($filename,'w'); fputs($f,implode('',array_unique($a))); fclose($f); ?>
delete_del.pl <имя файла> на выходе получим: out_<имя файла> PHP: #!/usr/bin/perl -w #use: .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;