I'm saving a textarea to a database which displays the information on a website. I want to substitute the /r or /n that the user enters into the textarea with <br> so its displayed correctly on the webpage.
This isn't working and it looks to be my syntax.

$test = $form{"event"};
$test ~= s/\r/<br>/g;
$test ~= s/\n/<br>/g;

As well, does substitution recognize /r or /n submitted in a textarea?

David

: I'm saving a textarea to a database which displays the information
: on a website. I want to substitute the /r or /n that the user enters
: into the textarea with so its displayed correctly on the webpage.
Note that if you replace \r and \n and someone posts it from a Windows box then you may well end up with double line breaks. Last time I did this I stripped out all \r's and s/\n/<br>/g'd it.

: This isn't working and it looks to be my syntax.
:

: $test = $form{"event"};
: $test ~= s/\r/<br>/g;
: $test ~= s/\n/<br>/g;
: 

: As well, does substitution recognize /r or /n submitted in a
: textarea?
That should be =~, not ~=. Other than that, it should work but see what I said earlier.

Jonathan

###
for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
(tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
/(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");

: : I'm saving a textarea to a database which displays the information
: : on a website. I want to substitute the /r or /n that the user enters
: : into the textarea with so its displayed correctly on the webpage.
: Note that if you replace \r and \n and someone posts it from a Windows box then you may well end up with double line breaks. Last time I did this I stripped out all \r's and s/\n//g'd it.
:
: : This isn't working and it looks to be my syntax.
: :

: : $test = $form{"event"};
: : $test ~= s/\r//g;
: : $test ~= s/\n//g;
: : 

: : As well, does substitution recognize /r or /n submitted in a
: : textarea?
: That should be =~, not ~=. Other than that, it should work but see what I said earlier.
:
Thanks for showing me the errors in my ways Jonathan! I've now changed it to the following but it still doesn't want to recognize the \n or \r from the textarea. hrm..

$test =~ s/\r/<br>/gs;
$test =~ s/\n/<br>/gs;

I'm not sure whether or not a return in a textarea is a \r or \n but i'm thinking its \r, thats why I am using both atm.

Thanks again!
David

: Jonathan
:
: ###
: for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
: (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
: /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");
:
:

: Thanks for showing me the errors in my ways Jonathan! I've now
: changed it to the following but it still doesn't want to recognize
: the \n or \r from the textarea. hrm..
:

: $test =~ s/\r/<br>/gs;
: $test =~ s/\n/<br>/gs;
: 

I'm not sure whether or not a return in a textarea is a \r or
: \n but i'm thinking its \r, thats why I am using both atm.
Not sure you need the s modifier on the end there. Other than that, I'm not entirely sure. The code you have should in theory work. I'd take a look at the exact contents of $test before the substitution and check that it does contain newline characters etc as you expect (write it to a file or print it or something). I don't know what form parsing code you use. I would expect what you put to work, it certainly matches what I've done in the past.

Jonathan

###
for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
(tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
/(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");