如何使用Perl识别对Java类的引用？

#!/usr/bin/perl

use strict;
use warnings;

# 要查找的类名
my $class_name = "java.util.List";

# 读取Java源代码文件
open(my $fh, "<", "path/to/java/file.java") or die "Can't open file: $!";

# 逐行读取文件内容
while (my $line = <$fh>) {
    # 使用正则表达式匹配类名
    if ($line =~ /import\s+($class_name)/) {
        print "找到了对 $class_name 的引用\n";
    }
}

close($fh);