Text in div finden und dann das nachfolgende div auswählen und Text extrahieren? (gelöst) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]19274[/thread]

Text in div finden und dann das nachfolgende div auswählen und Text extrahieren? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
Ionit

2014-09-11 15:38
User since
2006-05-16
81 Artikel
BenutzerIn
Hallo Freunde,
ich habe folgendes html ....
Code: (dl )

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

<div class="details"> <span class="details_head">Name:</span> <span class="details_data">Frank</span> </div> <div class="details"> <span class="details_head">Alter:</span> <span class="details_data">23</span> </div> <div class="details"> <span class="details_head">Figur:</span> <span class="details_data">sportlich</span> </div> ..... ..... ..... .....
Wie ihr seht, sind die Namen der DIVs überall gleich (details, details_head, details_data). Auch die Reihenfolge kann unterschiedlich sein - sprich - "Figur:" kann an erster Stelle stehen - oder auch das "Alter:" .... somit kann ich die obigen Daten nicht als Array zwischenspeichern und auch nicht per $array[1] ausgeben ...

Ich möchte nun aber trotzdem das Alter extrahieren (23) - in folgender Art:

- finde DIV (details_head) indem der Text "Alter:" vorkommt
- wähle danach das erste nachfolgende DIV (details_data) aus
- extrahiere den Numerischen Wert und speicher ihn in einer Variablen zwischen

Ich habe schon mit Mojo::DOM und mit WWW::Mechanize getestet aber als Anfänger fehlen mir die Kenntnisse und die Erfahrung.

Wäre von euch jemand so nett und könnte mir auf die Sprünge helfen wie man das macht?

Danke schonmal im Voraus!

Gruß Matthias
Last edited: 2014-09-11 15:40:21 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2014-09-11 16:02
  User since
  2005-01-17
  14790 Artikel
  Admin1
  Ungetestete Idee:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  while ( # solange my $elem = $dom->find('div.details span.details_head') # SPAN mit Klasse details_head unterhalb DIV mit Klasse details gefunden and # und $elem->text eq "Alter:" # dessen Kindelement vom Typ Text und gleich der Zeichenkette "Alter:" ) { my $data = $elem->parent->find('span.details_data')->text; # hole beim Elternelement das SPAN mit der Klasse details_data }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Ionit
    
    2014-09-11 16:20
    
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Hallo GwenDragon,
    
    vielen Dank für Deine Hilfe.
    
    Leider bekomme ich hier folgende Fehlermeldung.
    
    Global symbol "$elem" requires explicit package name at spider.pl line 25.
    Global symbol "$data" requires explicit package name at spider.pl line 31.
    
    Diese Fehlermeldung kommt doch eigetlich nur wenn eine Variable nicht deklariert wurde - $elem und $data sind doch aber mit "my" deklariert?
    
    [Grübel]
- +4 replies
- Raubtier
  
  2014-09-11 16:03
  User since
  2012-05-04
  1077 Artikel
  BenutzerIn
  z.B. so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
  
  use 5.14.0; use Mojo::DOM; undef $/; my $dom = Mojo::DOM->new(<DATA>); my @details = $dom->find("div.details")->each( sub { if ($_->find(".details_head")->first =~ /Alter:/) { say $_->find(".details_data")->first->text; } }); __DATA__ <div class="details"> <span class="details_head">Name:</span> <span class="details_data">Frank</span> </div> <div class="details"> <span class="details_head">Alter:</span> <span class="details_data">23</span> </div> <div class="details"> <span class="details_head">Figur:</span> <span class="details_data">sportlich</span> </div>
  - +3 replies
  - Ionit
    
    2014-09-11 16:30
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Hallo Raubtier,
    
    das funktioniert super! Vielen Dank :-)
    
    Wärst Du noch so nett und könntest mir kurz erklären warum Du ganz am Anfang
    
    Code: (dl )
    
    undef $/;
    
    geschrieben hast? Was wird damit bezweckt?
    
    [Sorry für die Noob-Frage - bin noch absoluter Anfänger]
    
    Viele Grüße Matthias
    Last edited: 2014-09-11 16:31:13 +0200 (CEST)
    - +2 replies
    - Raubtier
      
      2014-09-11 17:25
      
      User since
      2012-05-04
      1077 Artikel
      BenutzerIn
      
      Das steht in perlvar.
      
      Mache ich, damit <DATA> mit die komplette Datei in einem String liefert, ansonsten würde das <DATA> nur eine Zeile (im Skalarkontext) bzw. eine Liste von Zeilen liefern (Listenkontext). Das Mojo::DOM braucht aber das html direkt. Der Grund ist also, dass ich nicht mit Umbrüchen hantieren will.
      - Ionit
        
        2014-09-11 17:56
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Danke für die Erklärung!

View all threads created 2014-09-11 15:38.