Làm thế nào để tuôn ra đầu ra trong backticks Trong Perl?

Question

Nếu tôi có ứng dụng perl này:

print `someshellscript.sh`; 

rằng in loạt các công cụ và mất nhiều thời gian để hoàn thành, làm thế nào tôi có thể in rằng sản lượng ở giữa thực hiện các kịch bản shell?

Có vẻ như Perl sẽ chỉ in kết quả someshellscript.sh khi nó hoàn thành, có cách nào để làm cho đầu ra tuôn ra ở giữa thực hiện không?

Answer 1

gì có thể bạn muốn làm là một cái gì đó như thế này:

open(F, "someshellscript.sh|"); 
while (<F>) { 
    print; 
} 
close(F); 

Điều này chạy someshellscript.sh và mở một đường ống đọc đầu ra của nó. Vòng lặp while đọc từng dòng đầu ra được tạo bởi tập lệnh và in ra. Xem trang tài liệu open để biết thêm thông tin.

Answer 2

Vấn đề ở đây là thoát bằng backticks lưu trữ tập lệnh của bạn vào một chuỗi, sau đó bạn in. Vì lý do này, sẽ không có cách nào để "tuôn ra" với in ấn.

Sử dụng hệ thống() lệnh nên in ra liên tục, nhưng bạn sẽ không thể nắm bắt đầu ra:

system "someshellscript.sh";