Help for this page

Select Code to Download


  1. or download this
    #for (1..2) {
#   foreach my $x (0) { print $x++; }  # Error!
...
for (1..2) {
   foreach my $x (0..1,5..6) { print $x++; }  # 0156, 1267
}
  2. or download this
    for (1..2) {
   print map { $_++ } 0..1;  # 01, 12
...
for (1..2) {
   print map { $_++ } 0..1,5..6;  # 0156, 1267
}
  3. or download this
    for (1..2) {
   foreach my $x (map $_, 0..1,5..6) { print $x++; }  # 0156, 0156
}
  4. or download this
    for (1..2) {
   foreach (0..1,5..6) { my $x = $_; print $x++; }  # 0156, 0156
}