OPC Search

#!/usr/bin/perl $opcFile = "opcs.txt"; if (length ($ENV{'QUERY_STRING'}) > 0) { $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } } $OPC = $in{'OPC'}; $OPC =~ /(\d.+)/; $OPC =~ s/^0*//; $vendor = $in{'vendor'}; $vendor =~ /(\w.+)/; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "OPC Search\n"; print "\n"; print "\n"; print "\n"; print "\n"; if($OPC =~ /(\d.+)/) { @matches = split('\n',`grep $OPC $opcFile`); print "\n"; foreach $match (@matches) { @result = split(',',$match); $vendor = shift(@result); $file = shift(@result); $final_opc = sprintf("%010s",shift(@result)); print ""; print "\n"; } print "

Vendor	OPC	File
$vendor	$final_opc	"; print "$file

\n"; } else { print "\n"; } print "\n"; print "\n";