my $dir_1 = '/some/dir'; my $dir_2 = '/other/dir'; opendir DIR, $dir_1 or die "Cannot open '$dir_1' $!"; while ( my $file = readdir DIR ) { rename "$dir_1/$file", "$dir_2/${file}_processed" or die "Cannot m +ove '$dir_1/$file' $!"; }
In reply to Re: Move and rename files
by jwkrahn
in thread Move and rename files
by Chon-Ji
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |