Переименовать папку без старой папки

Question

#!/usr/bin/perl

use File::Copy;
use File::Copy::Recursive;

$old_folder=$ARGV[0];
$new_folder=$ARGV[1];
$folder_loc=$ARGV[2];

print "Content-type:folder rename\n\n";

#rename($arg1,$arg2) || print "Don't have permission to rename.<br><br>";
File::Copy::Recursive::dircopy("$folder_loc/$old_folder","$folder_loc/$new_folder");

print "Renaming Done!";

exit;

здесь моя старая папка также существует после переименования папки. Как я могу удалить старую папку после переименования.Пожалуйста, помогите мне

Answer 1

Я думаю, что вы хотите использовать File::Copy::Recursive::dirmove вместо dircopy

Answer 2

Вы можете использовать File :: Path для удаления целых деревьев каталогов (включая файлы).