Leser: 24
![]() |
|< 1 2 3 4 >| | ![]() |
31 Einträge, 4 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
#!/usr/local/bin/perl use WWW::Mechanize; my $datei = 'C:\Dokumente und Einstellungen\Username\Desktop\QuelleCode.txt'; my $name = 'username'; my $value = 'E-Mail Adresse'; my $name2 = 'password'; my $value2 = 'Geheim'; my $mech = WWW::Mechanize->new( autocheck => 1 ); $mech->get( "http://web.de/fm/" ); $inhalt = $mech->content; open(FILE,">$datei"); print FILE "$inhalt"; $mech->field( $name, $value); $mech->field( $name2, $value2);
iPerl+2009-01-24 16:28:14--[...]
Trotzdem kommt:
No such field 'username' at C:/Perl/lib/WWW/Mechanize.pm line 1247
No such field 'password' at C:/Perl/lib/WWW/Mechanize.pm line 1247
[...]
iPerl+2009-01-24 16:51:24--@GwenDragon
Wenn ich im HTML Code nach "password" suche ist der 1. Anschlag bei dem Nameattribut von der Form.
iPerl+2009-01-24 16:51:24--@murphy
[...]
Das 3. auf der Seite?
Kannst du das bitte genauer erklären.
[...]
</b> - <a href="/?si=12SUk.1lr3T0.1mTjfb.19*&rv_logoff=true" target="_parent" ><b>Logout</b></a>
![]() |
|< 1 2 3 4 >| | ![]() |
31 Einträge, 4 Seiten |