http://www.perlmonks.org?node_id=167714


in reply to Re: How can I deal with those big table data?
in thread How can I deal with those big table data?


Thank you for your help!
I am a beginner for perl, sorry for all my silly mistake!
I need to read in two files, the first part works good.The second part,now I fixed a little bit, and test it, it can give me only one letter of the data, but my data should be the whole sequence, and my hash does not print out anything either. Please help!
#!/usr/bin/perl -w
use strict;
my ($file_list, $file_data)=@ARGV;
my %MYHASH;
#create hash
sub do_hash {
my $filename=shift;
open(FH, $filename) or die "Can't open $filename: $!\n";
while(<FH>){
my ($Name, $Data)=split,1;
while (my ($key, $value)=each (%MYHASH)){
rint $Name,"=>",$Data," ";
}
}
close FH;
}
do_hash('file_data');
exit;