溜ったスナップショットを削除する(perl)
perl版
#!/usr/bin/perl use strict; use warnings; foreach (@ARGV) { my $device = "/dev/mapper/$_"; my @result = `/usr/bin/lscp -ss $device`; foreach (@result) { my @sp = split; if (@sp[0] =~ /[0-9]+/) { print "/usr/bin/chcp cp $device ",@sp[0],"\n"; } } }