perl 匹配

小perl

回复 9# zhlong8


    呵呵，此言得益。受教了。

小perl

回复 10# 2gua


    恩，瓜瓜哥说的甚是，偶还是默默看帖，冒泡。。。。

zyg0x0

回复 4# kk861123

你好 我是新手 这个要再怎么操作 用文件句柄打开？ 然后呢 你能不能写个完整的  谢谢
   

kk861123

回复 13# zyg0x0


    这样？

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. while (<DATA>) {
   
4.      print "$1\t$2\n" if /(\S+)\s+.*:(\d{4})/;
   
5. }
   
6. 
   
7. __DATA__
   
8.     338  192.168.5.23:6601
   
9.     169  192.168.5.23:6423
   
10.     168  192.168.5.23:6659
    
11.      85   192.168.5.23:6449
    
12.      82   192.168.5.23:6417

复制代码

zyg0x0

回复 14# kk861123

嗯 嗯 就是这样 谢谢 非常感谢 看到你在线呢 tks


   

zyg0x0

回复 14# kk861123

新手 一点经验都没有 所有不知道如何下手 感谢