HTML::Parser - Handler Issue [Anfänger] (Fragen zu Perl-Modulen)

[thread]18332[/thread]

HTML::Parser - Handler Issue [Anfänger]

Tags: perl5 HTML::Parser Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
Tiefkuehlpizza

2013-05-22 15:03
User since
2013-05-22
1 Artikel
BenutzerIn
Hallo zusammen,

ich bin Perl Anfänger. Ich habe eine Datei in einen String eingelesen (OK - Per Ausgabe validiert) und definiere nun per
Code: (dl )

1 2 3

my $parser_cc = HTML::Parser->new(); $parser_cc->handler(start => \&start_handler,"tagname,self"); $parser_cc->parse($cc_string);
das Parsing. Der Handler macht Folgendes:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

my $self = shift; my $text; if (shift eq "cc-name") { $self->handler(text => sub{$text = shift;},"dtext"); $self->handler(end => sub{print $text,"\n\n" if(shift eq 'cc-name')},"tagname"); } elsif (shift eq "cc_info") { $self->handler(text => sub{$text = shift;},"dtext"); $self->handler(end => sub{print $text,"\n\n" if(shift eq 'cc_info')},"tagname"); } else { print "Fehler".$self; }
Die Ausgabe ist "Fehlercc-nameFehlercc-info". Dies bedeutet shift hat den erwarteten Inhalt aber "eq" feedbackt FALSE...

Interpreter Feedback ist "Uninitialized value within @_ in string eq [...] line [... => elsif von cc-info]". Heißt auch das IF ist TRUE aber das elif nicht...

Danke für die Einsteigerhilfe...

Im Endeffekt möchte ich den Inhalt verschiedener Tags in ein Array schreiben. Wenn ein besserer Ansatz existiert, immer her damit.

Danke und Gruß
Pizza
Last edited: 2013-05-22 15:06:50 +0200 (CEST)
- pq
  
  2013-05-22 15:14
  User since
  2003-08-04
  12208 Artikel
  Admin1
  also mir scheint, dass du die parameter falsch einliest.
  bei der handler-definition gibst du ja "tagname,self" an.
  in der subroutine machst du dann aber als erstes
  my $self = shift;
  
  zweitens: sowohl im if als auch im elsif machst du ein shift.
  nach dem if ist aber das argument schon geshifted, aber da du nur 2 argumente bekommst, holst du dir mit dem shift im elsif ein drittes, welches nicht existiert.
  
  ist ne weile her, dass ich mit HTML::Parser gearbeitet habe, aber ich würde vermuten, dass das so gehen würde:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my ($tagname, $self) = @_; if ($tagname eq "cc-name") { ... } elsif ($tagname eq "cc_info") { ... } ...
  
  ansonsten empfehle ich dir als anfänger noch ein tutorial wie z.b. Modern Perl.
  eine liste findest du hier:
  http://perl-tutorial.org/
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- clms
  
  2013-05-22 15:56
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  Zum konkreten Problem kann ich nichts zu pqs Antwort hinzufügen.
  
  Ich habe mich seit Jahren nicht mehr mit HTML::Parser selbst beschäftigt. Für meine konkreten Anwedungen verwende ichHTML::TreeBuilder oder HTML::LinkExtor. (Beide erben von HTML::Parser)
  
  2013-05-22T13:03:17 Tiefkuehlpizza
  Im Endeffekt möchte ich den Inhalt verschiedener Tags in ein Array schreiben. Wenn ein besserer Ansatz existiert, immer her damit.
  
  Das ist ein bischen zu unpräzise. Ich habe noch eine konkrete Idee, was Du genau machen willst. Evtl. sind die oben genannten Module ja das richtige für Dich.
  
  Außerdem ist die Frage wie man "besser" definiert. Wenn ich die Aufgabe bekäme, z.B. alle "H1" bis "H6"-Überschriften aus einem HTML-File zu extrahieren, würde ich das höchstwahrscheinlich mit HTML::TreeBuilder angehen, weil ich dann schneller eine lauffähige Lösung habe, obwohl eine Lösung mit "purem" HTML::Parser sicher weniger CPU-Zeit benötigen würde.

View all threads created 2013-05-22 15:03.