新人求助一个问题 求解答 在线等

车干车干

我这有一个log.txt，里面一一大堆信息，如下：
[log] 1 2 4 5 2 119.107.69.24 中国四川省成都市电信  321354232  李爱明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25    8:42:32■
       1 2 4 5 2 119.107.69.23 中国四川省成都市电信  321354234  李月明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25    9:42:32■
       1 2 4 5 2 119.107.69.22 中国四川省成都市电信  321354235  李起明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25  10:42:32■
       1 2 4 5 2 119.107.69.21 中国四川省成都市电信  321354236  李商明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25  11:42:32■


然后请用perl程序把其中的IP IP地址域   后面的数字 比如321354232 这个字段 还有最后的时间  输出放至在另一个txt里
请问如何写？

感谢

laputa73

`awk '{print $8,$11,$12}' log.txt >new.txt`

车干车干

laputa73 发表于 2013-08-02 16:49
`awk '{print $8,$11,$12}' log.txt >new.txt`

我是activeperl  不能这么用吧？

zhengsenlin888

恩，用cat还更简单。

zhengsenlin888

是awk不是cat，哈哈。

只是一个红薯

如果中间那字段固定9个的话，可以试试，效率一般

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use strict;
   
4. use warnings;
   
5. open F,'<','0.txt';
   
6. open OUT,'>','new.txt';
   
7. map{say OUT "$1\t$2" if /(\d{9}).*(\d{4}-\d+-\d+\s+\d+:\d+:\d+)/}<F>;

复制代码

车干车干

只是一个红薯 发表于 2013-08-02 18:16
如果中间那字段固定9个的话，可以试试，效率一般

能给我说说  如何把IP地址和IP实际的地域信息输出的 思路么
后面那个不是固定9位的~~我只是拿出来一个简化的log.txt

范闲丶

简单的正则而已，没啥复杂思路啊，很明确的。。。回复 7# 车干车干


   

车干车干

回复 8# 范闲丶


   但是 如果后面的时间 那要怎么输出呢？

唐归来

1. use strict;
   
2. use warnings;
   
3. 
   
4. local $" = "\t";
   
5. while (<DATA>) {
   
6.     chomp;
   
7.         my @arr = split/\s+/;
   
8.         print "@arr[5,6,7,10,11]\n";
   
9. }
   
10. 
    
11. __DATA__
    
12. 1 2 4 5 2 119.107.69.24 中国四川省成都市电信  321354232  李爱明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25    8:42:32■
    
13. 1 2 4 5 2 119.107.69.23 中国四川省成都市电信  321354234  李月明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25    9:42:32■
    
14. 1 2 4 5 2 119.107.69.22 中国四川省成都市电信  321354235  李起明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25  10:42:32■
    
15. 1 2 4 5 2 119.107.69.21 中国四川省成都市电信  321354236  李商明  qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨qq.exe丨    2013-5-25  11:42:32■

复制代码