Re^2: Strange regex to test for newlines: /.*\z/

I don't think it's a bug.

When the match is in /m mode .* will match anything BUT a newline. ( when in /s mode .* will match anything )
I assume what it is trying to match is one line.

So basically what this test does is :
"Between all characters (on this line) that are not newlines, and the end of the string, are there any other characters?", if so, it won't match. If it doesn't match, the only character that can cause it is a newline.
It does sound a bit like a roundabout way to get what you want though.
How about if ( $foo !~ /\n\z/ )

BTW. setting $/ has no influence on /m or /s whatsoever?
Not that I could find with experimentation.

if( exists $aeons{strange} ){ die $death unless ( $death%2 ) }

Comment on Re^2: Strange regex to test for newlines: /.*\z/ Download Code

Replies are listed 'Best First'.
Re^3: Strange regex to test for newlines: /.*\z/ by Mutant (Priest) on May 21, 2007 at 14:02 UTC
One problem tho, the following all match the string "\n": `/./ /\z/ /.{0}\z/` [download] It's possible that \z is meant to introduce some specialness when combined with . (or possibly some other quantifiers), but I haven't seen it mentioned in any docs. This is either a bug, or a very poorly documented feature.	[reply] [d/l]
Re^3: Strange regex to test for newlines: /.*\z/ by moritz (Cardinal) on May 21, 2007 at 14:02 UTC
.* will match anything but a newline, or the empty string. So I'd expect `"foo\n" =~ /.*\z/;` to match, but capture the empty string in $&, not "foo\n". Of course there are more elaborate ways to match for a newline character ;-)	[reply] [d/l]
Re^4: Strange regex to test for newlines: /.*\z/ by mrpeabody (Friar) on May 22, 2007 at 20:37 UTC
.* will match anything but a newline, or the empty string. It will match both of those, actually, as it should. `506 $ perl -we'print "yes" if "" =~ /./' yes 507 $ perl -we'print "yes" if "\n" =~ /./' yes` [download]	[reply] [d/l]
Re^3: Strange regex to test for newlines: /.*\z/ by betterworld (Curate) on May 21, 2007 at 14:32 UTC
According to your reasoning, the first of the following one-liners shouldn't print anything either: `$ perl -lwe 'print "match" if "foo\n" =~ /[^\n]\z/' match $ perl -lwe 'print "match" if "foo\n" =~ /.\z/'` [download]	[reply] [d/l]