请教：散列表遍历的问题

UJoe

my %hash;
        $hash{"objA"}{"size"}="ewr";
        $hash{"objA"}{"width"}="werwer";
        $hash{"objB"}{"size"}="ewasdr";
        $hash{"objB"}{"width"}="werweasdr";

我想把每个objX的属性都打印出来，怎么办？没有google到什么办法。

路小佳

1. 
   
2. my %hash;
   
3. $hash{"objA"}{"size"}="ewr";
   
4. $hash{"objA"}{"width"}="werwer";
   
5. $hash{"objB"}{"size"}="ewasdr";
   
6. $hash{"objB"}{"width"}="werweasdr";
   
7. 
   
8. foreach my $k (grep {/^obj/} keys %hash) {
   
9.         print $k, "\n";
   
10.         foreach my $subk (keys %{$hash{$k}}) {
    
11.                 print "\$hash{$k}{$subk} => $hash{$k}{$subk}\n";
    
12.         }
    
13.         print "\n";
    
14. }
    

复制代码

试试这个。

UJoe

实在是太感谢了，跑了一下是可以的，代码写的很干净。

有没有可能不限定^obj的特征。

路小佳

嗯，去掉grep就可以了吧。
foreach my $k (keys %hash)

UJoe

统统好了，是可以的。

ulmer

原帖由 UJoe 于 2007-4-18 19:49 发表
my %hash;
        $hash{"objA"}{"size"}="ewr";
        $hash{"objA"}{"width"}="werwer";
        $hash{"objB"}{"size"}="ewasdr" ...

Hi,

this data structure is called hashes of hashes, using reference to hash in hash.
pls read:
    perldoc perlref
    perldoc perldsc

For example, another writewise:

my %hash = (
    objA => {size=>"ewr", width=>"werwer"},   # ref. to hash as value "{}" used
    objB => {size=>"ewasdr", width=>"werweasdr"}
);
# to read it:
foreach my $key (keys %hash) {
    print "$key => {";
    my %val = %{$hash{$key}};  # value is ref. hash and do dereference
    foreach my $subkey (keys %val) {
        print $subkey . " => " . $val{$subkey}  . ",";
    }
    print "}\n";
}

# call some value directly:
print "objA's size = ", $hash{objA}->{size}, "\n";

UJoe

chinaunix的好人和高手真是一样多，多谢了。

在请教一个经典的问题， 19/Apr/2007:11:53:29 +0800，这段格式怎么处理成数值型的时间？perl这方面的处理好象没有现成的？

UJoe

题外话，这些都是为了实现一个小工具，通过监控httpd的access log来防止一些恶意的爬虫不断的伪造表单数据来抓取网页。

access log的片段如下，
192.168.1.113 - - [19/Apr/2007:11:53:29 +0800] "GET /resourceXXX.gif HTTP/1.1" ...
....
192.168.1.113 - - [19/Apr/2007:11:53:29 +0800] "GET /actionXXX?abc=null HTTP/1.1" ...

如果我发现有IP连续不断的请求action类别的数据(带post问号的)而很少请求资源类的静态数据，就通过防火墙把该IP封掉若干时间。

福瑞哈哥

原帖由 UJoe 于 2007-4-19 12:26 发表
chinaunix的好人和高手真是一样多，多谢了。

在请教一个经典的问题， 19/Apr/2007:11:53:29 +0800，这段格式怎么处理成数值型的时间？perl这方面的处理好象没有现成的？

1. use Time::ParseDate;
   
2. 
   
3. $sec = parsedate("19/Apr/2007:11:53:29 +0800");

复制代码

我想新问题最好开一个新帖吧。

flw

use Data::Dumper;
print Dumper( \%hash );