Jak powiększać zmienne w programach obsługi pętli odczytu Perl?

Question

Wygląda na to, że zmienne w tyłach nie są rozszerzane po przekazaniu do funkcji readpipe. Jeśli przesłonię funkcję readpipe, jak mogę rozwinąć zmienne?

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

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

Running to daje:

Run:ls /root 
Run:ls $dir 

Próbuję mock połączeń zewnętrznych dla kodu testowego, który piszę. Jeśli jest gdzieś moduł CPAN, który może pomóc w opiece nad tym wszystkim, to też mogłoby pomóc.

Aktualizacja:

zdecydowałem się użyć naprawdę brzydki obejście do mojego problemu. Okazuje się, że za pomocą readpipe() zamiast backticks poprawnie rozwija zmienne. Korzystam z automatycznego czyszczenia skryptów przed uruchomieniem testów, które przekształcają wszystkie odsłuchy na readpipe() przed uruchomieniem testów.

np Bieg:

$ cat t.pl 

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

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

Daje:

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

ja wciąż patrząc na czystsze rozwiązanie chociaż.

Answer 1

To wydaje się być błędem w Perlu. Użyj raportu perlbug, aby to zgłosić.

Answer 2

Zamiast tego prawdopodobnie użyjesz IPC::Run.

use IPC::Run 'run'; 

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

Albo jeśli nie chcesz przechwytywać dane wyjściowe, system() może być lepsze

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