in reply to Value of a query is returning without any delimiter

If you want a delimiter, you need to print the delimiter between your elements.

print join( ",", @row), "\n";

[download]

Also take a look at Text::CSV_XS for creating CSV and Querylet if your program is mostly an SQL statement that should produce CSV or XLS.

Replies are listed 'Best First'.
Re^2: Value of a query is returning without any delimiter
by Tux (Canon) on Aug 28, 2015 at 08:58 UTC

    As described here:

    csv (out => ""$mycrdir/file_detail.csv", in => sub { $sth->fetch }, qu
+ote_empty => 1);
csv (out => ""$mycrdir/file_detail.txt", in => sub { $sth->fetch }, qu
+ote_empty => 1, sep => "|"); # or " " for space

    [download]

    Enjoy, Have FUN! H.Merijn
[reply]
[d/l]

In Section Seekers of Perl Wisdom