在Perl中，如何移动文件夹名称中包含垃圾字母的文件夹?

Question

如何移动文件夹，其中的文件夹名称包含垃圾字符。(例如：理论Analysis_Ferda Özdemir Sönmez)。这里有一些字母 à & ¶)。请帮我解决这个问题。 提前致谢

Answer 1

您可以使用 Win32：：Unicode：:D ir。例如：

use strict;
use warnings;
use utf8;
use Win32::Unicode::Console;
use Win32::Unicode::Dir ();
my $dir = 'Sönmez';
my $dest = 'temp';
Win32::Unicode::Dir::mkpathW($dest) or dieW "Could not create directory '$dest': $!";
Win32::Unicode::Dir::mvtreeW( "${dir}/", $dest) or dieW  "Cannot move '$dir' to '$dest': $!";
Win32::Unicode::Dir::rmdirW( $dir) or dieW "Cannot delete source directory name '$dir': $!";

参见 如何使用 Perl rmtree 删除带有 unicode 字符文件名的文件夹？