$value = "GPY"; $lfilename = "products.pdg"; open(FILE, "$lfilename") or &dienice; while(<FILE>) { @row = split(/\;/); if ($row eq $value){ %data; @data{@fields} = @row; push @records, \%data; } } close (FILE); foreach my $ref ( @records ) { print $ref->{Begin}; }
In reply to Re: Re: which data structure and how?
by malaga
in thread which data structure and how?
by malaga
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |