perl linux 遍历文件,linux – Perl将文件中的行放入单个文件中

我有一个名为mail.txt的文件,其中的行打印如下,我想将所有这些行放入一行中

谢谢

这是输入

q2VDWKkY010407 2221878 Sat Mar 31 19:37

(host map: lookup (my.local.domain): deferred)

q2VDWKkY010407 2221878 Sat Mar 31 19:37

(host map: lookup (my.local.domain): deferred)

这是输出

q2VDWKkY010407 2221878 Sat Mar 31 19:37 ,(host map: lookup (my.local.domain): deferred),,

q2VDWKkY010407 2221878 Sat Mar 31 19:37 ,(host map: lookup (my.local.domain): deferred), ,