Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!matsu.nis.co.jp!aa.com!villon.nig.ac.jp!newssinet!icews5!kanazawa-it!ando
From: ando@rossini.infor.kanazawa-it.ac.jp (Tosikazu Ando)
Subject: Re: How to get argment value on cgi?
Sender: news@news.kanazawa-it.ac.jp (Network news)
Message-ID: <1996Mar16.054157.19763@news.kanazawa-it.ac.jp>
Date: Sat, 16 Mar 1996 05:41:57 GMT
References: <4ic2ao$dkh@typhoon.kki.esi.yamanashi.ac.jp>
Nntp-Posting-Host: rossini.infor.kanazawa-it.ac.jp
Organization: Kanazawa Institute of Technology, Japan
X-Newsreader: mnews [version 1.19] 1995-07/21(Fri)
Lines: 62
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:804
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=804&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$B$3$s$K$A$O(B
$B0BF#!w6bBt9)6HBg3X$G$9!#(B

<4ic2ao$dkh@typhoon.kki.esi.yamanashi.ac.jp>$B$N5-;v$K$*$$$F(B
e0113@koihime.esi.yamanashi.ac.jp$B$5$s$O=q$-$^$7$?!#(B

>>  $B$?$+$N!w$b$&B46H(B $B$H$$$$$^$9!#(B
>>  $B$3$3$KEj9F$9$k$N$OE,Ev$G$J$$$+$b$7$l$^$;$s$,!"<ALd$,$"$j$^$9!#(B
>>  HTML$BCf$G;H$&(BCGI$B$r(Bperl$B$r;H$C$F=q$/;~!"%9%/%j%W%H$KEO$90z?t$O(B
>>        sample.cgi?aaa+bbb+ccc
>> $B$N$h$&$K(B?$B$N8e$K0z?t$r(B+$B$G$/$.$C$F5-=R$9$l$PEO$;$k$3$H$rCN$j$^$7$?!#(B
>> $B$7$+$7!"(Bperl$B$N%9%/%j%W%HCf$G$I$&$d$C$F$3$N0z?t$r<h$j=P$9$N$+$,(B
>> $B$o$+$j$^$;$s!#(B

$B;d$O!"$3$s$J$s;H$C$F$^$9!"(B
sub decode {
    local(@pairs,$name,$value,$t,$name2,$str);
    $_ = $ENV{'QUERY_STRING'};
    @pairs = split(/&/,$_);
    foreach (@pairs) {
        ($name, $value) = split(/=/, $_);
        $value =~ tr/+/ /;
        $value =~ s/\%(..)/pack("C", hex($1))/eg;
        $value =~ s/&/&/g;
        $value =~ s/</</g;
        $value =~ s/>/>/g;
        if ($name eq "t")    {    $t    = $value; }
        elsif ($name eq "name") { $name2= $value; }
        elsif ($name eq "str")  { $str  = $value; }
    }
    return($t,$name2,$str);
}
$B$G!"(B
($t,$name,$str)=&decode();
$B$G!"<h$C$FMh$^$9!#(B

$BJX>h<ALd$J$s$G$9$,!"$3$l$N5U!"J8;zNs$+$i(B cgi $B$NJQ?t2=$r(B
$B9T$&$K$O$I$&$7$?$iNI$$$N$G$7$g$&$+!)(B
$BC1=c$K!"(B

$_="%a4%b3%a4%f3%a4%cb%a4%c1%a4%cf%a1%a2%b0%c2%c6%a3%a4%c7%a4%b9%a1%a3++++(^_^)+
;";
print "$_\n";

tr/+/ /;
s/\%(..)/pack("C", hex($1))/eg;
$_= `echo \'$_\' | nkf -e`;
print "$_";

@txt=unpack("C*",$_);
foreach(@txt) {
    $x=$x . sprintf("%%%02x",$_);
}
print "$x\n";

$B$3$N$h$&$K=q$/$HF|K\8l$H0l=o$K1Q8l(B($B!)(B)$B$NItJ,$^$G!"(B%?? $B$K(B
$BJQ$($F$7$^$C$F$H$C$F$b$+$C$3$o$k$$$N$G$9!#(B (g_g);
--
  From $B6bBt9)6HBg3X(B $B>pJs9)3X2J(B $BIpIt8&5f<<(B $B0BF#(B $BMxOB(B
  [mailto:ando@infor.kanazawa-it.ac.jp]
  [http://www.infor.kanazawa-it.ac.jp/~ando/index.html]
