writting data to .csv file in perl

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

Hi Monks,

I am writting the output from array to csv file

Data in array

my @row1 = ('Jun-2013','Gkel_check.1.ABC.dat.gz','count','check.1.ABC_
+TT1.dat','count','check.1.ABC.dat.gz','count');
my @row2 = ('check.1.AB_TT1.dat','count');
[download]

Using the below code to write the output to csv file

my @row1 = ('Jun-2013',$Gkel_gz[0],$Gkel_gz[1],$TT1[0]->[0],$TT1[0]->[
+1],$Gkel[0],$Gkel[1]);
my @row2 = ($TT1[1]->[0],$TT1[1]->[1]);
print DETAIL "Jun-2013,$Gkel_gz[0],$Gkel_gz[1],$Gkel_gz[1],$TT1[0]->[0
+],$TT1[0]->[1],$Gkel[0],$Gkel[1],$Gkel[1],TRUE\n";
print DETAIL "'\t','\t','\t','\t',$TT1[1]->[0],$TT1[1]->[1]\n";
[download]

Output what i am getting now

Jun-2013 Gkel_check.1.ABC.dat.gz count check.1.ABC_TT1.dat count check
+.1.ABC.dat.gz count
check.1.AB_TT1.dat count
[download]

but i want keep the output of line 2 check.1.AB_TT1.dat count exactly below

check.1.ABC_TT1.dat count

Jun-2013 .gz count check.1.ABC_TT1.dat count .gz count
               check.1.AB_TT1.dat count
[download]

Any inputs please

regards,

Comment on writting data to .csv file in perl Select or Download Code

Replies are listed 'Best First'.
Re: writting data to .csv file in perl by Anonymous Monk on Jun 25, 2013 at 03:52 UTC
Any inputs please Hmm, use Text::CSV?	[reply]
Re: writting data to .csv file in perl by hdb (Monsignor) on Jun 25, 2013 at 05:37 UTC
Compare the output of these two lines: `print "'\t','\t','\t','\t',x,y\n"; print "\t\t\t\tx,y\n";` [download]	[reply] [d/l]
Re^2: writting data to .csv file in perl by Perlseeker_1 (Acolyte) on Jun 25, 2013 at 16:02 UTC
Hi Monks, I can see the below difference `',' ',' ',' ',x,y + x,y` [download] but when i print the same output on csv file i dont see any differences `',' ',' ',' ',x,y x,y` [download] output expected on csv fiile `file 24 file1 25 file2 26 file2 28` [download] Any input please	[reply] [d/l] [select]