又一个问题

justlooks

我期望碰到 OPTIONS的字符，而且它的值为 ADD 会答应对应的 ADD 动作，但是好像不行阿，看了下语句没错阿

for my $href (@hash_array){
  print "{";
  for my $role ( keys %$href ){
    print "$role = $href->{$role} ";
  }
  print "}\n";

for my $href (@hash_array){
    for my $role (keys %$href){
       if($role eq "OPTIONS" && $href->{$role} eq "ADD"){
            print "OK, i will do ADD action\n";
       }
    }
  }

输出
{backup_intval = 4
needbackup = world.backup_define
OPTIONS = ADD
srcdir = /var/lib/mysql
name = test_insert
fromip = 172.16.2.10
desdir = /data/backup
toip = 172.16.1.111
}
{backup_intval = 4
needbackup = world.backup_define
OPTIONS = ADD
srcdir = /var/lib/mysql
name = test_insert2
fromip = 172.16.2.10
desdir = /data/backup
toip = 172.16.1.111
}
{backup_intval = 4
needbackup = world.backup_define
OPTIONS = ADD
srcdir = /var/lib/mysql
name = test_insert4
fromip = 172.16.2.10
desdir = /data/backup
toip = 172.16.1.111
}

churchmice

你还是把所有代码都给贴出来吧
还有你push进去一个散列引用之后最好把原始散列给清空，不然有问题

justlooks

if(-e $CONFIG_DIR."/".$CONFIG_NAME){
  print "read $CONFIG_NAME\n";
  my @records = read_config_file($CONFIG_DIR."/".$CONFIG_NAME);  ＃ read_config_file的功能是返回一个散列数组，其中所有数据都在这个数组中了
print "print records\n";
for my $href (@records){
  print "{";
  for my $role ( keys %$href ){
    print "$role = $href->{$role} ";
  }
  print "}\n";
}

for my $href (@records){
    for my $role (keys %$href){
       if($role eq "OPTIONS" && $href->{$role} eq "ADD"){
        print "OK, i will do ADD action\n";
      }   
    }   
}

sub read_config_file {
  my @hash_array;
  my $fl = shift;
  my ($volume,$path,$file) = File::Spec->splitpath( $fl );
  chdir $path or die "can not change dir to $path\n";
  open(FH,"<",$file) or die "can not open file\n";

    my %ha;
  while(<FH>){
    next if m/^#/;  # next if comment
    if(m/^$/){      # next if nothing ,and push %ha if have key in it
     if(keys %ha){
     push @hash_array,{%ha};
    }
     next;
  }
    my ($key ,$value) = split /\s:\s/;
    $ha{$key} = $value;
   }
close(FH);
return  @hash_array;
｝

[ 本帖最后由 justlooks 于 2009-11-3 16:26 编辑 ]

churchmice

你把结构dump一下，就会发现是
ADD\n
而不是ADD
所有的value都存在这个问题
解决的方法很简单，split之前先chomp一下

1. 
   
2. use strict;
   
3. use warnings;
   
4. my @hash_array;
   
5. my %ha;
   
6. while (<DATA>) {
   
7.     next if /^\s*#/;    # next if comment
   
8.     chomp;
   
9.     if (m/^$/) {        # next if nothing ,and push %ha if have key in it
   
10.         if ( keys %ha ) {
    
11.             push @hash_array, {%ha};
    
12.             %ha = ();
    
13.         }
    
14.         next;
    
15.     }
    
16.     my ( $key, $value ) = split /\s:\s/;
    
17.     $ha{$key} = $value;
    
18. }
    
19. 
    
20. #  print $#hash_array;
    
21. 
    
22. =pod
    
23. for my $href (@hash_array) {
    
24.     print "{";
    
25.     for my $role ( keys %$href ) {
    
26.         print "$role = $href->{$role} ";
    
27.     }
    
28.     print "}\n";
    
29. }
    
30. =cut
    
31. 
    
32. for my $href (@hash_array) {
    
33.     for my $role ( keys %$href ) {
    
34.         if ( ( $role eq "OPTIONS" ) and ( $href->{$role} eq "ADD" ) ) {
    
35.             print "OK, i will do ADD action\n";
    
36.         }
    
37.     }
    
38. }
    
39. __DATA__
    
40. backup_intval : 4
    
41. needbackup : world.backup_define
    
42. OPTIONS : ADD
    
43. srcdir : /var/lib/mysql
    
44. name : test_insert
    
45. fromip : 172.16.2.10
    
46. desdir : /data/backup
    
47. toip : 172.16.1.111
    
48. 
    
49. backup_intval : 4
    
50. needbackup : world.backup_define
    
51. OPTIONS : ADD
    
52. srcdir : /var/lib/mysql
    
53. name : test_insert2
    
54. fromip : 172.16.2.10
    
55. desdir : /data/backup
    
56. toip : 172.16.1.111
    
57. 
    
58. backup_intval : 4
    
59. needbackup : world.backup_define
    
60. OPTIONS : ADD
    
61. srcdir : /var/lib/mysql
    
62. name : test_insert4
    
63. fromip : 172.16.2.10
    
64. desdir : /data/backup
    
65. toip : 172.16.1.111
    

复制代码

justlooks

原来是这样，知道了，谢谢