http://qs321.pair.com?node_id=11118714


in reply to Re^7: Reliably parsing an integer
in thread Reliably parsing an integer

This is the code I came up with, search for parse_unsigned_integer here:

https://github.com/rdiez/Tools/blob/master/RDChecksum/rdchecksum.pl

Can you see any bugs?

Replies are listed 'Best First'.
Re^9: Reliably parsing an integer
by syphilis (Archbishop) on Jun 30, 2020 at 13:08 UTC
    Can you see any bugs?

    In perl, strings like "2e5" and "1E4" are valid integer strings.
    Are they being handled as you would like ? (I haven't investigated, and it depends upon how you want them to be treated.)

    If you want to accept them then you also have to keep in mind that if they represent values greater than ~0 or less than -(~0 >> 1) then they'll be assigned to NVs (floating point values) rather than IVs (integer value).

    I guess it's probably simplest if you reject them.

    Update, correcting an earlier incorrect update: After I wrote this post I discovered that if you assign a value like 2e5 as a bareword, you get an NV, not an IV - and I therefore thought I had made a mistake in asserting that such strings were "integer strings".
    However, although the barewords often assign as an NV, the above assertions seem to be correct in relation to numifying strings.
    It seems a bit random.
    We get an NV with: 
    C:\>perl -MDevel::Peek -le "$x = 1e6; Dump $x;"
SV = NV(0x488470) at 0x488488
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 1000000

    [download]
    but an IV if we perform some arithmetic function: 
    C:\>perl -MDevel::Peek -le "$x = 1e6 * 1.0; Dump $x;"
SV = IV(0x4ecb10) at 0x4ecb20
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1000000

    [download]
    and, as regards what I've written above, if we numify the string we still get an IV: 
    C:\>perl -MDevel::Peek -le "$x = '1e6' * 1.0; Dump $x;"
SV = IV(0x33d010) at 0x33d020
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1000000

    [download]
    unless the value represented by the string is outside of the IV range: 
    C:\>perl -MDevel::Peek -le "$x = '1e70' * 1.0; Dump $x;"
SV = NV(0x576440) at 0x576458
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 1e+70

    [download]

    Cheers,
    Rob
[reply]
[d/l]
[select]
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom