Hello,
the same with File::Find
#!/usr/bin/perl -w
use strict;
use File::Find;
# browsing start at @ARGV, foreach object found, it call wanted
find(\&wanted, @ARGV);
sub wanted {
-d and do { print "Folder $File::Find::name\n"; return};
-B and do { print "Binary $File::Find::name\n"; return};
-f and do { print "File $File::Find::name\n"; return};
}
__END__
usage: script/pl folder1 folder2 ...
script.pl /usr/bin /home/foo ...
perldoc File::Find for $File::Find::* specifics variables
Best Regards
David "Sniper" Rigaudiere
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
