my $facvalue = param('name'); my $facrowid = $ARGV[0] || $facvalue; my %facdata = (); my @facfields = split(/\t/, <FILE>); chomp @facfields; while(<FILE>) { chomp; my @facrow = split(/\t/); if ($facrow[0] eq $facrowid) { ******push @facdata{@facfields} = @facrow; ******* last; } } close (FILE);
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |