帮忙处理下文本

158878318

1. 
   
2. 192.168.15.221:22
   
3. 192.168.15.221:80
   
4. 192.168.0.252:22
   
5. 192.168.0.252:80
   
6. 192.168.16.116:22
   
7. 192.168.16.116:80
   
8. 192.168.16.16:22
   
9. 192.168.16.16:80
   
10. 192.168.16.100:22
    
11. 192.168.16.100:80
    
12. 192.168.16.162:22
    
13. 192.168.16.162:80
    
14. 192.168.1.125:22
    
15. 192.168.1.125:80

复制代码

这个文本去除重复，然后将后面的端口添加到对应的iP后面，比如 192.168.15.221:22 80

reyleon

楼主大姨妈来啦

1. awk -F: '{a[$1]=a[$1]?a[$1]" "$2:$2} END{for(i in a )print i":"a[i]}' file

复制代码

158878318

回复 2# reyleon


   ......如果文本里有空行的话，会有：？

reyleon

回复 3# 158878318


    那你先去掉空行噻, 要随机应变,一通百通呀

reyleon

败给你了

1. awk -F: 'NF{a[$1]=a[$1]?a[$1]" "$2:$2} END{for(i in a )print i":"a[i]}' file

复制代码

158878318

回复 5# reyleon


    awk没怎么深入看过，谢谢了。

yestreenstars

1. with open('input.txt') as f:
   
2.     d = {}
   
3.     for line in f:
   
4.         line = line.rstrip()
   
5.         field = line.split(':')
   
6.         if field[0] not in d:
   
7.             d.setdefault(field[0], [])
   
8.         d[field[0]].append(field[1])
   
9.     for k in d:
   
10.         print '%s:%s' % (k, ' '.join(d[k]))

复制代码

reb00t

1. 
   
2. <?php
   
3. 
   
4. 
   
5. $file = file('1.txt');
   
6. $data = array();
   
7. 
   
8. foreach ($file as $k => $v) {
   
9. 
   
10.    $arr = preg_split("/:/", $v);
    
11. 
    
12.     for ($i=1; $i < count($arr); $i++) {
    
13.         $arr[$i]=str_replace("\n","",$arr[$i]);
    
14.         $data[$arr[0]] = ($data[$arr[0]])?$data[$arr[0]]." ".$arr[$i]:$arr[$i];
    
15.     }
    
16. 
    
17. }
    
18. foreach($data as $key=>$value){
    
19. echo $key.":".$value."\n";
    
20. }
    

复制代码

效果：
192.168.15.221:22 80
192.168.0.252:22 80
192.168.16.116:22 80
192.168.16.16:22 80
192.168.16.100:22 80
192.168.16.162:22 80
192.168.1.125:22 80

songyc_2015

回复 1# 158878318

1. $cat test.pl
   
2. #!/usr/bin/env perl
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. my %hash;
   
8. while (<ARGV>)
   
9. {
   
10.         chomp;
    
11.         next if /^$/;
    
12.         my @arr = split /:/;
    
13.         $hash{$arr[0]} = length($hash{$arr[0]}) ? $hash{$arr[0]}." ".$arr[1] : $arr[1];
    
14. }
    
15. 
    
16. for (keys %hash)
    
17. {
    
18.         print $_." ".$hash{$_}, "\n";
    
19. }
    
20. $./test.pl file

复制代码

1. perl -F: -lane 'next if /^$/;$h{$F[0]}=length($h{$F[0]})?$h{$F[0]}." ".$F[1]:$F[1];END{print $_." ".$h{$_} for keys(%h)}' file

复制代码

结果：
192.168.16.116 22 80
192.168.16.162 22 80
192.168.16.100 22 80
192.168.1.125 22 80
192.168.16.16 22 80
192.168.0.252 22 80
192.168.15.221 22 80

reb00t

回复 9# songyc_2015


    哇靠，随意大神威武

$hash{$arr[0]} = length($hash{$arr[0]}) ? $hash{$arr[0]}." ".$arr[1] : $arr[1];

类似php~