Cách chính xác để chết với một lỗi nhưng không có một dấu vết ngăn xếp trong perl là gì?

Question

Tôi đang viết một kịch bản perl, và trong phần tôi đang kiểm tra các tùy chọn mà người dùng đã cung cấp trên dòng lệnh, tôi muốn thoát với một lỗi giải thích những gì đã xảy ra với các tùy chọn. Trong trường hợp này, không cần một dấu vết ngăn xếp để đi cùng với thông báo lỗi này. Vì vậy, cách tốt nhất để chết với một thông báo lỗi là gì nhưng không có dấu vết ngăn xếp hoặc thông tin gỡ lỗi?

Tôi đã thử những điều sau đây:

die "Invalid options"; 

trong đó sản xuất

Invalid options at myscript.pl line 49. 

Sau đó, tôi đã cố gắng

use Carp; 
... 
croak "Invalid options"; 

trong đó sản xuất

Invalid options at myscript.pl line 47 
    main::prepare_output_directory() called at myscript.pl line 546 

Vậy làm thế nào tôi có thể chết chỉ với Invalid options và không có gì khác?

Câu hỏi bổ sung: tại sao croak cho tôi biết rằng lỗi ở dòng 47, khi cuộc gọi thực tế đến croak là trên dòng 49?

Answer 1

Chỉ cần đặt một dòng mới vào cuối die chuỗi:

die "Invalid options\n"; 

Điều đó sẽ ngăn chặn vị trí của lỗi từ được gắn vào thông điệp của bạn.