Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!infoweb-news!news.tokyo.infoweb.or.jp!rainbow!attesa!hori
From: hori@loop-x.gsh.co.jp (System#Hiroshi.Horiguchi)
Subject: Re: How to get argment value on cgi?
Message-ID: <DoFst3.BKL@loop-x.gsh.co.jp>
Originator: hori@attesa
Lines: 17
Sender: news@loop-x.gsh.co.jp
Nntp-Posting-Host: attesa
Organization: G-Search Ltd. Tokyo,Japan
X-Newsreader: mnews [version 1.19] 1995-07/21(Fri)
References: <4ic2ao$dkh@typhoon.kki.esi.yamanashi.ac.jp>
	<1996Mar16.054157.19763@news.kanazawa-it.ac.jp>
Date: Mon, 18 Mar 1996 00:17:27 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:806
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=806&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!!KY8}(B@G-Search $B$G$9!#(B

  in fj.lang.perl 1996/Sat/16(Sat)14:41 ando@rossini.infor.kanazawa-it.ac.jp wrote:
  | $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

$B!!$3$s$J$s$8$c$@$a$C$9$+!#(B

sub urlecd {
local($url) = @_;
$url  =~ s/([^\dA-Za-f=-])/"%".sprintf("%lx",unpack(C,$1))/eig;
$url;
}
-- 
  Hiroshi Horiguchi,           mailto:hori@gsh.co.jp 
  G-Search Ltd., System Dept.  <URL:http://www.g-search.or.jp/>
  Loop-x Bldg.9F 3-9-15 Kaigan Minato-ku Tokyo 108 Jp
  Phone: +81-3-5442-4385  Fax: +81-3-5442-4391
