清理Perl脚本不应该删除符号链接的目录。

在Perl中，可以使用File::Spec模块来处理文件路径，包括符号链接。以下是一个示例代码，演示如何清理Perl脚本时保留符号链接的目录：

use strict;
use warnings;
use File::Spec;

sub clean_directory {
    my $dir = shift;

    # 获取目录的真实路径，包括符号链接
    my $real_dir = File::Spec->canonpath($dir);

    # 检查目录是否存在
    unless (-e $real_dir) {
        print "目录不存在：$dir\n";
        return;
    }

    # 检查目录是否是符号链接
    if (-l $real_dir) {
        print "跳过符号链接目录：$dir\n";
        return;
    }

    # 清理目录中的文件和子目录
    opendir(my $dh, $real_dir) or die "无法打开目录：$dir\n";
    while (my $entry = readdir $dh) {
        next if $entry eq '.' or $entry eq '..';  # 跳过当前目录和上级目录

        my $path = File::Spec->catfile($real_dir, $entry);
        if (-l $path) {
            print "跳过符号链接文件：$path\n";
            next;
        }

        if (-d $path) {
            clean_directory($path);  # 递归清理子目录
        } else {
            unlink $path;  # 删除文件
            print "已删除文件：$path\n";
        }
    }
    closedir $dh;
}

# 调用示例，传入目录路径
clean_directory('/path/to/directory');

在上述示例中，clean_directory函数递归地清理指定目录下的文件和子目录。在处理每个文件或目录之前，使用File::Spec->canonpath获取其真实路径，包括符号链接。然后，使用-l操作符检查路径是否是符号链接，如果是，则跳过。如果路径是目录，则递归调用clean_directory函数来清理子目录。如果路径是文件，则使用unlink函数删除它。

请注意，这只是一个简单的示例，你可能需要根据实际需求进行适当的修改和错误处理。