Informatiekunde voorspelt de Statenverkiezingen via Twitter

#!/usr/bin/perl -w # ps2011.cgi: show results of election 2011 demo # usage: ps2011.cgi # 20110227 erikt(at)xs4all.nl BEGIN { open(STDERR, ">>/WWW/t/tjongkim/tmp/errorlog"); } $baseDir = "/WWW/t/tjongkim/htdocs/twitter"; $tableFile = "$baseDir/table.html"; ($min,$sec) = (0,0); if (open(INFILE,"date '+%M:%S'|")) { $line = ; chomp($line); close(INFILE); ($min,$sec) = split(/:/,$line); } @parties = qw(cda christenunie d66 groenlinks pvda pvdd pvv sgp sp vvd 50plus); #@articles = ("het","de","","","de","de","de","de","de","de","","",""); my %fancy = qw(cda CDA vvd VVD pvda PvdA sp SP christenunie ChristenUnie groenlinks GroenLinks sgp SGP d66 D66 pvdd PvdD overige overige pvv PVV 50plus 50Plus); $command = $0; $url = "http://ifarm.nl/twitter/cgi-bin/$command"; # read arguments $line = ; if (not defined $line) { $line = ""; } if (defined $ENV{"QUERY_STRING"}) { $line .= '&' . $ENV{"QUERY_STRING"}; } chomp($line); @args = split(/\&+/,$line); %args = (); for ($i=0;$i<=$#args;$i++) { ($field,$value) = split(/=+/,$args[$i]); if (not defined $field or $field eq "") { next; } if (not defined $value) { $value = 0; } $args{$field} = $value; $args{$field} =~ s/\++$//; # remove trailing spaces $args{$field} =~ s/^\++$//; # remove initial spaces } $party = $#parties; # get previously shown party id if (defined $args{"PARTY"}) { $party = $args{"PARTY"}; } # compute next party $party++; if ($party > $#parties) { $party = 0; } $partyName = $parties[$party]; $tableWidth = 260; $tableHeight = 130; $tdWidth = $tableWidth+10; $tdHeight = $tableHeight+20; $graphs = ""; foreach $p qw(cda christenunie d66 groenlinks) { $graphs .= ""; $graphs .= "$fancy{$partyName}"; if ($p ne $partyName) { $graphs .= " vs $fancy{$p}"; } $graphs .= "\n

"; } # standard lines for output print "Content-type: text/html\n\n"; print < Informatiekunde voorspelt de Statenverkiezingen via Twitter

Informatiekunde voorspelt de Statenverkiezingen met Twitter

"; foreach $p qw(pvda pvdd pvv sgp sp vvd) { $graphs .= ""; # if ($p eq "") { $graphs .= ""; } } $graphs .= ""; print <

$graphs
THEEND if (open(INFILE,$tableFile)) { while () { s/COMMAND/$command/; print; } close(INFILE); } $graphs = "
"; $graphs .= "$fancy{$partyName}"; if ($p ne $partyName) { $graphs .= " vs $fancy{$p}"; } $graphs .= "\n

De grafieken geven aan hoe vaak de partijen werden genoemd in Nederlandstalige berichten op Twitter in de afgelopen 24 uur. Voor het bepalen van de zetelaantallen is hooguit 1 bericht per gebruiker per partij per dag meegenomen en zijn punten afgetrokken voor berichten die negatief waren over de partij. (meer informatie; voorspelling; blogpost)

$graphs

Contact: e.f.tjong.kim.sang(at)rug.nl en johan.bos(at)rug.nl (050 - 363 6642), Informatiekunde, Rijksuniversiteit Groningen, http://ifarm.nl/ps2011

THEEND exit(0);