修改反引号使用的IO层

Question

即能够做到

$result = `my command`;

使用:raw,:utf8等等.

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

Answer 1

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

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