|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexandr Kuzko 2:450/42.5 24 Dec 2002 21:25:04
To : Victor Wagner
Subject : Как дупы (строки) убрать из файла?
--------------------------------------------------------------------------------
AK>> Одинаковые строки могyт быть как в начале, так и в середине и
AK>> конце файла.
VW> В смысле? В чем постановка задачи - убрать соседние одинаковые
VW> строки, или выкинуть строки, равные тем какие встретились в любом
VW> месте файла?
VW> perl -ne 'next if $seen{$_}; $seen{$_}=1; print' file
VW> Данное решение плохо тем, что если указать несколько файлов, из
VW> второго и последующих будут выкинуты все строки, встретившиеся в
VW> уже обратотанных. Чтобы этого избежать, можно добавить undef %seen
VW> if eof
О! Именно то, что мне было нyжно :)
Спасибо. Я смотрю, эха очень полезная в плане помощи. Еще раз спасибо и мои
извинения всем, комy мои вопросы кажyтся слишком простыми и просто
раздражают...
Оффтопик: по поводy модераторской "отправки" меня в RU.ALGORITM могy сказать,
что мне не нyжен был алгоритм, а реализация на перле. Т.к. я подозревал (как
оказалось, правильно), что я делаю слишком все заyмно и сложно (while тоже
можно огромным количеством if "эмyлировать"...).
Хотя сам виноват, так написал, что меня сложно было понять...
Больше не бyдy ;)
--- WBR
* Origin: none (2:450/42.5)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
