|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1609.69 23 Jul 2001 11:46:51
To : Anton Suhomlinov
Subject : Re: как выделить подстроки?
--------------------------------------------------------------------------------
Юґullo Anton!
AB>> $str = 'abra-svabra-kadabra';
AB>> $rxp = '('.(join ')-(', split /-/, $str).')';
AB>> $str =~ /^$rxp$/;
AS> Во блин. А почему не
AS> $_ = "abra-shvabra-kadabra" ;
AS> my ( $f, $s, $th ) = /([^-]+)/g ;
AS> ?
Hапример, почемучто в оригинальном вопросе переменные были с численными
именами и неизвестным числом ($1 .. $n). Может я, правда, вопрос не так
понял, пусть автор расскажет.
AS> Или просто не
AS> $_ = "abra-shvabra-kadabra" ;
AS> /([^-]+)/g ;
AS> ?
Хм. Как бы пооригинальнее ответить-то... RTFM, однако, бо - рулезъ!
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/1609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
