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


in reply to Splitting Multiple files into arrays.

I am trying to read a file and split(by space) into an array called values and finally puttin it into a array table.I am able to do it for a single file but i want to split 8 files in a loop one after the other into 8 different arrays..table1 table2....table 8. But the following code below is not working. Please advise. for (my $i = 1 ;$i <=8; $i++) { open (MYFILE,"server$i"); while (<MYFILE>) { chomp; my @values = split " ",$_; push @{ "table$i"},\@values; } }
use warnings; use strict; @ARGV = map "server$_", 1 .. 8; my %data; while ( <> ) { push @{ $data{ $ARGV } }, [ split ]; }