Leser: 2
|< 1 2 >| | 15 Einträge, 2 Seiten |
perl -MCrypt::SSLeay -e1
1
2
3
4
GET https://rt.cpan.org
LWP will support https URLs if the Crypt::SSLeay module is installed.
More information at <http://www.linpro.no/lwp/libwww-perl/README.SSL>.
Exit 1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $url = "[URL=http://www.google.de;]http://www.google.de";[/URL]
my $name = "q";
my $value = "linux";
my $button = "btnG";
use WWW::Mechanize;
my $agent = WWW::Mechanize->new(autocheck=>1);
$agent->proxy(['http', 'https'], '[URL=http://meinProxy]http://meinProxy[/URL]:8080/');
$agent->get($url);
$agent->field($name, $value);
$agent->click($button);
print $agent->content;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $url = "[URL=https://meine-HTTPS-Seite.com;]https://meine-HTTPS-Seite.com";[/URL]
my $name = "acc";
my $name2 = "pwd";
my $value = "meinUser";
my $value2 = "meinPasswd";
my $button = "submit";
use WWW::Mechanize;
use Net::SSLeay;
my $agent = WWW::Mechanize->new(autocheck=>1);
$agent->proxy(['http', 'https'], '[URL=http://meinProxy]http://meinProxy[/URL]:8080/');
$agent->get($url);
$agent->field($name, $value);
$agent->field($name2, $value2);
$agent->click($button);
print $agent->content();
Error GETing [URL=https://meine-HTTPS-Seite]https://meine-HTTPS-Seite[/URL]: Bad Request at ./infonet4.pl line 18
|< 1 2 >| | 15 Einträge, 2 Seiten |