[HTML::Element] attr_get_i meldet "undefined value" (Fragen zu Perl-Modulen)

[thread]19988[/thread]

[HTML::Element] attr_get_i meldet "undefined value"

Tags: perl6 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+6 replies
Gast Thoma

2016-02-16 11:26
Hallo,

ich habe ein Problem mit attr_get_i das sich im Modul HTML::Element befindet. Ich versuche die Funktion über einen sub aufzurufen und ein bestimmtes href Attribut aus einer Seite auszulesen.

Versuche ich attr_get_i über diese sub aufzurufen erhalte ich

Quote
Can't call method "attr_get_i" on an undefined value

Füge ich den Code direkt in meinen Main teil vom Script ein, also ohne den Umweg über die sub, funktioniert der Code einwandfrei.

Ich würde gern wissen was genau das Problem ist und wie ich attr_get_i trotzdem über meine eigene sub aufrufen kann.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sub extract { my $resp = @_; my $tree = HTML::Tree->new(); $tree->parse($resp); my $href = $tree->look_down( "_tag" => "a", "href" => qr//, sub { ( $_[0]->attr("href") =~ /^ *(http:|https:|ftp:|mailto:)/) } )->attr_get_i("href"); return $href; }
Grüße Thomas :)

modedit Editiert von GwenDragon: Titel ergänzt, Thread verschoben
Last edited: 2016-02-16 16:23:44 +0100 (CET)
- +3 replies
- Linuxer
  
  2016-02-16 11:46
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Stumpf nach Perldoc gelesen
  
  perldoc HTML::Element
  look_down
  
  Code: (dl )
  
  1 2
  
  @elements = $h->look_down( ...criteria... ); $first_match = $h->look_down( ...criteria... );
  
  This starts at $h and looks thru its element descendants (in pre-order), looking for elements matching the criteria you specify. In list context, returns all elements that match all the given criteria; in scalar context, returns the first such element (or undef, if nothing matched).
  
  (Kursiv- u. Fettdruck von mir.)
  
  Wenn look-down() nichts findet, kommt da also ein undef von look-down()zurück, auf das Du dann attr_get_i() anwendest, was dann zu der Meldung führt.
  
  Ich würde also tippen:
  Die Ergebnisliste von look-down() zwischenspeichern und auf die Listenelemente, so welche da sind, dann attr_get_i() anwenden...
  
  Worin nun genau der Unterschied zwischen Deiner Variante "im Main" und "in der Sub" liegt, kann ich mangels Glaskugel nicht beurteilen.
  
  ~~Und wenn ich in der Perldoc zu look-down() weiterlese, gewinne ich den Eindruck, dass sich Deine Suchkriterien widersprechen; speziell das Kriterium für "href" und die Code-Referenz.~~
  
  edit: Denkfehler gestrichen.
  Last edited: 2016-02-16 14:34:37 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - Raubtier
    
    2016-02-16 13:33
    
    User since
    2012-05-04
    1083 Artikel
    BenutzerIn
    
    Quote
    Und wenn ich in der Perldoc zu look-down() weiterlese, gewinne ich den Eindruck, dass sich Deine Suchkriterien widersprechen; speziell das Kriterium für "href" und die Code-Referenz.
    
    Warum?
    "href" => qr//, verstehe ich als "suche was mit href, Inhalt egal - die RE matcht doch alles.
    Und die sub schränkt dann den Bereich auf bestimmte href-Werte ein. Aber zuvor ist sichergestellt, dass es href gibt.
    
    Zumindest so würde ich es verstehen.
    - Linuxer
      
      2016-02-16 14:33
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      Du hast recht, da war ich auf dem Holzweg. Danke für die Korrektur.
      
      Code: (dl )
      
      1 2
      
      perl -E " say 'OK' if 'text' =~ qr//" OK
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- Linuxer
  
  2016-02-16 14:38
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Warum steht die Frage im Perl6 Forum? Es geht doch um Perl5. Sollte der Thread nicht verschoben werden?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - GwenDragon
    
    2016-02-16 16:22
    
    User since
    2005-01-17
    14892 Artikel
    Admin1
    
    Done.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2016-02-16 11:26.