Thread Forum abschicken mit WWW::Mechanize (34 answers)
Opened by jogi at 2007-10-11 21:33

jogi
 2007-10-11 21:33
#100699 #100699
User since
2007-07-25
55 Artikel
BenutzerIn
[default_avatar]
Hallo!

Ich kapier es nicht!

Hier der relevante Teil des Formulars.

Code: (dl )
1
2
<form action="http://rs208.rapidshare.com/files/47486343/PowerOptions.pdf" method="post">
<input type="submit" name="dl.start" value="PREMIUM"></td><td align="center"><input type="submit" name="dl.start" value="Free">


Hier das Skript.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;
$mech->add_header( 'accept-language' => 'de');
$mech->get('http://www.rapidshare.com/files/47486343/PowerOptions.pdf');


$mech->click_button( name => "dl.start",
                     value => "Free"
);

print $mech->content;


Hier das (falsche) Ergebnis.

http://ssdf80923kl.ss.funpic.de/ziel1.html <- zu dieser Seite gelangt man wenn man auf den PREMIUM Button klickt.

http://ssdf80923kl.ss.funpic.de/ziel2.html <-- zu dieser Seite sollte man gelangen, wenn man den Free Button klickt.

Ich bin seit einer Stunde am probieren. Wer kann mir sagen was da nicht stimmt.

Gruß,
Jogi

View full thread Forum abschicken mit WWW::Mechanize