Path::Classでも

perl

File::Findでやってたけど、
こっちも良さげーーー

#! /usr/bin/perl
use strict;
use warnings;
use Path::Class;

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

dir($dir)->recurse(
    callback => sub {
        my $file = shift;
        return unless -f $file;
        my $f = $file->openr;
        while (<$f>) {
            print "$_";
        }
    }
);

引用元はこちら→http://d.hatena.ne.jp/tokuhirom/20070325/1174800458



今日は少しだけWeb::Scraperに手を出してしまった。
あれ、すごいよねー。
さすがplaggerの人。