sub logmining'start { my ($xtract); my ($userEmail, $head, $foot, $myFile); my (@range); $head = &logmining'PrintHeader (); $foot = &logmining'PrintFooter (); # FLASH MESSAGE: print "$headThe data is now being processed. Once it is done, you will get an email with all the results that will be sent to $userEmail.$foot"; print STDERR "\n\n===== START =====\n"; # Get range of dates @range = &logmining'getDateRange (); foreach $myFile (@range) { # TIME CONSUMING PROCESS: print STDERR "gunzip -c $myFile | grep \"01225322|2199592\"\n\n"; $xtract = `gunzip -c $myFile | egrep "01225322|2199592"`; last; # JUST RUN ONE FOR NOW PLEASE! } print STDERR "XTRACT:\n$xtract\n\n"; exit (1);