Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
$lines[0] = [ qw/ dog cat bird / ];
print $lines[0][0,1,2];
  2. or download this
    #!/usr/bin/perl -w
$lines[0] = [ qw/ dog cat bird / ];
print $lines[0][0,2,2];
  3. or download this
    Useless use of a constant in void context at C:\test.pl line 3.
bird