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

【问题标题】：In Perl how to move folder in which folder name has junk letters?在 Perl 中，如何移动文件夹名称中包含垃圾字母的文件夹？
【发布时间】：2021-04-17 04:56:01
【问题描述】：

如何移动文件夹，其中文件夹名称包含垃圾字符。（例如：理论分析_Ferda Ã–zdemir SÃ¶nmez）。这里有一些字母 Ã & ¶)。请帮我解决一下这个。提前致谢

【问题讨论】：

什么操作系统？您在文件系统上使用什么编码？您的 Perl 脚本是否使用 utf8？
是的，我用的是utf8，操作系统是windows
stackoverflow.com/q/1721807/1030675 可能会对您有所帮助。
我仍然没有得到这个问题的输出。任何人请帮助我

标签： regex perl utf-8

【解决方案1】：

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

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': $!";

另见How to delete folder with unicode character filenames using Perl rmtree?

【讨论】：