#!/usr/local/bin/perl

use warnings;
use strict;

my @results;

print "Please enter the lot number: ";
	my $l = <STDIN>;
print "Your lot number is $l";
print "Please enter the wafer number: ";
	my $w=<STDIN>;
print "Your wafer number is $w";
print "Please enter the tester number: ";
	my $t = <STDIN>;
print "Your tester number is $t";


my $sdtfile = "C:\\bzip\\sdt.log";
  if (open (MAPFILE, "< $sdtfile")) {
    my @lines = <MAPFILE>;
    print "$l\n$w\n$t\n";

    foreach $line (@lines) {
      my $cnt++;
      my @tokens 		= split(/,/, $line);
      my $date  		= lc($tokens[0]);
      my $time			= lc($tokens[1]);
      my $lot			= lc($tokens[2]);
      #print "$lot\n";
      my $waf			= lc($tokens[3]);
      #print "$waf\n";
      my $ts			= lc($tokens[4]);
      #print "$ts\n";
      my $sstep		= lc($tokens[5]);
      my $machine		= lc($tokens[6]);
      #my $prog		= lc($tokens[7]);
      my $product		= lc($tokens[8]);
      my $plnfile		= lc($tokens[9]);
      my $striping     = lc($tokens[10]);
 
 if ($w ne "" ) {
        if (($l eq $lot) && ($w eq $waf)) {
          #print "Match found on machine $t\n";
          #print "Timestamp is $ts\n";
            #print "uncompressing any bz2 files\n";
        	#print "Your Datalog file is dl$ts.$t.bz2";
        	#push(@results, "$date,$time,$lot,$waf,$ts,$sstep,$machine,$product,$plnfile,$striping");
  			#system("C:\\bzip\\bunzip2.exe C:\\bzip\\dl$ts.$t.bz2");
        }
     }
   }
 }