27.06.2007, 03:46
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
Провел на форуме:
4319431
Репутация:
677
|
|
реализация этого на Perl =)
Код:
open(incom, "<./in.txt");
@IN = <incom>;
@IN = grep{!$_{$_}++} @IN;
close(incom);
open(out, ">./out.txt");
print out @IN;
close(out);
Последний раз редактировалось C!klodoL; 27.06.2007 в 16:16..
|
|
|