Perlリードパイプハンドラで変数を展開するにはどうすればよいですか？

Question

backticksの変数は、readpipe関数に渡されたときに展開されないようです。 readpipe関数をオーバーライドすると、どのように変数を展開できますか？これを実行する

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

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

ができます：

Run:ls /root 
Run:ls $dir 

私は私が書いていたテストコードのための外部コールを模擬しようとしています。どこかでCPANモジュールがあれば、これを手助けすることができます。それも助けになります。

更新：

私は私の問題には本当に醜い回避策を使用することにしました。バックティックの代わりにreadpipe()を使用すると、変数が正しく展開されます。テストを実行する前に自動スクリプトクリーナーを使用しています。テストを実行する前にすべてのバッククックをreadpipe()に変換します。

例えばランニング：

$ cat t.pl 

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

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

与える：

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

を私はまだかかわらず、クリーンな解決策を探しています。

Answer 1

これはPerlのバグのようです。報告するにはperlbugを使用してください。

Answer 2

おそらくIPC::Runを使用します。

use IPC::Run 'run'; 

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

それとも、出力をキャプチャしたくなかった場合は、system()は、モジュールの参照用

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