my $value = param('name');#the value passed from the webpage my %data = (); my @fields = split(/\t/, <FILE>); my $row; my $id; my $course; chomp @fields; my @records; my @course; while(<FILE>) { chomp; my @row = split(/\t/); if ($row[0] eq $value) { ($id, $course) = split (/\t/); my %data; #then put the row into a hash. @data{@fields} = @row; push @records, \%data; } } close (FILE); for my $ref (@records){ my %data = %$ref; print ul( map { ul("$course") } keys %data);
In reply to Re: getting the right stuff
by malaga
in thread getting the right stuff
by malaga
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |