Bild-URL extrahieren? (gelöst) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]19273[/thread]

Bild-URL extrahieren? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+6 replies
Ionit

2014-09-11 12:24
User since
2006-05-16
81 Artikel
BenutzerIn
Hallo Freunde,

ich (als Anfänger) habe folgendes (kleines) Script geschrieben.
Code: (dl )

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

#!/usr/bin/perl use warnings; use strict; use Data::Dump qw(dump); use WWW::Mechanize; use Mojo::DOM; my $mech = WWW::Mechanize->new(); $mech->timeout(30); $mech->agent_alias('Windows Mozilla'); $mech->get('http://www.url.de/1426-profile.html'); my $dom = Mojo::DOM->new($mech->content); my $collection4 = $dom->find('.portraitSetCard > img'); print $collection4;
Das funktioniert und als Ausgabe erhalte ich jetzt folgendes:
Code: (dl )

<img alt="User-Foto" src="http://www.url.de/bla/picture.jpg" style="float:left; margin-right:1em;" title="User-Foto">
Aus diesem Code will ich nun nur die reine Bild-Url extrahieren http://www.url.de/bla/picture.jpg sodass ich sie in einer Variablen speichern kann. Obwohl ich viel darüber gelesen habe, schaffe ich das aber leider nicht!

Kann man die Image-URL auch mit Mojo extrahieren oder gibt es ein anderes Modul dass das übernehmen kann oder muss man dazu eine eigene RegEx schreiben?

Falls mir da jemand einen Tip geben könnte, würde ich mich freuen!

Danke und Gruß
Matthias

modedit Editiert von GwenDragon: Bitte Beispiel-URL in NOPARSE-Tags
Last edited: 2014-09-11 13:07:18 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2014-09-11 12:58
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wenn das Mojo::DOM so funktioniert wie auch bei HTML- bzw. CSS-DOM allgemein, musst du noch einen Attributselektor verwenden.
  Laut http://mojolicio.us/perldoc/Mojo/DOM#find und http://mojolicio.us/perldoc/Mojo/DOM/CSS#SELECTORS geht sowas!
  Ich nehme an das hilft:
  
  Code (perl): (dl )
  
  my $collection4 = $dom->find('.portraitSetCard > img[src]');
  
  Editiert von GwenDragon: Tippfehler, Hinweis auf Mojo::DOM-Doku
  Last edited: 2014-09-11 13:08:09 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Ionit
    
    2014-09-11 13:17
    User since
    2006-05-16
    81 Artikel
    BenutzerIn
    
    Hallo GwenDragon,
    
    vielen Dank für den Hinweis aber leider funktioniert das nicht.
    
    Als Ausgabe bekomme ich wieder den gesamten <img>-Code
    
    Code: (dl )
    
    <img alt="User-Foto" src="http://www.url.de/bla/picture.jpg" style="float:left; margin-right:1em;" title="User-Foto">
    
    [Grübel]
    - +2 replies
    - GwenDragon
      
      2014-09-11 13:24
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ah, erst muss das Element gesucht und dann das Attribut ausgelesen werden.
      
      Code (perl): (dl )
      
      my $collection4 = $dom->find('.portraitSetCard > img')->attr('src');
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Ionit
        
        2014-09-11 13:34
        
        User since
        2006-05-16
        81 Artikel
        BenutzerIn
        
        Perfekt! Das funktioniert super!
        
        Danke GwenDragon [Schulter klopf].
- pq
  
  2014-09-11 13:10
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Verschoben von Perl/CGI nach Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl
  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

View all threads created 2014-09-11 12:24.