perl 數(shù)組，哈希

super_two

我的數(shù)據(jù)格式如下，我想通過ID就可以自動將后面的數(shù)據(jù)輸出來，請大神幫忙用perl寫個程序?qū)崿F(xiàn)。


#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

回復(fù) 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