perl 转换文本求助

neten

有如下文本：
tcp/1-65535:7709
tcp/1-65535:7710
tcp/1-65535:7741
tcp/1-65535:7001
tcp/1-65535:7456
tcp/29:53
tcp/7752:53
tcp/4561:53
tcp/20:21
udp/54:52
......
转换成iptables，冒号前为源端口，冒号后为目的端口，实现iptables的多端口匹配，如：
-p tcp -m multiport --sports 1:65535 --dports 7709,7710,7741,7001,7456
-p udp -m multiport --sports 29,7752,4561 --dports 53
-p tcp --sport 20 --dport 21
-p udp --sport 54 --dport 52

liyangole

{:3_184:} 这个实现起来不复杂了。

昭襄王

老湿，你这个没规律啊

neten

老湿，你这个没规律啊
昭襄王 发表于 2010-12-13 17:36

    有规律啊，相同源端口或者目的端口的结合在一起。

langren868

有规律啊，相同源端口或者目的端口的结合在一起。
neten 发表于 2010-12-13 18:08

     有点模糊，结合成什么样，具体下，举个例子先。

kingwmj

多具点例子。

x9x9

应该可以，就是变量名称起的有点乱~

1. my %hash;
   
2. my %rhash;
   
3. 
   
4. open IN,"<source.txt";
   
5. 
   
6. while (<IN>) {
   
7. chomp;
   
8. if (/^(\w{3})\/(\S+):(\d+)$/){
   
9. push @{$hash{$1}{$2}},$3;
   
10. push @{$rhash{$1}{$3}},$2;
    
11. }
    
12. }
    
13. 
    
14. close IN;
    
15. 
    
16. foreach my $k (keys %rhash){
    
17. foreach my $k1 (keys %{$rhash{$k}}) {
    
18. delete $rhash{$k}{$k1} if @{$rhash{$k}{$k1}}==1;
    
19. }
    
20. }
    
21. 
    
22. foreach my $kk (keys %hash){
    
23. foreach my $kk1 (keys %{$hash{$kk}}) {
    
24. foreach my $kk2 (keys %{$rhash{$kk}}) {
    
25. delete $hash{$kk}{$kk1} if @{$hash{$kk}{$kk1}}==1 and $hash{$kk}{$kk1}->[0] eq $kk2;
    
26. }
    
27. }
    
28. }
    
29. 
    
30. foreach my $pkk (keys %hash){
    
31. foreach my $pkk1 (keys %{$hash{$pkk}}) {
    
32. if (@{$hash{$pkk}{$pkk1}} >1){
    
33. printf "-p %s -m multiport --sports %s --dports %s\n",$pkk,$pkk1,join ",",@{$hash{$pkk}{$pkk1}};
    
34. } else {
    
35. printf "-p %s --sport %s --dport %s\n",$pkk,$pkk1,$hash{$pkk}{$pkk1}->[0];
    
36. }
    
37. }
    
38. }
    
39. 
    
40. foreach my $rkk (keys %rhash){
    
41. foreach my $rkk1 (keys %{$rhash{$rkk}}) {
    
42. printf "-p %s -m multiport --sports %s --dports %s\n",$rkk,(join ",",@{$rhash{$rkk}{$rkk1}}),$rkk1;
    
43. }
    
44. }

复制代码