05/09/18 16:03:26 2aMCkJ+k
>>117を参考に洩れが使ってる手抜きスクリプト
#!/usr/bin/perl
# hard drive SMART monitor use smartmontools
die "usage: smartmon <search-word>\n" unless $#ARGV == 0;
@dlist = (hda, hdb, sda, sdb, sdc, sdd); #ドライブリストね
foreach $d (@dlist) {
@line = `smartctl -d ata -a -i /dev/$d`;
foreach (@line) {
print "$d:$_" if /$ARGV[0]/i;
}
}
# EOF