can be written asmy $wanted = ($text =~ /.*START (.*) END$/)[0]; my $wanted2 = ($text =~ /.*(START .* END)$/)[0]; my ($x,$y) = ($text =~ /.*(START (.*) END)$/)[0,1];
my ($wanted) = $text =~ /.*START (.*) END$/; my ($wanted2) = $text =~ /.*(START .* END)$/; my ($x,$y) = $text =~ /.*(START (.*) END)$/;
In reply to Re^2: really non greedy match
by ikegami
in thread really non greedy match
by Allasso
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |