利用perl输出文件时的注意事项

声明一个字符串变量, 如下

$txt = "

xxxxxxxx

yyyyyyyy

@array

"

@array单独打印的时候没有问题，内嵌到$txt中时，回车换行符被解释为回车换行+空格。 例如

print  FILE   @array

=====================

第一行内容

第二行内容

第三行内容

=====================

print FILE $txt

=====================

xxxxxxxxxxx

yyyyyyyyyyy

第一行内容

 第二行内容

 第三行内容

==================

 

如何嵌入$txt中呢？把@array 用""连接后，变成$array字符串，嵌入$txt中。

$array=join "",@array;