读取文件创建散列的问题

sai9924

文件file.txt
内容大概是这样的
172.24.138.21/web/apache-tomcat-6.0.13
172.24.138.22/web/apache-tomcat-6.0.13
172.24.138.23/web/apache-tomcat-6.0.13
172.24.138.139/web/apache-tomcat-6.0.13
172.24.138.140/web/apache-tomcat-6.0.13
172.24.138.141/web/apache-tomcat-6.0.13
172.24.138.142/web/apache-tomcat-6.0.13
172.24.138.143/web/apache-tomcat-6.0.13

现在想做个散列

   $hash=( "server" = ["172.24.138.21", "172.24.138.22", "172.24.138.23", ...... ])    #这边的数组读取文件的第一列

print $hash{server}  想要输出这些ip，这些ip做一个数组

要通过正则和循环自动创建填入散列， 请问要怎么实现？？？

scrit

这是我的做法，对perl应用还不熟练，献丑啦

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. my @array;
   
5. my %hash;
   
6. open FH,"file.txt";
   
7. while(1)
   
8. {
   
9. my $line =<FH>;
   
10. if(not defined $line)
    
11.    {
    
12.     last;
    
13.    }
    
14. chomp $line;
    
15. $line =~ /(\d+\.\d+\.\d+\.\d+)/;
    
16. push @array, $1;
    
17. }
    
18. close FH;
    
19. for(@array)
    
20. {
    
21. $hash{server}=$hash{server}."$_\n";
    
22. }
    
23. print $hash{server};
    
24. ~                  

复制代码

wind_ch

1. my %hash;
   
2. while(<DATA>){
   
3.         m<([^/]*)/>;
   
4.         push @{$hash{server}}, $1;
   
5. }
   
6. print Dumper(\%hash);
   
7. 
   
8. __DATA__
   
9. 172.24.138.21/web/apache-tomcat-6.0.13
   
10. 172.24.138.22/web/apache-tomcat-6.0.13
    
11. 172.24.138.23/web/apache-tomcat-6.0.13
    
12. 172.24.138.139/web/apache-tomcat-6.0.13
    
13. 172.24.138.140/web/apache-tomcat-6.0.13
    
14. 172.24.138.141/web/apache-tomcat-6.0.13
    
15. 172.24.138.142/web/apache-tomcat-6.0.13
    
16. 172.24.138.143/web/apache-tomcat-6.0.13

复制代码

sai9924

回复 2# scrit


    运行了没结果啊。。

scrit

回复 4# sai9924


    将脚本里面的 file.txt改为你需要处理的文件名

wfnh

还不如直接弄一数组

wfnh

还不如直接弄一数组