Как сохранить результат в файле

Question

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use diagnostics; 
use feature 'say'; 
my@array = qw(a b c d e f g h i j k l m n o p q r s t u v w x y z); 
my@array_a = @array[0..5]; 
my@array_b = @array[6..8]; 
my@array_c = @array[8..15]; 
my@array_d = @array[16..16]; 
my@array_e = @array[17..20]; 
my@array_f = @array[21..24]; 
my@array_g = @array[25..16]; 
print "first five string:",@array_a,"\n"; 
print @array_b,"\n"; 
print @array_c,"\n"; 
print @array_d,"\n"; 
print @array_e,"\n"; 
print @array_f,"\n"; 
print @array_g; 

У меня есть надстрочный скрипт Perl, который печатает результаты сценария на экране терминала. Вместо того, чтобы печатать информацию на экране, мне нужно ее сохранить в текстовый файл. я пытался, как мой

$filename = "/home/Ram/Desktop/Perl_file.txt"; 
open(my@array_a = @array[0..5], '>', $filename) or die "Could not open 
+ file '$filename' $!"; 
print @array_a ; 
close @array_a; 

но показывает ошибку как

первые пять строк: ABCDEF ГХИ ijklmnop д РГУПС vwxy не может использовать строку («6») в качестве символа исх в то время как «строгие рефов» используется в строке array.pl 22 (# 1) (F) Только жесткие ссылки разрешены «строгими комментариями». Символические ссылки запрещены. См. Perlref. Исключить исключение из кода пользователя: нельзя использовать строку («6») в качестве символа ref во время использования «строгих ссылок» в строке 22 массива. На строке array.pl 22.

Почему это ошибка? Пожалуйста, дайте мне знать

Answer 1

Thats не так, как вы открыть ссылку на файл попробовать:

open(my $fh,'>',$filename) or die "could not open $filename $!"; 
print $fh @array_a; 
print $fh @array_b; 
print $fh .......