$" = "\n";
@arr = (1, 2, 3, 4, 5);
open OUT, "> a.txt";
print OUT "@arr";

數(shù)組內(nèi)插時(shí)，分隔符默認(rèn)$"的值，可以通過修改$"的值來(lái)修改如何分割

1. use storable;
2. Date::Dumper
3. for my $each1 (@array) {
print OUT $each1
}

open my $fh, '>' ‘test.txt’ or die $!;
for my $data (@array)
{
print $fh, $data;
}

$" = "\n";
@arr = (1, 2, 3, 4, 5);
open OUT, "> a.txt";
print OUT "@arr";