.AcIdR3IgN zei:Khebbet es bekeken, en ik vindt het een leuk idee.. ik was zelf ook van plan om een gelijk aardige script te schrijven. Ik ben wel 'nieuw' bij perl, maar heb een aantal opemerkingen.
Ik zie dat je veel system calls doe.. en van wat ik heb gelezen (Llama boek).. is dit best af te raden (allee, 'af te raden').. system calls maken het programma aanzienlijk trager.. mja.. enzijn er geen andere methodes dan enkel curl te gebruiken..allee denk het wel.. is gewoon een kwestie om het portable te maken he, en niet egoistisch te zijn
Btw, correct me if I'm wrong.
Kzal er deze week wat meer enne kijken. Nice job though
Dus er komt een update 
Je had beter ff gewacht want TN gaat binnenkort de backend van z'n Telemeter aanpassen (cfr. http://pub.pandora.be/)GuntherDW zei:ik heb me beziggehouden me PHPtelemeter te updaten, maar dit past eigenlij niet hier
. 'k Heb PUB maar ff gemaild om te vragen of de specs gaan vrijgegeven worden of niet, omdat 'k zinnens was van zelf een crossplatform appje te maken (dat dan zou werken op Windows, Linux en Mac OS X - uiteraard liefst met 1 gemeenschappelijke codebase).dJeez zei:Je had beter ff gewacht want TN gaat binnenkort de backend van z'n Telemeter aanpassen (cfr. http://pub.pandora.be/)
cvs -d :pserver:[email protected]:/home/cvs logincvs -d :pserver:[email protected]:/home/cvs co scarletMeter-guidJeez zei:Je had beter ff gewacht want TN gaat binnenkort de backend van z'n Telemeter aanpassen (cfr. http://pub.pandora.be/)
#!/usr/bin/perl
# This is scarlet.pl, by Dieter D'Hoker
# prints how much data you've used up on your scarlet account on the command line
# scarlet.pl <username> <password>
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;
#use HTML::Entities;
# you can give username and password directly: "perl scarlet.pl <username> <password>"
my $username = $ARGV[0];
my $password = $ARGV[1];
# if username or password is not given, ask for it
if (not $username){
print "Username:\n";
$username = <STDIN>;
chomp $username;
}
if (not $password){
print "Password:\n";
$password = <STDIN>;
chomp $password;
}
# initialize UserAgent, Request, Result vars for LWP
my ($ua,$req,$res);
#start the user agent
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0");
$ua->cookie_jar( HTTP::Cookies->new(
'file' => '\cookies',
# where to read/write cookies
'autosave' => 1,
# save it to disk when done
));
# The sequence of urls that has to be visited
my @urls = ('http://customercare.scarlet.be/index.jsp?language=nl',
"http://customercare.scarlet.be/logon.do?language=nl&username=$username&password=$password",
'http://customercare.scarlet.be/usage/dispatch.do');
#get all the above urls
foreach my $url(@urls){
$req = HTTP::Request->new(GET => $url);
$res = $ua->request($req);
if (not $res->is_success){
print(' Something went wrong at: ',$url,' : ',$res->status_line, "\n");die;
}
}
#put the HTML-source of the last URL fetched in $source
my $source= $res->content;
#parse the source and print everything
print "\nUsage for $username:\n";
print "-" x length("Usage for $username:") . "\n\n";
if ($source =~ /<p>U hebt <b>(\d\d) \%<\/b>/i){
my $percent = $1;
my $used = '#' x ($percent/2);
my $rest = '.' x ((100-$percent)/2);
my @data = ($source =~ /\<th class=\"digit\"\>(.+)\<\/th\>/ig);
print "DL:\t$data[0] \nUL:\t$data[1] \n+\t---------\nTOT:\t$data[2]\n";
print "\n[$used$rest] ($percent\%)\n";
}
else{ print "Could not parse website\n";die;}