URI::FIND auch Rückwärts??? - #2982 (Perl/CGI)

Strat

2004-07-10 21:49

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=Tom,06.07.2004, 19:45]Sorry, aber ich glaube ich bin zu blöd dafür.

Damit erhalte ich immer nur eine weiße Seite, ich dachte dass ich damit die extrahierten Links sehen.

Tom[/quote]
da musst du mit $attr_name und $attr_value in der schleife arbeiten, damit du an die Werte kommst. Ich habe mal den code so angepasst, dass (hoffentlich) was ausgegeben wird (ich habe den code nicht laufen lassen)

Code: (dl )

#! /usr/bin/perl
use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use HTML::LinkExtor;

my $url = "http://www.perl-community.de/index.shtml";

# neues cgi-objekt erstellen
my $cgi = CGI->new();

print $cgi->header(); # gibt http-header aus
print $cgi->start_html(); # gibt <html>... aus

# webseite laden und parsen
my $parser = HTML::LinkExtor->new(undef, $url);
$parser->parse_file($filename);

my @links = $parser->links;
foreach $linkarray (@links) {
   my ($eltType, @element) = @$linkarray;

   # possibly test whether this is an element we're interested in
   while (@element) {
       # extract the next attribute and its value
       my ($attr_name, $attr_value) = splice(@element, 0, 2);

       # mach was mit $attr_name und $attr_value, z.b.
       print "$eltType: $attr_name => $attr_value <br>\n";

   } # while
} # foreach

# </body></html> ausgeben
print $cgi->end_html();

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/