HDDの温度測定スクリプト

#!/usr/bin/perl -w

use strict;
use warnings;

my $file = '/usr/local/logs/hddtemp.log';

my $date = `LANG=C date`;
chomp($date);
my $temp = `hddtemp /dev/hda`;
chomp($temp);

open(OUT, ">> $file");
  print OUT "$date\t$temp\n";
close(OUT);

1;

標準出力されるコマンドの結果を変数に取り込む方法：

  my $date = `LANG=C date`;