小编nan*_*ini的帖子

while(<FILE>)
{
    chomp $_;
    $line[$i]=$_;
    ++$i;
}

for($j=0;$j<$i;++$j)
{
    if($line[$j]=~/Syn_Name/)
    {
        do
        {
            print OUT $line[$j],"\n";
            ++$j;
        }
        until($line[$j]=~/^\s*$/)
    }
}

这是我的代码我试图在Syn_Name和空行之间打印数据.我的代码提取了我需要的块.但是块之间的数据是逐行打印的.我希望每个块的数据都打印在一行上.