Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
#
...
} else {
    print "-1\n";
}
  2. or download this
      foreach my $thisLine (<$inFH>) {
  .. do something with $thisLine ..
  }
  3. or download this
      while (<$inFH>) {
  .. do something with $thisLine ..
  }