Help for this page

Select Code to Download


  1. or download this
        <a b> X 1,2 X <x y>

#produces
...
    ('b', 1, 'y'),
    ('b', 2, 'x'),
    ('b', 2, 'y')
  2. or download this
    pp X {"a".."d"};
pp X {"a".."b"} X {1..2} X {'x','y'};
...
["b", 1, "y"]
["b", 2, "x"]
["b", 2, "y"]
  3. or download this
    use strict;
use warnings;
...
while ( my ($aref)= $iter->() ) {
  pp $aref;
}
  4. or download this
    my @a = 1, 2;
my @b = 3, 4;
my @c = @a X+ @b; # 1+3, 1+4, 2+3, 2+4
  5. or download this
    my @a = 1, 2;
my @b = 3, 4;
my @c = X{@a} X{@b} '+'