Help for this page

Select Code to Download


  1. or download this
    package Cheesy;
use strict;
use warnings;
...
}

1;
  2. or download this
    #!/usr/bin/perl -w
use strict;
use Cheesy qw(map grep);
...
@bar = ('cheese');
print "@foo\n";
print "Should be: @bar\n";
  3. or download this
    1 2 3 4 5
Should be: 10 20 30 40 50
10 20 30 40 50
...
Should be: cheese
cheese
Should be: cheese