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 "$_"; }