Проблемы сохранения массива в текстовый файл

Question

Я построил массив, такой как A = [a1, a2, ... aN].Как сохранить этот массив в файл данных, где каждый элемент должен быть размещен в одной строке.Другими словами, для массива A файл должен выглядеть так:

a1
a2
a3
...

Answer 1

Очень просто (это, конечно, при условии, что ваш массив явно указан как структура данных массива, которая не совсем понятна для вашего вопроса):

#!/usr/bin/perl -w
use strict;

my @a = (1, 2, 3); # The array we want to save

# Open a file named "output.txt"; die if there's an error
open my $fh, '>', "output.txt" or die "Cannot open output.txt: $!";

# Loop over the array
foreach (@a)
{
    print $fh "$_\n"; # Print each entry in our array to the file
}
close $fh; # Not necessary, but nice to do

Приведенный выше скрипт напишетследующее для "output.txt":

1
2
3

Answer 2

Если вам не нужен цикл foreach, вы можете сделать это:

print $fh join ("\n", @a);