my $content = <<EOT; Blah blah 12 Feb 1992 # Wrong date! Mah Mah Mah End Date: 14 Jul 2007 # Correct date! EOT $content =~ /End Date/g and $content =~ /(\d\d \w\w\w \d\d\d\d)/ and my $result1 = $1; say "Ikegami's end date: $result1"; pos($content) = 0; $content =~ /End Date/g and $content =~ /(\d\d \w\w\w \d\d\d\d)/g and my $result2 = $1; say "JavaFan's end date: $result2"; __END__ Ikegami's end date: 12 Feb 1992 JavaFan's end date: 14 Jul 2007
In reply to Re^7: Improve foreach with help of map?
by JavaFan
in thread Improve foreach with help of map?
by mickep76
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |