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

Question

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

Answer 1

__LINE__ 文字记录在 特殊文字 部分perldata 手册页。

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

或者

warn("foo");

Answer 2

请注意，有一个问题：

$ perl -e'warn("foo")'
foo at -e line 1.

如果它以换行符结尾，则不会打印行号。

$ perl -e'warn("foo\n")'
foo

这在 perldoc -f die 中有记录，但在perldoc -f warn 部分对 die 的引用。

Answer 3

这会打印出您所在的行，以及“堆栈”（调用程序（脚本/模块/等）中导致您现在所在位置的行列表）

while(my @where=caller($frame++)) { print "$frame:" . join(",",@where) . "\n"; }

Answer 4

“使用 Carp”并使用各种例程，您还会得到一个堆栈 - 不确定这种方式是否比 cnd 建议的“调用者”方法更好或更差。 我在 C 和 Perl 中使用了 LINE 和 FILE 变量（可能还有其他类似的变量）来显示调试时在代码和其他信息中获得的位置，但在调试环境之外看不到什么价值。