Solicito ayuda con un caso que se me esta presentando en un programa Perl que corre bajo Unix.
Tengo un arreglo @RECORDINVOICE que posee 1000 registros y cuando está ejecutando la siguiente instrucción me muestra el mensaje 'out of memory':
Using perl Syntax Highlighting
foreach $J (sort {$a <=> $b} keys %{$RECORDINVOICE[$i]}) {
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
la porción de código donde está este comando es:
Using perl Syntax Highlighting
for ($i = 1; $i <=$NUMINVOICES ; $i++) {
foreach $J (sort {$a <=> $b} keys %{$RECORDINVOICE[$i]}) {
push @{$rINVOICETMP}, $RECORDINVOICE[$i]{$J};
}
}
foreach $J (sort {$a <=> $b} keys %{$RECORDINVOICE[$i]}) {
push @{$rINVOICETMP}, $RECORDINVOICE[$i]{$J};
}
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
También me muestra el mismo mensaje cuando está ejecutando la siguiente opción:
Using perl Syntax Highlighting
para estos arreglos utilicé
Using perl Syntax Highlighting
$ArcTmp=$ARGV[2]."\/temporal$NUMDOCUMENTOS\.tmp";
$DBRECORDINVOICE = tie @RECORDINVOICE, "DB_File", $ArcTmp, O_CREAT|O_RDWR, 0644, $DB_RECNO;
$DBRECORDINVOICE = tie @RECORDINVOICE, "DB_File", $ArcTmp, O_CREAT|O_RDWR, 0644, $DB_RECNO;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
En @{$rINVOICETMP} recibe como parámetro @INVOICETMP para el cual se utilizó
Using perl Syntax Highlighting
$ArcTmp=$ARGV[2]."\/factura$NUMDOCUMENTOS\.tmp";
$DBINVOICETMP = tie @INVOICETMP, "DB_File", $ArcTmp, O_CREAT|O_RDWR, 0644, $DB_RECNO;
$DBINVOICETMP = tie @INVOICETMP, "DB_File", $ArcTmp, O_CREAT|O_RDWR, 0644, $DB_RECNO;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Le agradezco de antemano cualquier sugerencia que me pueda ayudar pues es algo urgente que debo solucionar.
Mil gracias
Judith García
