Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^5: The error says the value is uninitialized, but it works anyway

by Anonymous Monk
on Aug 18, 2019 at 09:55 UTC ( #11104648=note: print w/replies, xml ) Need Help??


in reply to Re^4: The error says the value is uninitialized, but it works anyway
in thread The error says the value is uninitialized, but it works anyway

What's going on here?
perl -MData::Dumper -e '$n="1";print Dumper$n;$n++;print Dumper$n;$n-- +;print Dumper$n' $VAR1 = '1'; $VAR1 = '2'; $VAR1 = 1;
  • Comment on Re^5: The error says the value is uninitialized, but it works anyway
  • Download Code

Replies are listed 'Best First'.
Re^6: The error says the value is uninitialized, but it works anyway
by haukex (Chancellor) on Aug 18, 2019 at 10:19 UTC

    Here is a look at the internals with Devel::Peek:

    $ perl -wMstrict -MDevel::Peek -le '$a=1; $b="$a"; Dump($a)' SV = PVIV(0x5841e3fdfc40) at 0x5841e3fe36e0 REFCNT = 1 FLAGS = (IOK,POK,pIOK,pPOK) IV = 1 PV = 0x5841e4024ad0 "1"\0 CUR = 1 LEN = 10

    Here, you can see that the variable $a has both the string component PV = "1"\0, and it is marked as valid with POK, and an integer component IV = 1, also marked as valid with IOK. So they are both valid, and as I said, there is no reliable way to ask Perl for the difference. Modules like Data::Dumper have to guess what to output based on this internal information. (AFAICT from the source, the XS implementation of Data::Dumper simply prefers the integer version when that is valid. Other dumper modules handle such cases differently.)

    What's going on here?
    use warnings; use strict; use Data::Dumper; use Devel::Peek; my $n="1"; print Dumper $n; Dump($n); $n++; print Dumper $n; Dump($n); $n--; print Dumper $n; Dump($n); __END__ $VAR1 = '1'; SV = PV(0x53a29eb00fd0) at 0x53a29eb278b8 REFCNT = 1 FLAGS = (POK,IsCOW,pPOK) PV = 0x53a29ec907b0 "1"\0 CUR = 1 LEN = 10 COW_REFCNT = 1 $VAR1 = '2'; SV = PV(0x53a29eb00fd0) at 0x53a29eb278b8 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0x53a29ec3f310 "2"\0 CUR = 1 LEN = 10 $VAR1 = 1; SV = PVIV(0x53a29eb23ac0) at 0x53a29eb278b8 REFCNT = 1 FLAGS = (IOK,pIOK) IV = 1 PV = 0x53a29ec3f310 "2"\0 CUR = 1 LEN = 10

    As you can see, what happens in this case internally is that the postincrement keeps only the string component, while the postdecrement converts it to an integer. If I had to guess why this is is the case, it might have to do with the "magic string increment" feature.

    However, these are internal implementation details that one should not rely on!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11104648]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (10)
As of 2019-09-18 17:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The room is dark, and your next move is ...












    Results (235 votes). Check out past polls.

    Notices?