Grundsätzlich: Ja.
Aber angesichts des bischen Code
my $cols = q(monday,tuesday,wednesday,thursday,friday);
my $spread = $dbh->selectall_arrayref(
"SELECT $cols FROM spread",
{ Slice => {} }
);
my %pivot = ();
foreach my $r( @$spread ){
$pivot{$_}{$r->{$_}}++ for split /,/, $cols;
}
# ie. $pivot{monday}{m1}
würde ich den Fakt, daß es auch mit native SQL gehen müsste ziemlich schnell vergessen 😉
PS: Statistiken zur Verteilung von Viren hab ich früher immer so erstellt. Woher die Daten kommen und was das für welche sind, ist ja auch egal. Die Auswertung meiner in Excel geführten Kaffeekasse sah genauso aus.