大牛们 ！！！！

raoweijian

1. while(<DATA>){chomp;
   
2.    @a=split;
   
3.    shift @a;
   
4.   # print;
   
5. if(/BS/../(?=XX$)/)  {
   
6.   print  "@a";
   
7.   next;}
   
8. print "\t";
   
9. if(/DR/../(?=XX$)/)  {print  "@a";}
   
10. }

复制代码

你看这样行不行，因为已经知道数据DR 在BS后面，所以每次输出BS之后，都直接跳入下一次循环。当BS全部输出完之后，才执行到 print "\t"，输出一个制表符。
不过我觉得输出 "\n"是不是显得更整洁呢？