Jak mogę wydrukować numer wiersza źródłowego w Perlu?

Question

Czy można uzyskać bieżący numer linii źródłowej w Perlu? Odpowiednikiem w C++ jest __LINE__.

Answer 1

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

lub

warn("foo"); 

Answer 2

__LINE__ dosłownym jest opisana w części Special Literals z perldata man page.

Answer 3

Uwaga istnieje haczyka z

perl -e'warn ("foo")”

foo na -e linii 1.

jeśli kończy się znakiem nowej linii to nie będzie druku numer linii

Perl -e'warn ("foo \ n")”

bla

Jest to udokumentowane w "perldoc -f die", ale być może łatwo go przeoczyć w sekcji "perldoc -f warn" w odniesieniu do umrzeć ...

Answer 4

To wypisuje linię, w której jesteś, a także w „stos” (lista linii z programów telefonicznych (skrypty/moduły/etc), które prowadzą do miejsca, jesteś teraz)

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

Answer 5

„Użyj Carp” i bawić się z różnych procedur i można również uzyskać stack - nie wiem, czy ta metoda jest lepsza czy gorsza od metody "caller" sugerowanej przez cnd. Użyłem zmiennych LINE i FILE (i prawdopodobnie innych podobnych zmiennych) w C i Perlu, aby pokazać, gdzie dostałem kod i inne informacje podczas debugowania, ale widziałem małą wartość poza środowiskiem debugowania.