Как напечатать номер строки источника в Perl?

Question

Возможно ли получить текущий номер строки источника в Perl? Эквивалент в C++ - __LINE__.

Answer 1

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

или

warn("foo"); 

Answer 2

__LINE__ буквальным описана в Special Literals разделе perldata man page.

Answer 3

Примечание есть глюк с

PERL -e'warn ("Foo")»

обув на -е линии 1.

, если она заканчивается символом новой строки он не будет печать номер строки

Perl -e'warn ("Foo \ п")»

Foo

Это отражено в «perldoc -f умереть», но, возможно, легко пропустить в «perldoc -f предупредит» справочный раздел, чтобы умереть ...

Answer 4

Это выводит строку, где вы находитесь, а также «стек» (список строк из программ вызовов (скрипты/модули/и т.д.), которые приводят к тому месту, вы теперь)

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

Answer 5

«использовать Карп» и играть с различными рутин и вы также получите стек - не уверен, что этот способ лучше или хуже, чем метод «вызывающего», предложенный cnd. Я использовал переменные LINE и FILE (и, возможно, другие аналогичные переменные) в C и Perl, чтобы показать, где я попал в код и другую информацию при отладке, но не имел большого значения вне среды отладки.