• Publicidad

Re Error 41

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Re Error 41

Notapor 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") or die(" 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.003 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?
javierg
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-10-17 05:26 @268

Publicidad

Notapor javierg » 2007-03-27 07:14 @343

Cambié linea por line, pero sigue fallando
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$linea=~s/\s+/ /g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
javierg
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-10-17 05:26 @268

Notapor explorer » 2007-03-27 08:33 @398

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
open my $psaxname, '<', '/etc/nodos' or die "can't open /etc/nodos: $!";
while ( $line = <$psaxname> ) {
    next if $line !~ /PSAX-4500/;
    $line =~ s/\s+/ /g;
    $PSAX = (split " ",$line)[1];
    # ...
}
close $psaxname;
 
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 0 invitados

cron