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: <1992May20.203943.27412@InterTech.COM>
Organization: InterTech Data Systems, Inc., Cupertino, CA
References: <KOSHIBA.92May19104402@fujiyama.iias.flab.fujitsu.co.jp> <1992May19.060550.12412@InterTech.COM>
Distribution: fj
Date: Wed, 20 May 1992 20:39:43 GMT
Lines: 16
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:42
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=42&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 <1992May19.060550.12412@InterTech.COM> I write:
>@data = `cat /etc/passwd`;
>unless (open(IN, '-|')) {
>open(OUT, '|-') || (exec("/bin/cat -n"), exit $!);
>print OUT @data;
>exit;
>}
>print <IN>;

$BJQ$@$J$"!"$I$&$7$F$3$s$JLLE]=-$$$3$H$r$7$?$s$@$m$&(B?

@data = `cat /etc/passwd`;
open(IN, '-|') || (open(STDOUT, "|/bin/cat -n") && print(@data), exit);
print <IN>;

--utashiro
