recepies/zfs/zfs-expire-snapshot.pl

#!/usr/bin/perl

use warnings;
use strict;

use DateTime;

my $now = DateTime->now();

open(my $fs, '-|', 'zfs list -H');
while(<$fs>) {
        chomp;
        my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);

        next unless $name =~ m{@(\d\d\d\d)-(\d\d)-(\d\d)};

        my $date = DateTime->new( year => $1, month => $2, day => $3 );
        my $age = $now->delta_days( $date );

        warn "$name $used $refer [", $age->delta_days, " days]\n";
}
1	dpavlin	107	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use DateTime;
7
8			my $now = DateTime->now();
9
10			open(my $fs, '-\|', 'zfs list -H');
11			while(<$fs>) {
12			chomp;
13			my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);
14
15			next unless $name =~ m{@(\d\d\d\d)-(\d\d)-(\d\d)};
16
17			my $date = DateTime->new( year => $1, month => $2, day => $3 );
18			my $age = $now->delta_days( $date );
19
20			warn "$name $used $refer [", $age->delta_days, " days]\n";
21			}