Help for this page

Select Code to Download


  1. or download this
    my $time = localtime();
my ($wd,$mon,$mond,$times,$year) = split /\s+/, $time;
...
#print "$pattern_date found $wordcount\n";
#}
close (OUTFILE);
  2. or download this
    "if ($word_search[$w-1] eq $pattern_date && $word_search[$w-1] eq $arr
+ay[$count]) { "