Foro - Perl en Español

por **javierg** » 2007-03-27 07:13 @342

Buenas, estaba ejecutando un mini script, y me sale como error

"Re Error 41 :No remembered search string"

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$fecha=`date`;$Mes=(split" ",$fecha)[1];
$Dia=(localtime)[3];
$Completo="Percent Complete = 100";
$Operation="Operation Status = doneSuccessf";
#  we get the name of the PSAX from /etc/hosts and put it in a file /tmp/PSAXname

system(" cat /etc/nodos | grep PSAX-4500 > /tmp/PSAXname");
$Dir_PSAX="< /tmp/PSAXname";
open(PSAXNAME,"$Dir_PSAX")ordie(" can't open /tmp/PSAXname ");
$Error="false";
while($line=<PSAXNAME>)
{
$linea=~s/\s+//g;
$PSAX=(split" ",$line)[1];
$Existe=`cat /var/opt/OV/share/log/trapd.log  | grep $Mes | grep $Dia | grep $PSAX |  grep "Percent Complete = 100" | grep "Operation Status = doneSuccessf" `;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Es curioso, ¿por qué en la máquina de prueba funciona bien, sin embargo en producción, no? ¿Alguna idea?

Primero, si quieres usar las marcas BBCode en este foro, sería recomendable que entrases en tu configuración personal (perfil) y permitieras su uso. Luego puedes controlar su uso a nivel de mensaje (ver las opciones que hay debajo de la caja de texto).

Segundo, el problema.

Haces un system consistente en un cat | grep y derivada la salida a un fichero, para luego ir leyendo línea a línea. Quedaría mejor haciéndolo todo en Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

openmy$psaxname,'<','/etc/nodos'ordie"can't open /etc/nodos: $!";
while($line=<$psaxname>){
nextif$line!~/PSAX-4500/;
$line=~s/\s+/ /g;
$PSAX=(split" ",$line)[1];
# ...
}
close$psaxname;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Re Error 41

Re Error 41

Publicidad

¿Quién está conectado?