Help for this page

Select Code to Download

Select or download this

use strict;

...
Windows,XP PRO,Yes
Windows,XP Home,No
Windows,XP PRO,Yes

Select or download this

my $sth = $dbh->prepare("select OS, RELEASE, LIKE from $table");
$sth->execute();
...
while ( my ($os, $release, $like) = $sth->fetchrow ) {
  ++$data{$os}{$release}{$like};
}