Formular mit Post abrufen

[迪拉斯]

Hey,

falsches Werkzeug. Nimm WWW::Mechanize, wenn Formulare im Spiel sind.

> mech-dump http://www.kicker.de/login/?ReturnUrl=/games/kickerblma0607/classic/meinkader?
    POST http://www.kicker.de/home/suchergebnisse
      q=                             (text)
      Submit=<UNDEF>                 (button)
      suche=web                      (radio)    [kicker|*web/Web]

POST http://www.kicker.de/community/login/
      userTextBox=                   (text)
      returnUrlTextBox=/games/kickerblma0607/classic/meinkader? (hidden readonly)
      passwortTextBox=               (password)
      loginPersistant=<UNDEF>        (checkbox) [*<UNDEF>/off|on]
      loginButton=Login              (submit)
      registerButton=<UNDEF>         (button)
      emailTextBox=                  (text)
      pwAnfordernButton=Passwort anfordern (submit)

  
#!perl  
use strict;  
use diagnostics;  
use Data::Dumper;  
use WWW::Mechanize;  
  
my $mech = WWW::Mechanize->new;  
$mech->get('http://www.kicker.de/login/?ReturnUrl=/games/kickerblma0607/classic/meinkader?');  
  
$mech->submit_form(  
    form_number => 2,  
    fields  => {  
        userTextBox      => 'milkman_2',  
        passwortTextBox  => '12345678',  
    },  
    button    => 'loginButton',  
);  
  
#print Dumper [  
#    $mech->uri,  
#    $mech->status,  
#    $mech->ct,  
#    $mech->base,  
#    $mech->links,  
#    $mech->title,  
#    $mech->content,  
#] if $mech->success;  
  
print "Drin!\n" if $mech->content =~ /Mein Kader/;