Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト455:デフォルトの名無しさん 07/05/07 01:17:53 >>454 いいからFile::Specを使え。 456:デフォルトの名無しさん 07/05/07 01:19:48 >>454 いや、可読性が低下するから、いったん配列に入れてからスライスした方がいいと思うぞ 上のは遊びなんだから 457:デフォルトの名無しさん 07/05/07 02:28:37 こういうよくありそうな処理が案外スラっとかけないもんなんだね。 Dだと [0 .. $ - 1] でいけるんだが。 458:デフォルトの名無しさん 07/05/07 05:57:16 >>456 しかし落ち着いて俯瞰すればこういう雑用の可読性を気にする時点でそのソース全体が残飯ですね。 459:デフォルトの名無しさん 07/05/07 08:33:53 超初心者でふが良いですか？ 標準のキーボードから入力を受け取ってどうやれば入力を反映させれるかわからないです･･･ #!/usr/local/bin/perl -w require 'jcode.pl'; print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n"; while(<>){ if($_=m/3/){print"これはこねこ"}; }; ↑これでは３を入力するたびに、これはこねこって出てくるんですが、 #!/usr/local/bin/perl -w require 'jcode.pl'; print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n"; while(<>){ if($_=m/3/){print"これはこねこ";$kyara=3} elsif($_=m/2/){print"これはゴーレム";$kyara=2}; }; これのelsif文が実行されないぽいんですがなんででふか？ 頭硬くてすみません･･･ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch