Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!ccut!s.u-tokyo!is.s.u-tokyo!kaoru
From: kaoru@is.s.u-tokyo.ac.jp (Kaoru MAEDA)
Subject: Re: setjmp & longjmp
References: <KAZU.92Apr8090523@ribbon.csrd.nkk.co.JP>
Nntp-Posting-Host: poplar
Message-ID: <1992Apr9.100938.569@kei.is.s.u-tokyo.ac.jp>
Reply-To: kaoru@is.s.u-tokyo.ac.jp
Organization: Dept. of Information Science, Univ. of Tokyo, Japan.
In-Reply-To: kazu@csrd.nkk.co.JP's message of Wed, 8 Apr 1992 09:05:23 JST
Sender: news@kei.is.s.u-tokyo.ac.jp (Usenet News System)
Distribution: fj
Date: Thu, 9 Apr 1992 10:09:35 GMT
X-Bytes: 771
Lines: 27
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:50
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=50&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 <KAZU.92Apr8090523@ribbon.csrd.nkk.co.JP>
kazu@csrd.nkk.co.JP (Kazunari "ISSEY" Nakamura) writes:

 >perl$B$G(BSubject:$B$K=q$$$F$"$k$h$&$JBg0hC&=P$r$7$?$$$N$G$9$,!"$I!<$9$l$PNI(B
 >$B$$$N$+NI$/H=$j$^$;$s!#(B
 >
 >$B$H$"$kBPOC7?$N%3%^%s%I%$%s%?%W%j%?$r:n$C$F$$$^$7$F!"%3%^%s%I<B9TCf$K3d(B
 >$B$j9~$_%7%0%J%k$,H/@8$7$?;~$K%3%^%s%IF~NOBT$A$KLa$7$?$$$N$G$9!#(B

Perl $B$N(B goto $B$OBg0hE*$KF0$1$k$H;W$$$^$9!#(B

hoehoe: while (1) {
    print ++$i;
    &whee;
    print "---\n";
    exit(0) if $i == 8;
}

sub whee {
    goto hoehoe if $i == 3;
}
--
----------------------------------------
 $BA0ED(B  $B70(B      kaoru@is.s.u-tokyo.ac.jp
 $BEl5~Bg3XBg3X1!M}3X7O8&5f2J>pJs2J3X@l96(B
----------------------------------------
