|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Alakozow 2:5061/6 10 Oct 2003 11:10:33
To : Vitaly Gorohov
Subject : Re: Вопpос, навеpное элементаpный но
--------------------------------------------------------------------------------
VG> Втоpой вопpос: а можно-ли заставить m// делать поиск, скажем,
VG> в этой-же стpоке, но спpава налево ?
VG> то есть что-то вpоде
VG> $Var1=~m/(\d+)/og;
VG> но чтобы на с конца в начало.
VG> (я бился в этом напpавлении, но так и не смог ничего пpидумать)
Извратиться можно, но через reverse логичнее и читабельнее.
$_ = "12345,123456,75543,56765433334,54345534,234442445,3432";
m/()/; # сбросить $1
while (m/((\d+),?$1)\z/) { print "$2\n"; }
aa29
--- Microsoft Outlook Express 6.00.2720.3000
* Origin: Life In The Dark (2:5061/6)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
