读取文件建hash

lu_777

请教， 读取一个文件， 以文件中的小标题与字段建立哈希key, value.
如类似mysql的配置文件my.cnf:
[mylsqd]
content1
[client]
content2

需要建成如

{$hash{mysqld}   =>   'content1',  $hash{client} => 'content2'  }

sunzhiguolu

回复 1# lu_777
能否提供一些示例数据? 谢谢...

   

lu_777

回复 2# sunzhiguolu

示例数据如下:

[mylsqd]
line1
line2
line3
[client]
line1
line2
line3 line3

做成哈希$hash{mysqld}   包含[mysqld]下面到[client]之前的内容， 如line1到line3的这一段内容为key的值
   

   

sunzhiguolu

回复 3# lu_777
[mylsqd]
line1
line2
line3
[client]
line1
line2
line3 line3
这之后的重复方式是什么样的? 依旧是
[mylsqd]
...

[client]
...

这样的? 还是有其他的变化?
   

kggg

回复 4# sunzhiguolu

肯定是会有变啊，大哥， 上面只是个示例文件的格式。


   

kggg

读文件， 遇[开头的行 ， 做为key, 然后打印下面的行

sunzhiguolu

@lu_777, @kggg

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sKey, @aValues, $sPrint);
   
6. print "{";
   
7. while (<DATA>){
   
8.     chomp;
   
9.     if (m/\A\[(.*)\]\z/){
   
10.         $sKey = $1;
    
11.         $sPrint = 1;
    
12.     }else{
    
13.         push (@aValues, $_);
    
14.         print "'@aValues'" if (eof);
    
15.         next;
    
16.     }
    
17. 
    
18.     if (@aValues){
    
19.         print "'@aValues', ";
    
20.         @aValues = ();
    
21.     }
    
22. 
    
23.     if ($sPrint){
    
24.         print "\$hash{$sKey} => ";
    
25.         $sPrint = 0;
    
26.     }
    
27.                
    
28. }
    
29. print "}";
    
30. 
    
31. 
    
32. __DATA__
    
33. [mylsqd]
    
34. line1
    
35. line2
    
36. line3
    
37. [client]
    
38. client1
    
39. client2
    
40. client3 client4

复制代码

lu_777

回复 7# sunzhiguolu


    谢谢

lu_777

回复 7# sunzhiguolu


不是变成哈希啊？？

   

sunzhiguolu

回复 9# lu_777

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($sKey, %hData);
   
7. while (<DATA>){
   
8.     chomp;
   
9.     if (m/\A\[(.*)]\z/){
   
10.         $sKey = $1;
    
11.     }else{
    
12.         if (exists $hData{$sKey}){
    
13.             $hData{$sKey} .= "\t$_";
    
14.         }else{
    
15.             $hData{$sKey} = $_;
    
16.         }
    
17.     }
    
18. }
    
19. [mylsqd]
    
20. line1
    
21. line2
    
22. line3
    
23. [client]
    
24. client1
    
25. client2
    
26. client3 client4
    

复制代码