如何在Perl中打印源代码行？

在Perl中打印源代码行，可以使用__LINE__和__FILE__预定义变量。__LINE__表示当前行号，__FILE__表示当前文件名。可以将这些变量与print函数结合使用，打印出当前行号和文件名。

示例代码：

#!/usr/bin/perl

print "This is line " . __LINE__ . " in file " . __FILE__ . "\n";

输出结果：

This is line 4 in file /path/to/your/script.pl

在这个示例中，__LINE__返回当前行号，__FILE__返回当前文件名，并将它们与字符串连接起来打印出来。