6 my @oses = qw(macos windows shell unix jar);
10 while(my $line = <STDIN>) {
13 my ($id, $os, $name, $file) = split(m/\t/, $line);
14 next unless $id and $os and $name and $file and (-e $file);
19 $mbsize = sprintf("%.1f",$size/(2**20));
22 if ($name =~ m/\bShell\b/) {
27 if ($file =~ m/(NETWORK|OFFLINE)/) {
29 $osinstallers->{$os} = {} unless ref($osinstallers->{$os}) eq "HASH";
30 $osinstallers->{$os}{$type} = { os => $os, name => $name, file => $file, size => $mbsize };