Subversion Repositories zfs_utils

#! /usr/bin/env perl

use strict;
use warnings;

my %data;

while ( my $line = <> ) {
   chomp $line;
   my ($date, $time, $dataset, $seconds, $bytes) = split /\s/, $line;
   $data{$date}{$dataset}{'size'} = $bytes;
   $data{$date}{$dataset}{'time'} = $seconds;
}

my @dates = sort keys %data;
my %datasets;
foreach my $ds ( @dates ) {
   foreach my $set ( keys %{$data{$ds}} ) {
      $datasets{$set}++;
   }
}

my @report;
push @report, "Date\t" . join( "\t\t", sort keys %datasets );
foreach my $dates ( @dates ) {
   my @line;
   push @line, $dates;
   foreach my $column ( sort keys %datasets ) {
      push @line, $data{$dates}{$column}{'size'} ? $data{$dates}{$column}{'size'} : '';
      push @line, $data{$dates}{$column}{'time'} ? $data{$dates}{$column}{'time'} : '';
   }
   push @report, join( "\t", @line );
}

print join( "\n", @report ) . "\n";
1;