Which I find to be good evidence that whatever is in JavaFan's mind to motivate this bizarre (even nonsensical or illogical) line he is trying to draw under the label of "is zero" is also not the most logical.

His own impression that the declaring of "" and "0" as the only false strings being a highly arbitrary decision also hints that he has some seriously flawed mental model of how Perl works. A few Perl-like languages that I have worked with have decided that "0" should be true while 0 should be false and my experience is that such actually leads to some real gotchas.

I think that declaring "0.0" and "00" as "not zero" are the silliest of his requirements (but he forgot "0e0").

I think the closest I can come to whatever he might be thinking of and is trying to convey with the label and examples he gave is: 

if(  SvIOK($x)  ?  0 == $x  :  '0' eq $x  )

[download]

But I also think that Perl has a few bugs where it sets SvIOK when it should only be setting SvIOKp. Sorry, I don't recall the details at the moment. I did at least verify that Perl correctly sets only SvIOKp (not SvIOK) for $x= 'ten'; 0+$x;.

I also noticed that Perl sets SvIOK (and SvIOKp, of course) for $x= '0 '; 0+$x; (note the trailing space), which I suspect JavaFan finds unfortunate.

I thought there was some standard module that supports SvIOK() from Perl code (instead of from XS code) but it doesn't appear to be in the 'Internals' package on my version of Perl and I didn't try to come up with the search to find such a module.

Update: I also suspect that whether or not SvIOK (not just SvIOKp) gets set might depend on the result of looks_like_a_number() (which is exported by a couple of different modules, at least one of which does so rather badly). So looks_like_a_number($x) && 0==$x might be one stab at "is zero" except that JavaFan threw in dual-valued scalars as examples, and bizarre dual-valued scalars at that. This could lead to the following test: 

if(  do{ no warnings; 0==$x }  &&  SvIOK($x)  )

[download]

(the order matters) which might be equivalent to 

if(     (  SvIOK($x)  ||  looks_like_a_number($x)  )
    &&  0 == $x
)

[download]

But this, of course, considers "00", "0.0", and "0e0" as being zero (as it should) and even considers "0 " as being zero (which I also agree with but concede is not quite as clear of a slam-dunk decision).

Update: Another similar, perhaps equivalent, test would be: 

if(
    do { my $w= 0; local($SIG{__WARN__})= sub { $w= 1 };
        0 == $x  &&  ! $w
    }
)

[download]

- tye        

In reply to Re^4: Determining whether a value is zero. (logic) by tye
in thread Determining whether a value is zero. by JavaFan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.