- 1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
( WEBプログラミング板 pc11.2ch.net/php/ )
CGIの質問は答えが Perlと全然関係ない話に帰着する場合が
多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2008/08/11 現在の最新版（安定版）: 5.10.0
● 2008/08/11 現在の開発版: 5.9.5
▼ 前スレ
Perlについての質問箱 36箱目
pc11.2ch.net/test/read.cgi/tech/1215569470/
リンク集は>>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは>>5-6 あたり
- 107 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 10:06:33 ]
- perlってさ、clsってないんだね。
ゲーム作れないジャン。
- 108 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 10:29:38 ]
- 自己レス
過去ログ読んだらあったわ
system q|cls|;
これでCLSできる。やりー
- 109 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 10:41:31 ]
- use feature qw( :5.10 );
use Time::HiRes 'sleep';
$|=1;
#----------------------------------
system q|cls|;
sleep(1);
my @a;
@a=('a','b','c','d','e');
my $b;
foreach $b (@a){
say $b;
sleep(1);
}
↑これで、画面をｃｌｓで消して、
キレイにしてから、ゆっくりと文字を出力できるよ。
感動。
- 110 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 10:53:13 ]
- use warnings;
use strict;
use diagnostics;
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
use feature qw( :5.10 );
use Time::HiRes 'sleep';
$|=1;
#----------------------------------
system q|cls|;
my @a;
@a=('ささやき','えいしょう','いのり','ねんじろ！');
my $b;
foreach $b (@a){
sleep(1);
say $b;
}
sleep(3);
say qq|\n\n勇者は灰になりました\n|;
↑やった！ウイザードリーだ！
|
 |
