|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander Babanov 2:5020/1609.69 20 Jul 2001 14:00:04 To : Grigory Vaigandt Subject : Re: как выделить подстроки? -------------------------------------------------------------------------------- Юґullo Grigory! GV> люди помогите плз... GV> есть строка вида "подстрока1-подстрока2-подстрока3-....-подстрокаN" GV> подстроки содержат любые символы кроме символа "-", минус только для GV> разделения подстрок между собой. надо чтоб GV> было $1=подстрока1 GV> . GV> . GV> . GV> $n=подстрокаN Извратник вы, батенька, $\d+ - переменные только для чтения (perldoc perlvar). Hо, понятно, если очень хочется, то можно: $str = 'abra-svabra-kadabra'; $rxp = '('.(join ')-(', split /-/, $str).')'; $str =~ /^$rxp$/; CYa!!! ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1609.69 ДДДї іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК] --- * Origin: Our governor can beat up your governor! (2:5020/1609.69) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/47023b5880d0.html, оценка из 5, голосов 10
|