in reply to Moving .doc Files
In addition to the suggestion for File::Copy you could use the system move command:
opendir (DIRHANDLE, $OLDDIR); while ($oldname = readdir(DIRHANDLE)) { chomp $oldname; $filename = "$OLDDIR\\$oldname"; $newname = "$DIR\\$oldname"; if (-f $filename) { system("move", $filename, $newname); } } closedir (DIRHANDLE);
Just a diffrent way to do it.
Greg W
|
---|
In Section
Seekers of Perl Wisdom