How do I create a CSV from a 2D array?

bari has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How do I create a CSV from a 2D array? by merlyn (Sage) on Dec 14, 2000 at 05:34 UTC
Definitely start with Text::CSV or DBD::CSV.	[reply]
Re: Answer: How do I create a CSV by davorg (Chancellor) on Dec 14, 2000 at 13:59 UTC
Text::CSV_XS is faster. -- <http://www.dave.org.uk> "Perl makes the fun jobs fun and the boring jobs bearable" - me	[reply]
Re: How do I create a CSV from a 2D array? by bart (Canon) on Sep 30, 2004 at 15:07 UTC
If you plan to print it to a file directly, and not quoting the individual fields (for a simple tab separated values table) I think using the special variables `$,` and `$\` is the approach leaving the code most readable: `@headers = qw(one two three); @rows = ( ['yes', 'no', 'maybe'], ['alpha', 'beta', 'and all the rest'], ); { local($\, $,) = ("\n", "\t"); print @headers; print @$_ foreach @rows; }` [download] It's more complex if you want a CSV file, where the field values can contain the delimiter, the quoting character, or a newline. The next code will only quote a field if necessary: `@headers = qw(one two three); @rows = ( ['yes', 'no', 'maybe'], ['17" monitor', 'a;b', "foo\nbar"], ); { local($\, $,) = ("\n", ";"); print map { my $s = $_; $s =~ s/([\n;])\|"/ $1 \|\| '""' /ge and $s = qq["$s"]; $s } @$_ foreach \@headers, @rows; }` [download] Following the modern Microsoft preference, I've used semicolons for the delimiter; and I've doubled the literal quotes appearing in the field data.	[reply] [d/l] [select]
Re: How do I create a CSV from a 2D array? by jdporter (Paladin) on Mar 02, 2011 at 18:30 UTC
Try Text::CSV_XS by h. merijn brand, or Text::xSV by tilly.	[reply]
Re: How do I create a CSV from a 2D array? by ichimunki (Priest) on Dec 14, 2000 at 05:24 UTC
As long as you are sure the list is two dimensional, this should work. First argument is the delimiter, second is the array. If you print the returned scalar to a filehandle, you will create a .csv file: ------- `my $write_this_to_file = delimit( ", ", @array ); sub delimit { my $delim = shift; my $delimited_file; foreach $row (@_) { $delimited_file .= join ($delim, @$row); $delimited_file .= "\n"; } return $delimited_file; }` [download]	[reply] [d/l]
Re: How do I create a CSV from a 2D array? by fenonn (Chaplain) on Jun 08, 2001 at 01:43 UTC
As long as `@data` is a 2D array this statement will store the data in CSV form in the scalar `$temp` so that it can be printed out to a file. `$temp = join "\n", map { $_ = join ",", @{$_} } @data;` [download]	[reply] [d/l]
Re: Answer: How do I create a CSV from a 2D array? by hossman (Prior) on May 29, 2003 at 23:52 UTC
This doesn't account for field values which may contain double-quotes, single-quotes, commas, or embedded newlines.	[reply]
Re: How do I create a CSV from a 2D array? by Anonymous Monk on Dec 18, 2000 at 22:08 UTC
or, alternately: `sub delimit { my $delim = shift; return join('', map { join($delim, @$_) . "\n" } @_); }` [download]	[reply] [d/l]
Re: How do I create a CSV by I0 (Priest) on Dec 14, 2000 at 20:30 UTC
Do you mean like this? `print join "\t",map{join ",",@$_}([1,2,3],["abc","def"]);` Originally posted as a Categorized Answer.	[reply] [d/l]
Re: How do I create a CSV by AgentM (Curate) on Dec 14, 2000 at 04:36 UTC
What's the output format type? HTML? Terminal? For HTML, your best bet are tables or lists. For the terminal, you might try using join or using nested for loops to print out "The Matrix" to STDOUT. Since I can't give any info on the output you want, I cannot be more specific. If you want pretty output to the terminal, Curses is your best bet. Originally posted as a Categorized Answer.	[reply]