Foro - Perl en Español

por **josewfiallos** » 2017-11-27 14:36 @650

Buen día. Busqué por el foro algo relacionado con lo que necesito y no encontré nada, por eso abro este tema.

No tengo experiencia en Perl, así que me apoyo en uds. Necesito lo siguiente:

Tengo en una ruta dentro de un AIX; un archivo de texto que contiene solamente una palabra ("running" o "stopped" o "warning", etc.). Ocupo un script que me abra ese archivo y me lea la palabra y me haga la comparación (if) que si la palabra es "running" entonces me devuelva 1, (else) sino, 0.

Ese valor ocupo guardarlo en una variable ya que es el valor que utilizaré.

Tengo esta misma lógica montada en script Powershell para unos equipos Windows. Lo que pasa es que desconozco totalmente sintaxis en Perl así que agradecería mucho su ayuda.

Gracias de antemano.

#!/usr/bin/perl
 
my $ruta = "... aquí ponemos la ruta del archivo ...";
 
die "ERROR: el archivo no existe: $!\n" if ! -f $ruta;
 
open my $FH, '<', $ruta  or  die "ERROR: No puedo abrir el archivo [$ruta]: $!\n";
my $linea = <$FH>;              # leemos la primera línea
close $FH;
 
chomp $linea;                   # le quitamos los finales de línea, si los tuviera
 
my $variable = $linea eq 'running' ? 1 : 0;
 
print "$variable\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

La primera línea depende de dónde esté el binario perl. Como regla general, suele estar en /usr/bin, pero podría estar en otro sitio.

por **josewfiallos** » 2017-11-28 09:59 @458

Gracias por la bienvenida, no he parado de leer temas muy interesantes sobre perl, muy interesante el foro.

Y también ¡gracias por la pronta ayuda! Como tu dices no era un problema para nada grande.

Saludos.

Foro - Perl en Español

Abrir archivo de texto y guargar texto en variable

Abrir archivo de texto y guargar texto en variable

Publicidad

Re: Abrir archivo de texto y guargar texto en variable

Re: Abrir archivo de texto y guargar texto en variable

¿Quién está conectado?