PC-tetthet for Linux-skoler vs. andre skoler (Was: digi: "Bekymret for IT i skolen")

[Odin Nøsen]
> Noen skoler som kjører linux (men ikke Skolelinux): Randaberg
> kommune, Harestad skole (1-10-skole) - rundt 510 maskiner (totalt)
> men 420 tilgjengelig for 690 elever, 1,6 elever per maskin Randaberg
> kommune, Grødem skole (1-10-skole) - rundt 400 maskiner (totalt) men
> 320 tilgjengelig for 525 elever, 1,6 elever per maskin

Takk.  Jeg laget et lite script som kombinerer informasjon fra GSI med
en liste over kommune,skole,operativsystem, og viser frem resultatet.
Scriptet og input-fila er vedlagt.

Resultatet for Harstad, Narvik og Nittedal samt Randaberg ser slik ut,
sortert på elever pr. PC.  Jobben blir å samle kommune og navn for
samtlige skoler som kjører Skolelinux/Linux for å kunne regne ut om
tettheten er større eller mindre på Linux-skoler enn andre skoler.
Noen som vil være med å lage en slik liste?  Jeg kan sjekke kode og
data inn i egnet svn hvis flere vil bidra.

 1.15 Skolelinux Straumsnes barneskole i Narvik
 1.20 Skolelinux Gausvik skole i Harstad
 1.43 Skolelinux Bjerkvik barne- og ungdomsskole i Narvik
 1.63 Skolelinux Ankenes skole i Narvik
 1.72 Skolelinux Fagernes barneskole i Narvik
 1.75 Linux Harestad skole i Randaberg
 1.75 Skolelinux Skjomen skole i Narvik
 1.82 Skolelinux Ervik skole i Harstad
 1.82 Skolelinux Harstad skole i Harstad
 1.84 Linux Grødem skole i Randaberg
 1.97 Skolelinux Seljestad ungdomsskole i Harstad
 1.98 Skolelinux Håkvik barneskole i Narvik
 2.00 Skolelinux Stangnes skole 8-13 i Harstad
 2.14 Skolelinux Frydenlund skole i Narvik
 2.20 Skolelinux Beisfjord barneskole i Narvik
 2.29 Windows Goa skole i Randaberg
 2.32 Skolelinux Grytøy Oppvekstsenter i Harstad
 2.38 Skolelinux Parken ungdomsskole i Narvik
 2.48 Skolelinux Holumskogen skole i Nittedal
 2.49 Skolelinux Hagebyen skole i Harstad
 2.64 Skolelinux Sørvik skole i Harstad
 2.84 Skolelinux Bergseng skole i Harstad
 2.86 Skolelinux Kirkeby skole i Nittedal
 2.88 Skolelinux Kanebogen skole i Harstad
 3.10 Skolelinux Framnes ungdomsskole i Narvik
 3.18 Skolelinux Hagen skole i Nittedal
 3.33 Skolelinux Nittedal ungdomsskole i Nittedal
 3.43 Skolelinux Seljestad barneskole i Harstad
 3.44 Skolelinux Sørli skole i Nittedal
 3.49 Skolelinux Ulverud skole i Nittedal
 3.50 Skolelinux Rotnes skole i Nittedal
 3.56 Skolelinux Hakadal ungdomsskole i Nittedal
 3.67 Skolelinux Medkila skole i Harstad
 3.76 Skolelinux Kila skole i Harstad
 3.98 Skolelinux Slattum skole i Nittedal
 4.86 Skolelinux Li skole i Nittedal
 6.12 Skolelinux Skistua barneskole i Narvik

Informasjonen fra GSI ser slik ut når jeg har hentet ut en
Excel-rapport og lagret resultatet som CSV samt redigert litt på
headeren:

Navn,År,pctetthet,Enhetens_navn,Kommune,Fylke,Institusjon
"Aremark Skolestyrekontor",2011-12,0,"Aremark Skolestyrekontor",Aremark,Østfold,"Kommunen sentralt (K)"
"Aremark skole",2011-12,1.97,"Aremark skole",Aremark,Østfold,"Grunnskole (G)"
"Askim kommune",2011-12,0,"Askim kommune",Askim,Østfold,"Kommunen sentralt (K)"

Jeg bruker bare navn og kommune for å finne riktig skole.  Håper det
alltid er unikt.
-- 
Vennlig hilsen
Petter Reinholdtsen

#!/usr/bin/perl
#
# skoleinfo.csv er informasjon fra https://www.wis.no/gsi
# skoleoperativsystem.csv er manuelt laget

use warnings;
use strict;

use DBI;
use utf8;

binmode(STDOUT, ":utf8");

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_ext            => ".csv/r",
    f_encoding       => "utf8",
    RaiseError       => 1,
    PrintError       => 1,
                        }) or die "Cannot connect: $DBI::errstr";
my $sql = "SELECT pctetthet, ostype, navn, kommune " .
    "FROM skoleinfo i, skoleoperativsystem os " .
    "WHERE navn = skolenavn AND i.kommune = os.kommune " .
    "ORDER BY i.kommune";
my $sth = $dbh->prepare ($sql);
$sth->execute;
while (my @row = $sth->fetchrow_array) {
    printf "%5.2f %s %s i %s\n", $row[0], $row[1], $row[2], $row[3];
}
$sth->finish;
$dbh->disconnect;

kommune,skolenavn,ostype
Nittedal,"Hagen skole",Skolelinux
Nittedal,"Hakadal ungdomsskole",Skolelinux
Nittedal,"Holumskogen skole",Skolelinux
Nittedal,"Kirkeby skole",Skolelinux
Nittedal,"Li skole",Skolelinux
Nittedal,"Nittedal ungdomsskole",Skolelinux
Nittedal,"Rotnes skole",Skolelinux
Nittedal,"Slattum skole",Skolelinux
Nittedal,"Sørli skole",Skolelinux
Nittedal,"Ulverud skole",Skolelinux
Harstad,"Bergseng skole",Skolelinux
Harstad,"Ervik skole",Skolelinux
Harstad,"Gausvik skole",Skolelinux
Harstad,"Grytøy Oppvekstsenter",Skolelinux
Harstad,"Hagebyen skole",Skolelinux
Harstad,"Harstad skole",Skolelinux
Harstad,"Kanebogen skole",Skolelinux
Harstad,"Kila skole",Skolelinux
Harstad,"Medkila skole",Skolelinux
Harstad,"Seljestad barneskole",Skolelinux
Harstad,"Seljestad ungdomsskole",Skolelinux
Harstad,"Stangnes skole 8-13",Skolelinux
Harstad,"Sørvik skole",Skolelinux
Narvik,"Ankenes skole",Skolelinux
Narvik,"Beisfjord barneskole",Skolelinux
Narvik,"Bjerkvik barne- og ungdomsskole",Skolelinux
Narvik,"Fagernes barneskole",Skolelinux
Narvik,"Framnes ungdomsskole",Skolelinux
Narvik,"Frydenlund skole",Skolelinux
Narvik,"HÃ¥kvik barneskole",Skolelinux
Narvik,"Parken ungdomsskole",Skolelinux
Narvik,"Skistua barneskole",Skolelinux
Narvik,"Skjomen skole",Skolelinux
Narvik,"Straumsnes barneskole",Skolelinux

Randaberg,"Harestad skole",Linux
Randaberg,"Grødem skole",Linux
Randaberg,"Goa skole",Windows