|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Љ®«п Ѓ®Є®ў 2:5020/175.2 27 Jan 2006 13:44:54 To : Ilya Anfimov Subject : Re: Фильтрация текста --------------------------------------------------------------------------------
Привет Илья,
Thu Jan 26 2006 19:48, Ilya Anfimov wrote to Коля Боков:
IA> ....
IA> my %used;
IA> ....
IA> print $outh map $_."\n",
IA> grep !exists $used{$_} && ($used{$_}=1),
IA> grep m/^T_/,
IA> m/(\w+)/g;
Завидую белой завистью. Мне бы так скриптовать... Скрипт работает просто
пена!!! %)
Спасибо за помощь!
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/3300f67ae583.html, оценка из 5, голосов 10
|