帮我写一个perl脚本，查找当前面文件夹下的所有子文件夹，对每个子文件夹中的以.sv结尾的文件，创建该文件的软连接，软连接名称为test.sv

好的，这是一个简单的 Perl 脚本，可以实现您的需求：

#!/usr/bin/perl

use strict;
use warnings;

# 获取当前文件夹下的所有子文件夹
my @subdirs = grep { -d } glob '*/';

# 遍历每个子文件夹
foreach my $dir (@subdirs) {
    # 获取该子文件夹中所有以 .sv 结尾的文件
    my @files = glob "$dir/*.sv";
    # 遍历每个 .sv 文件，创建软连接
    foreach my $file (@files) {
        my $link = "$dir/test.sv";
        symlink $file, $link or die "无法创建软连接 $link: $!\n";
    }
}

您可以将这段代码保存为一个 `.pl` 文件，然后在终端中运行：

perl your_script_name.pl

注意：在 Windows 系统中，`symlink` 函数可能不起作用，您需要使用 `system` 函数调用 `mklink` 命令来创建软连接。