マッチするときの表現 =~ /hoge/ は、よく参考書なんかに書いてあって マッチしないときの表現がわからなくて if ($str =~ /hoge/) { } else { print $_; } みたいにして、ごまかそうとしたりしていましたが、 !~ /hoge/ みたいに書けばいいんですね。知りま…

なんとなく、スクリプトと書くとき、 シェルスクリプト(sh)か、php ばかり使っていたので たまには perl で。 ということで、ディスク容量をテキストに書き出すスクリプトを書いてみた。 #!/usr/bin/perl open (OUT, '> df.txt') or die "$!"; $df = `df -h`…