perl 数组，哈希

super_two

我的数据格式如下，我想通过ID就可以自动将后面的数据输出来，请大神帮忙用perl写个程序实现。


#ID       0           1                2                 3                5
a    25.144  50.939        67.596         64.250         37.148
b     17.587         45.580         43.291       24.276   48.665
4     21.197         95.061         38.553    42.6882      51.294

jason680

回复 1# super_two

$ perl hash_id.pl
ID=a, data=25.144        50.939        67.596        64.250        37.148
ID=4, data=21.197        95.061        38.553        42.6882        51.294

$ cat hash_id.pl

use strict;
use warnings;

my %hID;
while(<DATA>){
  chomp;
  next if(m/^\s*(#|$)/);
  my($sID, @aData) = split;
  $hID{$sID} = join("\t", @aData);
}

# get data by id
  print "ID=a, data=$hID{'a'}\n";
  print "ID=4, data=$hID{'4'}\n";



__DATA__
#ID       0           1                2                 3                5
a    25.144  50.939        67.596         64.250         37.148
b     17.587         45.580         43.291       24.276   48.665
4     21.197         95.061         38.553    42.6882      51.294