Help for this page

Select Code to Download


  1. or download this
    use strict;

...

map2{ print "$a $b"; } qw[A B C D E F G H I J];
  2. or download this
    E:\>228837.pl
PRINTING map2{ print "$a $b"; } @array; =>A BC DE FG HI J
PRINTING map2{ print "$a $b"; } qw[A B C D]; =>A BC DE FG HI J
  3. or download this
    #!/usr/bin/perl -slw

...
print "\n",'PRINTING map2{ print "$a $b"; } qw[A B C D]; =>';

map2{ print "$a $b"; } qw[A B C D E F G H I J];
  4. or download this
    {sco}>./228837.pl
PRINTING map2{ print "$a $b"; } @array; =>
...
E F
G H
I J