Ladezeit bzw Traffic von Websites mit Perl messen?

[psykoman]

Hy an alle Perl Freaks! Ich soll für die Ferialarbeit, ein Perlscript coden, das einen timestampt vor einem http request setzt, und einen nach der antwort vom server, aus diesen zwei timestamps soll ich dann berechnen, wie lange die seite zum laden gebraucht hat und wieviele bytes geladen wurden.

Ein zusätzliches Problem dabei ist jedoch auch, dass diese Website ein Passwort benötigt, und damit jedesmal eine andere SessionID in der URI hat. Also müsst man sich auch irgendwie virtuell in diese Website per Perl einloggen, und die SessionID dann in der fertigen URL einfügen um eben die gewissen Seiten aufrufen zu können, von der man die Ladezeit bzw den Traffic wissen will.

Da hätt ich auch noch ein Beispiel, dass als Parameter den String für ein Wörterbuch übernimmt. und dann das Ergebniss von der Website zurückliefert.

require HTTP::Request;
require LWP::UserAgent;

die "Aufruf: translate [string]\nOnline šbersetzung �ber http://dict.leo.org/\n" if (not $ARGV[0]);

$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(GET => 'http://dict.leo.org/?search='.join(' ',@ARGV).'&searchLoc=0&relink=on&deStem=standard&l ang=de');
$ua->proxy(['http', 'ftp'], 'http://proxy.ecofinance.com:8080/');
print "Warte auf Antwort von http://dict.leo.org/ ...";
$response = $ua->request($request);
print "\r==============================================\ n";
#print $response->content;
if ($response->is_success&&$response->content=~/\<\/STRONG\> \<TABLE(.*)\<\/TABLE\>/) {
# print $1;
$line=$1;$last_kind="eBzK";
while ($line=~/p\=(\w+)\.*\&search\=(.*?)\"/g) {
# Kennung: [p=e5h...&search=saurian"]
print ($1 eq "eBzK"?" => ":"\n") if ($last_kind ne $1);
print "$2 ";
$last_kind=$1;
}
}
print "\n";

Kann mir da irgendeiner helfen??
Wär echt super!!

THX Geri

PS:
Es geht hauptsächlich darum, wie ich mich einloggen kann und dann die URL bekomm.

[_m3]

perldoc LWP
perldoc LWP::UserAgent - hier vor allem die Absätze zu $ua->credentials($netloc, $realm, $uname, $pass) und $ua->cookie_jar([$cookies])
an der Kommandozeile sollte Dir weiterhelfen
Fertige Scripts gibts ned, Du sollst Dir ja Dein Geld verdienen

[SNo0py]

Original geschrieben von _m3
Fertige Scripts gibts ned, Du sollst Dir ja Dein Geld verdienen

Richtig so!