Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news!news.kddnet.ad.jp!news.dvlp.kddnet.ad.jp!news.cs.ritsumei.ac.jp!igakukei!ume!hagi!chiba-ns!news.chiba-u.ac.jp!eclnews!sinetnews!newssinet!hakata!kudpc!sakunami!ayashi!kaneko
From: kaneko@ccedu.sendai-ct.ac.jp (Yutaka Kaneko)
Subject: Re: sleep
X-Nntp-Posting-Host: saikachi
Message-ID: <Dyn4M5.DqI@ayashi.cc.sendai-ct.ac.jp>
Lines: 64
Sender: news@ayashi.cc.sendai-ct.ac.jp (SNCT NetNews Manager)
Organization: Sendai National College of Technology
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <rv3k9taxxod.fsf@u-aizu.ac.jp>
	<DyMrzp.Bso@ayashi.cc.sendai-ct.ac.jp>
	<rv320fhstkw.fsf@u-aizu.ac.jp>
Date: Wed, 2 Oct 1996 08:51:41 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1307
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1307&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 <rv320fhstkw.fsf@u-aizu.ac.jp>
s1021044@u-aizu.ac.jp writes:
>> $BEDBe!w2qDEBg$G$9!#(B

>> $B6b;R$5$s(B>   while()$B$NA0$K!"(B
>> $B6b;R$5$s(B>     $| = 1;
>> $B6b;R$5$s(B> $B$G$bF~$l$F$*$1$PBg>fIW$G$7$g$&!#(B
>> 
>> $B$*$)!"$J$j$^$7$?!#$"$j$,$H$&$4$6$$$^$7$?!#$3$l$O(B while $B%k!<%W$,=*(B
>> $B$o$C$?8e$K(B 0 $B$KLa$7$F$*$$$?J}$,NI$$$b$N$J$s$G$7$g$&$+!)(B

  $|$B$O!"I8=`=PNO$r%P%C%U%!%j%s%0$9$k$+$N;XDj$G$9$+$i!"%P%C%U(B
$B%!%j%s%0$7$FM_$7$/$J$1$l$P(B0$B!"$7$F$[$7$1$l$P(B1$B$K$7$^$9!#(B

##  $B@53N$K$O!"(Bprint$BEy$N$?$S$K(Bflush$B$r<B9T$9$k!#$H8@$C$?J}$,$h$$$+$b(B

  perl$B$K8B$i$J$$;v$G$9$,!"%U%!%$%k$K%G!<%?$r=q$-9~$`>l9g!"(B
print, write$B$J$I$,<B9T$5$l$k$?$S$K=q$-9~$`$h$j$b!"0lDj%P%$%H(B
$B?t(B(1Kbyte$BEy(B) $B$N%G!<%?$,N/$^$C$?$H$3$m$G=q$-9~$s$@$[$&$,8zN((B
$B$,NI$/$J$j$^$9!#$3$l$r!V%V%m%C%/C10L$N%P%C%U%!%j%s%0!W$H8F$S(B
$B$^$9!#(B
  $B$^$?!"(Btty$B$X$N=PNO$K$*$$$F;H$o$l$kJ}<0$K!"2~9TJ8;z(B("\n")$B$,(B
$B=PNO$5$l$?$H$-$K!"<B:]$N=q$-9~$_$r9T$&!V9TC10L$N%P%C%U%!%s%j(B
$B%s%0!W$,$"$j$^$9!#(B
  $B$H$3$m$,BPOCE*$K=hM}$r$7$?$$>l9g$K$O!"(Bprint, write$B$J$I$r<B(B
$B9T$7$?$i$9$0$KI=<(!&=q$-9~$_$r$7$FM_$7$$>l9g$,$"$j!"$3$N$H$-(B
$B$O!V%P%C%U%!%j%s%0!W$r$7$F$[$7$/$J$$$o$1$G$9!#(B

  $B$=$&$$$&>l9g$K!"(Bperl$B$G$O!"(B$|$B$r;H$&$o$1$G$9!#(B
  Perl5(perl version 5)$B$@$H!"8z2L$O(B$|$B$X$NBeF~$HF1$8$@$1$l$I!"(B
autoflush$B$r;H$C$?$[$&$,$o$+$j$d$9$$%W%m%0%i%`$K$J$k$G$7$g$&!#(B
  C$B$G$"$l$P!"(Bsetbuf(3)$B$G%P%C%U%!%j%s%0J}K!$r;XDj$7$F$b$h$$(B
$B$7!"I,MW$J$H$-$K(Bflush(3)$B$r;H$C$F%P%C%U%!$KN/$^$C$F$$$k%G!<%?(B
$B$r=q$-=P$7$F$b$$$$$G$9$M!#(B


  $B$5$F!"F~NO$N>l9g$b%P%C%U%!%s%j%s%0$O9T$o$l$^$9!#(B
  $B$h$/LdBj$K$J$k$N$,!"%-!<F~NO$r(B1$BJ8;zC10L$G07$$$?$$>l9g$G!"(B
unix$B$@$H!"(Btty$B$OIaDL$O9TC10L$N%P%C%U%!%j%s%0$,9T$o$l$F$*$j!"(B
$B2~9T%-!<$,2!$5$l$k$^$G$O!"F~NO$5$l$?FbMF$r<u$1<h$k$3$H$,=PMh(B
$B$^$;$s(B(tty$B$,(Bcooked$B%b!<%I$N$H$-(B)$B!#(B
  $B$G(B1$BJ8;zF~NO$7$?$$>l9g$O!"(Btty$B$r(Braw$B%b!<%I$+!"(Bcbreak$B%b!<%I$K(B
$BJQ99$7$J$/$F$O$$$1$J$$!#%b!<%I$rJQ$($k$N$O$$$$$N$@$1$l$I!"%W(B
$B%m%0%i%`=*N;;~$K(Btty$B$r85$K$b$I$9!"$C$F$N$,7k9=$d$d$3$7$$$s$G(B
$B$9$h$M!#(B

##  $B$b$H$N%b!<%I$r3P$($F$*$/$H$+!"(B
##  $B%(%i!<=*N;;~!"3d$j9~$_<u?.;~$N=hM}$,$M!&!&!&!#(B

  $B$^!"$=$s$J$o$1$G!"(Btty($BC<Kv(B)$B$d%Q%$%W$G$NF~=PNO$N>l9g!"%P%C(B
$B%U%!%j%s%0$NM-L5$,LdBj$K$J$k$o$1$G$9$,!"4JC1$K8@$($P!"<B9T>u(B
$B67$J$I$r;~!99o!9$HI=<($7$?$$>l9g$O!"(B$|=1$B$7!"$=$&$G$J$1$l$P(B
$|=0$B$N$^$^$G$$$$$o$1$G$9!#(B

  $BI8=`=PNO0J30$N%U%!%$%k%O%s%I%k$N%P%C%U%!%j%s%0>uBV$rJQ99$9(B
$B$kJ}K!$K$D$$$F$O!"(Bperl$B$N(Bselect$B4X?tJU$j$N@bL@$rFI$s$G$/$@$5(B
$B$$!#(BPerl5$B$J$i(Bautoflush$B;H$($P$$$$$@$1$J$s$@$1$I!#(B

main(i,j){j=time(0);do for(i /*      $B6b;R(B $BM5(B(KANEKO Yutaka)             */
=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"));} /* $B6d;HEL(Bx10 $B6b;HEL(Bx0 $B6d%-%g%m(Bx0 $B6b%-%g%m(Bx1*/
