将数组打印到文本文件(v2)

发布时间：2020-12-16 06:06:14 所属栏目：大数据来源：网络整理

导读：昨天我问了这个问题并得到了许多有用的答复,希望今天也是如此.这是我修改过的脚本. #! /usr/bin/perluse strict;use warnings;my $line;my @array;my $print;open (OUT,"","output.txt")or die "cant open: $!"; while ($line = ){ chomp($line); push(@arra

昨天我问了这个问题并得到了许多有用的答复,希望今天也是如此.这是我修改过的脚本.

#! /usr/bin/perl
use strict;
use warnings;

my $line;
my @array;
my $print;

open (OUT,">","output.txt")or die "cant open: $!"; 
while ($line  = <>){
        chomp($line);
        push(@array,$line);
        if(@array == 250){
        $print = print "[",join(",",@array),"]","n";
        print OUT $print;
        @array = []
}
}

最初我简单地说我需要将数组的前250个元素打印到文本文件中,并且该数组是从标准输入构建的.我没有说明的是,构建数组的输入可能包含数千行.从此输入创建数组的原因是,我可以将数组的大小限制为250个实体,然后将数组作为格式化字符串打印.然后我需要刷新数组并恢复构建输入的第251行,并继续对输入的其余部分执行此过程.让我们说输入是5k行,我希望我的输出是一个包含原始5k输入行的文本文件,但是分成由250个数组实体组成的字符串.

目前,脚本只是将数组打印到屏幕上,“ouput.txt”里面是一行读取：2222211.

解决方法

$print = print "[","n";
print OUT $print;

在这里,您将打印的返回值分配给$print,即1,因为打印成功.你想要做的是：

print OUT "[","n";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!