Then perhaps this will help to rectify that:
What could be simpler?use File::Find; sub rename_file { my $fullpath = $File::Find::name; rename ($fullpath, $fullpath.'z') || warn "Failed to rename $fullpath\n"; } find (\&rename_file, $path);
As others have pointed out, modules are there to help you. Not using them out of ignorance is probably not what you want to do for too long: you miss out on all the fun!
In reply to Re: Re: Re: Directory recursion on win32
by bm
in thread Directory recursion on win32
by fourmi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |