Re: How to read files in all subfolders?


There's more than one way to do things
	PerlMonks

Re: How to read files in all subfolders?

by zentara (Archbishop)

on Oct 21, 2012 at 11:58 UTC ( [id://1000212]=note: print w/replies, xml )

Need Help??

in reply to How to read files in all subfolders?

Here is a simple usage of File::Find, which you can modify to suit your needs.

#!/usr/bin/perl
use File::Find;

$|++;

my $path = '.';
my $cmd = 'file';
finddepth (\&wanted,$path);

sub wanted {
  return unless -f; #-d for dir ops or comment out for both 
#  system("d2u -U -b -v $_") or warn "$!\n";
  system($cmd ,$_) or warn "$!\n";
 }

__END__
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh