perl问题：把文本变哈希

superyxo

初学perl，请大家帮忙看看

我有一个file.txt文档内容如下：

BEGIN: 1

bla bla bla

bla bla bla bla

BEGIN: 2

bla bla

bla...

BEGIN: 3

bla bla

bla bla la lalala...

.....

如上，这个文档包括几个部分，每部分以“BEGIN: 数字”开头。我想要做的是：

读入这个文本，把这个文本变成一个hash，以每个“BEGIN：数字” 作为key，后边跟着的整段内容做value，类似这样：
{
“BEGIN: 1” => "bla bla bla
                       bla bla bla bla",
"BEGIN: 2" => "bla bla
                       bla...",
...
}

这个该怎么做？多谢！

jason680

回复 1# superyxo

$ cat k.pl

use strict;
use warnings;

my %hBEGIN;
my $sKey;
while(<DATA>){
  if(m/(BEGIN:\s*\d+)/){
    $sKey = $1;                 # keep the key
    $hBEGIN{$sKey} = "" if(!exists $hBEGIN{$sKey});  # assign it an initial value with empty string
    next;
  }
  $hBEGIN{$sKey} .= $_;      # combine all strings for the same key
}

foreach(keys %hBEGIN){
  print "$_ => $hBEGIN{$_}\n";

}
__DATA__
BEGIN: 1
bla bla bla
bla bla bla bla
BEGIN: 2
bla bla
bla...
BEGIN: 3
bla bla
bla bla la lalala...


$ perl k.pl
BEGIN: 2 => bla bla
bla...

BEGIN: 3 => bla bla
bla bla la lalala...

BEGIN: 1 => bla bla bla
bla bla bla bla

   

superyxo

回复 2# jason680

多谢多谢！

有个小问题，如果去掉if语句里边的“next”，是不是就把“BEGIN：数字”和后边的内容一起放到hash的值里边了？
   

flyingdancen

怎么看起来像是在读fasta。。

sunzhiguolu

1. perl -nle 'BEGIN{$/="BEGIN:"}{next if(!length);s/\s*$//gm;s/\A/BEGIN:/;print}' f

复制代码