Hola, me gustaria que alguien me explicara como funciona el POE
si alguien sabe algun tutorial en español de este modulo que me lo diga gracias!
Fecha actual 2026-03-07 11:16 @511
News of Foro - Perl en Españolmy @name=$linea=~/name=\"(.*?)\"/i; #!C:\perl\bin\perl.exe -w
$line="<meta name='description' content='Perl en Español - Foros de perl en español, foro perl, foro de perl, tutoriales de perl, noticias de perl en español.'>";
$content=$line=~/content=\'(.*?)\'/i;
print $content;open FILE,"pagina.txt";
&obtenerMeta();
close(FILE);
sub obtenerMeta {
#obtenemos todas las etiquetas meta
open META,">meta.txt";
my $i=1;
while(my $line=<FILE>) {
if(my @meta=$line=~/(\<meta.*?\>)/ig)
{
print META "$i\t$_\n" foreach @meta;
}
$i++;
}
close(META);
copiarMeta();
}
sub copiarMeta {
open PRUEBA,">p.txt";
open META,"meta.txt";
while(my $linea=<FILE>){
print PRUEBA "$linea\n";
}
close(META);
close(PRUEBA);
}
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983