ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       14 May 2003  11:44:25
 To : Elias Sergueeff
 Subject : Re: Как загнать в переменную результат поиска m/(\d+)?/  ?
 -------------------------------------------------------------------------------- 
 

 ES> #!/usr/bin/perl -w
 ES> $N='';
 ES> $test = 'CPU0';
 ES> if ($test =~ m/^CPU(\d+)?/) {
 ES>   $N = $1 if ($1);
 
   $N = "$1" if defined $1;
 
 ES> };
 ES> print "'$N'\n";
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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