Perlについての質問箱 37箱目at TECH

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
600:デフォルトの名無しさん 08/09/04 23:19:54 名前を変えてるのでcompareで比較がしたいのです 助けて下しア 601:デフォルトの名無しさん 08/09/04 23:21:56 compareって何だよ 602:デフォルトの名無しさん 08/09/04 23:22:18 >>598 webprog板池よ 603:改良版ですよ１ 08/09/04 23:42:40 use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; use Encode; use bigint; use feature qw( :5.10 ); system q|cls|; use Win32::Sound; my $a=2,$c,$d,$f; print "２を何乗させたいのか、数字を入力してくだしあ(例：５００）＞"; $f=<STDIN>; chomp $f; my $e=$f;$d=$e-1; $c=&aaa;&bbb; Win32::Sound::Play("file.wav"); sub aaa{ for (my $b=1;$b<=$d;$b=$b+1){ say "２の".$e."乗を計算してみますですよ．．．"; say "今、２の".$b."乗目の計算中ですよ．．．"; say $a; $a=$a*2; system q|cls|; } return $a } sub bbb{ say "結果が出ましたですよ．．．\n"; say "２の"."$e"."乗は　".$c."　ですよ．．．"; say "あと、結果の出力を画面の真ん中に出すやり方をおしえてくだしあ\n"; }

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch