[Mojo::DOM] Regex bis "break"? (gelöst) (Fragen zu Perl-Modulen)

[thread]19307[/thread]

[Mojo::DOM] Regex bis "break"? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+9 replies
Ionit

2014-09-23 13:56
User since
2006-05-16
81 Artikel
BenutzerIn
Hallo Freunde,

ich habe folgende html-Struktur.
Code: (dl )

1 2 3 4 5 6 7

<div id="test"> Alter: 21 Jahre<br> Haarfarbe: blond<br> Figur: normal<br> Augenfarbe: grün<br> ..... </div>
Wie ihr seht, ist der Content in diesem DIV nur durch ein <br> getrennt bzw. zu unterscheiden - es fehlen leider die li-tags (oder ähnliches).

Somit habe ich Probleme mit Mojo durch dieses Content zu loopen um die richtige Zeile zu finden (z.B. das Alter).

Wenn li-Tags vorhanden wären, würde ich das z.B. so machen:
Code: (dl )

1 2 3 4 5 6 7 8

@details = $dom2->find("li")->each( sub { if ($_->find("li")->first =~ /Alter:/) { $alter = $_->text; $alter =~ s/Alter://; $alter =~ s/Jahre//; $alter =~ s/ //g; } }
Damit hätte ich den numerischen Wert (den brauche ich nämlich). Bei dem obigen Beispiel ist das aber nicht möglich.

Ich als Anfänger weiß leider nicht wie ich die obigen Zeilen aufspalten und aus jeder einzelnen eine Mojo:Collection machen kann um den jeweiligen Text/Wert extrahieren zu können.

Wäre von euch jemand so nett und könnte mir einen Tip geben. Ich bin nämlich mit meinem Latein momentan am Ende.

Danke schonmal im Voraus
Matthias
Last edited: 2014-09-23 14:04:45 +0200 (CEST)
- GwenDragon
  
  2014-09-23 14:05
  
  User since
  2005-01-17
  14760 Artikel
  Admin1
  
  Frage zu bestimmtem Modul, kein Webframeworkproblem
  Verschoben von Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl nach Fragen zu Perl-Modulen
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- GwenDragon
  
  2014-09-23 14:22
  User since
  2005-01-17
  14760 Artikel
  Admin1
  Beispielhaft:
  
  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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
  
  #!/usr/bin/perl use strict; use warnings; use Mojo::DOM; use 5.010; local $/ = undef; my $dom = Mojo::DOM->new(<DATA>); my @details = $dom->find("div[id=test]")->each( sub { if ( $_->text =~ /Alter:/ ) { my ($alter) = $_->text =~ m/(\d+)\s*Jahre/; say $alter; } } ); 1; __DATA__ <div id="test"> Alter: 21 Jahre<br> Haarfarbe: blond<br> Figur: normal<br> Augenfarbe: grün<br> ..... </div> <div id="test">Alter: 22 Jahre<br>Haarfarbe: rot<br>Figur: dürr<br>Augenfarbe:gelb<br>.....</div> <div id="test"> Alter:32Jahre<br> Haarfarbe: grün<br> Figur: lang<br> Augenfarbe: lila-blass-blau<br> ..... </div>
  
  ergibt:
  21 22 32
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - Ionit
    
    2014-09-23 14:54
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Hallo Meister GwenDragon,
    
    das funktioniert sehr gut für das Alter! Vielen Dank für die Hilfe :-)
    
    Ich würde das gerne auch auf andere Zeilen übertragen:
    
    z.B.
    
    Code: (dl )
    
    1 2 3 4
    
    <div id="test"> KF: 36<br> ..... </div>
    
    [KF: 36 steht hierbei für Konfektionsgröße: 36]
    
    Die Regex dafür müsste lauten:
    Suche nach "KF:" - dann nach "Leerzeichen" - und danach nach einer "Digit" (Zahl).
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    my @details3 = $dom2->find("div[id=test]")->each( sub { if ( $_->text =~ /KF:/ ) { my ($konf) = $_->text =~ m/(KF:)\s(\d+)/; say $konf; } });
    
    Als Ausgabe erhalte ich allerdings nur "KF:" (ohne den numerischen Wert dahinter).
    
    Was mache ich da falsch?
    
    Vielen Dank schonmal!
    
    Gruß Matthias
    Last edited: 2014-09-23 15:00:07 +0200 (CEST)
    - +5 replies
    - GwenDragon
      
      2014-09-23 15:18
      
      User since
      2005-01-17
      14760 Artikel
      Admin1
      
      Mit
      
      Code (perl): (dl )
      
      my ($konf) = $_->text =~ m/(KF:)\s(\d+)/;
      
      fängst du nur was in der ersten Klammer des RegEx.
      
      Entweder
      
      Code (perl): (dl )
      
      my ($tag, $konf) = $_->text =~ m/(KF:)\s(\d+)/;
      
      oder
      
      Code (perl): (dl )
      
      my ($konf) = $_->text =~ m/KF:\s(\d+)/;
      
      Ein Regex liefert so viele gematchte Zeichenketten zurück wie in Klammern gesetzt ist.
      Und wenn links ein Array im Listenkontext steht, dann wird dieses gefüllt
      (@ERGEBNIS) = "ABC DEF xxx" =~ /(ABC)\s+(DEF)/;
      ergibt
      in $ERGEBNIS[0] ist ABC
      in $ERGEBNIS[1] ist DEF
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - Ionit
        
        2014-09-23 15:30
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Hallo Master Gwen,
        
        nochmals danke für die Hilfe. Das funktioniert sehr gut!
        
        Bei den Regexen sehe ich immer noch nicht so recht durch aber mit Hilfe Deiner Beispiele habe ich wieder etwas gelernt und das Verständnis ist gewachsen.
        
        Jetzt habe ich das mit den Klammern verstanden (ich habe hier nur im Nebel herumgestochert) :-)
        
        Danke für die Erklärung!
        
        Einen schönen Tag noch.
        
        Viele Grüße
        Matthias
        
        +3 replies
        
        GwenDragon
        
        2014-09-23 15:33
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Wenn schon Mistress ;)
        
        Kannst du etwas Englisch, dann hätte ich noch ein paar Links für dich, zum Lernen.
        Deutsch:
        http://wiki.perl-community.de/Perldoc/Perlretut
        http://wiki.perl-community.de/Wissensbasis/Perl5Tu...
        Englisch:
        http://www.regexr.com/
        http://www.regular-expressions.info/tutorial.html
        http://perldoc.perl.org/perlretut.html
        Last edited: 2014-09-23 15:39:02 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Ionit
        
        2014-09-23 15:53
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Oh - du bist eine Lady ... das war mir nicht klar. :-)
        
        Die Regex-Tutorials ziehe ich mir natürlich rein!
        
        Vielen Dank Du holde Coder-Maid :-)
        
        Gruß Matthias
        
        GwenDragon
        
        2014-09-23 16:23
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Bitte sehr.
        Viel Spaß beim Lernen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-09-23 13:56.