Come si espandono le variabili nei gestori Perl readpipe?

Question

Sembra che le variabili in backticks non vengono espanse quando viene passato sulla funzione readpipe. Se sovrascrivo la funzione readpipe, come faccio ad espandere le variabili?

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

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

L'esecuzione di questo dà:

Run:ls /root 
Run:ls $dir 

sto cercando di prendere in giro le chiamate esterne per un codice di prova che sto scrivendo. Se c'è un modulo CPAN da qualche parte che può aiutare a prendersi cura di tutto questo, sarebbe di aiuto.

Aggiornamento:

ho deciso di utilizzare una soluzione veramente brutto al mio problema. Si scopre che l'uso di readpipe() anziché i backticks espande le variabili correttamente. Sto usando uno script cleaner automatico prima di eseguire i miei test che converte tutti i backticks in readpipe() prima di eseguire i test.

es Esecuzione:

$ cat t.pl 

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

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

Dà:

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

sto ancora cercando per una soluzione più pulita però.

Answer 1

Questo sembra essere un bug in Perl. Utilizzare perlbug per segnalarlo.

Answer 2

probabilmente si desidera utilizzare IPC::Run invece.

use IPC::Run 'run'; 

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

O se non si desidera catturare l'uscita, system() può essere meglio

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