Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Классичесская задача

Автор: xtrasns 28.10.2014, 10:16

привет всем. задача просто классичесская, она даже в книжке была, но я не присал на перле много лет, помэтому буду благодарен если напомните.

я помню что на примере в книге это делалась через хеш-лист, интересно, это самый оптимальный способ, или можно лучше ? размер конечного списка - не больше 100 000 id. еще я помню что это можно было сделать очень элегантно.

Вот сама задача: есть список из фалков с ID, по одному ID в строчку. Надо создать общий список без будликатов, и сохранить его в отдельный фал. Напишите плиз код. Спасибо заранее.

Автор: Ihost 29.10.2014, 12:10

Классическое решение выглядит примерно так

Код

my %observ_hash = ();
open(READER, "<file.in");
open(WRITER, ">file.out");
while(chomp(my $line=<READER>)) {
   if(!defined($observ_hash{$line}) { print WRITER $line."\n"; } else {}
   $observ_hash{$line} = 1;
}

В общем случае конечно, можно это значительно оптимизировать