Cannot get the korean value that was posted to CGI

kumarpl

CASE-1: From a CGI window, when I open another CGI window using window.open() and post a korean value [ encoded using Javascript encodeURI() ] through the URL, and then if I read the input using PERL from
STDIN, I dont receive the original Korean string. I see some junk content.

CASE-2: On the other side, if I post the Korean value [ encoded with EUC_KR ] using Java to the same CGI window, I could get my original Korean string from the PERL STDIN. In this case, I am before posting
it to the CGI.

For the both the above cases the web server used is Apache (2.0.54)
Is there any way to resolve CASE-1?

kumarpl

CASE-1: From a CGI window, when I open another CGI window using window.open() and post a korean value [ encoded using Javascript encodeURI() ] through the URL, and then if I read the input using PERL from
STDIN, I dont receive the original Korean string. I see some junk content.

CASE-2: On the other side, if I post the Korean value [ encoded with EUC_KR ] using Java to the same CGI window, I could get my original Korean string from the PERL STDIN. In this case, I am before posting
it to the CGI.

For the both the above cases the web server used is Apache (2.0.54)
Is there any way to resolve CASE-1?

GunnarH

Without code, that illustrates the problem, it's hard to understand what you mean. But the document, from which you submit the form with Korean characters, should better have the content-type text/html; charset=EUC_KR.

kumarpl

I am using PERL 5.6 for CGI (Server script).
When a query string containing Korean values is POSTed, the following code gives me the values in ANSI form.
As a result, the I get junk values.
My problem is to read these Korean values properly and not as junk.

Expand|Select|Wrap|Line Numbers

 if ($ENV{'REQUEST_METHOD'} eq 'POST') {

    read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});

}

else {

    $buf=$ENV{'QUERY_STRING'};

}
 
@fval=split(/&/,$buf);

foreach $i (0 .. $#fval){

    ($name,$val)=split (/=/,$fval[$i],2);

    $val=~tr/+/ /;

    $val=~ s/%(..)/pack("c",hex($1))/ge;

    $name=~tr/+/ /;

    $name=~ s/%(..)/pack("c",hex($1))/ge;
 
    if (!defined($field{$name})) {

        $field{$name}=$val;

    }

    else {

        $field{$name} .= ",$val";

    }

}

GunnarH

Quote:

Originally Posted by kumarpl

When a query string containing Korean values is POSTed, the following code gives me the values in ANSI form.
As a result, the I get junk values.

I don't know very much about working with Korean characters, but I have a strong feeling that you are not supposed to use them directly anywhere in a URL. What you can do is including the URI escaped equivalent of the octets that represent the Korean string.

Please consider the following script:

Expand|Select|Wrap|Line Numbers

 #!/usr/bin/perl
 
$ENV{QUERY_STRING} = 'kr_string=%B6%F3%C0%CC%C7%C1%C0%CE%C4%DA%B8%AE%BE%C6';
 
use CGI;                 # Note that these three

my $cgi = CGI->new;      # lines replace all the

my %field = $cgi->Vars;  # code you posted
 
print $cgi->header(-type=>'text/plain', -charset=>'EUC-KR');

print "kr_string: $field{kr_string}\n";

Cannot get the korean value that was posted to CGI

re: Cannot get the korean value that was posted to CGI

re: Cannot get the korean value that was posted to CGI

re: Cannot get the korean value that was posted to CGI

re: Cannot get the korean value that was posted to CGI

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about