#!/usr/bin/perl
print "DateSearch = d\n";
print "Timesearch = t\n";
print "Make Your Choice.";

chomp($choice = STDIN);

if ($choice =~ /d/) {
chomp($date = STDIN);
open(FILE, "/dave/MVPTEST/mvpdoc");
while (<FILE>) {

@lines = split(/\n/, $_);

foreach $lines (@lines) {
if ($lines =~ /(\d{4})\s(\d{5})\s(\d{3})\s(\d{2})\s(\d{2}\/\d{2}\/\d{2})\s(\d{2}\:\d{2}\:\d{2})/) {
if ($date =~ /$5/) {

print "\n@lines\n";
}
}
}
}
}
elsif ($choice =~ /t/) {
chomp($time = STDIN);
open(FILE, "/dave/MVPTEST/mvpdoc");
while (<FILE>) {

@lines = split(/\n/, $_);

foreach $lines (@lines) {
if ($lines =~ /(\d{4})\s(\d{5})\s(\d{3})\s(\d{2})\s(\d{2}\/\d{2}\/\d{2})\s(\d{2}\:\d{2}\:\d{2})/) {
if ($time =~ /$6/) {

print "\n@lines\n";
}
}
}
}
}