Hello All,

i am new member of this forum. can any one help me for adding comma(,). after every number.
i have excel file. in that file there is more then 100 number in single row seperated by column . i want perl script which read form excel and add comma (,).

example : 11226 11342219 11990841 12001109 12006533

Solution: 11226,11342219,11990841,12001109,12006533

---------------------------------------------
  open MARGIN, &#8220;<x.csv&#8221; or die &#8220;open x.csv: $!&#8221;;
     while (<MARGIN>) {
     chop;
     (@content) = split /,/;
     $prod_margin{$content[1]} = @content;
     }
     close MARGIN;
     open MARGIN, &#8220;>myout.csv&#8221; or die &#8220;open .csv: $!&#8221;;\
    for my $line (keys %prod_margin) {
     print MARGIN $line, "\n";
    }
    close MARGIN
--------------------------------------------
plz help us.
Thanks
Sam


Sample solution and code

earth-wind-and-fire:~ grahamellis$ perl pat
10 20 49 329 20
10, 20, 49, 329, 20
earth-wind-and-fire:~ grahamellis$ cat pat
@vals = (10,20,49,329,20);
print ("@vals\n");
print (join(", ",@vals),"\n");
earth-wind-and-fire:~

---