perl を使ってみた

なんとなく、スクリプトと書くとき、
シェルスクリプト(sh)か、php ばかり使っていたので
たまには perl で。
ということで、ディスク容量をテキストに書き出すスクリプトを書いてみた。

#!/usr/bin/perl
open (OUT, '> df.txt') or die "$!";
$df = `df -h`;

@disk = split(/\s+/, $df);
$size = @disk[38];
$used = @disk[39];
$avail = @disk[40];
$capa = @disk[41];

print OUT "ディスク全部で ".$size. " \n";
print OUT "使ってるディスクは " .$used. " \n";
print OUT "空きディスクは " .$avail. " \n\n";
print OUT "使用率は " .$capa ." だよ。\n";

なんていうか、split ってすごい！

たぶん、ものすごく悪い例だと思う。