免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1938 | 回复: 5

关于perl调用系统命令使用grep的困惑 [复制链接]

论坛徽章:
0
发表于 2012-09-11 21:10 |显示全部楼层
在linux shell中直接用perl -V | grep -P "^\s*/"可以得到:
[root@localhost Applications]# perl -V | grep -P "^\s*/"
    /home/sk
    /usr/lib/perl5/site_perl/5.14.2/i686-linux-thread-multi
    /usr/lib/perl5/site_perl/5.14.2
    /usr/lib/perl5/5.14.2/i686-linux-thread-multi
    /usr/lib/perl5/5.14.2

但是perl程序直接调用此命令无输出:
#! /usr/bin/perl
use strict;

my $a = `perl -V | grep -P "^\s*/"`;
print $a;

[root@localhost Applications]# newtest
[root@localhost Applications]#

不知是什么原因,静候高手解答,先谢过!

论坛徽章:
0
发表于 2012-09-11 22:42 |显示全部楼层
本帖最后由 sjdy521 于 2012-09-11 22:43 编辑

芝麻问题,不用等高手,我回答你好了。
  1. my $a = `perl -V | grep -P "^\\s*/"`
复制代码
或者
  1. my $a = qx'perl -V | grep -P "^\s*/"'
复制代码

论坛徽章:
0
发表于 2012-09-11 22:43 |显示全部楼层
perl newtest.pl ?

论坛徽章:
0
发表于 2012-09-11 22:56 |显示全部楼层
回复 2# sjdy521

试过有效,谢了。
1的话为啥要转义呢?


   

论坛徽章:
0
发表于 2012-09-11 23:04 |显示全部楼层
回复 4# sunkun_99
  1. perldoc perlop
复制代码
搜索Quote-Like Operators

论坛徽章:
0
发表于 2012-09-11 23:41 |显示全部楼层
回复 5# sjdy521


    呵呵。理解了,谢了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP