perl输出为什么自己换行了

Question

想输出一个.csv文件，代码如下（图一）：print $d_no,",",$d_time,",",$d_smac,",",$d_msgtype,",";print $correction_ns,",",$correction_subns,",";print $clockidentity,",",$sourceportid,",";print $requesting_src_port_identity,",",$requesting_src_port_id,",";print $origints_sec,",",$origints_nsec,",";print $preciseorigints_sec,",",$preciseorigints_nsec,",";print $requestreceiptts_sec,",",$requestreceiptts_nsec,",";print $responseorigints_sec,",",$responseorigints_nsec;print "\n";可是输出的时候不知道为什么每组数据都在中间自动换行了，如图二，明明只在最后加了换行符\n的啊？图二里每个红框框起来是一组数据，也就是上面这段代码输出的内容。想不明白怎么回事，请教各位大神要怎么解决？急！
啊。。我知道是为什么了，不好意思

Answer 1

换行的呀，你去掉\n后执行程序，你会发现系统提示符f:\test\perl>前面要少一个空行。可能你需要显示数组时，每个元素后面空行，那用你的语句是不行的，你的语句是数组显示完毕后添加换行，要在没个元素后换行需要使用循环，大概是：print$_."\n"foreach(@sorted);