perl - 如何在Perl中打印源行号？

是否可以在Perl中获取当前的源行号？
C++中的等效项是__LINE__。

最佳答案

__LINE__文字记录在Special Literals的perldata man page部分中。

print "File: ", __FILE__, " Line: ", __LINE__, "\n";

要么

warn("foo");