Help for this page

Select Code to Download


  1. or download this
    output_is(<<'CODE', <<'OUT', "string interpolation");
sub main () {
$z = 1; @a = (1..3); $z1 = @a; 
...
CODE
z=(1)  a=(1 2 3)  $z1=@a=(3)
OUT
  2. or download this
    output_is(<<'CODE', <<'OUT', "concatenation chain");
sub main() {
        @a = (2,4,8);
...
2       4       8
stop
OUT