2008-10-10から1日間の記事一覧
sleep関数を覚えたので、試しにこんなのを作ってみた。 #!/usr/bin/perl use strict; use warnings; while(){ my $delaytime = int( rand(60) ); print "sleeping $delaytime second\n"; for(my $i=0;$i<$delaytime;$i++){ sleep(1); print '.'; } print "\n…
sleep関数を覚えたので、試しにこんなのを作ってみた。 #!/usr/bin/perl use strict; use warnings; while(){ my $delaytime = int( rand(60) ); print "sleeping $delaytime second\n"; for(my $i=0;$i<$delaytime;$i++){ sleep(1); print '.'; } print "\n…