首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → perl 正则表达式问题

perl 正则表达式问题

时间：2010-10-09

来源：互联网

本帖最后由 mitmax 于 2010-10-09 11:02 编辑
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use IO::Socket;

  5. my $sock = new IO::Socket::INET(
  6.     LocalAddr => '192.168.1.240',
  7.     LocalPort => 7777,
  8.     Proto     => 'tcp',
  9.     Listen    => 5
  10. );
  11. die "Could not create socket: $!\n" unless $sock;

  13. my @result;
  14. my $i = 0;

  16. while (1) {
  17.     next unless my $client = $sock->accept();
  18.     while ( my $get = <$client> ) {

  20.         #print $get;
  21.         &Test_Sockte($get);
  22.     }
  23.     close $client;
  24. }

  26. sub Test_Sockte {
  27.     my ($getdata) = @_;
  28. #    print $getdata; 打印的结果是  ip:192.168.1.240:type:gateway:value:37
  29.     if ( my ( $host, $type, $value ) =
  30.         $getdata =~ /ip:(\d+\.\d+\.\d+\.\d+):type:(\w+):value:(\d+)/g )
  31.     {
  32.         print $host, $type;
  33.     }
  34.     else {

  36.         print "Error";
  37.     }
  38. }
复制代码


就算不匹配为什么连print "Error"; 也没执行.


  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  5. use IO::Socket;

  7. my $send_sock = new IO::Socket::INET(
  8.     PeerAddr => '192.168.1.240',
  9.     PeerPort => 7777,
  10.     Proto    => 'tcp'
  11. );
  12. die "$!" unless $send_sock;
  13. my $GerCon=`netstat -an|grep tcp|wc -l`;
  14. print $send_sock("ip:192.168.1.240:","type:gateway:","value:$GerCon:");
复制代码

作者: mitmax   发布时间: 2010-10-09

本帖最后由 珞水的大叔 于 2010-10-09 11:28 编辑

改为
  1.         print "$host, $type\n";
  2.     }
  3.     else {

  5.         print "Error\n";
复制代码
或者
在sub Test_Sockte里第一行加入
  1. $| = 1;
复制代码

作者: 珞水的大叔   发布时间: 2010-10-09

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net