> "Jerry" == Jerry Preston <[EMAIL PROTECTED]> writes:
Jerry> This does not work:
Jerry> undef $All_Wafers_Tested;
Jerry> foreach $key ($query->param) {
Jerry> undef $check_;
Jerry> $check_ = $key if $key =~ /Slot/;
Jerry> if( $check_ >= 0 ) {
Jerry> $All_Wafers_Tested .
Hi,
This works:
foreach $id ( keys %{ $actual_slots{ $wafer_id } } ) {
#print "* id * $actual_slots{ $wafer_id }{ $id }* j *$j*";
if( !$table_file{ $Lot_Number }{ $j } ) {
$sw_array[ $j ] = $j;
$s = "$lot_number_header$Lot_Number-$sw_array[ $j ]";
my $check
