die("USAGE: Portia Log Check: <filename> <date(yyyy/mm/dd)> <hh:mm:am-pm> <hh:mm:am-pm> <batchoperator>") if(@ARGV < 5); 
die("Missing Portia Log file to Parse.") unless($ARGV[0] ne ""); 
die("Be sure that date is in yy/mm/dd format") unless($ARGV[1] =~ /\b\d\d\D\d\d\D\d\d\b/o); 
die("Be sure that time is in HH:mm:am or pm format") unless($ARGV[2] =~ /\b\d\d\D\d\d\D\D\D\b/o); 
die("Be sure that time is in HH:mm:am or pm format") unless($ARGV[3] =~ /\b\d\d\D\d\d\D\D\D\b/o); 
die("Missing Batch Operator Name") unless($ARGV[4] ne ""); 
 
$filetoparse = $ARGV[0]; 
 
($year, $month, $day) = split(/\D/, $ARGV[1]); 
@Months = (	"Jan|01", 
			"Feb|02", 
			"Mar|03", 
			"Apr|04", 
			"May|05", 
			"Jun|06", 
			"Jul|07", 
			"Aug|08", 
			"Sep|09", 
			"Oct|10", 
			"Nov|11", 
			"Dec|12" ); 
 
foreach $_(@Months){ 
print $_ , "\n"; 
	my ($Des,$num) = split(/\|/,$_); 
		if($num == $month){ $month = $Des; } 
} 
$dateToMatch = $day."-".$month."-".$year; 
 
my ($shour,$smin,$sampm) = split(/\:/, $ARGV[2]); 
my ($thour,$tmin,$tampm) = split(/\:/, $ARGV[3]); 
 
$Operator = $ARGV[4]; 
 
print $filetoparse, "\n"; 
print $dateToMatch, "\n"; 
print $startTime, "\n"; 
print $stopTime, "\n"; 
print $Operator, "\n"; 
 
 
open(LOGFILE, $ARGV[0]) or die("Could not open $ARGV[0]"); 
while(<LOGFILE>){ 
  next if !/.{0}$dateToMatch.*$/o; #Read lines that Match the Date Stamp Provided. 
  	#Lets work through our time range, not clean, but works. 
		for $myhour($shour .. $thour){ 
			next if !/.{10}$myhour.*$/o; #Read lines the Match our Hour. 
			for $mymin($smin .. $tmin){ 
				$mystoptime = $mymin.$ampm; 
					next if !/.{13}$mystoptime.*$/o; #Read lines that Match our Minutes. 
						##----- The AM or PM function is not working..... 
						next if !/.{24}$Operator.*$/o; # Read lines that Match our Operator 
							## This is also doing a part match, not sure if this is O.K. 
							## E.G The Operator in the file is batchSMF, Do a search for batchs will return true. !!! Not Good.. 
							## Needs to be exact. 
					print $_ if(m/Bad/); 
		} 
} 
	   #close(LOGFILE) and die("File contains invalid date") unless(/.{0}$dateToMatch.*$/o); 
} 
close(LOGFILE);

#!/bin/perl -w 
use Date::Parse; 
use strict; 
  
# define a regex that matches a date and time 
  
my $dtregex = '\d{2}-[ADFJMNOS][a-z]{2}-\d{2}\s+\d{2}:\d{2}[ap]m'; 
  
# define start and end time 
  
my $start = str2time( '25-May-01 03:00pm' ); 
my $end   = str2time( '25-May-01 05:21pm' ); 
  
# grep all lines that have a time that fits 
# in the range defined by $start and $end 
  
my @lines = grep { 
         
              # put date/time string into $1 
              /($dtregex)/; 
               
              # convert to a time value 
              my $cur = str2time( $1 ); 
               
              # check the range 
              $cur >= $start && $cur <= $end 
             
            } <>; # read the log file from STDIN 
  
# just print the grepped lines 
print @lines;