Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!spin-hsd0-tky!newssv1!news
From: NUN94104@pcvan.or.jp
Subject: goto bun ni kawarumono
Sender: news@newssv1.pcvan.or.jp (NetNews System)
Message-ID: <960310121917.7686@pcvan.or.jp>
Date: Sun, 10 Mar 1996 03:19:21 GMT
Nntp-Posting-Host: localhost
Organization: PC-VAN, japan
X-Newsreader: PC-VAN INETNEWS Ver 1.13
Lines: 41
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:780
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=780&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.

$B$$$D$b<ALd$7$F$$$k>eED$G$9!#$^$?$h$m$7$/$*4j$$$$$?$7$^$9(B
  $B%=%i%j%9(B2.4$B!!(Bperl14$B$+$i(Bjperl$B$K:\$;JV$F(Bgoto$BJ8$,$&$^$/(B
$B$&$4$+$J$/$J$C$F$7$^$$$^$7$?!#(B
#  END$B%i%Y%k$,8+$D$+$i$J$$$H%(%i!<$,=P$F=hM}$,;_$^$C$F$7$^$&(B

  $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$l$O<B:]$N%9%/%j%W%H$G$O$"$j$^$;$s!#(B

$B!!%a!<%k$rFI$a$k4D6-$+$i$7$P$i$/$H$&$6$+$C$F$7$^$&$N$G(B
$B>pJs$r$*$b$A$N$+$?$O!"%K%e!<%9$K%]%9%H$7$F$$$?$@$1$k$H(B
$B$&$l$7$$$G$9!#(B#$B%K%e!<%9$OFI$a$^$9!#(B
{
$ret=0;
$res="OK";
$max=3;
$loop=0;
while( $loop < $max ){
$res=&kankiyoucheck# res$B$K$O(B"OK"or"NG"$B@_Dj(B
if( $res =~ /NG/ ){
$ret=-1";
goto END;
}
loop++;
}
$res=&check# res$B$K$O(B"OK"or"NG"$B@_Dj(B
if( $res1 =~ /NG/ ){
print "NG\n";
}else{
print "OK\n";
}

END:{
if( $ret < 0 ){
print "$B5/F0>r7o$,4V0c$C$F$$$^$9(B\n";
}
exit 0
}
}
(B
