Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    ...
    my $extensions_sum = sum(values %extensions);
    my $extensions_types = keys %extensions;
    my $file_sizes_total = keys %file_sizes;
    
  2. or download this
    my @ext_rows;
    for my $key (sort keys %extensions) {
    ...
    # the headings, since they did not require any real munging.
    table(3, { style => 'float:right', headings => ['Ext','Count'], data =
    +> [@ext_rows], whead => [@ext_end_rows] });
    table(3, { headings => [qw(File bytes kilobytes megabytes)], whead => 
    +[@size_rows] });
    
  3. or download this
    sub link_color {
      my ($file,$style) = @_;
    ...
    
      return $style ? qq( style="color:#$color") : qq(color:#$color);
    }