Help for this page

Select Code to Download


  1. or download this
    my $foo;
my $bar = '043';
...
eval=043, $foo=043
s2: $foo = 043
eval=35, $foo=35
  2. or download this
    use Data::Dump;

...
my @vals = qw/ 10 20 0b1101 0xF 023 /;
/^0/ and $_=oct for @vals;
dd @vals;  # (10, 20, 13, 15, 19)