[LUGOS] html povezave iz dokumenta

[Matija Grabnar]

Samo pozor, ce imas kaksen HTML link, ki je prelomljen
cez vec kot eno vrstico, potem ne bo delovalo. 

Zanesljivejsa verzija je nekaj v stilu
===============
#!/usr/bin/perl -w
use LWP::Simple;
use HTML::LinkExtor;

sub cb {
    my ($tag,%links)=@_;
    foreach (values %links) {
        print "$_\n";
    }
}

if ($ARGV[0]!~/^(\w+):/) {
    $ARGV[0]="file:$ARGV[0]";
}

$p=HTML::LinkExtor->new(\&cb,$ARGV[0]);
$p->parse($html);
==========

kostko at jweb-network.net said:
>  hvala, deluje.
> On Sat, 2003-04-26 at 18:13, Aleksander Kmetec wrote:
> Spodnjo kodo shrani v linki.pl; uporaba:
> cat file_z_linki.html | perl linki.pl
> 
> LP
> 
> #----------------------------
> 
> #!/usr/bin/perl
> 
> while (<>) {
> 	if ($_ =~ /<a href="([^"]+)">/) {
> 		print $1 . "\n";
> 	}
> }
> 
> #----------------------------