Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!ccut!wnoc-tyo-news!virgil!ccgwy!ccgwy!itoh
From: itoh@ohm.ee.uec.ac.jp (Shuichi Itoh)
Subject: Re: Please help me.
References: <KOSHIBA.92May19104402@fujiyama.iias.flab.fujitsu.co.jp>
Nntp-Posting-Host: 130.153.13.2
Message-ID: <ITOH.92May20022714@ohm.ee.uec.ac.jp>
Organization: The University of Electro-Communications, Tokyo, Japan.
In-Reply-To: koshiba@iias.flab.fujitsu.co.jp's message of 19 May 92 
    01:44:02 GMT
Sender: news@ccgwy.cc.uec.ac.jp (Internet news)
Distribution: fj
Date: Tue, 19 May 1992 17:27:14 GMT
X-Bytes: 1037
Lines: 40
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:40
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=40&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.

>>>>> On 19 May 92 01:44:02 GMT, koshiba@iias.flab.fujitsu.co.jp
>>>>> (Takeshi Koshiba) said:

$B>.<F(B> $B0J2<$N$h$&$J%W%m%0%i%`$r(B $tmpfile $B$d(B $datafile $B$N$h$&$J0l;~E*$J%U%!(B
$B>.<F(B> $B%$%k$rMQ$$$:$K<B8=$9$kJ}K!$,$"$l$P!$%"%I%P%$%959$7$/$*4j$$CW$7$^$9!%(B

$B>.<F(B> open(OUT, "> $datafile");
$B>.<F(B> foreach $i ( @data ) { print OUT $i; }
$B>.<F(B> close(OUT);
$B>.<F(B> system("program < $datafile > $tmpfile");
$B>.<F(B> open(RSLT, "$tmpfile");
$B>.<F(B> @result = <RSLT>;
$B>.<F(B> close(RSLT);
$B>.<F(B> unlink "$tmpfile";
$B>.<F(B> unlink "$datafile";

open(OUT, "|-") && &first();
open(RSLT, "program|") && &second();

sub first {
    foreach $i ( @data ) { print OUT $i; }
    close(OUT);
    wait();
    exit(0);
}

sub second {
    @result = <RTSLT>;
    .... ;
    exit(0);
}

$B$J$I$H=q$/$h$j!$AGD>$K0l;~%U%!%$%k$r0l$D$O:n$C$?J}$,J,$jNI$$$N$G$O$J$$(B
$B$G$7$g$&$+!)(B

--
--------
$BEE5$DL?.Bg3X(B $BEE;R9)3X2J(B  $B0KF#(B $B=(0l(B
 itoh@ee.uec.ac.jp
