Regex 在Perl中，如何移动文件夹名称中包含垃圾邮件的文件夹？

如何移动文件夹，其中文件夹名称包含垃圾字符。（例如：理论分析(U FerdaÖzdemir SÃnmez)）。这里有一些字母&）。请帮我做这个。 提前感谢

您可以使用。例如：

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脚本使用了吗？是的，我使用了utf8，操作系统是windows，可能会对您有所帮助。但是我没有得到这个问题的输出。谁能帮帮我