Wie erweitere ich Variablen in Perl-Readpipe-Handlern?

Question

Es scheint, dass Variablen in Backticks nicht erweitert werden, wenn sie an die Readpipe-Funktion übergeben werden. Wenn ich die Readpipe-Funktion überschreibe, wie erweitere ich Variablen?

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

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

Laufen ergibt dies:

Run:ls /root 
Run:ls $dir 

Ich versuche, externe Anrufe für einen Testcode zu verspotten, die ich schreibe. Wenn es irgendwo ein CPAN-Modul gibt, das helfen kann, sich um all das zu kümmern, würde das auch helfen.

aktualisieren:

Ich habe beschlossen, eine wirklich hässliche Abhilfe zu meinem Problem zu verwenden. Es stellt sich heraus, dass die Verwendung von readpipe() anstelle von Backticks Variablen korrekt erweitert. Ich verwende einen automatischen Skript-Cleaner, bevor ich meine Tests ausführe, die alle Backticks in readpipe() konvertieren, bevor die Tests ausgeführt werden.

beispiels Laufen:

$ cat t.pl 

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

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

Gibt:

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

Ich suche immer noch, obwohl für eine saubere Lösung aus.

Answer 1

Das scheint ein Fehler in Perl zu sein. Verwenden Sie perlbug, um es zu melden.

Answer 2

Sie möchten wahrscheinlich stattdessen IPC::Run verwenden.

use IPC::Run 'run'; 

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

Oder wenn Sie nicht den Ausgang erfassen wollen, kann system() besser

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