首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 读取文件创建散列的问题

读取文件创建散列的问题

时间：2010-12-14

来源：互联网

文件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做一个数组

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

作者: sai9924   发布时间: 2010-12-14

这是我的做法，对perl应用还不熟练，献丑啦
  1. #!/usr/bin/perl -w

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

作者: scrit   发布时间: 2010-12-14

  1. my %hash;
  2. while(<DATA>){
  3.         m<([^/]*)/>;
  4.         push @{$hash{server}}, $1;
  5. }
  6. print Dumper(\%hash);

  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
复制代码

作者: wind_ch   发布时间: 2010-12-14

回复 scrit


    运行了没结果啊。。

作者: sai9924   发布时间: 2010-12-14

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net