Foro - Perl en Español

por **Aceitunas** » 2013-12-08 11:05 @503

¿Qué carácter toma Perl como fin de cadena? Sé que en otros lenguajes como C es '\0' pero en Perl no lo he encontrado...

Un saludo.

sub UltimosPost
{
        my @post = split("rel=\"nofollow\">",$_[0]);
        
        my $i = 1;
        
        while (@post[$i])
        {
            #@post[$i] =~ s/<\/a>/\0/;
                my @tema = split("</a>",@post[$i]);
       
                print @tema[0] . "\n";
                $i++;
        }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Quitar el split que hay dentro del bucle para que la función sea más rápida.

por **explorer** » 2013-12-08 12:51 @577

Tienes un par de fallos sintácticos. No se escribe @post[$i], sino $post[$i]. Cuando se accede a un escalar siempre hay que usar el sigilo '$'.

En cuanto al problema, se puede resolver de varias formas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use feature 'say';
 
sub UltimosPost {
    my @post = split /rel="nofollow">/, $_[0];
 
    for (@post) {
        my @tema = split /<\/a>/;
        say $tema[0];
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quizás con una expresión regular sea más rápido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use feature 'say';
 
sub UltimosPost {
    while ($_[0] =~ /"nofollow">(.+?)</g) {
        say $1;
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Incluso, si sabemos que $_[0] solo contiene un enlace <a>, se puede reducir aún más:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use feature 'say';
 
sub UltimosPost {
    $_[0] =~ /"nofollow">(.+?)</;
    say $1;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Depende un poco del formato que tenga $_[0].

por **Aceitunas** » 2013-12-08 14:48 @658

Impresionante el poder que tiene Perl para manejar cadenas...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$_[0] =~ /"nofollow">(.+?)</g) 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Me puedes explicar "(.+?)"?

¡Gracias!

por **pablgonz** » 2013-12-08 17:56 @789

Creo (no soy el experto) que ¿"(.+?)"? significa «Cualquier carácter, incluido espacios pero no saltos de línea, que esté luego de nofollow> y antes de <», es decir, todos lo que estén entre nofollow> y <.

Saludos

por **explorer** » 2013-12-08 19:51 @869

(.+?) quiere decir

«uno o más (+) caracteres cualesquiera (.) que están inmediatamente antes de (el carácter que sigue a la expresión, que era '<'). Y esos caracteres me los capturas en $1 (efecto del par de paréntesis de captura que rodean al patrón)»

Más información en tu propio ordenador en perldoc perlre, y en la Web (traducido al español). En Wikipedia tienes también una buen resumen de lo que son las expresiones regulares.

por **Aceitunas** » 2013-12-09 03:35 @191

Gracias a los dos.

Foro - Perl en Español

Fin de cadena

Fin de cadena

Publicidad

Re: Fin de cadena

Re: Fin de cadena

Re: Fin de cadena

Re: Fin de cadena

Re: Fin de cadena

Re: Fin de cadena

Re: Fin de cadena

¿Quién está conectado?