#!/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__
In reply to Re: How to read files in all subfolders?
by zentara
in thread How to read files in all subfolders?
by coltman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |