Foro - Perl en Español

por **colorado** » 2011-05-15 17:02 @751

Tengo las siguientes líneas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(PASS, "<   archivo.txt");
my @contenido = <PASS>;
foreach my $linea (@contenido)
{
if($linea =~ m/amigos de perl/)
{
print $linea;
}
}
close(PASS);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

archivo.txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

referencia archivo.txt

hola 

amigos de perl

en españolColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

salida por pantalla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

amigos de perlColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es que si el script encuentra la cadena de búsqueda, en vez de imprimir la línea en la que está contenida esa cadena, imprima la primera línea, para que la salida por pantalla sea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

referencia archivo.txtColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use strict;
 
my $primera_linea;
my $flag_linea = 0;
my $flag_encontrado = 0;
 
open(PASS, "<   archivo.txt");
my @contenido = <PASS>;
foreach my $linea (@contenido) {
    if(!$flag_linea) {  # saber si es la primera linea
        $primera_linea = $linea;
        $flag_linea = 1;
    }
    if($linea =~ m/amigos de perl/) {
        $flag_encontrado = 1;  # se ha encontrado lo que se busca
        last;
    }
}
close(PASS);
 
if($flag_encontrado) {
     print $primera_linea;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos.

por **explorer** » 2011-05-15 18:05 @795

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Modern::Perl;                       # somos modernos
use File::Slurp;                        # leer ficheros
 
my @fichero = read_file('archivo.txt'); # leemos el fichero
 
my $primera = shift @fichero;           # primera línea
 
                                        # condición
print $primera if /amigos de perl/ ~~ @fichero;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **colorado** » 2011-05-16 09:38 @443

Muchas gracias a los dos, genial, problema resuelto.

Foro - Perl en Español

imprimir la primera línea en una búsqueda

imprimir la primera línea en una búsqueda

Publicidad

Re: imprimir la primera linea en una busqueda

Re: imprimir la primera línea en una búsqueda

Re: imprimir la primera línea en una búsqueda

¿Quién está conectado?