Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!asahi-net!Q.T.Honey!aero.kyushu-u!kuee-news!odins-suita!itserv.it.okayama-u.ac.jp!elecnews!libero!yama
From: yama@biotech.okayama-u.ac.jp (Mamoru Yamanishi)
Subject: Re: FORM=?ISO-2022-JP?B?GyRCJEckTjx1JDFFTyQ3GyhC?=
Sender: news@plasma.elec.okayama-u.ac.jp
Message-ID: <yama-2502981043150001@libero.biotech.okayama-u.ac.jp>
Date: Wed, 25 Feb 1998 01:43:15 GMT
Content-Type: text/plain; charset=iso-2022-jp
References: <h9405186.2379b260YAT1@www.sss.com>
Nntp-Posting-Host: libero.biotech.okayama-u.ac.jp
Mime-Version: 1.0
Organization: Okayama Univ., Biotech. Dept.
X-Newsreader: NewsWatcher-J18 (2.1.6)
Lines: 39
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2789
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2789&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#H#T#M#L%U%!%$%k$N(BFORM$B$K$F!"2<5-$N0l9T$r2C$((BCGI$B$KAw$j$^$9!#(B
> $B$"$J$?$N%a!<%k%"%I%l%9$O!)(B <INPUT TYPE="text" NAME="mail">

> CGI$B$K$F2<5-$N$h$&$JO"A[G[Ns$G<u$1<h$j$^$9!#(B
> $mail=$go{'mail'};
> $B%a!<%k%"%I%l%9$K$O!V(B@$B!W$,4^$^$l$F$$$^$9$,!">e$NO"A[G[Ns$O(B
> $BF~NO$5$l$?(Babc@ntt.ne.jp$B$r@#J,0c$o$:<u$1<h$j$^$9$+!)(B

$B<u$1<h$C$?J8;zNs$N%G%3!<%I$O$A$c$s$H$5$l$F$$$k$N$G$7$g$&$+!)(B

$B!J8@MU$,@5$7$/$J$$$+$b$7$l$^$;$s$,!K(BCGI$B$,<u$1<h$kJ8;zNs$O(B
URL$B%(%s%3!<%G%#%s%0$5$l$F$$$k$H;W$$$^$9!#(B

$B2?$+$N%Q%C%1!<%8$r;H$C$F!"(BCGI$B$+$i$NF~NO$rO"A[G[Ns$K$7$?$b$N$r(B
$B;H$*$&$H$7$F$$$k$H$3$m$^$G$OH=$j$^$9$,!"$=$N%Q%C%1!<%8$O(B
$B%(%s%3!<%I$5$l$?J8;zNs$r%G%3!<%I$7$F$$$^$9$+!)(B

$B;d$O!":G6aJXMx$J$=$N<j$N%Q%C%1!<%8$OMxMQ$;$:$K!"(B

   if ($len = $ENV{"CONTENT_LENGTH"}) {
        sysread(STDIN, $post, $len);
   }
   @post=split("&",$post);
   undef(%FORM);

   foreach(@post) {
        ($name, $value)=split("=",$_);
        $value =~tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name}=$value;
   }

$B$H$7$F$$$^$9!#(B

$B$O$:$7$F$$$?$i$`$7$7$F$/$@$5$$!#(B

-- 
$B;3@>!!<i(B <yama@biotech.okayama-u.ac.jp>
086-251-8196, 086-251-8264(fax)
