Estoy haciendo un script en Perl que consiste en un reporte en Excel. El script funciona perfectamente pero el problema radica en que al revisar los log hay muchos warnings y ya le intenté de varias maneras para poder quitarlos; hasta el momento no he podido. Aquí pongo el código donde me marca los warnings.
Using perl Syntax Highlighting
foreach my $x (@programas) {
&barra_programas($x,$ban) ;
$num_elementos=$#columnas_programa + 1;
foreach my $num_control (@control) {
foreach (@columnas_programa) {
$for1->write($r, $col, "$cantidad{$x.$num_control.$_}",$price_format); $col++; #linea 379
$sub_total_prog+=$cantidad{$x.$num_control.$_}; #linea 380
$total_columna{$_}+=$cantidad{$x.$num_control.$_}; #linea 381
$total_registro{$num_control}+=$cantidad{$x.$num_control.$_}; #linea 382
}
if ($x < 5000) {
$for1->write($r, $col, "$sub_total_prog",$price_format2);
}
$total_prog+=$sub_total_prog;
$sub_total_prog=0;
$r++; $col-=$num_elementos;
}
$r++;
if ($x < 5000) {
foreach (@columnas_programa) {
$for1->write($r, $col, "$total_columna{$_}",$price_format2); $col++;
$total_columna{$_}=0;
}
}
$for1->write($r, $col, "$total_prog",$price_format2); $col++;
$gran_total+=$total_prog;
$r=2; @columnas_programa=0; $ban++; $total_prog=0;
}
&barra_programas($x,$ban) ;
$num_elementos=$#columnas_programa + 1;
foreach my $num_control (@control) {
foreach (@columnas_programa) {
$for1->write($r, $col, "$cantidad{$x.$num_control.$_}",$price_format); $col++; #linea 379
$sub_total_prog+=$cantidad{$x.$num_control.$_}; #linea 380
$total_columna{$_}+=$cantidad{$x.$num_control.$_}; #linea 381
$total_registro{$num_control}+=$cantidad{$x.$num_control.$_}; #linea 382
}
if ($x < 5000) {
$for1->write($r, $col, "$sub_total_prog",$price_format2);
}
$total_prog+=$sub_total_prog;
$sub_total_prog=0;
$r++; $col-=$num_elementos;
}
$r++;
if ($x < 5000) {
foreach (@columnas_programa) {
$for1->write($r, $col, "$total_columna{$_}",$price_format2); $col++;
$total_columna{$_}=0;
}
}
$for1->write($r, $col, "$total_prog",$price_format2); $col++;
$gran_total+=$total_prog;
$r=2; @columnas_programa=0; $ban++; $total_prog=0;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Los warnings que me marca cada vez que entra al ciclo foreach(@programas) son los siguientes:
- Código: Seleccionar todo
[Tue Sep 30 11:34:20 2008] [error] [client 192.168.10.193] [Tue Sep 30 11:34:20 2008] rep_radicaciones.cgi: Use of uninitialized value in string at /var/www/cgi-bin/firco/rep_radicaciones.cgi line 379., referer: https://192.168.10.2/cgi-bin/radicaciones/acceso.cgi
[Tue Sep 30 11:34:20 2008] [error] [client 192.168.10.193] [Tue Sep 30 11:34:20 2008] rep_radicaciones.cgi: Use of uninitialized value in addition (+) at /var/www/cgi-bin/firco/rep_radicaciones.cgi line 380., referer: https://192.168.10.2/cgi-bin/radicaciones/acceso.cgi
[Tue Sep 30 11:34:20 2008] [error] [client 192.168.10.193] [Tue Sep 30 11:34:20 2008] rep_radicaciones.cgi: Use of uninitialized value in addition (+) at /var/www/cgi-bin/firco/rep_radicaciones.cgi line 381., referer: https://192.168.10.2/cgi-bin/radicaciones/acceso.cgi
[Tue Sep 30 11:34:20 2008] [error] [client 192.168.10.193] [Tue Sep 30 11:34:20 2008] rep_radicaciones.cgi: Use of uninitialized value in addition (+) at /var/www/cgi-bin/firco/rep_radicaciones.cgi line 382., referer: https://192.168.10.2/cgi-bin/radicaciones/acceso.cgi
Gracias.