Help for this page

Select Code to Download


  1. or download this
    sub meat_and_potatoes_of_program {
    while (<my_file>){
       /(\w{3}\s+\w{3}\s+\d{1,2}/;
       my $date = $1;
       print "date \n <br>";
  2. or download this
           if ($foo) {
          print "the date is... $date \n <br>";
       }
  3. or download this
    sub the_meat_and_potatoes_of_program{
my $pass_down_date = 1