Ubuntu-gr Forum

Κώδικας: Επιλογή όλων

use strict;
use warnings;

Αυτά είναι για αρχάριους (όπως εμένα ). Σε βοηθάει να μάθεις perl με το σωστό τρόπο:
http://perldoc.perl.org/strict.html
http://perldoc.perl.org/warnings.html

Τα υπολοιπα είναι perl modules.
Το Term::ReadKey είναι για να διαβάσεις το input. Αντίστοιχο του raw_input για python:

Κώδικας: Επιλογή όλων


print "Type password for $username: ";
ReadMode(4);
my $password = ReadLine(0);
print "\n";
ReadMode(0);

Το mechanize «αυτοματοποιεί» τη συμπλήρωση των html forms.

Κώδικας: Επιλογή όλων

use WWW::Mechanize;

Κοίταξε το cookbook και το examples εδώ: http://search.cpan.org/~jesse/WWW-Mechanize-1.68/

Παράδειγμα στο παραπάνω script:

Κώδικας: Επιλογή όλων


my $m = WWW::Mechanize->new(
agent => 'Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.6) Gecko/2009022716 Ubuntu/9.04 (jaunty) Firefox/3.0.6',
cookie_jar => {},
);

print "Getting ".$forumroot.$loginpage."\n";
$m->get($forumroot.$loginpage);
die "Could not get page\n" unless $m->success;

# Login
print "Logging in...\n";
$m->form_id('login');
$m->set_fields(
'username' => $username,
'password' => $password,
);
$m->add_header('Referer' => $forumroot.$loginpage);
$m->click_button(name => 'login');
die "Could not submit to login page\n" unless $m->success;