Perl ， 怎样把数组写入文件？

Question

一个很简单的数组 ， @output = (apple, pear, cherry); 怎样写入文件 fruit.txt ?

Answer 1

 open( my $fh, '>', 'fruit.out' ) or die $!;
 print $fh $_ for @output;

 

记得给好评哦亲O(∩_∩)O~

Answer 2

@output = qw/apple pear cherry/; # 你给出的那个写法是不对的.

open F, ">fruit.txt" or die "$! Can't create file";
print F $_.$/ foreach @output;
close F;

Answer 3

#从头开始写

open(FILE,">fruit.txt");
#文件结尾追加
open(FILE,">>fruit.txt");
print FILE "@arr";