ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : John Lepikhin                        2:5070/156     16 May 2003  21:58:27
 To : Andrew Alakozow
 Subject : Re: Как загнать в переменную результат поиска m/(\d+)?/  ?
 -------------------------------------------------------------------------------- 
 

 !> On 14 May 03 11:44:25 +0900, Андрей -> Elias Sergueeff:
 
  ES>> #!/usr/bin/perl -w
  ES>> $N='';
  ES>> $test = 'CPU0';
 
 ==================
 
  ES>> if ($test =~ m/^CPU(\d+)?/) {
  ES>>   $N = $1 if ($1);
  AA>   $N = "$1" if defined $1;
  ES>> };
 
 А еще лучше всю эту конструкцию заменить на:
 ($N) = $test =~ m/^CPU(\d+)/;
 
 Эффект, в данном контексте, будет аналогичным.
 
  ES>> print "'$N'\n";
 -- 
 ... [Пятьсот Веселый] {Бельгия}
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Common Lisp)
  * Origin: Karacidum (2:5070/156.0)
 
 

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