Help for this page
foreach (@ARGV) { usagedie() if (!-f || !-d); }
usagedie() if grep not( -f or -d ), @ARGV;
find(\&fileop, $opts{'directory'}) unless @ARGV; find(\&fileop, @ARGV) if @ARGV;
find( \&fileop, @ARGV ? @ARGV : $opt_directory );
sub fileop { #set the right permissions based on if a file or a directory ... chmod oct($opts{'dirmode'}), $_ if -d && $opts{'dirmode'}; print $File::Find::name . "\n" if $opts{'verbose'} && (-f || -d); }
sub fileop { if( -f and $opt_filemode ) { ... } print $File::Find::name, "\n" if $opt_verbose; }
sub check_perm { my ( $mode, $perm ) = @_; ... $opt_filemode = check_perm file => $opt_filemode; $opt_dirmode = check_perm directory => $opt_dirmode;
www.com | www.net | www.org
No recent polls found