Help for this page

Select Code to Download


  1. or download this
    use Algorithm::Loops qw( NestedLoops );
    
    ...
    my @s;
    print(join(':', map $parts[$_], @s), "\n")
       while @s = $iter->();
    
  2. or download this
    my $source = 'horse:cow:dog:cat';
    my @parts = split(/:/, $source);
    ...
               0..$#parts;
       print("$s\n");
    }
    
  3. or download this
    my $source = 'horse:cow:dog:cat';
    
    ...
    local our @rv;
    /$re/;
    print "$_\n" foreach @rv;