Toán tử Perl: $ | ++; đôla ống dấu cộng cộng

Question

Tôi đang làm việc trên một phiên bản mới của một mã số đã phát hành của perl, và tìm thấy dòng:

$|++; 

AFAIK, $ | có liên quan với các đường ống, như được giải thích in this link và tôi hiểu điều này, nhưng tôi không thể tìm ra cái ++ (cộng thêm) có nghĩa là ở đây.

Cảm ơn bạn trước.

EDIT: Tìm thấy câu trả lờiin this link:

Nói tóm lại: Nó buộc in (tuôn) để giao diện điều khiển của bạn trước khi báo cáo kết quả tiếp theo, trong trường hợp kịch bản là quá nhanh.

Đôi khi, nếu bạn đặt lệnh in trong vòng lặp chạy rất nhanh, bạn sẽ không thấy đầu ra của bản in cho đến khi chương trình kết thúc. đôi khi, bạn thậm chí không thấy kết quả đầu ra. giải pháp cho vấn đề này là "xả" bộ đệm đầu ra sau mỗi câu lệnh in; điều này có thể được thực hiện trong perl với lệnh sau đây:

$|++; 

[cập nhật] như đã được chỉ ra bởi r. schwartz, tôi đã nhầm lẫn; lệnh trên gây ra in để xóa bộ đệm trước đầu ra tiếp theo.

Answer 1

$| mặc định là 0; làm $|++ do đó tăng nó lên 1. Đặt nó thành nonzero cho phép tự động quét trên xử lý tệp hiện được chọn, theo mặc định là STDOUT và hiếm khi được thay đổi.

Vì vậy, hiệu quả là đảm bảo rằng các tuyên bố print và kết quả tương tự ngay lập tức. Điều này rất hữu ích nếu bạn xuất ra một ổ cắm hoặc tương tự.

Answer 2

Tăng dần tự động, điều này có thể tương đương với việc bật tính năng này.

Answer 3

$| là tên viết tắt của $OUTPUT_AUTOFLUSH, như bạn đã tìm thấy. Biến số ++ tăng biến này.

$| = 1 sẽ là cách sạch sẽ để thực hiện việc này (IMHO).

Answer 4

Đó là một thành ngữ cũ, từ những ngày trước IO :: Xử lý. Trong mã hiện đại này nên được viết như

use IO::Handle; STDOUT->autoflush(1);