Kaynak hattı numarasını Perl'de nasıl yazdırabilirim?

Question

Geçerli kaynak satırı numarasını Perl'de almak mümkün mü? C++ 'da eşdeğer __LINE__'dur.

Answer 1

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

veya

warn("foo"); 

Answer 2

hazır __SATIR__ perldata man page arasında Special Literals bölümünde anlatılmaktadır.

perl -e'warn ("foo")' -e hattı 1.

de

foo ile yakaladım var

Answer 3

Not yeni bir satırdan ile biterse o olmaz baskı satır numarası

perl -e'warn ("fon \ n")'

foo

Bu "die -f perldoc" belgelenen, ancak bölümün referans ölmek "uyarmak -f perldoc" in kaçırmak belki kolay ...

Answer 4

Bu senin çizgi yazdırır ve ayrıca edilir "yığın"

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

Answer 5

"Carp kullanmak" ve çeşitli rutinleri ile oynamak ve aynı zamanda bir olsun (arama programlarından hatların listesi (komut/modüller/vs) şu anda bulunduğunuz yerin yol açtığını) stack - cnd tarafından önerilen "arayan" yönteminden daha iyi veya daha kötü olup olmadığından emin değil. Kod ve diğer bilgileri hata ayıklamada bulduğum ama bir hata ayıklama ortamı dışında çok az değer gördüğümü göstermek için C ve Perl'deki HAT ve DOSYA değişkenlerini (ve muhtemelen diğer benzer değişkenleri) kullandım.