免费注册 查看新帖 |

Chinaunix

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

如何从执行的shell指令返回结果中判断是否含有某些字符串 [复制链接]

论坛徽章:
2
操作系统版块每日发帖之星
日期:2015-08-06 06:20:00IT运维版块每日发帖之星
日期:2015-08-15 06:20:00
发表于 2015-08-28 18:01 |显示全部楼层
本帖最后由 草中宝 于 2015-08-28 18:13 编辑

今天下午第一次用Perl,实现了连接MySQL、端口是否打开判断,但如何从执行的shell指令返回结果中判断是否含有某些字符串,这个对现在的我来说,实在太难,还请各位高手援手。

# ip a
1: lo: <LOOPBACK,UP,LOWER_UP> mtu 65536 qdisc noqueue state UNKNOWN
    link/loopback 00:00:00:00:00:00 brd 00:00:00:00:00:00
    inet 127.0.0.1/8 scope host lo
    inet6 ::1/128 scope host
       valid_lft forever preferred_lft forever
2: eth0: <BROADCAST,MULTICAST,UP,LOWER_UP> mtu 1500 qdisc pfifo_fast state UP qlen 1000
    link/ether 08:00:27:a4:6f:b6 brd ff:ff:ff:ff:ff:ff
    inet 90.0.12.83/16 brd 90.0.255.255 scope global eth0
    inet 90.0.12.78/32 scope global eth0
    inet 90.0.12.79/32 scope global eth0
    inet6 fe80::a00:27ff:fea4:6fb6/64 scope link
       valid_lft forever preferred_lft forever

perl代码如下
#!/usr/bin/perl -w
$ip_cmd_result = `ip a`;

print $ip_cmd_result;

如何判断"ip a"指令返回结果中含有"inet"和"/32 scope global eth0"的行呢,如有则把该行对应的IP打印出来,对于本例是90.0.12.78和90.0.12.79。

本人第一次来Perl板块,以前都不知道Perl有如此强大的功能,惭愧啊。

论坛徽章:
78
双子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06狮子座
日期:2013-10-18 13:40:31双子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年纪念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56处女座
日期:2013-10-24 17:15:30双子座
日期:2013-10-25 13:49:39午马
日期:2013-10-28 15:02:15
发表于 2015-08-28 18:18 |显示全部楼层
  1. my $ip_cmd_result = '    inet 90.0.12.78/32 scope global eth0';

  2. if($ip_cmd_result =~ /\binet\b.+?(\d+\.\d+\.\d+\.\d+)\/32 scope global eth0/) {
  3.        print $1;
  4. }
复制代码
这是最简单的正则,稍微看下书就明白了

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2015-08-28 18:48 |显示全部楼层
本帖最后由 jason680 于 2015-08-28 18:48 编辑

回复 1# 草中宝

my @aRet;
foreach(`ip a`){
  if(m|inet\s+((\d+[.]){3}\d+)/32 scope global eth0|){
    push @aRet, $1;
  }
}
if(scalar @aRet == 0){
  print "didn't get ip with /32 for eth0\n"
}
else{
  print "@aRet\n";
}

   

论坛徽章:
2
操作系统版块每日发帖之星
日期:2015-08-06 06:20:00IT运维版块每日发帖之星
日期:2015-08-15 06:20:00
发表于 2015-08-31 08:28 |显示全部楼层
yybmsrs 发表于 2015-08-28 18:18
这是最简单的正则,稍微看下书就明白了


谢谢指导。

论坛徽章:
2
操作系统版块每日发帖之星
日期:2015-08-06 06:20:00IT运维版块每日发帖之星
日期:2015-08-15 06:20:00
发表于 2015-08-31 08:30 |显示全部楼层
jason680 发表于 2015-08-28 18:48
回复 1# 草中宝

my @aRet;


感谢啊,还用不同的颜色标注文字,真是有心了。

论坛徽章:
16
CU十二周年纪念徽章
日期:2013-10-24 15:41:3415-16赛季CBA联赛之广东
日期:2015-12-23 21:21:55青铜圣斗士
日期:2015-12-05 10:35:30黄金圣斗士
日期:2015-11-26 20:42:16神斗士
日期:2015-11-19 12:47:50每日论坛发贴之星
日期:2015-11-18 06:20:00程序设计版块每日发帖之星
日期:2015-11-18 06:20:002015亚冠之城南
日期:2015-11-10 19:10:492015亚冠之萨济拖拉机
日期:2015-10-28 18:47:282015亚冠之柏太阳神
日期:2015-08-30 17:21:492015亚冠之山东鲁能
日期:2015-07-07 18:48:39摩羯座
日期:2014-08-29 23:01:42
发表于 2015-08-31 12:54 |显示全部楼层
回复 3# jason680


    不明白为啥perl解析器还能指向shell的指令

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2015-08-31 14:36 |显示全部楼层
回复 6# tc1989tc


内核源码都不是问题...
那Perl的源代码一看便知...

Perl source code
http://www.cpan.org/src/
   

论坛徽章:
16
CU十二周年纪念徽章
日期:2013-10-24 15:41:3415-16赛季CBA联赛之广东
日期:2015-12-23 21:21:55青铜圣斗士
日期:2015-12-05 10:35:30黄金圣斗士
日期:2015-11-26 20:42:16神斗士
日期:2015-11-19 12:47:50每日论坛发贴之星
日期:2015-11-18 06:20:00程序设计版块每日发帖之星
日期:2015-11-18 06:20:002015亚冠之城南
日期:2015-11-10 19:10:492015亚冠之萨济拖拉机
日期:2015-10-28 18:47:282015亚冠之柏太阳神
日期:2015-08-30 17:21:492015亚冠之山东鲁能
日期:2015-07-07 18:48:39摩羯座
日期:2014-08-29 23:01:42
发表于 2015-08-31 14:51 |显示全部楼层
回复 7# jason680


    谢谢 还没那么深 不过以后可以看
我还在入门阶段

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2015-08-31 15:03 |显示全部楼层
回复 8# tc1989tc


$ perldoc perlop
NAME
    perlop - Perl operators and precedence

DESCRIPTION
  Operator Precedence and Associativity
    Operator precedence and associativity work in Perl more or less like they
    do in mathematics.

    ....

    qx/STRING/
    `STRING`
        A string which is (possibly) interpolated and then executed as a
        system command with "/bin/sh" or its equivalent.
Shell wildcards,
        pipes, and redirections will be honored. The collected standard output
        of the command is returned;
standard error is unaffected. In scalar
        context, it comes back as a single (potentially multi-line) string, or
        undef if the command failed. In list context, returns a list of lines
        (however you've defined lines with $/ or $INPUT_RECORD_SEPARATOR), or
        an empty list if the command failed.

        Because backticks do not affect standard error, use shell file
        descriptor syntax (assuming the shell supports this) if you care to
        address this. To capture a command's STDERR and STDOUT together:

            $output = `cmd 2>&1`;

        To capture a command's STDOUT but discard its STDERR:

            $output = `cmd 2>/dev/null`;

        To capture a command's STDERR but discard its STDOUT (ordering is
        important here):

            $output = `cmd 2>&1 1>/dev/null`;

        To exchange a command's STDOUT and STDERR in order to capture the
        STDERR but leave its STDOUT to come out the old STDERR:

            $output = `cmd 3>&1 1>&2 2>&3 3>&-`;



   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会,7折限时优惠重磅来袭!
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。

限时七折期:2019年8月31日前


----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP