Formulardaten senden (Allgemeines zu Perl)

[thread]13647[/thread]

Formulardaten senden

Leser: 24

Articles: hide open all | hide show old branches

+10 replies
NOLIM

2009-06-18 20:13
User since
2009-06-16
6 Artikel
BenutzerIn
Hallo zusammen,

ich habe mich mit LWP::UserAgent ein bisschen vertraut gemacht. Zum Teil waren diese Bemühungen auch von Erfolg gekrönt. Allerdings ist es mir nicht gelungen, das gewünschte Ergebnis auch für die Seitenabfrage zu erreichen, die mich eigentlich interessiert. Folgendes Script habe ich benutzt:
Code: (dl )

1 2 3 4 5 6 7 8

use LWP; my $browser = LWP::UserAgent->new(); my $url = "http://www.handelsblatt.com/default.aspx?_p=73&wp1_symbol=MAN.FSE&wp1_t=wp1_quoteshistory"; my $seite = $browser->post($url,[/ctl00$ctl00$ctl22$ctl00$ctl02$DD_Year/ => 2000]); $seite = $seite->decoded_content;
Mein Ziel war es, eine bestimmte Jahreszahl (Option selected) auszuwählen und das Ergebnis dann in einem String aufzufangen. Leider erhalte ich im String nur die Website ohne die ausgewählte Option. Für konstruktive Hilfe möchte ich mich schon im voraus bedanken.

----
Modedit Gwendragon: Code-Tags hinzugefügt
----
Last edited: 2009-06-18 20:30:01 +0200 (CEST)
- +8 replies
- Taulmarill
  
  2009-06-18 22:00
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Zeile 6 sieht nicht richtig aus. Versuche mal folgendes:
  
  Code: (dl )
  
  my $seite = $browser->post($url,[ '/ctl00$ctl00$ctl22$ctl00$ctl02$DD_Year/' => 2000]);
  
  Der Operator => interpoliert standardmäßig den linken Ausdruck als stünde er in doppelten Anführungszeichen. So Sachen wie $ct100 sehen dann wie eine Variable aus. Hättest du strict und warnings benutzt, dann hätte perl dich darauf hingewiesen.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +6 replies
  - Linuxer
    
    2009-06-18 22:32
    User since
    2006-01-27
    3875 Artikel
    HausmeisterIn
    
    In diesem Fall ist die linke Seite doch sogar ein Regex ( m/.../ ), der 1. undefinierte Variablen interpolieren soll und 2. auf ein undefiniertes $_ losgelassen wird.
    Das Ergebnis daraus steht dann auf der linken Seite des '=>'.
    
    Vgl:
    
    Code: (dl )
    
    1 2
    
    perl -wle '$_="abc"; my $ref = [ /(a)/ => 200 ]; print "@{$ref}";' a 200
    
    edit: Satz korrigiert; s/=> stehen/'=>'/;
    Last edited: 2009-06-18 23:03:21 +0200 (CEST)
    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!
    - +5 replies
    - NOLIM
      
      2009-06-18 23:00
      
      User since
      2009-06-16
      6 Artikel
      BenutzerIn
      
      Leider haben alle Hinweise bisher nicht gefruchtet.
      
      Gibt es bei Option selected vielleicht eine Besonderheit, d.h. das ansprechen des name="ctl00$ctl00$ctl22$ctl00$ctl02$DD_Year" reicht z.B. nicht aus ?
      Last edited: 2009-06-18 23:02:13 +0200 (CEST)
      - +4 replies
      - Taulmarill
        
        2009-06-19 12:04
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Ich hab mir die Seite mal genauer angeschaut und ein Funktionierendes Script zusammengebastelt:
        
        Code: (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
        
        use strict; use warnings; use LWP; my $browser = LWP::UserAgent->new(); my $url = q~http://www.handelsblatt.com/default.aspx?_p=73&wp1_symbol=MAN.FSE&wp1_t=wp1_quoteshistory~; chomp( my $view = <DATA> ); my $seite = $browser->post( $url, { 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Day' => '1', 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Month' => '1', # Monat: Januar 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Year' => '2000', 'ctl00$ctl00$ctl22$ctl00$ctl02$Txt_Time' => '23:59', 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Lines' => '20', 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Step' => '2', # Darstellung: Tage '__VIEWSTATE' => $view, }, ); if ($seite->is_success) { print "$_\n" for $seite->decoded_content =~ /\s(\d\d\.\d\d\.\d\d)\s/g; } else { die $seite->status_line; } __DATA__ # Hier den Wert von __VIEWSTATE einfügen
        
        Den Wert der Variable __VIEWSTATE poste ich mal nicht da der relativ lang ist.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +3 replies
        
        NOLIM
        
        2009-06-21 22:54
        
        User since
        2009-06-16
        6 Artikel
        BenutzerIn
        
        Hallo,
        
        erst einmal vielen Dank für die Hilfe !
        
        Habe das Script (msg #122578) ausprobiert. Die Formulardaten werden nun auch geändert. Allderdings erfolgt irgendwie keine Abfrage mit den geänderten Formulardaten, sondern das alte Formular verbleibt nur mit geänderten Parametern. Für eine kurze Hilfe wäre ich sehr dankbar. Anbei nochmal das Script, dass ich gegenwärtig nutze:
        
        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
        
        use LWP; my $browser = LWP::UserAgent->new(); my $url = q~http://www.handelsblatt.com/default.aspx?_p=73&wp1_symbol=MAN.FSE&wp1_t=wp1_quoteshistory~; chomp( my $view = <DATA> ); my $seite = $browser->post( $url, { 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Day' => '1', 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Month' => '1', # Monat: Januar 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Year' => '1998', 'ctl00$ctl00$ctl22$ctl00$ctl02$Txt_Time' => '23:59', 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Lines' => '100', 'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Step' => '2', # Darstellung: Tage '__VIEWSTATE' => $view, }, ); $seite = $seite->decoded_content; $out = "MAN1.html"; open(OUT ,">$out") ||die ("Kann $out nicht oeffnen!!"); printf OUT ("$seite"); close (OUT);
        
        mod-edit pq: perl-tags hinzugefügt und message-link portabel gemacht
        Last edited: 2009-06-21 23:04:19 +0200 (CEST)
        
        +2 replies
        
        Taulmarill
        
        2009-06-22 10:04
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Sieht so weit eigentlich ganz gut aus. Hast du mal geprüft, ob in $view auch das Passende drin steht? Evtl. die Variable mal mit print ausgeben.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        NOLIM
        
        2009-06-22 20:20
        
        User since
        2009-06-16
        6 Artikel
        BenutzerIn
        
        Die Variable $view ist wohl Teil des Problems.
        
        Wenn ich die html-Seite auslese und den Wert für $view dann im Perl-Script verwende, kommt bei ansonsten veränderten Parametern (Datum etc.) immer die gleiche html-Seite als Ergebnis heraus, d.h. das eigentliche Ziel, in Abhängigkeit von den veränderten Parametern jeweils auch eine andere Antwort-Seite zurückzubekommen, wird leider nicht erreicht. Eine richtige Abfrage findet also gar nicht statt.
  - GwenDragon
    
    2009-06-19 09:21
    
    User since
    2005-01-17
    14554 Artikel
    Admin1
    
    Zu Zeile 6: Wo hast du die Daten her, die du extra posten musst?
    Hast du da ein Formular im HTML/JS-Quellcode analysiert oder wie?
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- GwenDragon
  
  2009-06-18 22:24
  User since
  2005-01-17
  14554 Artikel
  Admin1
  Bitte verwende
  
  Code: (dl )
  
  1 2
  
  use strict; use warnings;
  
  in deinem Code, dann siehst du die Probleme besser. ;)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2009-06-18 20:13.