Perl + печать в файл

Question

Следующий скрипт выводит несколько символов.

как печатать символы в файл (например / var / tmp / file)

Яэль

#!/usr/bin/perl 


@myNames = ('one', 'two', 'three' , 'A' , 'B' , 'C' , 'D' , 'E');

foreach (@myNames) {

print "$_\n";

} 

Answer 1

Когда вы запускаете скрипт, вы можете просто перенаправить вывод в файл:

$ ./myscript.pl > /var/tmp/file

Answer 2

#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use autodie qw(:all);

my @names = qw(one two three A B C D E);

{
    open my $fh, '>', '/var/tmp/file';
    foreach (@names) {
        print {$fh} "$_\n";
    }
}

Answer 3

open(FILE, ">/var/tmp/file") || die "File not found";
print FILE @myNames;
close(FILE);

Answer 4

#!/usr/bin/perl 


@myNames = ('one', 'two', 'three' , 'A' , 'B' , 'C' , 'D' , 'E');

open(OUT,">","/var/tmp/file") or die "Could not open the output file: $!";

foreach (@myNames) {

print OUT "$_\n";

} 

close(OUT);