Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
say join(', ', map(\$_, @array)); # ..surprisingly familiar too!

say \@array[0];
  2. or download this
    SCALAR(0x8153220)
SCALAR(0x8153360)
...
x, y, z
SCALAR(0x8153220), SCALAR(0x8153360), SCALAR(0x8153100)
SCALAR(0x8153220)
  3. or download this
    my $i = 123;

...
}

say $i . ' ' . \$i;
  4. or download this
    123 SCALAR(0x817bd18)
1 SCALAR(0x8153220)
2 SCALAR(0x8153220)
3 SCALAR(0x8153220)
123 SCALAR(0x817bd18)