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

发布时间：2020-12-15 23:25:15 所属栏目：大数据来源：网络整理

导读：即能够做到 $result = `my command`; 使用：raw,：utf8等我不知道的任何特殊变量,可以使用的替代方法或模块？解决方法好吧,我不知道是否有任何特殊变量,但为什么不使用open()执行该任务？您可以像管理文件一样在管道上指定编码： open(my $cmdin,"-|:raw"

即能够做到

$result = `my command`;

使用：raw,：utf8等

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

解决方法

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!