Làm cách nào để mở rộng các biến trong trình xử lý readpipe của Perl?

Question

Dường như các biến trong backticks không được mở rộng khi được truyền vào hàm readpipe. Nếu tôi ghi đè lên hàm readpipe, làm cách nào để mở rộng các biến?

BEGIN { 
*CORE::GLOBAL::readpipe = sub {print "Run:@_\n"}; 
} 

`ls /root`; 
my $dir = "/var"; 
`ls $dir`; 

Chạy điều này mang lại:

Run:ls /root 
Run:ls $dir 

Tôi cố gắng để thử cuộc gọi bên ngoài cho một mã kiểm tra mà tôi đang viết. Nếu có một mô-đun CPAN ở đâu đó có thể giúp đỡ trong việc chăm sóc của tất cả điều này, điều đó sẽ giúp quá.

Cập nhật:

Tôi đã quyết định sử dụng một cách giải quyết thực sự xấu xí đến vấn đề của tôi. Nó chỉ ra rằng bằng cách sử dụng readpipe() thay vì backticks mở rộng các biến một cách chính xác. Tôi đang sử dụng một trình dọn dẹp tập lệnh tự động trước khi chạy các thử nghiệm của mình để chuyển đổi tất cả các lần trả về thành readpipe() trước khi chạy thử nghiệm.

ví dụ Chạy:

$ cat t.pl 

BEGIN { 
    *CORE::GLOBAL::readpipe = sub {print "Run:@_\n"}; 
} 

`ls /root`; 
my $dir = "/var"; 
`ls $dir`; 
readpipe("ls $dir"); 

Cung cấp:

$ perl t.pl 
Run:ls /root 
Run:ls $dir 
Run:ls /var 

tôi vẫn đang tìm ra một giải pháp sạch hơn mặc dù.

Answer 1

Điều đó dường như là một lỗi trong Perl. Sử dụng perlbug để báo cáo.

Answer 2

Bạn có thể muốn sử dụng IPC::Run để thay thế.

use IPC::Run 'run'; 

run [ "ls", $dir ], ">", \my $stdout or die "Cannot run - $!"; 

Hoặc nếu bạn không muốn nắm bắt đầu ra, system() có thể tốt hơn

system("ls", $dir) == 0 or die "Cannot system - $!";