Просмотр полной версии : Удалить дубликаты
PomaH9991
11.07.2009, 15:30
Помогите плиз есть список в нём много дублей но написаных в разном регистре, с помощю чего можно удалить такие дубликаты?
Cthulchu
11.07.2009, 15:33
ТС, поздравляю, ты создал стотысячную тему с просьбой расказать сказку о дубль киллере! Молодец! Свой приз проси у Гугла. Он вкурсе.
#!/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;
http://www.google.com/search?hl=ru&client=opera&hs=XHb&q=Text+Duplicates+Killer&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=
Text Duplicates Killer
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot