Mi problema ahora radica en un array que es enviado a una función, pero que al ser recibido no muestra todos sus valores para ser evaluados en una condicional, sin embargo cuando los imprimo uno por uno sí los muestra, pero en su conjunto tampoco. Les dejo los extractos de código.
Using perl Syntax Highlighting
- $cod_resultado = &eval_rpta($rpta, $ok, $war, \@cadena_critical);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- #recibo todos los datos enviados y el último es el array que contiene 4 datos.
- my $dscRptaScript = shift;
- my $dscOK = shift;
- my $dscWARNING = shift;
- my ($uno)=@_;
- #esto si muestra inclusive si le cambio los valores de 0 a 3 porque son 4 elementos enviados.
- print @$uno[0];
- #esto no muestra exepto uno de ellos
- print @$uno[0] . @$uno[1] . @$uno[2] . @$uno[3];
- print join '-', @$uno;
- #aqui tampoco evalua, exepto solo un valor de los tantos...
- if ($dscRptaScript =~ m/$dscOK/){
- return 'O';
- }elsif ($dscRptaScript =~ m/$dscWARNING/){
- return 'W';
- }elsif ($dscRptaScript =~ m/@$uno[0]/){
- return 'C';
- }
- return '?';
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
No sé en qué me equivoqué, quisiera su ayuda, por favor.