Perl 5.12.3下utf8::all无法使用、无法卸载及模块列表脚本异常求助

一、彻底卸载utf8-all-0.024 #

你之前卸载失败的核心原因是输入的待卸载模块名错误，你输入的是utf-8，而实际模块的正确名称是utf8::all，按以下步骤操作即可：

1. 优先尝试标准卸载命令
   如果你是通过cpan/cpanm工具安装的模块，直接执行正确的卸载命令即可：

sudo cpanm --uninstall utf8::all

2. 手动卸载（标准命令失效时使用）
   从报错信息已经确认模块文件的存放路径，直接删除残留即可：

• 删除模块本体文件：

sudo rm /Library/Perl/5.12/utf8/all.pm
# 如果存在对应的pod说明文件也一并删除
sudo rm -f /Library/Perl/5.12/utf8/all.pod

• 删除模块安装元数据目录：
  Perl的模块管理工具依赖.packlist文件识别已安装模块，该文件存放在架构目录下，执行以下命令删除：

sudo rm -rf /Library/Perl/5.12/darwin-thread-multi-2level/auto/utf8/all/

• 清理剩余残留：
  执行以下命令搜索所有@INC路径下的相关文件，确认无遗漏：

sudo find /Library/Perl/5.12 /Library/Perl/Updates/5.12.3 -name "*utf8*all*"

将搜索结果中所有utf8::all相关的文件全部删除即可完成卸载。

二、修复Perl模块列表脚本卡顿问题 #

脚本卡顿的原因是utf8::all的不完整安装产生了损坏的模块元数据，ExtUtils::Installed遍历到损坏数据时会反复重试加载，导致CPU占用高、运行耗时长，按以下步骤修复：

1. 先按照上述卸载步骤完全删除utf8::all的所有残留，尤其是元数据目录下的.packlist文件，一般删除后即可恢复脚本运行速度。
2. 如果删除后依然卡顿，可以给ExtUtils::Installed添加跳过损坏数据的参数，修改后的脚本如下：

use ExtUtils::Installed;
# 添加skip_corrupt参数，遇到损坏的模块元数据直接跳过，避免重试卡死
my $inst = ExtUtils::Installed->new(skip_corrupt => 1);
my @modules = $inst->modules();
foreach $module (@modules) {
    print $module . "\n";
}

3. 可选替代方案：如果只是需要快速列出所有Perl模块，也可以直接遍历@INC路径搜索pm文件，无需依赖ExtUtils::Installed，不受损坏模块影响，速度更快。

内容的提问来源于stack exchange，提问作者Terry