Help for this page

Select Code to Download


  1. or download this
    my %error_per_file;
my %error_type;

...
    $error_type{$errnum}++;
    $error_per_file{$filename}->{$errnum}++;
}
  2. or download this
    my $column = 1;
my %column_for = map ($_ => $column++), sort keys %error_type;
$column_for{Filename} = 0;
  3. or download this
    $worksheet->write(0, $column_for{$col_name}, $col_name) for keys %column_for;
  4. or download this
    my $row = 1;
for my $filename (sort keys %error_per_file){
    $worksheet->write($row, 0, $filename)
...
        while ($errnum, $occurences) = each %{$error_per_file{$filenam
+e}};
    ++$row;
}