Studienummer-spillet.

hest.pl

#!/usr/bin/perl

use WWW::Mechanize;
use Time::HiRes qw/usleep/;
$m = WWW::Mechanize->new();
$url = 'http://services.science.au.dk/apps/skema/VaelgElevskema.asp?webnavn=skema&sprog=da';

$i=1;
while ($i) {
    $m->get($url);
    $aarskort=sprintf "20%02d%04d", int(rand(4)+8), int(rand 10000);
    $m->submit_form(form_number => 0, fields => {aarskort => $aarskort});
    if ($m->text() =~ /ikke tilmeldt kurser/) {
        printf "$aarskort er li'gla'\n";
        usleep 250;
    }
    else {
        $m->content(charset => 'latin-1') =~ /<h2>Tilmeldinger for ([^<]+)/;
        printf "$1 ($aarskort) har kursuspest. %s drikker bajer!\n",
        $ARGV[$i % scalar(@ARGV)];
        sleep 15;
    }
    $i++;
}

250 mikrosekunders søvn? Det gør sikkert en stor forskel.

Den var 333ms før, vi blev slet ikke fulde hurtigt nok.