大牛们 ！！！！

不能超过15字

加上  $\="\t";试试。。。

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"是不是显得更整洁呢？

不能超过15字

回复 1# sinian126
和chomp没关系，定义输出分隔符的吧？难道我写错了。。。偶也是新手谅解。。。


   

不能超过15字

回复 8# sinian126
定义输入分隔符，默认为""