Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news!sonygw2!headgw!socslgw!daemon
From: kono@csl.sony.co.jp (Shinji Kono)
Subject: Re: goto bun ni kawarumono
Message-ID: <20517.826476012@irulan.csl.sony.co.jp>
Sender: daemon@nntp.csl.sony.co.jp (The devil himself)
Reply-To: kono@csl.sony.co.jp
Organization: Sony Computer Science Laboratory, Inc.
References: <960310121917.7686@pcvan.or.jp>
Date: Sun, 10 Mar 1996 16:40:21 GMT
Lines: 54
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:782
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=782&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.

$B2OLn(B $B??<#(B@CSL.Sony$B$G$9!#(B
In article <960310121917.7686@pcvan.or.jp> , 
NUN94104@pcvan.or.jp writes 
>#  END$B%i%Y%k$,8+$D$+$i$J$$$H%(%i!<$,=P$F=hM}$,;_$^$C$F$7$^$&(B

END$B$OM=Ls8l$J$s$8$c$J$+$C$?$+$J(B? perl5 $B$G$O!"$I$&$;0z$C$+$+(B
$B$j$^$9$+$i!"(BEND$B$O;H$o$J$$J}$,$$$$$G$9!#KM$@$C$?$i%V%m%C%/$N(B
$BA0$K%V%m%C%/$N30$+$i;2>H$9$k$h$&$J%i%Y%k$rIU$1$k$N$@$C$?$i(Bsubroutine
$B$K$7$^$9!#(B

>#$B$3$l$O<B:]$N%9%/%j%W%H$G$O$"$j$^$;$s!#(B

$B$=$&$G$7$g$&$M!#(Bsyntax error $B$,B?$9$.$F!"$3$N%9%/%j%W%H$8$c(B
$BNI$/J,$+$i$J$$!#$,!"2?$H$J$/D>$9$H(Bperl5$B$G$OF0$-$^$9$M!#(B

perl4.036$B$d(Bjperl$B$G$O%i%Y%k$,$J$$$H$$$o$l$^$9!#$3$$$D$O;EMM(B
$B$G$9$M!#(B

     goto LABEL
             Finds the statement labeled with LABEL and resumes
             execution there.  Currently you may only go to
             statements in the main body of the program that are
             not nested inside a do {} construct.  


>  $B%i%/%@%\%s$d#j#p#e#r#l$N%I%-%e%a%s%H$G$b(Bgoto$BJ8$O?J$a$i$l$F(B
>$B$^$;$s$N$G!"=$@5$7$?$$$N$G$9$,!"0J2<$N$h$&$J9=B$$G(Bgoto$BJ8$K(B
>$BJQ$o$k$h$&$J@)8f$,$"$j$^$9$G$7$g$&$+!)(B

$B$3$NNcBj$J$iJL$K(Bgoto$B$K$9$kI,MW$b$J$/!"$=$N>l$G(Bexit$B$9$l$P$$$$$o$1$G$9$1$I$M!#(B
last $B$GH4$1$F$*$$$F!"$"$H$G>r7o$rH=CG$9$k$H$$$&$N$bNI$/$d$j$^$9!#(B
      toplevel:  while(<>) {
  while(<a>) {
      while(<b>) {
    last toplevel;
              }
  }
      }
      if($BK\Ev$N=*$o$j$8$c$J$$(B) {
        do $B8e;OKv(B;
      }
$B$C$F$J46$8!#(B(do..while$B$G$O!"$3$$$D$O;H$($J$$(B.. $B$3$l$b$O$^$k(B
$B$H$3$m$+$bCN$l$J$$$J(B) 

$B%(%i!<=hM}$r$7$?$$$N$J$i(Beval$B$r;H$C$?Bg0hC&=P$r;H$$$^$9!#$3$l$O(B
$B>oEe<jCJ!#(B

perl4$B$NJ}$O5!G=$,>.$5$$J,$@$1=i?4<T8~$-!"(Bperl5$B$O$J$s$G$b=PMh(B
$B$kJ,%W%mMQ$C$F46$8$b$7$^$9$M!#(BC++$B$K;w$F$J$$$@$1(Bjava$B$h$j$O9%(B
$B$-$+$bCN$l$J$$!#(B

---
Shinji Kono                              kono@csl.sony.co.jp
$B2OLn??<#(B Sony Computer Science Laboratory, Inc,Japan
