#!/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");
        }
     }
   }
 }

##</code><code>##

10/11/05,17:05:41,LOT1,W1,ts01,Sstep1,tester1,prog1,prod1,plan1,
10/11/05,19:24:01,LOT1,W2,ts02,Sstep2,tester1,prog2,prod2,plan2,Striping1
10/11/05,22:46:23,LOT2,W3,ts03,Sstep3,tester3,prog3,prod3,plan3,
10/12/05,01:09:40,LOT2,W4,ts04,Sstep4,tester4,prog4,prod4,plan4,