WWW::Mechanize: Formular gibt es nicht... - #57544 (Fragen zu Perl-Modulen)

J-jayz-Z

2005-08-30 19:46

User since
2005-04-13
625 Artikel
BenutzerIn

Hi,

ich hab hier vor, mit WWW::Mechanize Daten in ein Formular einzutragen, und das Ergebniss auszuwerten. Ich habe allerdings kleine Probleme mit vermutlich dem Javascript im Quelltext. Im Quelltext steht folgendes, um ein Formular zu öffnen:

Code: (dl )

<FORM METHOD=POST NAME=FltWiz ACTION="/pub/agent.dll?tovr=-1294767292&ps3u=" >

Wenn ich dann allerdings ein kleines Script schreibe, das Daten in city1 eintragen soll, das wie folgt aussieht:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $url = "http://www.expedia.com/pub/agent.dll?qscr=fltw&rfrr=-1066";

$mech->get( $url );
$mech->form_name( "FltWiz" );

$mech->set_fields("city1" => "Frankfurt");

bekomme ich nur diese meldung:

Code: (dl )

1
2

 There is no form named "FltWiz" at ./mechanize.pl line 11
No form defined at ./mechanize.pl line 13

und mit

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $url = "http://www.expedia.com/pub/agent.dll?qscr=fltw&rfrr=-1066";

$mech->get( $url );
print $_ . "\n" for @{ $mech->forms() };

bekomme ich ebenfalls keine Ausgabe, wobei mir hier eigentlich die Formulare der Seite angezeigt werden sollten...
Kann mir da vielleicht jemand helfen?

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de