Wie kann ich die Quellzeilennummer in Perl drucken?

Question

Ist es möglich, die aktuelle Quellzeilennummer in Perl zu erhalten? Das Äquivalent in C++ ist __LINE__.

Answer 1

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

oder

warn("foo"); 

Answer 2

Die __LINE__ Literal wird im Special Literals Abschnitt des perldata man page dokumentiert.

Answer 3

Hinweis gibt es ein gotcha mit

perl -e'warn ("foo")‘

foo auf -e Linie 1.

, wenn es mit einem Newline endet es wird nicht Druck die Zeilennummer

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

foo

Dies ist dokumentiert in "perldoc -f sterben", aber ist vielleicht leicht zu verpassen in der "perldoc -f warn" -Abschnitt der Referenz zu sterben ...

Answer 4

Dies druckt die Zeile, wo Sie sind, und auch die „Stack“ (Liste der Linien von der anrufenden Programme (Skripte/modules/etc), die an den Ort führen Sie jetzt sind)

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

Answer 5

„verwenden Karpfen“ und mit den verschiedenen Routinen spielen, und Sie erhalten auch eine stack - nicht sicher, ob dieser Weg besser oder schlechter als die von cnd vorgeschlagene Methode "caller" ist. Ich habe die Variablen LINE und FILE (und wahrscheinlich andere ähnliche Variablen) in C und Perl verwendet, um zu zeigen, wo ich beim Debugging in den Code und andere Informationen gekommen bin, aber außerhalb einer Debug-Umgebung wenig Wert gesehen habe.