Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.nc.u-tokyo.ac.jp!t-server!escargot!cryst!alps!paris!newssinet!ccews7!itserv.it.okayama-u.ac.jp!elecnews!libero!yama
From: yama@biotech.okayama-u.ac.jp (Mamoru Yamanishi)
Subject: Re: a CGI problem
Sender: news@plasma.elec.okayama-u.ac.jp
Message-ID: <yama-2301971958200001@libero.biotech.okayama-u.ac.jp>
Date: Thu, 23 Jan 1997 10:53:34 GMT
Content-Type: text/plain; charset=iso-2022-jp
References: <JUN.97Jan23181139@crick.nih.go.jp>
Nntp-Posting-Host: libero.biotech.okayama-u.ac.jp
Mime-Version: 1.0
Organization: Okayama University
X-Newsreader: NewsWatcher-J 2.0J16
Lines: 38
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1644
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1644&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.

>$| = 1;
>open(CMD,"| filter");
>print "content-type: text/html\n\n";
>print "<pre>\n";
>print CMD $data;
>print "</pre>\n";
>
>$B%G%U%)%k%a$9$k$H$3$N$h$&$J$b$N$J$N$G$9$,!"(B
>$B$J$<$+(B"</pre>"$B$r(Bprint$B$9$k$H!'(B
>
><pre></pre>
>filtered data...
>
>$B$H$$$&>uBV$K$J$C$F$7$^$$$^$9!#(B
>$B8=:_$O(B"</pre>"$B$r(Bprint$B$7$J$$$3$H$GLdBj$r2sHr$7$F$$$^$9$,!"(B
>$B$$$C$?$$2?$,$$$1$J$$$N$G$7$g$&$+!)(B

$B%Q%$%W$r;H$C$F%3%^%s%I$r(BOPEN$B$9$k$HFbItE*$K(Bfork$B$7$FJL%W%m%;%9$K$J$k$N$G$O(B
$B$J$$$G$7$g$&$+!#HyL/$J%?%$%_%s%0$G!"%3%^%s%I$,I8=`=PNO$K=PNO$9$kA0$K(B
$BK\BN$NJ}$,(B</pre>$B$r<B9T$9$k$N$@$H;W$$$^$9!#(B

$B$?$V$s!"4uK>$N$3$H$rK\3JE*$K$9$k$K$O!"(BPIPE$B$G0lAH$N%Q%$%W$rMQ0U$7$?8e!"(B
fork$B$7$F!"?F;R$G$=$l$>$l$N(BPIPE$B$NC<$r%/%m!<%:$7$F!";RB&$N%W%m%;%9$G(B
$BI8=`F~=PNO$r(BPIPE$B$K:F%*!<%W%s8eE,Ev$JJ}K!$G%3%^%s%I$r5/F0!"$*$dB&$G(B
PIPE$B$K%G!<%?!<$,>h$k$^$G$^$D!"!"!"!J$[$s$^$+$$$J!)!K$H$$$&$h$&$J(B
$BJ#;($J$3$H$,I,MW$J$-$,$7$^$9!J4V0c$C$F$$$?$i;XE&$7$F2<$5$$!K(B

$B$3$s$J$N$O$I$&$G$7$g$&$+!#(B

print "<pre>\n";
print `echo \"$data\" | filter`;
print "</pre>\n";

-- 
Mamoru Yamanishi
Biotech. Dept., Eng. Fac., Okayama Univ.
+81-86-251-8196(voice) & +81-86-253-7399(GIII fax)
yama@biotech.okayama-u.ac.jp
