Foro - Perl en Español

por **alexclipse** » 2012-05-25 13:27 @602

Hola. Tengo una duda bastante simple pero que me es bastante importante.

Por ejemplo, tengo un archivo de texto con este contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

perro

gato

vaca

gallinaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Bien, simplemente quiero que si el archivo tiene perro y vaca, por ejemplo, me imprima algo.
Si contiene uno solo es sencillo, uso if ($linea =~ /perro/) {...} pero ¿si quiero perro y vaca? Gracias.

#!/usr/bin/env perl
use Modern::Perl '2012';
use utf8::all;
use autodie;
use File::Slurp;
 
my @animales = read_file('archivo.txt', chomp => 1);
 
# una forma
if ('perro' ~~ @animales) {
    if ('vaca' ~~ @animales) {
        say 'Encontrado perro y vaca';
    }
}
 
# otra forma, más tradicional
my %animales = map { $_ => 1 } @animales;
 
if ($animales{'perro'} and $animales{'vaca'}) {
    say 'Encontrado perro y vaca';
}
 
# otra forma... contando.
# Pero solo funcionará si todos los animales son distintos y
# solo aparecen una vez
my $conteo = 0;
for my $animal (@animales) {
    if ($animal eq 'perro'  or  $animal eq 'vaca') {
        $conteo++;
    }
}
if ($conteo == 2) {
    say 'Encontrado perro y vaca';
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Seguro que hay más formas...

Foro - Perl en Español

Dobles condiciones

Dobles condiciones

Publicidad

Re: Dobles condiciones

¿Quién está conectado?