Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!kbtmx.eto.kubota.co.jp!kubotaj!news
From: hiramoto@kubota.co.jp (=?ISO-2022-JP?B?GyRCSj9LXDh3RnMbKEI=?= /
 HIRAMOTO Kouji)
Subject: Re: [Q] WHILE
Content-Type: text/plain; charset=ISO-2022-JP
Organization: Kubota Corporation
Date: Mon, 1 Apr 1996 04:02:54 GMT
Message-ID: <sxhgv4d21d.fsf@xavier.tt.kubota.co.jp>
Mime-Version: 1.0
In-Reply-To: t94m075g@ccn.yamanashi.ac.jp's message of Sun, 31 Mar 1996 15:30:41 GMT
X-Newsreader: Gnus v5.0.15
References: <t94m075g.20810358YAT1@bunpc14.ccn.yamanashi.ac.jp>
Sender: hiramoto@xavier.tt.kubota.co.jp
Nntp-Posting-Host: xavier
Lines: 26
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:828
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=828&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.

$BJ?K\!w%/%\%?(B $B$G$9!#(B


In article <t94m075g.20810358YAT1@bunpc14.ccn.yamanashi.ac.jp>
t94m075g@ccn.yamanashi.ac.jp (Mitsuru Tamakoshi) writes:

 -> $B!!(Bwhile $B$r;H$C$F%U%!%$%k$r#19T$:$DFI$_9~$`J}K!$,$"$j$^$9$,!"$=$N5U(B
 -> $B$N!"%U%!%$%k$N2<$NJ}$N9T$+$i=g$KFI$_9~$`J}K!$,J,$+$j$^$;$s!#$4B8$8(B
 -> $B$NJ}!"65$($F$/$@$5$$!#$*4j$$$7$^$9!#(B

  $B0lHVC1=c$@$H;W$o$l$kJ}K!!#(B
$B!t(B push $B$G$$$$$+$H;W$C$?$i5U$@$C$?!#(B(^^;)

#! /usr/local/bin/perl

while (<>) {
    @A = ($_, @A);
}
foreach $_ (@A) {
    print $_;
}

 -----
 $BJ?K\(B $B8wFs(B / $B$_$s$H(B No.25
  ($B3t(B)$B%/%\%?(B $B%3%s%T%e!<%?;v6H?d?J<<(B
      E-Mail: hiramoto@kubota.co.jp
