von LWP nach WWW::Mechanize - #133662 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

Gast Gast

2010-02-25 11:35

Wollte mich am Ende des Threads mit einem Gedicht bedanken.

Das scheint zu funktionieren - bis auf das "format => text", was wirkungslos bleibt.

Code (perl): (dl )

#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;

my $start_url = 'start_url';
my $loginData = 'loginData';
my $loginUrl = 'loginUrl';

my $mech = WWW::Mechanize->new( show_progress => 1 );

my $req = $mech->post( $loginUrl, "Content-type" => 'application/x-www-form-urlencoded', "Referer" => $start_url, "Content" => $loginData  );
print $req->content( format => 'text' );