如何在Perl中执行含引号的Shell命令以删除Unix系统中含特殊字符的文件/目录

这个问题我之前也碰到过！核心原因是你通过shell来执行rm/rmdir命令时，shell会自动解析文件名里的特殊字符——像单引号、双引号、$、{}这些，直接把你的文件名给改得面目全非，难怪会报错找不到文件或者出现EOF错误。

给你两个靠谱的解决方案，彻底避开这个坑：

方案一：用Perl内置函数（最优选择） #

直接用Perl自带的unlink（删除文件）和rmdir（删除空目录）函数，完全绕开shell，根本不需要处理任何字符转义，不管文件名里有啥特殊字符都能准确识别：

use Capture::Tiny qw(capture); # 保留你原本的捕获输出逻辑

for my $line (@linesFiles) {
    my ($stdout, $stderr);
    if (-d $line) { # 先判断目标是目录还是文件
        ($stdout, $stderr) = capture { 
            rmdir $line or warn "删除目录失败: $line - $!"; 
        };
    } else {
        ($stdout, $stderr) = capture { 
            unlink $line or warn "删除文件失败: $line - $!"; 
        };
    }
    # 这里可以根据需求处理捕获到的输出或错误信息
}

这种方式不仅更安全，还能直接通过函数返回值判断操作是否成功，比调用外部命令更可控。如果需要删除非空目录，可以额外引入File::Path模块的rmtree函数，用法类似，同样不需要转义。

方案二：用system的多参数形式（必须调用外部命令时用） #

如果因为某些特殊需求必须用外部的rm/rmdir命令（比如要用到特定参数），别再拼接命令字符串了，改用system的多参数形式——这种方式不会启动shell，直接把参数原封不动传递给命令：

use Capture::Tiny qw(capture);

for my $line (@linesFiles) {
    my ($stdout, $stderr);
    if (-d $line) {
        # 如果要删除非空目录，改成 ('rm', '-rf', $line) 即可
        ($stdout, $stderr) = capture { system('rmdir', $line); };
    } else {
        ($stdout, $stderr) = capture { system('rm', $line); };
    }
    # 通过退出码判断操作是否成功
    if ($? != 0) {
        warn "删除 $line 失败，退出码: $?";
    }
}

为啥原来的方法不行？ #

当你用"rm '$line';"拼接命令时，shell会把单引号当成命令的语法符号解析。比如文件名是incorrect'name，拼接后命令变成rm 'some/folder/incorrect'name'，shell会认为单引号没闭合，直接报EOF错误；如果是双引号的情况，shell还会解析里面的变量（比如$符号），导致文件名被篡改，自然找不到文件。

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