Re: extracting a list from a file

#!/usr/bin/perl -w
use Carp;
use CGI;

my $query      = new CGI;
print $query->header(-expires => '-1d');

print <<"EOHTML";
    <HTML>
    <HEAD>
    </head>
    <BODY  >
    
EOHTML
;

my ($oneaye,$twobee,$threesee,$fourdee,$fiveee);
my line;

open (PAGE, "$data")  or die "Can't open $data: $!";

while (<PAGE>) {

($oneaye,$twobee,$threesee,$fourdee,$fiveee) = split "\t",$line;
    
    unless ($threesee eq "") {
    print "three = $threesee<br>";
    print "four = $fourdee<br>";

      }
}   

print $query->end_html;
[download]

Comment on Re: extracting a list from a file Download Code