В Пнд, 07/09/2009 в 23:01 +0400, Mishustin Alexey пишет: > I give up! > > What's the mystery?
Aaaa, ($raised_num) = 'Tab_22' =~ /^Tab_(.*)$/; print $raised_num."\n"; ($raised_num) = 'Tab_23' =~ /^Tab_([0-9]+)$/; print $raised_num."\n"; ($raised_num) = 'Tab_24' =~ /^Tab_([0-9][0-9])$/; print $raised_num."\n"; !! Thanx! -- Regards, Alex -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
