Wikilinks mit Surfraw || Assange & -Team sei Dank!
Eigentlich war es nur ein flüchtiger, gedanklicher Scherz von mir an mich selbst adressiert, aber ... Geht ja auch! Aus dem omx-Sitemap-Ersteller-Proggi wird flugs ein praktisches Linksammelwerkzeug (in & aus Perl, oder so) #!/usr/bin/perl # wikilinks-sitemap.plx use strict; use warnings; # Variablen my $suchbegriffe; my $startlink; my $links2text; my @tmp_links; my %sitemap_links; # Belegungen & Vorarbeiten print "\nBitte die Suchbegriffe für die Wikipedia, kleingeschrieben und durch ein Leerzeichen getrennt, eingeben!\n"; $suchbegriffe = <STDIN>; chomp $suchbegriffe; $startlink = `surfraw -p wikipedia $suchbegriffe`; print "\nDer Startlink: $startlink\n\n"; sleep 5; $links2text = `lynx -dump -listonly $startlink`; print "\n\nGefundene Links:\n", $links2text, "\n\n"; sleep 3; @tmp_links = split ( "\n", $links2text ); print "\nDie temporäre Ausbeute:\n\n", map { $_, "\n\n" } @tmp_links, "\n