perl脚本 print的时候多出空格

lzj24

perl脚本如下：

open (FF,"/home/richqos/liangzj/test.txt");
while (<FF>){

    chomp;
    if ($_ =~ /111/){
        push @test,"$_\n";
    }
}
close FF;
print "@test\n";

其中，test.txt的内容是这样：
111
111222
333111

但是打印出来的结果是这样：
111
  111222
  333111

于是问题来了：
第二行和第三行的前面莫名其妙的多出来一个空格，是什么原因啊~~

sunzhiguolu

字符串内插导致的.

lzj24

要怎样改才会正常输出（不要空格）回复 2# sunzhiguolu


   

sunzhiguolu

回复 3# lzj24

1. print for @test;

复制代码

sunzhiguolu

回复 3# lzj24
如果您问的是, 依旧使用字符串内插的方式打印数组的内容我就不会了, 只有等大神帮您解决了.

   

rubyish

beiteer

1. print @test;

复制代码

zhlong8

$"

When an array or an array slice is interpolated into a double-quoted string or a similar context such as /.../ , its elements are separated by this value. Default is a space. For example, this:

        print "The array is: @array\n";

is equivalent to this:

        print "The array is: " . join($", @array) . "\n";

Mnemonic: works in double-quoted context.