ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/175.2   06 May 2004  12:57:34
 To : Timur Vafin
 Subject : Получить все $1..$n
 -------------------------------------------------------------------------------- 
 

 Thu May 06 2004 12:45, Timur Vafin wrote to All:
 
  TV> my $res = defined $str && $str =~ /$regexp/g;
 
  TV> Хотим получить все подгруппы и положить их куда-нибудь.
  TV> Пока обхожусь так
 
  TV> my $subgroups = $#+;
  TV> for (1..$subgroups) {
  TV>     $куда-нибудь[$_] = substr($str, $-[$_], $+[$_] - $-[$_]);
  TV> }
 
  TV> Ясно, что криво. Как короче?
 
 Вообще-то /g в списковом контексте вернет тебе список отматченного, извините
 за выражение...
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

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

Тема:    Автор:    Дата:    Получить все $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