Extraer URLs de la entrada estandard

Por Saiyine el 2004-12-16 00:00:00 - Secciones: PERL - Enlace permanente: 386

Un script que he escrito en un momento para sacar las urls que han ido saliendo en la web. Además, si hay un texto en title lo usa como explicación del enlace.

#!/usr/bin/perl
while ()
{
$linea=$_;
while ($linea=~/(<a href="(http[^"]+?)" target="_blank" title="([^"]*?)">(.*?)<\/a>)/i )
{
$url=$2;
$titulo=$3;
$texto=$4;
if ( !$titulo )
{
$titulo=$texto;
}
print "<li><a href=\"$url\" target=\"_blank\" title=\"$titulo\">$titulo.\n";
$linea=~s/(<a href="(http[^"]+?)" target="_blank" title="([^"]*?)">(.*?)<\/a>)//i;
}
}

¿Como se podria hacer que de igual si el target está o no, o que no importe el orden?

Otras entradas de la web que podrian interesarte:

(830) may 28 PERL LINUX ENGLISH Installing CPAN Perl modules made easy
(829) may 28 PERL LINUX Instalar modulos CPAN de Perl
(477) nov 30 DELPHI Filtrar la entrada de los edit
(480) nov 30 DELPHI Filtrar entrada en los edit
(902) ene 25 PERL DBI PROGRAMACION ENGLISH MYSQL Reading a random row from a MySQL table with Perl DBI

3290

Keith Amling (2005-09-23 13:25:14)

Correctly handling arbitrary HTML in a regex is a little difficult. The most robust way to handle this (at least with a regex) to first check against /<a ([^>]*)>/ and then check the return from that against /title="([^"]*)"/ and /href="([^"]*)"/ separately to parse title and URL. Extracting links from HTML is a hard problem and the correct (although slow) answer is to use HTML::Parser.

I apologize for English. I can pretend to read Spanish, but not to write it.

3291

Saiyine (2005-09-24 00:51:14)

Hi!

Yeah, the truth is that this is just a quick'n'dirty hack I can't remember right now why I wrote. Maybe for a module for this web in its pre .com era? I don't know.

You're absolutely correct, the best way is to reuse the code someone, better programmer than I, wrote and put in the HTML::Parser, but it's simply that I don't like to use external libraries for this kind of things.

I apologize for my English too!