В Пнд, 07/09/2009 в 15:09 -0400, Shawn H Corey пишет: > > ($raised_num) = 'Tab_22' =~ /^Tab_(.*)$/; > > print $raised_num."\n"; > > Not quite right. Try: > ( $raised_num = 'Tab_22' ) =~ /^Tab_(.*)$/;
It's not what I need: $ cat ./test.pl #!/usr/bin/perl use strict; use warnings; my $raised_num; ($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"; $ ./test.pl Tab_22 Tab_23 Tab_24 -- Regards, Alex -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
