使用perl，打开当前文件夹下的test.log文件，逐行查找"string.sv"字符串，若匹配上该字符串，则立即打印当前的文件夹名称并关闭该文件

可以使用以下 Perl 代码实现：

use strict;
use warnings;

# 获取当前目录
my $dir = '.';

# 打开当前目录下的 test.log 文件
open my $fh, '<', "$dir/test.log" or die "无法打开文件: $!";

# 逐行读取文件内容
while (my $line = <$fh>) {
    # 如果当前行包含 "string.sv" 字符串
    if ($line =~ /string\.sv/) {
        # 打印当前目录的名称
        print "当前目录：$dir\n";
        # 关闭文件句柄
        close $fh or warn "无法关闭文件: $!";
        # 结束程序
        exit;
    }
}

# 关闭文件句柄
close $fh or warn "无法关闭文件: $!";

这段代码会打开当前目录下的 `test.log` 文件，逐行读取文件内容，并在匹配到包含 `string.sv` 字符串的行时，打印当前目录名称并关闭文件。如果文件中没有匹配到该字符串，程序会继续执行直到读取完整个文件。