[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
 
[an error occurred while processing this directive] [an error occurred while processing this directive]
Skåne Sjælland Linux User Group - http://www.sslug.dk Home   Subscribe   Mail Archive   Forum   Calendar   Search
MhonArc Date: [Date Prev] [Date Index] [Date Next]   Thread: [Date Prev] [Thread Index] [Date Next]   MhonArc
 

Re: [PERL] Søge efter URL's



[Jan 17. 2002] Thomas Rokamp wrote: 
> Hej!
> 
> Jeg savner et regulært udtryk, der i en eller anden stump tekst kan "finde"
> de URL'er der måtte være. Jeg har forsøgt lidt selv, men det lykkes ikke
> rigtig. En søgning på google giver heller ikke nogen specielt brugbare
> resultater.
> Er der nogen af jer, der ligger inde med et sådan?

Brug CPAN ikke google

NAME

HTML::LinkExtor - Extract links from an HTML document

SYNOPSIS

require HTML::LinkExtor;
 $p = HTML::LinkExtor->new(\&cb, "http://www.sn.no/";);
 sub cb {
     my($tag, %links) = @_;
     print "$tag @{[%links]}\n";
 }
 $p->parse_file("index.html");




> 
> På forhånd tak!
> 
> Mvh.
> Thomas Rokamp
> 
> 

-- 
Mvh|Regards, Lars
Student at Department of Computer Science and Department of Psychology  
University of Copenhagen --- http://www.diku.dk/students/larsj/     
When's the last time you used duct tape on a duct? -- Larry Wall


 
Home   Subscribe   Mail Archive   Index   Calendar   Search

 
 
Questions about the web-pages to <www_admin>. Last modified 2005-08-10, 19:54 CEST [an error occurred while processing this directive]
This page is maintained by [an error occurred while processing this directive]MHonArc [an error occurred while processing this directive] # [an error occurred while processing this directive] *