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	#!/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	}