Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
He estado intentando hacer un pequeño programa que me lea un fichero HTML almacenado en un disco duro y me muestre los titulares de la página utilizando para ello una expresión regular.
He intentado huir del uso de módulos, hasta que pueda entenderlos.
Buscando en Internet encontré una forma de leer un fichero HTML.
Using perl Syntax Highlighting
print "Content-type: text/html\n\n";
open (HTML, "<../path/to/your/file.htm");
print <HTML>;
close (HTML);
open (HTML, "<../path/to/your/file.htm");
print <HTML>;
close (HTML);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Por lo que he intentado adecuarlo a mi programa y he hecho esto
Using perl Syntax Highlighting
use strict;
use warnings;
my $tag_inicial = '<h2>';
my $tag_final = '</h2>';
print "Content-type: text/html\n\n" or die $!;
open (HTML, "<C:/Documents and Settings/Administrador/Escritorio/Wikipedia Portada.htm");
my @web=<HTML>;
for my $cadena(@web){
chomp $cadena;
if ($cadena=~ m/$tag_inicial(.*?)$tag_final/mgi) {
print HTML $cadena;
}
}
close (HTML);
use warnings;
my $tag_inicial = '<h2>';
my $tag_final = '</h2>';
print "Content-type: text/html\n\n" or die $!;
open (HTML, "<C:/Documents and Settings/Administrador/Escritorio/Wikipedia Portada.htm");
my @web=<HTML>;
for my $cadena(@web){
chomp $cadena;
if ($cadena=~ m/$tag_inicial(.*?)$tag_final/mgi) {
print HTML $cadena;
}
}
close (HTML);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El programa me da errores en la apertura del fichero HTML. ¿Alguna idea?
Este es el informe de error
Using text Syntax Highlighting
readline() on closed filehandle HTML at C:/Documents and Settings/Administrador/Escritorio line 7
Un saludo
Gonzalo
