Install Text::CSV_XS and/or Text::CSV and type perldoc Text::CSV, look for the EXAMPLES.

As to writing arrays to files: open, join and print are your friends. See also perlintro.

my @combined = ();
my ($col1, $col2, $col3, $col4) = '';

while (@array1) {
$col1 = shift @array1; chomp $col1; $col1=~s/,/\,/g; #escape commas
$col2 = shift @array2; chomp $col2; $col2=~s/,/\,/g;
$col3 = shift @array3; chomp $col3; $col3=~s/,/\,/g;
$col4 = shift @array4; chomp $col4; $col4=~s/,/\,/g;

push @combined, "$col1,$col2,$col3,$col4\n";
}

open OUTPUT, ">$target_file" or die "Cannot open target file!  $! \n\n
+";
print OUTPUT @combined;
close OUTPUT;
[download]

Blessings,

~Polyglot~

UPDATE: Edited for more correct CSV style...I was thinking of "columns" instead of "commas" for some reason.

Does \, work in CSV? I thought you have to quote bits of data that included commas? Even if a simple escape like that is OK, what if the data includes \ characters? Or new lines?

Simple data formats very rarely are. Use the modules, they are robust.

For the record there is currently no such thing as a standard CSV format.

If you are using Microsoft Excel, it will encapsulate each "cell" of data in quotes, instead of escaping the commas. However, what if the cells have quote marks? I suppose they would need to be escaped if using that format. I found the following "guide" to CSV online.

---

Considerations When Exporting CSV

The biggest differences are in how these three characters are handled.
• Embedded double quotes in fields.
  An escape character is sometimes used to introduce a double quote, or in place of it.

  Embedded line-feeds in fields.

  This one is also escaped sometimes. Often like in C ("\n")

  Embedded commas in fields.

  Again, an escape character is sometimes used in place of the comma
Theoretically, if you could avoid exporting any fields that include these characters you would greatly improve the chances that your CSV file could be read by variations.

Is it worth reducing your application's functionality or convenience? No. But if the existence of these characters is entirely superfluous, you might consider taking them out.

---

Take your pick. I picked one format. There are others.

Blessings,

~Polyglot~

#!/usr/bin/perl

use strict;

my @arrays = qw( a b c d );

open( my $file, "> /tmp/csv_file" );
print $file join ",\n", @arrays;
close( $file );
[download]