Help for this page

Select Code to Download


  1. or download this
    while (defined ( my $line = <INPUT>) ) {
  2. or download this
    while ($line = <INPUT>) {
  3. or download this
    sub parseDown {
  my $filename = shift @_; # or $_[0] or just plain shift
  # rest of sub
}
  4. or download this
    if (my ($tmp_dir, $file) = $line =~ m%(.*)\\(.*)% ) {
    # do the rest of the stuff
} else {
    warn "$line has incorrect format!\n";
}