Filehandle cho Đầu ra từ Lệnh Hệ thống trong Perl

Question

Có một handhandle/handle cho đầu ra của lệnh hệ thống mà tôi thực hiện trong Perl không?

Answer 1

Có, bạn có thể sử dụng một ống như thế này:

open(my $pipe, "ls|") or die "Cannot open process: $!"; 
while (<$pipe>) { 
    print; 
} 

Xem tài liệu cho open để biết thêm thông tin, và perlipc cho một mô tả đầy đủ hoạt động đường ống.

Answer 2

Dưới đây là một ví dụ về việc thiết lập đường ống giữa kịch bản của bạn và các lệnh khác, sử dụng các hình thức 3 đối số của open:

open(my $incoming_pipe, '-|', 'ls -l')    or die $!; 
open(my $outgoing_pipe, '|-', "grep -v '[02468]'") or die $!; 

my @listing = <$incoming_pipe>;   # Lines from output of ls -l 
print $outgoing_pipe "$_\n" for 1 .. 50; # 1 3 5 7 9 11 ...