Foro - Perl en Español

por **charlygarza** » 2013-05-22 23:11 @007

Buenas. Necesito ayuda. Estoy realizando este programa. Corre bien pero no encuentro la forma de agregarle que cuando no encuentre coincidencias que me dé un texto en pantalla diciéndolo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
for ( $x = 1; $x <= 10; $x = $x + 1 ) {
    print "ingrese el parrafo $x : ";
    $tipo = <STDIN>;
    chop($tipo);
    my $string = $tipo;
    my $char   = 'lengua';
    my $offset = 0;
 
    my $result = index( $string, $char, $offset );
 
    while ( $result != -1 ) {
 
        print "Se encontro $char en posicion $result\n";
 
        $offset = $result + 1;
        $result = index( $string, $char, $offset );
 
    }
 
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que quiero hacer es que encuentre esas palabras en el párrafo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
for ( $x = 1; $x <= 10; $x = $x + 1 ) {
    print "ingrese el parrafo $x : ";
    $tipo = <STDIN>;
    chop($tipo);
    my $string = $tipo;
    my @palabra = { 'salmon', 'cala', 'don', 'de', 'gas', 'jun', 'dir', 'dua', 'hito' };
 
    #my $char = 'salmon' or $char = 'cala';
    my $offset = 0;
 
    my $result = index( $string, $palabra, $offset );
 
    while ( $result != -1 ) {
 
        print "Se encontro $char en posicion $result\n";
 
        $offset = $result + 1;
        $result = index( $string, $palabra, $offset );
 
    }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

print "Ingrese el párrafo: ";
my $parrafo = readline;
chomp $parrafo;
 
my @palabras = ( 'salmon', 'cala', 'don', 'de', 'gas', 'jun', 'dir', 'dua', 'hito' );
 
for my $palabra (@palabras) {
    my $result;
    my $offset = -1;
 
    while ( -1 != ($result = index($parrafo, $palabra, $offset))) {
 
        print "Se encontró $palabra en posición $result\n";
 
        $offset = $result + 1;
    }
 
    if ($offset == -1) {
        print "No se encontró $palabra\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

> ./kk.pl

Ingrese el párrafo: El salmon cala en el salmon de gas y mucho gas en la junta directiva. Todo un hito

Se encontró salmon en posición 3

Se encontró salmon en posición 21

Se encontró cala en posición 10

No se encontró don

Se encontró de en posición 28

Se encontró gas en posición 31

Se encontró gas en posición 43

Se encontró jun en posición 53

Se encontró dir en posición 59

No se encontró dua

Se encontró hito en posición 78Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

De todas maneras, tendrás problemas con las palabras que tengan alguna tilde. Debes conocer antes en qué codificación está el párrafo.

por **charlygarza** » 2013-05-23 11:26 @518

Muchas gracias por tu respuesta.

Foro - Perl en Español

Búsqueda de varios índices en arreglo

Búsqueda de varios índices en arreglo

Publicidad

Re: Búsqueda de varios índices en arreglo

Re: Búsqueda de varios índices en arreglo

¿Quién está conectado?