zfs-snapshot-totals

   1 #!/usr/bin/perl
   2
   3 @snapshots=`zfs list -t snapshot`;
   4
   5 $kilo = 1024;
   6 $mega = 1024 * 1024;
   7 $giga = 1024 * 1024 * 1024;
   8
   9 sub adjust_size
  10 {
  11   my ($size) = @_;
  12   if($size > ($giga)) { $size = int($size / $giga); $size = "$size"."G"; }
  13   elsif($size > ($mega)) { $size = int($size / $mega); $size = "$size"."M"; }
  14   elsif($size > ($kilo)) { $size = int($size / $kilo); $size = "$size"."K"; }
  15   return $size;
  16 }
  17
  18 foreach $snapshot (@snapshots)
  19 {
  20   chomp($snapshot);
  21   if($snapshot =~ /(\S+)\@(\S+)\s+(\S+)\s+/) {
  22     $filesystem = $1;
  23     $size = $3;
  24     if($size =~ /k/i) { $size = $size * $kilo; }
  25     if($size =~ /m/i) { $size = $size * $mega; }
  26     if($size =~ /g/i) { $size = $size * $giga; }
  27     $totals{$filesystem}{size} += $size;
  28     $totals{$filesystem}{snapshots}++;
  29   }
  30 }
  31
  32 printf "%-30s %-15s %-10s\n","ZFS Filesystem","Snapshots Size","Num Snapshots";
  33 printf "%-30s %-15s %-10s\n","--","--","--";
  34 foreach $key (sort keys %totals)
  35 {
  36   $size = $totals{$key}{size};
  37   $total_size += $size;
  38   $total_snapshots += $totals{$key}{snapshots};
  39   $size = &adjust_size($size);
  40   printf "%-30s %-15s %-10s\n", $key, $size, $totals{$key}{snapshots};
  41 }
  42
  43 $total_size = &adjust_size($total_size);
  44 printf "%-30s %-15s %-10s\n","--","--","--";
  45 printf "%-30s %-15s %-10s\n","Total Snapshots",$total_size,$total_snapshots;
  46