perl动态hash

haokanwk

我有一个文件,如
www.qq.com 1.2.3.4
www.baidu.com 2.3.4.5
...
我用如下程序的:

1. open GAME,'<','gamelist.txt' || die "Error:($!)";
   
2. my @game_list = <GAME>;
   
3. 
   
4. for ( @game_list ) {
   
5.   chomp;
   
6.   my ( $url,$ip ) = split;
   
7.   # print $url,$ip;
   
8.   &add_url_ip( $url, $ip );
   
9. }
   
10. 
    
11. sub add_url_ip {
    
12.   ( $u,$p ) = @_;
    
13.   %game = ( $u => $p );
    
14.   return %game;
    
15. }

复制代码

我的想法是把文件中的url 和ip地址用hash来表示，因为此文件我会往里面追加相似的行。但我的实现方式显然不对(只保留了最后一行的url 和ip)。请指教。

jason680

&add_url_ip( $url, $ip );
change to
$game{$url} = $ip;

yinyuemi

回复 1# haokanwk


    for ( @game_list ) {
  chomp;
  my ( $url,$ip ) = split;

  push @{$hash{$url}}, $ip;
}

haokanwk

唉 ，连hash都不会用了，太丢人了

bestinter2010

你这每次都吧hash给从定义了一次吧！