|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 03 Sep 2001 13:52:25
To : All
Subject : 2 Alexander Babanov about regex
--------------------------------------------------------------------------------
Привет!!
Кажется работает. Если с последнего краю текста стоит слово, то
печатает перед ним пять слов, если с переднего края, то перед ним
печатает 5 слов. Hе знаю насколько это красиво конечно. И может оно
чихать будет на русских буквах. Кстати попробую.
#!/usr/bin/perl
$/="\001";
use CGI 'param';
$file=param('f');
$_=qq~
muha hru 2x2 ubijtza,
razzzzdolbay.
fluder foreva, poubival bi, svolochi nenavigu.
gadi, paraziti. Vo pole berezka stoyala,
sednia vdrug vziala i upala.
kolbasno!
~;
$m=5;
$n=0;
if(
/(([,\.\n^\s\!]*\w*){$n,$m}?)
(\s*$file\s*)
(([\s,\.\n^\!]*\w+){$n,$m})/xo
){
print "$1 $3 $4\n";
}
-----------------------------
use CGI 'param'; для того чтобы удобно с консоли было вводить текст.
Hу что, решил я задачку? Еще чтоннить есть зубодробительное? Или какая
дыра есть?
Гыгыгыгы. Hаписать гостевую книгу только на регекспах. А потом форум
только на регекспах. Самому даже интересно. :)
--
TEAM [Маньяки]
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
