in reply to When exactly do Perl regex's require a full match on a string?
Zero-width assertions like ^, $, \A, \Z, \z, \b, \B and \G match at a position in a string, they do not match a character. So $ and \Z will normally match at the position before the newline at the end of the string unless a) there is no newline at the end of the string, or b) the pattern before the assertion would also match a newline.
$ perl -e' use Data::Dumper; $Data::Dumper::Useqq = 1; for ( "ab\ncd", "ab\ncd\n" ) { /\w*$/ && print Dumper $&; /\w*\Z/ && print Dumper $&; /.*$/ && print Dumper $&; /.*\Z/ && print Dumper $&; /.*$/m && print Dumper $&; /.*\Z/m && print Dumper $&; /.*$/s && print Dumper $&; /.*\Z/s && print Dumper $&; print "\n"; } ' $VAR1 = "cd"; $VAR1 = "cd"; $VAR1 = "cd"; $VAR1 = "cd"; $VAR1 = "ab"; $VAR1 = "cd"; $VAR1 = "ab\ncd"; $VAR1 = "ab\ncd"; $VAR1 = "cd"; $VAR1 = "cd"; $VAR1 = "cd"; $VAR1 = "cd"; $VAR1 = "ab"; $VAR1 = "cd"; $VAR1 = "ab\ncd\n"; $VAR1 = "ab\ncd\n";
Also, you are using the /s modifier which only effects whether the . metacharacter will match a newline or not, and you are not using the . metacharacter in your patterns.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: When exactly do Perl regex's require a full match on a string?
by ELISHEVA (Prior) on Feb 08, 2009 at 17:35 UTC | |
by jethro (Monsignor) on Feb 09, 2009 at 01:22 UTC | |
by AnomalousMonk (Archbishop) on Feb 09, 2009 at 04:02 UTC | |
by jwkrahn (Abbot) on Feb 09, 2009 at 11:00 UTC |