ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Timur Vafin                          2:5020/400     06 May 2004  12:45:42
 To : All
 Subject : Получить все $1..$n
 -------------------------------------------------------------------------------- 
 

 Hi All,
 
 После
 
 my $res = defined $str && $str =~ /$regexp/g;
 
 Хотим получить все подгруппы и положить их куда-нибудь.
 Пока обхожусь так
 
 my $subgroups = $#+;
 for (1..$subgroups) {
     $куда-нибудь[$_] = substr($str, $-[$_], $+[$_] - $-[$_]);
 }
 
 Ясно, что криво. Как короче?
 
 Всё будет хорошо....
 
 --- ifmail v.2.15dev5.3
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Получить все $1..$n   Timur Vafin   06 May 2004 12:45:42   Получить все $1..$n   Ivan Frolcov   06 May 2004 12:57:34   Получить все $1..$n   Timur Vafin   06 May 2004 13:38:46