File::DirWalk

Perl

http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8

これをみて、globとか久々にみたのですが、
指定ディレクトリ以下のファイルを操作する場合はFile::DirWalkがお勧めです。

#! /usr/bin/perl
use strict;
use warnings;

use File::DirWalk;
use Path::Class qw/file/;

my $dir = shift or die "usage : $0 <dir>\n";

my $dw = File::DirWalk->new;
$dw->onFile(sub {
    my ($name) = @_;
    my $file = file($name);
    my $fh = $file->openr();
    while (<$fh>) {
        print "$_";
    }
    return File::DirWalk::SUCCESS;
});

$dw->walk($dir);

こんな感じ。
順次実行したい処理をクロージャにして渡してやるだけ。
クロージャだからほぼなんでもできちゃうです。
Path::ClassにDirWalk相当の機能があればベストなんだけどなぁ。
ちなみにFile::Walkerとかもあります。

（追記）
後、

http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8
の

my $today = DateTime->now( time_zone => 'Asia/Tokyo' );
my $yesterday = Storable::dclone($today)->subtract( days => 1 );

このコードは

my $today = DateTime->now( time_zone => 'Asia/Tokyo' );
my $yesterday = $today->clone->subtract(days => 1);

これでいいんじゃないかと思いました。
さらに、BackPaperにトラックバックを受ける機能とかあったり、
TBとまで行かなくてもエントリーを関連付ける機能とかあってもいいかもと
おもいました。


（追記２）
http://d.hatena.ne.jp/tokuhirom/20070325/1174800458

やっぱあるんね。