Skip to main content

$ perl -E 'say "positive" if(shift() + 0 > 0)' "information"
positive
$ perl -E 'say "positive" if(shift() + 0 > 0)' "in formation"
$

LOL #perl

#perl
in reply to David Cantrell 🏏

Paul Evans
Paul Evans
• •
Ahyes, "inf" and "nan", the unfortunate almost-a-number values
in reply to Paul Evans

David Cantrell 🏏
David Cantrell 🏏
• •
@leonerd I assume that the culprit is strtosomething and that this ridiculous behaviour is required by #POSIX. We should fix that in #POSEVEN.
#posix #poseven @Paul Evans
in reply to David Cantrell 🏏

ilmari
ilmari
• •
@leonerd No, it's just Perl's usual "parse as much numeric stuff at the start of the string as possible, then warn if there's crud after it":
$ perl -wE 'say "42wibble" + 0'<br>Argument "42wibble" isn't numeric in addition (+) at -e line 1.<br>42<br>$ perl -wE 'say "informal" + 0'<br>Argument "informal" isn't numeric in addition (+) at -e line 1.<br>Inf<br>
@Paul Evans
in reply to ilmari

David Cantrell 🏏
David Cantrell 🏏
• •
@ilmari @leonerd right, but what is Perl using to parse the string? I could RTFsource and find out, but that would mean getting out of bed 😀
@ilmari @Paul Evans
in reply to David Cantrell 🏏

ilmari
ilmari
• •
@leonerd it has its own grok_number function.

perl5/numeric.c at v5.40.0 · Perl/perl5

🐪 The Perl programming language. Contribute to Perl/perl5 development by creating an account on GitHub.
GitHub
@Paul Evans
⇧