自分のためのTips、誰かの為にもなるといいな・・・

perl


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);


最終更新 2007/05/29 02:04:07 - yohei
(2007/05/28 21:52:16 作成)


検索

最近気になる言葉
LINQ
atコマンド
最近更新したページ
2015/7/16
2008/9/15
2008/1/30
2007/12/14
2007/11/14
2007/10/25
2007/9/23
2007/5/30