|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Soft 2:5075/15.58 19 Feb 2002 16:39:12
To : ALL
Subject : Почему не работает?
--------------------------------------------------------------------------------
print "Content-Type: text/html\n\n";
$tr="мама пошла спать";
# заменяем пробелы на ( .* ){1,3} то есть - это будет код который должен
# исполняться eval. В регулярном выраж. будет искаться совпадения
# $tr и $obrazec при условии что между словами образца могут быть
# другие слова
$tr=~s/ /\(\.\*\)\{1,3\}/g;
$obrazec="мама рано пошла в комнату спать";
eval "$ok=yes if($obrazec=~/$tr/ig);";
print "[$ok]<br>[[$@]]";
сабж, господа
icq #120669090
http://moneky.h1.ru
--- F.I.P.S./32 v1.0r W95/NT [M]
* Origin: е родись красивым, а родись активным (2:5075/15.58)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
