WWW:Mechanize - Response (Fragen zu Perl-Modulen)

[thread]14145[/thread]

WWW:Mechanize - Response

Leser: 25

Articles: hide open all | hide show old branches

+14 replies
tadeus

2009-10-15 10:43
User since
2009-10-09
19 Artikel
BenutzerIn
Hallo zusammen,

ich möchte gern eine Kleinigkeit über mechanize wissen. Und zwar das folgende einfach Skript gibt mir am ende nur unleserlichen Kauderwelsch aus und nicht den HTML Code der Seite.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl -w -T use strict; use WWW::Mechanize; my $url = "http://localhost"; my $mech = WWW::Mechanize->new(); $mech->get($url); my $resp = $mech->response(); print $resp->content."\n";
Was ist der Fehler und wie kann ichs lösen?
Dank vorab

Grüße

tadeus
- +12 replies
- bianca
  
  2009-10-15 10:53
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Habs Dir mal korrigiert:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  #!/usr/bin/perl -w -T use strict; use WWW::Mechanize; my $url = "http://localhost"; my $mech = WWW::Mechanize->new(); my $response = $mech->get($url); print $response->content."\n";
  
  Edit: Das GET hat einen anderen Handler als das ganze Mech-Objekt.
  
  Edit 2: Und bitte vor einem $response->content immer erst den Status abfragen! Beim LWP benutzt man beispielsweise
  
  Code (perl): (dl )
  
  if ($response -> is_success) {}
  
  dafür.
  Last edited: 2009-10-15 10:56:23 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +7 replies
  - tadeus
    
    2009-10-15 11:04
    User since
    2009-10-09
    19 Artikel
    BenutzerIn
    
    Danke dir, aber das hat keinen Unterschied gebracht. Die Ausgabe ist immer noch
    
    Code: (dl )
    
    ³É(ÉÍ±³IÊO©´³É0´ó,Q(Ï/Ê.V´Ñòlô!ú`U\QUÅf-
    - renee
      
      2009-10-15 11:16
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Code: (dl )
      
      print $resp->decoded_content."\n";
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
    - +5 replies
    - bianca
      
      2009-10-15 11:18
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Oh, sorry, dann hab ich doch zuviel mit dem LWP durcheinander geschmissen. Der ist für das reine Laden von Seiten ohne Formulare auch besser geeignet.
      10 print "Hallo"
      20 goto 10
      - +4 replies
      - tadeus
        
        2009-10-15 14:10
        
        User since
        2009-10-09
        19 Artikel
        BenutzerIn
        
        Danke das hat jetzt funktioniert.
        
        Was heist eigentlich die Meldung
        
        Code: (dl )
        
        Parsing of undecoded UTF-8 will give garbage when decoding entities at /usr/share/perl5/WWW/Mechanize.pm line 514.
        
        Und wie bekomm ich die weg?
        
        +3 replies
        
        bianca
        
        2009-10-15 14:17
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Google übersetzt das mit
        
        Quote
        Parsen von UTF-8 decodierten Unsinn geben bei der Decodierung von Unternehmen
        
        Ich würde sagen
        Das Parsen von unkodiertem UTF-8 wird Müll ergeben wenn man solche Stellen dekodiert.
        
        Vielleicht soll das heißen, dass man Unsinn erhält, wenn man Nicht-UTF8 versucht, als UTF8 zu behandeln und zu dekodieren?
        
        Edit: Und wegbekommen? Hmmm. Ich vermute mal, die Seite die Du geladen hast ist zwar UTF-8 aber nicht als solche sauber ausgewiesen. Dürfte also an der geladenen Seite liegen. Schau mal im Manual von Mechanize obs eine Quiet-Schalter gibt.
        Last edited: 2009-10-15 14:23:08 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2009-10-15 14:23
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Steht vielleicht im Header etwas von utf-8 als Charset und im Text kommen keine utf-8-Daten vor?
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        bianca
        
        2009-10-15 14:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Fällt mir gerade noch was ein: Ich hatte mal das Problem, dass Mechanize immer gemeckert hat, wenn es Formularfelder außerhalb einer FORM gefunden hat. Da wollte ich den auch mit einem Quiet-Schalter ruhig stellen, zog aber nicht. Hat immer weiter gemeckert.
        
        Wenn das bei Dir auch so ist, mach
        
        Code (perl): (dl )
        
        open (STDERR,">/temppfad/www_mechanize_error.txt");
        
        dann ist Ruhe.
        
        Hab jetzt auch den Schalter gefunden:
        
        Code (perl): (dl )
        
        $mech = WWW::Mechanize -> new ( quiet => 1 );
        
        Wie gesagt: Bei mir zieht der nicht, meckert trotzdem über jeden Scheiß.
        10 print "Hallo"
        20 goto 10
  - +4 replies
  - Gast Gast
    
    2009-10-21 14:29
    ist es besser statt
    
    Code (perl): (dl )
    
    1 2 3
    
    my $mech = WWW::Mechanize->new(); $mech->get($url); print $mech->content."\n";
    
    Code (perl): (dl )
    
    1 2 3
    
    my $mech = WWW::Mechanize->new(); my $response = $mech->get($url); print $response->content."\n";
    
    zu schreiben?
    - bianca
      
      2009-10-21 16:55
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Meines Erachtens ist das zweite korrekt.
      10 print "Hallo"
      20 goto 10
    - +2 replies
    - Gast Gast
      
      2009-10-21 17:09
      
      Code (perl): (dl )
      
      1 2
      
      my $mech = WWW::Mechanize->new(); my $response = $mech->get($url);
      
      Code (perl): (dl )
      
      print $mech->decoded_content();
      
      funktioniert bei mir nicht, während
      
      Code (perl): (dl )
      
      print $response->decoded_content();
      
      geht. Ist das bei allen nicht explizit in WWW::Mechanize erwähnten Methoden so?
      - bianca
        
        2009-10-21 17:58
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das erste kann ja nicht funktionieren, weil im Objekt $response Dein get()-Ergebnis steckt und nicht in $mech. $mech ist das Objekt der ganzen Mechanize-Session an sich.
        Sonst läßt sich das ja alles nicht unterscheiden.
        10 print "Hallo"
        20 goto 10
- Linuxer
  
  2009-10-15 13:38
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  *grml* ungekennzeichneter Crosspost:
  
  http://www.perlboard.de/cgi-bin/perlboard.pl?actio...
  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!

View all threads created 2009-10-15 10:43.