请教个文本处理的问题

ts99

第一个文本内容
DIMM CPU0 -  1C
708394-001
DIMM CPU0 -  3A
739927-001
DIMM CPU0 -  4A
739927-001
DIMM CPU0 -  6C
708394-001
DIMM CPU0 -  7D
708394-001
DIMM CPU0 -  9B
708394-001
DIMM CPU0 - 10B
708394-001
DIMM CPU0 - 12D

如何将内容变成
DIMM CPU0 -  1C            708394-001
DIMM CPU0 -  3A            739927-001
。。。
的格式？

ts99

while(<>){
if ($_=~/DIMM/){chomp $_;
        push @a, $_;}
else
        {chomp $_;push @b,$_;}
#print "@a \n";
#print "@b \n";
}
$number =@a;
for (0..$number){
print "$a[$_]\t$b[$_]\n";
}
这个脚本打印结果并不是我想要的，脚本结果是仅有@b的输出，为啥？

b114213903

1. my ($flag,$line);
   
2. while(<DATA>){
   
3.         chomp;
   
4.         unless($flag){
   
5.                 $line.=$_;
   
6.                 $flag=1;
   
7.         }else{
   
8.                 $line.="\t\t$_";
   
9.                 print "$line\n";
   
10.                 $flag=0;
    
11.                 $line='';
    
12.         }
    
13. }
    
14. 
    
15. __DATA__
    
16. DIMM CPU0 -  1C
    
17. 708394-001
    
18. DIMM CPU0 -  3A
    
19. 739927-001
    
20. DIMM CPU0 -  4A
    
21. 739927-001
    
22. DIMM CPU0 -  6C
    
23. 708394-001
    
24. DIMM CPU0 -  7D
    
25. 708394-001
    
26. DIMM CPU0 -  9B
    
27. 708394-001
    
28. DIMM CPU0 - 10B
    
29. 708394-001
    
30. DIMM CPU0 - 12D

复制代码

ts99

@b114213903,谢谢，您的方法解决了我的问题，但我将\t换成，或是其他符号为什么不行，得不到想要的结果？