perl – 修改反引号使用的IO层

即能够做到

$result = `my command`;

使用：raw,：utf8等

我不知道的任何特殊变量,可以使用的替代方法或模块？

解决方法

好吧,我不知道是否有任何特殊变量,但为什么不使用open()执行该任务？您可以像管理文件一样在管道上指定编码：

open(my $cmdin,"-|:raw","your command");
my $result = join('',<$cmdin>);
close($cmdin);