Hi All,
CGI;
Mime::Lite;
I am trying to take the input from a text field from a html page and
send it as an email. The text contains a UK sterling £ sign. It looks
fine on in the html page but when I send the mail or output the text
to STDERR, it gets transformed into this: £
Here are a few of the lines from the script:
33 my $str = $q->param('pro');
34 my ($p) = ($str =~ /THIS IS GOING TO COST (.*)320/);
35 my $o = ord($p);
36 my ($hex) = unpack( 'H', $p);
37 print STDERR "Text=",$q->param('pro')," \"$p\" $hex $o\n";
And this is the output:
Text=THIS IS GOING TO COST £320 "£" c 194
I am a bit lost by this as I thought CGI did the heavy lifting with
character-encoding. Can anyone give me some pointers?
TIA,
Dp.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
