Separating Text Fields by comma

[jw01]

Hi,
I have created a text widget with multiple text fields using Perl Tk. So its like a web form e.g

Name: (user entered xyz)
Address:(user entered 123)
Age:(user entered 77)

When a user enters text in the fields and submits it, the data gets copied to a csv file. So the csv file looks like this:

NamexyzAddress123Age77

I want the csv file to look like:

Namexyz,Address123,Age77

How do I get the comma to be added to the text entered by the user

Thanks

[miller]

Where is your code that writes to the file? We can't tell you how to change your code without first seeing what you have.

[KevinADC]

Where is your code that writes to the file? We can't tell you how to change your code without first seeing what you have.

monkies maybe? :)

[jw01]

Here is the code:

use Tk;

open D, ">form3.csv";

$mw = MainWindow->new;
$mw->title("CR FORM");
$f = $mw->Frame->pack(-side => 'bottom');
$f->Button(-text => "Done",-command => sub {exit})->pack(-side=> 'left', -anchor => 'ne');
$f->Button(-text =>"Submit",-command => sub{print D %info})->pack(-side => 'bottom',-anchor => 'nw');

$t = $mw->Scrolled("Text",-width => 40,-wrap => 'none')->pack(-expand => 1, -fill => 'both');
foreach (qw/Name Address Age/) {
$w = $t->Label(-text => "$_:", -relief => 'groove', -width => 100);
$t->windowCreate('end', -window=> $w);
$w = $t->Entry(-width => 100, -textvariable => \$info{$_})->pack(-side => 'left', -anchor => 'w');
#@info = split(',', $info, 1);
$t->windowCreate('end', -window => $w);
$t->insert('end', "\n");

}
$t->configure(-state => 'disabled');

MainLoop;

[KevinADC]

Tk is almost like learning a whole new scripting language! Where in that code is the data written to a file?

[KevinADC]

Oh, I see now:

-command => sub{print D %info})

Maybe like this:

-command => sub{print D join(',' %info)})

[jw01]

Well I had tried this earlier:

-command => sub{print D join(',', %info)}

But all it does is separate the enteries in the excel sheet into different cells..It doesnt add a comma.

I want it to be displayed like this:
Name xyz, Address 123, Age gds

where xyz,123 and gds are the enteries in the widget form.

Thanks

[KevinADC]

if you want a comma in a cell I believe you have to quote the string, try this:

use Tk;
 
open D, ">form3.csv";
 my $cell = qq~"Name $info('Name'},Address $info{'Address'},Age $info{'Age'}"~; 
$mw = MainWindow->new;
$mw->title("CR FORM");
$f = $mw->Frame->pack(-side => 'bottom');
$f->Button(-text => "Done",-command => sub {exit})->pack(-side=> 'left', -anchor => 'ne');
$f->Button(-text =>"Submit",-command => sub{print D $cell})->pack(-side => 'bottom',-anchor => 'nw');

[jw01]

Yes now it adds the comma after each label..But its not reading the input entered by the person in the textbox:

$w = $t->Entry(-width => 100, -textvariable => \$info{$_})->pack(-side => 'left', -anchor => 'w');

Should the $info{$_} be changed?? I have been playing around with this entry and the $cell..but I cannot get it to read the text entry and add the comma after it.

Thanks

[KevinADC]

Sorry, I have no idea. If you don't get an answer here try asking on the www.Tek-Tips.com perl forum.

[jw01]

previous line:

w = $t->Entry(-width => 100, -textvariable => \$info{$_})->pack(-side => 'left', -anchor => 'w');

Change made

w = $t->Entry(-width => 100, -textvariable => \$info{"," , $_})->pack(-side => 'left', -anchor => 'w');

It now enters a "comma" after writing every input to the csv..But when I open the csv, it says file type for recognized and hence adds an extra "empty box" like element to the string..

How do i get rid of that??

Thanks

[KevinADC]

this just looks wrong:

\$info{"," , $_}

I'm surprised that doesn't return an error or warning.