Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!decwrl!intertech-nh!utashiro
From: utashiro@InterTech.COM (Kazumasa Utashiro)
Subject: Re: Please help me.
Message-ID: <1992May19.060550.12412@InterTech.COM>
Organization: InterTech Data Systems, Inc., Cupertino, CA
References: <KOSHIBA.92May19104402@fujiyama.iias.flab.fujitsu.co.jp>
Distribution: fj
Date: Tue, 19 May 1992 06:05:50 GMT
Lines: 48
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:38
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=38&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.

In article <KOSHIBA.92May19104402@fujiyama.iias.flab.fujitsu.co.jp>
koshiba@iias.flab.fujitsu.co.jp (Takeshi Koshiba) writes:
>$B0J2<$N$h$&$J%W%m%0%i%`$r(B $tmpfile $B$d(B $datafile $B$N$h$&$J0l;~E*$J%U%!(B
>$B%$%k$rMQ$$$:$K<B8=$9$kJ}K!$,$"$l$P!$%"%I%P%$%959$7$/$*4j$$CW$7$^$9!%(B

$B%G%C%I%m%C%/$rHr$1$k$?$a$K$O(B fork $B$7$J$$$H$$$1$^$;$s$M!#%(%i!<(B
$B=hM}$r$O$7$g$l$P!"$3$N$/$i$$$G$G$-$^$9!#(B

@data = `cat /etc/passwd`;
unless (open(IN, '-|')) {
open(OUT, '|-') || (exec("/bin/cat -n"), exit $!);
print OUT @data;
exit;
}
print <IN>;

$B$A$c$s$H9M$($k$J$i<!$N$h$&$J46$8$K$J$k$G$7$g$&$+!#(B

@old_data = `cat /etc/passwd`;

$child = open(IN, '-|');
die "$!\n" unless defined($child);
if ($child == 0) {
$child = open(OUT, '|-');
exit $! unless defined($child);
if ($child == 0) {
exec("/bin/cat -n");
exit $!;
}
print OUT @old_data;
close(OUT);
exit $? >> 8;
}

while (<IN>) {
push(@new_data, $_);
}
close(IN);

die "cat: $!\n" if $! = $? >> 8;

print @new_data;

$B<B9T$9$k%3%^%s%I$,(B diff $B$@$C$?$j$9$k$H!"$3$N$^$^$G$O:$$j$^$9!#(B

FAQ $B$N(B 20) $B$bFI$s$G2<$5$$!#(B

--utashiro
