Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!wnoc-sfc-news!venus.sun.com!cs.utexas.edu!news.sprintlink.net!news.gdbnet.ad.jp!sinetnews!newssinet!hakata!kudpc!sakunami!ayashi!kaneko
From: kaneko@ccedu.sendai-ct.ac.jp (Yutaka Kaneko)
Subject: Re: closure or code object in Perl
X-Nntp-Posting-Host: saikachi
Message-ID: <D9HJ2D.5Ex@sendai-ct.ac.jp>
Lines: 24
Sender: news@sendai-ct.ac.jp (SNCT News System)
Organization: Sendai National College of Technology, Sendai JAPAN.
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <OZAWA.95Jun1162626@prince.pe.u-tokyo.ac.jp>
Date: Thu, 1 Jun 1995 08:18:12 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:400
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=400&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.

  $B6b;R!w@gBfEEGH$G$9!#(B

In article <OZAWA.95Jun1162626@prince.pe.u-tokyo.ac.jp>
ozawa@prince.pe.u-tokyo.ac.jp writes:
>> $B>._7!wElBgB$J<$G$9!#(B
$BCfN,(B
>> $B$J$I$H$7$F$*$$$F!"$"$H$+$i!"$*$O$8$-$N0\F0%k!<%A%s$G!"Kh2s(B
>> eval $code;
>> $B$H$d$C$F$$$k$N$G$9$,!"$3$l$rA0$b$C$F(B
>> $subobj = eval "sub { $code }";
>> $B$H%3%s%Q%$%k$7$?J*$rMQ0U$7$F!"0\F0%k!<%A%s$G$O!"(B
>> &$subobj;
>> $B$H$9$k$H!"9bB.2=$,4|BT$G$-$k$N$G$O$J$$$+$H;W$$$^$7$?!#$,!"$d$C$F$_$?J}(B
>> $BK!$G$O$&$^$/$$$-$^$;$s$G$7$?!#(B

  $B:G=i$K!"(B
eval "sub aaa {$code};"

$B$H$7$F$*$$$F(B &aaa $B$G8F$S=P$7$F$_$F$O$I$&$G$7$g$&!)(B

main(i,j){j=time(0);do for(i /*      $B6b;R(B $BM5(B(Yutaka Kaneko)           */
=0;i<79;i++)printf(j%512>>4? /* Sendai National College of Technology */
" ":"*"),j=j*331+113;while(  /*    kaneko@cc.sendai-ct.ac.jp          */
printf("\n\033[H\033[1L"));} /* or kaneko@akiu.gw.tohoku.ac.jp        */
