Chinaunix

标题: 文件怎么读入hash [打印本页]
作者: 609854    时间: 2013-11-12 14:07
标题: 文件怎么读入hash

大神，帮忙看下整个文件怎么读进hash。

DATA:
  1. [NAME]
  2. TOM

  4. [AGE]
  5. 23

  7. [TALL]
  8. 180CM

  10. [favorite person]
  11. Lily
  12. Jimmy

复制代码
一个一个的读我用的是：
  1. while(<DATA>){
  2.     my $match_key = shift;
  3.     if (m/$match_key/ig..m/\[.*\]/ig){
  4.            print;
  5.     }
  6. }
复制代码
作者: pitonas    时间: 2013-11-12 14:07
  1. my ( $value, @hash ) = 1;
  2. while (<DATA>) {
  3.     next if /^\s*$/;
  4.     if (/\[(.*)\]/) {
  5.         push @hash, $value == 0 ? ( '', $1 ) : $1;
  6.         $value = 0;
  7.     }
  8.     elsif ($value) {
  9.         chomp;
  10.         ref $hash[-1]
  11.           ? push @{ $hash[-1] }, $_
  12.           : ( $hash[-1] = [ $hash[-1], $_ ] );
  13.     }
  14.     else {
  15.         chomp;
  16.         push @hash, $_ and $value++;
  17.     }
  18. }
  19. my %hash = @hash;

  21. print $hash{NAME};

  23. __DATA__
  24. [NAME]
  25. TOM

  27. [AGE]
  28. 23

  30. [TALL]
  31. 180CM

  33. [favorite person]
  34. Lily
  35. Jimmy

  37. [NO Value]

  39. [LAN]
  40. perl
复制代码
回复 1# 609854


   
作者: mcshell    时间: 2013-11-12 16:42
回复 1# 609854
  1. my $h;
  2. while(<DATA>){
  3.     next if /^\s*$/;
  4.     /[[]([^]]+)/?$h->{$1}=():push @{$h->{$1}},$_;
  5. }
  6. print "$_=>",@{$h->{$_}},"\n" for keys $h;

  8. __DATA__
  9. [NAME]
  10. TOM

  12. [AGE]
  13. 23

  15. [TALL]
  16. 180CM

  18. [favorite person]
  19. Lily
  20. Jimmy

  22. [NO Value]

  24. [LAN]
  25. perl
复制代码
作者: 609854    时间: 2013-11-12 16:59
回复 2# pitonas


    ref $hash[-1]
          ? push @{ $hash[-1] }, $_
          : ( $hash[-1] = [ $hash[-1], $_ ] );

这个是什么意思。
作者: rubyish    时间: 2013-11-12 22:48
回复 3# mcshell
  1.     /[[]([^]]+)/?$h->{$1}=():push @{$h->{$1}},$_;
复制代码

   

   
作者: mcshell    时间: 2013-11-13 08:56
{:3_190:} {:3_190:} 回复 5# rubyish


   



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2