How can I print source line number in Perl?

Question

Is it possible to get the current source line number in Perl? The equivalent in C++ is __LINE__.

question from:https://stackoverflow.com/questions/355456/how-can-i-print-source-line-number-in-perl

Answer 1

The __LINE__ literal is documented in the Special Literals section of the perldata man page.

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

or

warn("foo");