Làm cách nào để in số dòng nguồn trong Perl?

Question

Có thể lấy số dòng nguồn hiện tại trong Perl không? Tương đương trong C++ là __LINE__.

Answer 1

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

hoặc

warn("foo"); 

Answer 2

Các __LINE__ đen được ghi chép lại trong phần Special Literals của perldata man page.

Answer 3

Lưu ý có một Gotcha với

perl -e'warn ("foo")'

foo tại dòng -e 1.

nếu nó kết thúc bằng một dòng mới nó sẽ không in dòng số

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

foo

Đây là tài liệu trong "perldoc -f die", nhưng có lẽ dễ dàng bỏ lỡ trong phần "perldoc -f cảnh báo" tham chiếu đến phần ...

Answer 4

Điều này in ra dòng bạn đang ở đâu, và cũng "stack" (danh sách các dòng từ các chương trình gọi điện thoại (kịch bản/modules/etc) dẫn đến việc ngay từ bây giờ bạn)

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

Answer 5

"sử dụng cá chép" và chơi với các thói quen khác nhau và bạn cũng nhận được một ngăn xếp - không chắc chắn nếu cách này tốt hơn hoặc tệ hơn phương pháp "người gọi" được đề xuất bởi cnd. Tôi đã sử dụng các biến LINE và FILE (và có lẽ các biến tương tự khác) trong C và Perl để hiển thị nơi tôi có trong mã và thông tin khác khi gỡ lỗi nhưng đã thấy ít giá trị bên ngoài môi trường gỡ lỗi.