Help for this page

Select Code to Download


  1. or download this
    my @step=(1..9);
push (@step, 0);
...
  $step . $_;
}
print ($step x 7);
  2. or download this
    my @step=(1..9);
push (@step, 0);
...
foreach (@stepCount) {
  print @step;
}
  3. or download this
    my $what = "fred|barney";

...
    print "Not there.\n";
  }
}
  4. or download this
    my $what = "(fred|barney){3}";

...
    print "Not there.\n";
  }
}