Rev.4を表示中。最新版はこちら。

Perl Tips

スクリプトは Perl が便利だと実感、只今勉強中

ディレクトリツリーを削除

コマンドラインの

rm dir_path -rf

に相当するもの

use File::Path;
rmtree("$dir_path");

grep

書式

grep(評価式, 配列)
grep {評価式} 配列

正規表現だけでなく、第一引数の評価式を繰り返して、TRUEになるものを返している。

/pattern/

は

$_ =~ /pattern/

と同じ。

#!/usr/bin/perl

@arr = ("A", "B", "C");

@ret = grep($_ eq "B", @arr);

foreach $ret (@ret) {
  print "$ret\n";
}

これもOK

初めての perl プログラミング

/usr/local/hoge/hoge1/070501　のような日付付きディレクトリ
の古いやつを削除するスクリプト。cronで実行。

#!/usr/bin/perl

use File::Path;

$keepmonth=3;

$dir1="/usr/local/hoge/hoge1";
$dir2="/usr/local/hoge/hoge2";

$old_date=`date "-d$keepmonth month ago" +%y%m%d`;

print "clean up files older than $old_date";

sub clean_files {
  my ($dir_path) = $_[0];
  my ($DIR_HANDLE, $file, @file);

  print "clean up $dir_path\n";

  opendir($IN_HANDLE, $dir_path) || return;

  @file = sort grep { /^[0-9]{6}$/ &&
                   -d "$dir_path/$_" &&
                   $_ < $old_date } readdir($IN_HANDLE);

  closedir($IN_HANDLE);

  foreach $file (@file) {
    print "$dir_path/$file\n";
    rmtree("$dir_path/$file");
  }
}

&clean_files($dir1);
&clean_files($dir2);