Ciao a tutti,
sono nuova al Perl e sto cercando di fare un'operazione banale...ma che mi sta facendo diventare matta.
Ho un array formato da circa 41 mila elementi. Voglio dividere il mio array in 17 parti, ed ognuna di queste parti voglio scriverla in un file diverso. Ho scritto il seguente script, che ovviamente non funziona:
################################################## ###############
#!/usr/bin/perl
use strict;
use warnings;
my $file=$ARGV[0]; #il file da cui mi ricavo i 41 mila elementi.
open (FILE, "<$file") || die "cannot open $file";
my @data=<FILE>;
foreach my $name (@data){
chomp $name;
$name=~s/\r\n\s+\t//g;
my @slice;
for (my $j=0;$j<=16;$j++){
for (my $i=0;$i<=2499;$i++){
$slice[$j][$i]=split(", ",$name);
}
}
print "$slice[0][0]\n";
}
close FILE;
################################################## ####################
La mia idea era quella di creare un array di array, e poi printare ciascun array in un file diverso....
Esiste un modo piu' semplice? Dove sbaglio nel fare questo?
Vi prego, sono esasperata.......
Grazie in anticipo!
Ciao!