¿Cómo puedo expandir las variables en los controladores de lectura de Perl?

Question

Parece que las variables en los palos de retroceso no se expanden cuando pasan a la función readpipe. Si anulo la función readpipe, ¿cómo puedo expandir las variables?

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

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

La ejecución de este da:

Run:ls /root 
Run:ls $dir 

Estoy tratando de burlarse de las llamadas externas de un código de prueba que estoy escribiendo. Si hay un módulo de CPAN en alguna parte que pueda ayudar a cuidar todo esto, eso también ayudaría.

actualización:

he decidido utilizar una solución muy feo a mi problema. Resulta que usar readpipe() en lugar de barras invertidas amplía las variables correctamente. Estoy usando un limpiador automático de scripts antes de ejecutar mis pruebas, que convierte todos los backticks en readpipe() antes de ejecutar las pruebas.

por ejemplo de reproducción:

$ cat t.pl 

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

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

Da:

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

sigo mirando hacia fuera para una solución más limpia aunque.

Answer 1

Eso parece ser un error en Perl. Use perlbug para reportarlo.

Answer 2

Probablemente desee utilizar IPC::Run en su lugar.

use IPC::Run 'run'; 

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

O si no desea capturar la salida, system() puede haber mejores

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