Re: Re: Textarea boxes in CGI

use CGI;

my(@v) = split(/\n/, param('textbox'));
chomp(@v);
print @v;
[download]

results in an HTML file with, for instance, if textbox contained:

BLAH
BLAH
BLAH

the same thing, whereas I want it to be:

BLAHBLAHBLAH

Comment on Re: Re: Textarea boxes in CGI Download Code

Replies are listed 'Best First'.
Re: Textarea boxes in CGI by cLive ;-) (Prior) on Jun 17, 2003 at 19:18 UTC
Here are a couple of succinct methods: `my $ta = param('textbox'); $ta =~ s/\r?\n//g; print $ta; # or if you really want an array: my @v = split /\r?\n/, param('textbox');` [download] I'm not 100% sure whether all browsers will send the \r, hence the ? in the regex. .02 cLive ;-)	[reply] [d/l]
(jeffa) 3Re: Textarea boxes in CGI by jeffa (Bishop) on Jun 17, 2003 at 19:21 UTC
Given the advice of the others (you have a pesky \r that's causing the 'problem'), how about spliting on a zero or one carriage return(s), followed by one newline? `use Data::Dumper; my @v = split(/\r?\n/, param('textbox')); print Dumper \@v;` [download] Note the use of Data::Dumper. Don't leave home without it. ;) UPDATE: Got \r and \n backwarks (again!) and cLive ;-) beat me to the punch, i should have checked back before i posted. Anyhoo ... all of this should have you covered. If you care to read more about what causes this confusion then check out A Little History on 0D0A and it's replies. jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]