如何获取创建Perl子例程引用的文件和行号？

要获取创建Perl子例程引用的文件和行号，可以使用caller函数。caller函数返回一个包含调用子例程的文件名、行号和子例程名的列表。

以下是一个示例代码：

sub my_subroutine {
    my ($package, $filename, $line) = caller;
    print "This subroutine was called from file $filename at line $line\n";
}

my_subroutine();

在这个示例中，caller函数返回一个包含调用my_subroutine的文件名、行号和子例程名的列表。然后，我们将这些值分配给$package、$filename和$line变量。最后，我们打印出调用子例程的文件名和行号。

需要注意的是，caller函数只返回调用它的一级上级的信息。如果需要更多级别的信息，可以使用caller函数的$i参数来获取。

在实际开发中，caller函数可以用于调试、错误处理和日志记录等方面。