From owner-FreeBSD-users-jp@jp.FreeBSD.org Fri Aug 19 23:21:14 2005
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id j7JELEJ42609;
	Fri, 19 Aug 2005 23:21:14 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from pxy2nd.nifty.com (pxy2nd.nifty.com [202.248.175.14])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with SMTP/inet id j7JELEI42604
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Fri, 19 Aug 2005 23:21:14 +0900 (JST)
	(envelope-from nonomura@nifty.com)
Received: (qmail 4663 invoked from network); Fri, 19 Aug 2005 23:21:10 +0900
Received: from unknown (HELO aps505.data.nifty.com) (172.22.60.225)
  by smb511.nifty.com with SMTP; Fri, 19 Aug 2005 23:21:10 +0900
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
  s=pxy2nd-default; d=nifty.com;
  b=URWCCLljSWyZpu31lJJkBQelg1EbFFYOs06NnNXGZB+MZkLCIu2pO01CgKTsBzSu6B+TPypwnnO0GjXu8UJo5Q==  ;
Message-ID: <5992741.1124461270725.nonomura@nifty.com>
From: nonomura@nifty.com
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: <20050819205326.8D3E.IMPULSE_MAIL@yahoo.co.jp>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
Priority: normal
X-Mailer: @nifty Webmail 2.0
References: <20050819205326.8D3E.IMPULSE_MAIL@yahoo.co.jp>
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Fri, 19 Aug 2005 23:21:10 +0900
X-Sequence: FreeBSD-users-jp 86681
Subject: [FreeBSD-users-jp 86681] Re: perl =?ISO-2022-JP?B?GyRCJEsbKEI=?=
 =?ISO-2022-JP?B?GyRCJEQkJCRGISMbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: nonomura@nifty.com
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+050320

$BLn!9B<$G$9!#(J

>$B$H$3$m$,!"0JA0F0:n$7$F$$$?(Jcgi$B$,F0:n$7$J$/$J$j$^$7$?!#(J
>CGI Checker$B$H8@$&(JCGI$B$G3NG'$7$?$i!"!V(Jperl$B$,<hF@$G$-$^$;$s$G$7$?!W(J
$B$^$:$3$N(JCGI Checker$B$,%a%C%;!<%8$r=PNO$7$F$$$kM}M3$rD4$Y$F$_$F$O(J
$B$I$&$G$7$g$&!#(J

$B$b$7(J
http://uttsu.com/20030724_1
$B$N(JCGI Checker$B$N$3$H$G$7$?$i!"(J

--
	print "<tr><th>$B%5!<%P!<$N(JPerl$B$N%Q%9(J";
	open(PROC, "which perl |");
	$_ = <PROC>;
	print "<td>", ($_ ? "$_\n" : "$B<hF@$G$-$^$;$s$G$7$?(J\n");
	close(PROC);
--
$B$J$s$F$$$&ItJ,$,$"$k$N$G!"(JCGI$B<+BN$N(Jperl$B$O<B9T$5$l$F$$$k$,!"(J
$B4D6-JQ?t(JPATH$B>e$K(Jperl$B$,$J$$!"$H8@$C$F$$$k$h$&$K8+$($^$9!#(J

$B$3$l$H0c$C$?$H$7$F$b;n$5$l$F$$$k$N$,(JCGI$B$G$9$+$i$J$<$=$N%a%C%;!<%8$,(J
$B=P$F$$$k$N$+$,$o$+$l$P<!$N%9%F%C%W$,8+$($F$/$k$G$7$g$&!#(J

