Foro - Perl en Español

por **yajer** » 2012-05-21 11:27 @518

Hola, mi duda es si se puede escribir $line=~"$variable", o si hay alguna otra estructura para reconocer una variable en un texto.

El problema surge con este código, ya que en el archivo hay un título para cada estado y la variable $estado va cambiando.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( $INFO, "$INFO" )      || die "cannot open file $INFO: $!";
open( OUT,   ">OUT.$INFO" ) || die "cannot produce file $INFO: $!";
 
while ( $line = <$INFO> ) {
    if ( $line =~ "$estado" ) {
        @list = split( /;/, $line );
        foreach $element (@list) {
            print OUT "$element\n";
            print "$element\n";
 
        }
    }
}
close($INFO);
close(OUT);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

También me pregunto si en un archivo se puede reconocer un elemento de un array. Ejemplo: if($line=~"$alimento[i]") que me imprima esa línea.

Espero y agradezco sus respuestas, Un Saludo.

print "los alimentos que ha tomado son  :\n @alimentos";
 
$INFO = "ARCHIVO.txt";
 
open( $INFO, "$INFO" )      || die "cannot open file $INFO: $!";
open( OUT,   ">OUT.$INFO" ) || die "cannot produce file $INFO: $!";
 
while ( $line = <$INFO> ) {
 
    for ( $i = 0; $i < $comidas; $i++ ) {
        if ( $line =~ /$alimentos[$i]/ ) {
            @list = split( /;/, $line );
            foreach $element (@list) {
                print OUT "$element\n";
                print "$element\n";
            }
        }
    }
}
close($INFO);
close(OUT);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hola de nuevo. Como podéis ver en el código tengo un array con una lista de elementos y un archivo de texto en el que cada línea comienza por la palabra de cada elemento del array, lo que quiero es que me imprima las líneas del archivo que comienzan con los elementos que estén contenidos en el array. Tras ejecutar el programa no me imprime nada y no sé por qué puede ser.

Espero vuestras respuestas, ¡un saludo!

por **explorer** » 2012-05-21 14:57 @664

¿Cuánto vale $comidas?

por **yajer** » 2012-05-21 15:01 @667

$comidas es la longitud del array y es una variable aleatoria que te pregunta antes de este programa cuando creas el array sobre cuántas comidas has realizado.

por **explorer** » 2012-05-21 16:37 @734

Pues el caso es que a mí sí que me funciona...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
# Sacar líneas que empiecen por algún alimento
# Joaquín Ferrero, 20120521
use v5.12;
 
my @alimentos = qw<
    tostadas    cafe
    fresas      alubias
    croquetas
>;
 
say "Los alimentos que ha tomado son: [@alimentos]";
 
while (my $linea = <DATA> ) {
    chomp $linea;
 
    for (my $i = 0; $i < @alimentos; $i++) {
        if ($linea =~ /^$alimentos[$i]/) {
            my @lista = split /;/, $linea;
            for  my $elemento (@lista) {
                say $elemento;
            }
        }
    }
}
 
__DATA__
croquetas;un alimento;otro alimento;postre
gambas;un alimento;otro alimento;postre
tallarines;un alimento;otro alimento;postre
cafe;postre
alubias;segundo plato
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Le añadí el '^' para buscar solo al principio de la línea.

por **yajer** » 2012-05-21 18:34 @815

Vale, me funciona cuando introduzco el array con tu estructura pero no me funciona con ésta que es la que necesito.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Ha seleccionado usted el programa contador de calorías\n";
$introduce = "introduce comida";
print "introduce el numero de alimentos\n";
$comidas = <STDIN>;
 
if ( $comidas <= 0 ) {
    print "debes introducir un numero mayor que 0";
    print "introduce el numero de comidas\n";
    $comidas = <STDIN>;
}
else {
    for ( $i = 0; $i < $comidas; $i++ ) {
        print $introduce . ( $i + 1 ) . " \n";
        $alimento = <STDIN>;
        @alimentos[$i] = $alimento;
    }
}
 
print "Los alimentos que ha tomado son: @alimentos";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si me podrías aclarar esto ya sería perfecto porque no me lo explico. Un saludo y gracias de todas formas.

por **explorer** » 2012-05-21 18:39 @818

Ya veo el fallo: no le quitas el retorno de carro al $alimento.

Usa chomp($alimento), después de leer el alimento del teclado.

Recuerda que cuando estás leyendo del teclado (o de un archivo de texto), el texto que lees va acompañado al final por el/los carácter/caracteres de fin de línea.

Edito: hay otro fallo menor: escribes @alimentos[$i], cuando debería ser $alimentos[$i].

por **yajer** » 2012-05-22 03:24 @183

Perfecto, ha costado pero lo conseguí, muchas gracias por tu ayuda.

Una última duda: ahora si por ejemplo en el DATA pongo estos datos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

fruta;30

pescado;100

carne;200

leche;100Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Podría extraer esos números y sumarlos?

¡Un Saludo!

Foro - Perl en Español

Textos, bucle y elementos de un array

Procesado de textos

Publicidad

Re: Procesado de textos

Re: Procesado de textos

Textos, bucle y elementos de un array

Re: Textos, bucle y elementos de un array

Re: Textos, bucle y elementos de un array

Re: Textos, bucle y elementos de un array

Re: Textos, bucle y elementos de un array

Re: Textos, bucle y elementos de un array

Re: Textos, bucle y elementos de un array

¿Quién está conectado?