Foro - Perl en Español

Hola, soy nuevo. Me llamo Esteban. Estoy aprendiendo Perl.

Este código extrae el título de un archivo HTML tomado de la entrada y hace dos sustituciones para eliminar algunos espacios en blanco. Para desarrollarlo tuve en cuenta que títulos en páginas HTML encontradas en la web pueden estar en varias líneas o en una línea compartida con otro código HTML (algunas páginas hasta tienen todo el código HTML en una única línea). ¿Es posible simplificarlo o llevarlo a una forma más corta?

Gracias, explorer.

Aprendí varias cosas.

Ahora estoy usando este código:


Como alternativa a la última línea (usando -n y no -p), ahora sé también que puedo usar $,=" " seguido de print split /\s+/ o print m/\S+/sg

También puedo imprimir los dos anteriores con -n y print join " ",expr sin necesidad de poner el separador de campos de salida.

Estoy usando Perl 5.14.1 en Arch Linux.

explorer escribiste:El '$\="\n";' te sobra porque eso es lo que hace la opción '-l'

Con -l, si lo quito termina con null en lugar de newline.

explorer escribiste:Otra versión (que tampoco he probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. #!/usr/bin/perl -lp0
2. s{<title>\s*(.*?)\s*</title>}{$1}is;
3. s/\s+/ /g;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Como es de esperar la primera línea reemplaza la coincidencia pero devuelve todo el archivo HTML. No es lo que quiero lograr.

Es sucinto y parece ejecutarse rápido.

Aprendí mucho con este tema.