如何使用perl在文件夹中的文件之间建立符号链接？

use File::Find;

my $folder = '.';
find(\&create_symlink, $folder);

sub create_symlink {
    if (-f $_) {
        # 这里可以添加一些过滤条件，如只处理特定文件类型等
        
        # 获取文件路径和文件名
        my $filepath = $File::Find::name;
        my ($filename) = $_ =~ /([^\/]+)$/;
        
        # 调用函数创建符号链接
        create_link($filepath, $filename);
    }
}

use File::Spec;

sub create_link {
    my ($filepath, $filename) = @_;
    
    # 生成符号链接路径
    my $linkpath = File::Spec->catfile($folder, "symlink_$filename");
    
    # 创建符号链接
    symlink($filepath, $linkpath) or die "无法创建符号链接: $!";
    
    print "已创建符号链接: $linkpath\n";
}