Revision as of 16:51, 27 January 2007 by Tstaerk (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Here's how I draw a mindmap of this wiki:

duffman:~/developernew # cat ../wikimap/
require HTML::LinkExtor;
use LWP::Simple; 

$p = HTML::LinkExtor->new(\&parse, "");
sub parse {
    my($tag, %links) = @_;
    my ($att, $url) = @{[%links]};
    print "$url\n";
my $content = get(""); #Get web page in content 
die "get failed" if (!defined $content);
my $parser = HTML::LinkExtor->new(); #create LinkExtor object with no callbacks
$p->parse($content); #parse content

duffman:~/developernew #

Content is available under Creative Commons License SA 4.0 unless otherwise noted.