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

前端之家收集整理的这篇文章主要介绍了perl – 修改反引号使用的IO层前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
即能够做到

$result = `my command`;

使用:raw,:utf8等

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

解决方法

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

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

猜你在找的Perl相关文章