02.07.2008, 22:01
|
|
Banned
Регистрация: 23.07.2007
Сообщений: 87
Провел на форуме:
2147329
Репутация:
613
|
|
Код:
#!/usr/bin/perl -w
open (FILE, "proxy.txt");
open (FILEOUT, ">proxyout.txt");
while (<FILE>) {
$_=~s/ .+//; ##2Анархист
$_=~s/;.+//; ##2MVadim
print FILEOUT $_;
}
Идея улыбнула (неожиданно) и удивила (нерационально) +))
Последний раз редактировалось Chuck; 02.07.2008 в 22:06..
|
|
|