メモ
use strict; use warnings; use File::Find::Iterator; use IO::File; my $itr = File::Find::Iterator->create( dir => ['C:/Perl/site/lib/ppm-conf'], filter => sub { -f and /\.pkg$/ }, ); while (my $f = $itr->next) { my $fh = IO::File->new($f, '<'); while (<$fh>) { next if $_ !~ /^LOCATION/; print "$f $_" if $_ !~ m{http://127.0.0.1:8888/ppm/}; } }