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

--RnlQjJ0d97Da+TV1
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

[Odin N=F8sen]
> Noen skoler som kj=F8rer 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=F8dem 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=E5 elever pr. PC.  Jobben blir =E5 samle kommune og navn for
samtlige skoler som kj=F8rer Skolelinux/Linux for =E5 kunne regne ut om
tettheten er st=F8rre eller mindre p=E5 Linux-skoler enn andre skoler.
Noen som vil v=E6re med =E5 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=F8dem skole i Randaberg
 1.97 Skolelinux Seljestad ungdomsskole i Harstad
 1.98 Skolelinux H=E5kvik 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=F8y 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=F8rvik 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=F8rli 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=E5r jeg har hentet ut en
Excel-rapport og lagret resultatet som CSV samt redigert litt p=E5
headeren:

Navn,=C5r,pctetthet,Enhetens_navn,Kommune,Fylke,Institusjon
"Aremark Skolestyrekontor",2011-12,0,"Aremark Skolestyrekontor",Aremark,=D8=
stfold,"Kommunen sentralt (K)"
"Aremark skole",2011-12,1.97,"Aremark skole",Aremark,=D8stfold,"Grunnskol=
e (G)"
"Askim kommune",2011-12,0,"Askim kommune",Askim,=D8stfold,"Kommunen sentr=
alt (K)"

Jeg bruker bare navn og kommune for =E5 finne riktig skole.  H=E5per det
alltid er unikt.
--=20
Vennlig hilsen
Petter Reinholdtsen

--RnlQjJ0d97Da+TV1
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=vis-os-pc-tetthet

#!/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;

--RnlQjJ0d97Da+TV1
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: attachment; filename="skoleoperativsystem.csv"
Content-Transfer-Encoding: quoted-printable

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=C3=B8rli skole",Skolelinux
Nittedal,"Ulverud skole",Skolelinux
Harstad,"Bergseng skole",Skolelinux
Harstad,"Ervik skole",Skolelinux
Harstad,"Gausvik skole",Skolelinux
Harstad,"Gryt=C3=B8y 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=C3=B8rvik 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=C3=A5kvik barneskole",Skolelinux
Narvik,"Parken ungdomsskole",Skolelinux
Narvik,"Skistua barneskole",Skolelinux
Narvik,"Skjomen skole",Skolelinux
Narvik,"Straumsnes barneskole",Skolelinux

Randaberg,"Harestad skole",Linux
Randaberg,"Gr=C3=B8dem skole",Linux
Randaberg,"Goa skole",Windows
--RnlQjJ0d97Da+TV1--