Value of a query is returning without any delimiter

[parthodas]

I need to get the output of a query in a file. It is running fine. Though when I open the file, I see there is no delimiter between two values. Please help me in rectifying this.

    open my $OUT, '>>', "$mycrdir/file_detail.txt" or die "Can't creat
+e '$mycrdir/file_detail.txt'" ;
    while (my @row = $sth->fetchrow_array) {
        print $OUT @row, "\n";
    }
    close $OUT;

The output looks something like this --

117365theme-mb-structure-override.css$/Compass/CodeFreeze/SIEBEL
117365login.css$/Compass/CodeFreeze/SIEBEL

Am expecting a delimiter(a space or a comma). Something like this --

117365 theme-mb-structure-override.css $/Compass/CodeFreeze/SIEBEL
117365 login.css $/Compass/CodeFreeze/SIEBEL

[Corion]

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

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

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.

[Tux]

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

[Athanasius]

Hello parthodas, and welcome to the Monastery!

The special variable $, (also called $OUTPUT_FIELD_SEPARATOR) contains the delimiter you’re looking for:

 1:46 >perl -wE "my @c = qw(x y z); say @c;"
xyz

17:29 >perl -wE "my @c = qw(x y z); $, = '|'; say @c;"
x|y|z

17:30 >

See perlvar.

Hope that helps,

[Laurent_R]

Depending on your database, the separators may also be inserted into the output by the dB engine with a tailored select query. For example, under Oracle:

select CUSTOMER||';'||STATUS||';'||ID from ... where ...

The syntax is not really nice and I would tend prefer to reformat with Perl, but it works and can be useful at least for simple queries.

Update: Removed the delimiter after the last column.

[shadowsong]

change your print statement to

print $OUT "@row\n";

OR set the default "output field separator" explicitly.

You may overwrite it like so

$, = ',';
print $OUT @row, "\n";

[parthodas]

The solution worked. Thanks a lot.

[Myrddin Wyllt]

If you just want a space as a delimiter, the easiest way is to stick the array inside the double quotes and let interpolation take care of it:

open my $OUT, '>>', "$mycrdir/file_detail.txt" or die "Can't create '$
+mycrdir/file_detail.txt'" ;
while (my @row = $sth->fetchrow_array) {
    print $OUT "@row\n";
}
close $OUT;

If you need a comma or anything more exotic, use join as described elsewhere in the thread