Question

我试图用推力补充阵列中的所有内容。之后,i 储存在另一个档案中

但是,从档案开始,看到每个东西都有一个白人和平组织。

问题何在。

open FILE , "a.txt"

while (<FILE>)
{

  my $temp =$_;

  push @array ,$temp;

}
close(FILE);

open FILE2, "b.txt";
print FILE2 "@array";
close FILE2;

Answer 1

当你引用像以下几组变量:@array”时,它便与空间发生干扰。这是你们的产出。因此,如果你不需要或想要进行这种干涉,则不会援引。

现在让我把你的节目改写到现代的Perl。

use strict;
use warnings FATAL =>  all ;
use autodie qw(:all);

my @array;
{
    open my $in,  < ,  a.txt ;
    @array = <$in>;
}

{
    open my $out,  > ,  b.txt ;
    print {$out} @array;
}

Answer 2

页: 1 这使得它成为一种扼杀性污染,对阵列而言,它相当于<条码>join($),@array)。 <代码>$>的缺省值是(猜测什么?)一个空间。

提出

print FILE2 @array;

Answer 3

http://search.cpan.org/perldoc/perlfunc# open”rel=“nofollow noreferer”>open 通常提出另一种论点,具体指明档案是否为投入或产出(或为其他特定案件或为其他特定案件)。您漏掉了这一论点,因此缺席,即FILE2是一份投入文件。

你想说

open FILE2,  > , "b.txt"

如果你走下了这条路,

use warnings;

页: 1 口译人员将按字面处理很多问题。

友情链接