Perlについての質問箱 35箱目

1 名前：デフォルトの名無しさん mailto:sage [2008/04/20(日) 16:01:21 BE:176880454-DIA(100004)] "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/04/20 現在の最新版: 5.10.0 ● 2008/04/20 現在の開発版: 5.9.5 ▼ 前スレ Perlについての質問箱 34箱目 pc11.2ch.net/test/read.cgi/tech/1199977642/ 175 名前：デフォルトの名無しさん mailto:sage [2008/05/19(月) 11:54:52 ] バッファリングされてるから 176 名前：デフォルトの名無しさん [2008/05/19(月) 11:56:39 ] >>175 どういうことでしょうか？ もし正しくバッファリングされるのならflockなどの排他制御は不要な気が…。 すいませんがもう少し詳しくお願いします。 177 名前：デフォルトの名無しさん mailto:sage [2008/05/19(月) 12:05:50 ] どのタイミングでflush()されるかわからないのに、それに依存しちゃダメでしょ ちゃんと排他制御しなよ 178 名前：デフォルトの名無しさん [2008/05/19(月) 12:27:50 ] なんとなーく分かりました。ありがとうございました 179 名前：デフォルトの名無しさん mailto:sage [2008/05/20(火) 19:30:53 ] cryptの返り値はsaltと同じ半角英数字、半角スラッシュ、半角ピリオドの範囲で salt2文字と残り11文字ってことでってますでしょうか。 180 名前：デフォルトの名無しさん [2008/05/20(火) 19:31:58 ] あってますでしょうか、の誤字でした。あとあげます。 181 名前：デフォルトの名無しさん mailto:sage [2008/05/20(火) 20:50:16 ] いいえ。ホストのcrypt(3)に依存です。 182 名前：デフォルトの名無しさん mailto:sage [2008/05/20(火) 20:53:22 ] マニュアルを読むのは身分の低い下賎の民の仕事なので、 高貴な方々は、他人にマニュアルを読ませます。 183 名前：デフォルトの名無しさん mailto:sage [2008/05/20(火) 21:02:57 ] だからいつまでたっても 184 名前：デフォルトの名無しさん mailto:sage [2008/05/20(火) 23:59:36 ] これだからゆと（ｒｙ 185 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 01:05:07 ] 言っても無駄だから、適当にヒントなり与えてスルーしようよ。 186 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 01:13:28 ] >>182　職業に貴賎なし。 だが、海外にも目を向けるとインプリする人はいっぱいいるから、 そういう志向はありだと思う。 187 名前：デフォルトの名無しさん [2008/05/21(水) 18:46:46 ] ファイルテスト演算子を再定義することって可能でしょうか？ 188 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 20:52:09 ] むり 189 名前：デフォルトの名無しさん [2008/05/22(木) 01:15:29 ] 「独習　perl」を一冊 やり通したのですが、次は何をすべきでしょうか？ perlの機能を覚えただけで実用的な使い方は学べていません。 次は何をしたらいいでしょうか？ 190 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 01:28:32 ] 何かを作る。 ファイルの一括処理プログラムとか、板違いではあるがCGIなんかでもいい。 191 名前：デフォルトの名無しさん [2008/05/22(木) 03:09:43 ] 自分が何をしたいのか、わかりません。 てか？ 192 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 03:15:25 ] そもそも何で perl をやろうとしたのかって話だ 193 名前：デフォルトの名無しさん [2008/05/22(木) 03:50:29 ] プログラムって何かを作るためにある道具であって 何を作るかは作り手が考えなきゃどうしようもなかろう。 194 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 04:11:01 ] >>189 適当なフリーのCGI等をダウンロードして 辞書的に使える本（Google先生でもOK)で調べながら ソースを読んでみる。 ある程度理解できるようになったら、それを少しだけ改造してみる。 これを繰り返すだけでも相当勉強になると思うよ。 195 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 09:02:43 ] ネットに転がってるperlで書かれたCGIやCGI解説本のソースはほぼ100%クズなので 初心者はそんなものを見てはいけない。 196 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 09:14:39 ] 言いますね… 197 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 10:03:26 ] まあ、メジャーな掲示板のcgiコードもひどいもんだ。 一番良い例が、しばらく前までの2ch。 今動いているのはプロが書いたはずだから、ちゃんとしているはずだけど、 公開されてんのかね。 198 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 10:13:12 ] フリーGGIはオススメできない 書き方が古いから。 199 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 10:41:17 ] >>191 自分がやって「楽しい」と思うものでなければ、長続きしない。 例えば、任意の文字列を入力すると、 　　　　　　　　　　　　　　　　　　　　　　　　　▄　　　　　　　　　▄▄▄▄▄▄▄▄ 　　▄▄▄▄▄▄▄　　　　　　▄▀　　　　　　▄▄█▄▄　　▄▄　　　█▄▄▄▀　　█ 　　　　　　　　　　　　　　▄▀　　　　　　　　▄▀　　　　▄　▀　　█▄▄█▄▄　█ 　　　　　　　　　　　　　▄█▄▄　　　　　　　█　　　　　█　　　　█▄▄█▄█　█ 　█　　　　　　　　　　▄▀　　　█　　　█　█　　▄▀▀▀█▄　　　█　　█　▄　█　▄ 　▀▄▄▄▄▄▄▄▄　▄▀　　　　▀▄▄▀　　　　　▀▄▄▄▀　▀　█　▀▀▀▀　▀　▀█ に変換するスクリプトを作ってスレを荒らすというのはどうだ？ 200 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 11:22:02 ] >>199 それくれｗ 201 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 12:34:25 ] >>197-198 同じ事をするにも何通りも書き方がある， というのとは違うのかい？正直わからん。 202 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 12:37:30 ] >>197 2chのbbs.cgiは8年ぐらい前に流出した以外に表に出てないと思うのだが。 203 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 16:25:48 ] >>201 perlのCGIがブームだった頃に作られた遺産がたくさん残ってる。 それらは大抵perl4時代のコードのままメンテナンスされてない。 204 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 17:32:22 ] 元々の>189からの話の流れからすると、特定のものを批判するより これ読めってのを挙げた方がいいと思うが、定番といえそうなものがないな。 205 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 17:34:57 ] 普通に推奨本のコードを真似れば良いよ。 206 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 18:19:24 ] ラマですね、わかります。 207 名前： ◆TWARamEjuA mailto:sage [2008/05/22(木) 20:21:28 BE:1961429-2BP(7088)] おいちゃん＝プロですね。わかるます。 208 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 20:32:50 ] やっぱある程度面白くないとね。 mailあたりをいじってみたらどうかな 209 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 20:44:22 ] >>189 2-gramの全文検索エンジンの試作オススメ。 リスト処理や文字列処理などまんべんなく入ってる。 210 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 20:59:36 ] モチベーション最強は、やっぱエロだろ。 211 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 21:12:29 ] ・出版ブームが終了してまともな本が出てない ・Apache + mod_perlでも面倒なのにモジュールとか考えたくない ・webで探すとまともにメンテされてない糞ページがヒットしまくる ・Perl自体の記法が自由すぎるせいでそのページのコードが古いのかこっちの設定ミスなのでエラー出してるのか区別ができない 参入障壁高すぎ 212 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 21:37:14 ] >・出版ブームが終了してまともな本が出てない >>2以外の本はビブリオマニアでなければ必要ないよ。 >・Apache + mod_perlでも面倒なのにモジュールとか考えたくない 文の前後が繋がってないよ。 >・webで探すとまともにメンテされてない糞ページがヒットしまくる Perlの疑問はググる前にperldocだよ。 >・Perl自体の記法が自由すぎるせいでそのページのコードが古いのか >こっちの設定ミスなのでエラー出してるのか区別ができない 最新のperl(1)でもPerl4時代のコードが問題なく動くよ。 混ぜておかしくなるのは「新旧」でなく「お作法」だよ。 213 名前：デフォルトの名無しさん [2008/05/22(木) 23:42:33 ] Perlでクロスワードパズルつくってみたいんだ まずは　その準備として単語（表記はカタカナで）とその対応説明が 登録されているデータベース（Excelでもテキストでもなんでもいい） が必要です。どなたか知ってたら教えてください。それではおやすみ。 214 名前：デフォルトの名無しさん mailto:sage [2008/05/22(木) 23:46:34 ] >>213 っ[Wikipedia] 215 名前：デフォルトの名無しさん [2008/05/23(金) 00:01:31 ] クロスワードパズルは数理パズルじゃなくて、おちゃらけクイズごっこだから得る物ないよ 216 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 01:46:17 ] chasenの辞書からも取り出せるんじゃないかな。 217 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 01:51:48 ] 茶筅の辞書に言葉の意味なんて入ってないだろ 218 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 07:32:37 ] >>213 クロスワード作るのとPerlは無関係 まず紙に書いて作ってPerlで起こす時に分からないことあったらまた質問しな 219 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 23:40:22 ] \xe3\x80\x9cは変換できるのに、\xc2\xa2は変換できん。何故？ $PTNの内容をs///にべた書きすると変換できるようになる。何故？tr///が高速ならこんなことせんでもええのに。何故？ (ver. 5.8.5) use encoding "utf8";use Encode; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; $PTN="(\xe3\x80\x9c|\xc2\xa2)"; %HASH=("\xe3\x80\x9c"=>"\xef\xbd\x9e","\xc2\xa2"=>"\xef\xbf\xa0"); while(<STDIN>) { s/$PTN/$HASH{$1}/geo; print; } 220 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 02:10:23 ] w8ac6nxs.hp.infoseek.co.jp/cgi-bin/soldout/index.cgi perlで書かれたCGIゲームです。 パーラーのみなさん、ユーザーとして どうぞ登録してください。 まだプレイヤー４人くらいしかいません。 ユーザーの５０％をパーラーにしたいという 計画です。 221 名前：デフォルトの名無しさん [2008/05/24(土) 03:24:15 ] >>219 $PTN="(\x{301C}|\x{00A2})"; 222 名前：デフォルトの名無しさん [2008/05/24(土) 03:26:18 ] >>219 pc11.2ch.net/test/read.cgi/tech/1177930957/ 223 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 11:07:24 ] >>221 ダメでした。 \x{00a2}が\xc2\xa2じゃないものになってしまいます……。 224 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 11:51:07 ] >>前スレ928の方 utf8を扱う tr/// で再帰時に落ちる件、ActivePerl 5.10.0.1003 では正常になっていました。 詳細は未確認だけど、33747 のmg.cへの修正が効いている感じ。 225 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 13:24:03 ] >>215 英会話の勉強とか。。。perlのコマンド、モジュール名だけでできたクロスワードだったら といてみたいかも。 226 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 13:25:32 ] >>225 「Head First Java 第2版―頭とからだで覚えるJavaの基本 (単行本) 」 ではJavaに関連した単語でクロスワードパズルがあった。 227 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 17:26:41 ] >>219 ソースコード中に「use utf8」の宣言が無いから、全ての文字列は、 UT8フラグの無い、シングルバイトの文字から構成されていることになる。 ネット上の情報からすると、Perl では、UTF8 フラグ なし文字列を Latin-1 文字列とみなしている（らしい）。次に、 binmode STDOUT, ":utf8"; の宣言があるから、print 文等において文字列が出力される際には、 シングルバイトのLatin-1 文字列が、utf8に変換される。その結果、 このような現象が起きる.....ということでいいのかな？ 間違っていたら、エロイ人、修正して下さい。 228 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 19:50:41 ] だから猿用のテンプレを何で貼らんのよ？ 229 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 19:58:46 ] >>227 >>3 #!/usr/bin/perl -w require 5.008001; use encoding 'utf8'; print utf8::is_utf8('binary?') ? 'with utf8 flag' : 'binary'; __END__ >>228 utf8 プラグマも encoding プラグマも使わないに越した事ないし。 フラグの有無で悩むより、マルチバイト文字処理が本当に 必要な箇所でだけフラグ付け外しする方がよっぽど楽。 230 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 20:02:05 ] つーかおまえら。 shは使わない方がいい、Perl使うべきだ。 とかいって、perlで $test = `cat /home/test/test.txt` とか多様してるやつってなんなの？ 231 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 20:02:50 ] Missing ; 232 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 20:22:26 ] 使うななどとどこのどいつが言ってるんだ？ ものぐさ番長＝パーラーだ。 233 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 20:34:51 ] 猿用のテンプレってこれだっけ？ 次スレからは入れような。 --------------------------------------------------------- #　　【Perl 日本語処理の基礎の基礎】 #　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。 #　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。 #　入出力ともシフトJIS形式のファイルまたはDOS窓を想定しています。 #　まず、以下の行を先頭に入れて下さい。 use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; #　次に、あなたが実行したい処理の内容を入れて下さい。 print "SJISには、「十表貼申予暴」のようなダメ文字がある。\n"; sleep(1); #　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう #　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。 234 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 02:05:50 ] >>230 if( `[ -f /home/test/test.txt ]` ) { 　$test = `cat /home/test/test.txt`; 235 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 21:58:51 ] >>219です。 結局、\xc2\xa2の置換は諦め、別ツールで提供することになりました。 別のバージョンとか調べている時間がない……。 236 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 22:16:31 ] >>234 if( -f /home/test/test.txt ] ) { $test = `cat /home/test/test.txt`; } 237 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 22:17:11 ] >>234 if( -f /home/test/test.txt) { 　　　$test = `cat /home/test/test.txt`; } 238 名前：デフォルトの名無しさん mailto:sage [2008/05/26(月) 22:57:43 ] 普通 my $test = `cat /home/test/test.txt` if(-f /home/test/test.txt); だろ 239 名前：デフォルトの名無しさん mailto:sage [2008/05/27(火) 01:22:49 ] >>238 >>230 240 名前：デフォルトの名無しさん [2008/05/27(火) 22:41:24 ] Ｃ言語のプラグラミングできたお。 void main(int argc, char**argv) { 　system("cat /home/test/test.txt"); } 241 名前：デフォルトの名無しさん [2008/05/27(火) 22:48:04 ] www.amazon.co.jp/dp/4871483517 これが書かれた頃は perl など無かったが まさに、system() 関数使いまくろう！的な内容。 242 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 00:33:29 ] cでやるとすごく損した気になるんだよなあ 243 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 18:50:42 ] perlでやっても損でしょ。 perlでできる処理はperlでできるだけやるべき。 catとか。 244 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 19:08:58 ] >>243 確かにそうなんだけど、catについてはそうかな〜。 perl だったら、open,while,colose (またはread)とかで三段処理踏まないといけないから、 cat なんかは　$test = `cat file.txt` なんかはよく使う。 実際どっちが早いとかBenchとったことはないけど・・・。 245 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 19:09:46 ] 失敬、close間違い 246 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 19:12:39 ] かなり遅いよ、perlで外部コマンド実行したら。 相当な差がある。 コード的には段階踏んでるが。 247 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 19:20:10 ] 一つ関数を書くか、CPANから探してきて使うだけでしょ 248 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 19:36:06 ] qxはforkしてshell起動して実行して・・・って感じなので perlだけで終わらせたほうが圧倒的に早い File::Slurp使うか、入れるのめんどくさかったら sub slurp {open my $fh , $_[0] || die("$_[0]:$!");local $/;<$fh>} って書いとけばＯＫ 249 名前：244 mailto:sage [2008/05/28(水) 20:06:16 ] いやいや、そりゃあ自分も本格的な(？)スクリプト書く時や、 複数のファイルにループ処理する時はサブルーチンで書いたりするよ。 そうでなくて、ちょっとした確認とかで数行のスクリプトとか、 コマンドラインからのワンライナーみたいな感じで書く時には便利かな ってゆうぐらい。 そんな時にまで、いちいち、useやrequireやsub{}なんて書きたくないじゃん。 250 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 20:21:38 ] >>244 数行だとか、処理速度とか処理効率を考えなくていいなら便利。 あくまでコマンドレベルの用途ね。 ただ不明なのが、 >サブルーチンで書いたりする ってとこ。 関係が不明なんだけど。 251 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 20:50:01 ] むっか〜しは、sortは外部コマンドでやってたりしたもんだ。 環境やバージョンが変わったら、こまめにベンチマーク取って 最適の方法を探らないとね。 252 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 21:09:03 ] 「cat を使う」 …ねえ。知ってると思うけど $ cat > foo.pl #!/usr/bin/env perl -n print ; } { print "foo\n" ; # control + D をタイプ $ perl foo.pl foo.pl foo.pl $ perl -lne '}{ print $. ;' foo.pl 253 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 21:25:17 ] そいつは初耳だ 解説よろしく 254 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 21:46:36 ] >>253 optionに関しては perl -h するなりで -n assume "while (<>) { ... }" loop around program -p assume loop like -n but print line also, like sed で実際の挙動を見るには perl -MO=Deparse -ne 'print;' この結果を見ると while ループで単純にかこってあるだけだから ループの終りの「}」と無名ブロックの始まりの「{」を入れて 好きな様に処理させる。 応用すれば、「tsvの第二カラムの積算」なんてのは perl -lane '$t += $F[1] ; }{ print $t ;' FILE スクリプトファイルにしたときも同じ事。B::Deparse にて確認して。 perl -MO=Deparse foo.pl あとはお好みに。これで手に負えない時とかstrict適用したい時は 普通に書きゃいいだけだし。 255 名前：244 mailto:sage [2008/05/28(水) 22:41:30 ] >>250 それは、>>247や>>248に対するレスで、例えばopen();while(){うんたらかんたら・・・}close();を 一まとめにしたサブルーチンなんかに投げるってこと。 いや、スマン。244で速度のこととか言い出したんだけど、 自分が言いたかったことは、>>240-243までの流れで、ちょっとした処理(>>240とかｗ)を わざわざCで書いたんなら、かなり損した気分になるのは大いに理解できるけど、 それをperlでやるのは、そんなに損した気にはならない、 ってゆうか、perlだからこそ、$nakami = `cat file.txt`;や@files = `find ・・・`; みたいな事が手軽に出来る、ってのが、perlの大きな魅力の1つではないかと自分は思ってる。 ってことを言いたかった。 >>252 それはオレも初耳。 完全に理解しきれてないけど、色々応用が効きそうだ。 256 名前：デフォルトの名無しさん [2008/05/28(水) 23:31:00 ] >>246 >>248 「かなり」 とか 「圧倒的に」 とか、ずいぶんアバウトだな。 そんなんじゃ全然説得力が無い。 たとえば、$a = `cat unko.txt` すると ０．１秒かかるとしよう。 open・read・close すると０．０１秒しかかからないとしよう。 で？それが何なの？どうなのよ、って事だ。 えっ？１０倍早いだって？ おいおい、０．１−０．０１＝０．０９秒しか違わないんだよ。 たったの０．０９秒の差を人間が感じ取れるとでも思うの？ アフォくさ。 257 名前：デフォルトの名無しさん mailto:sage [2008/05/28(水) 23:34:30 ] >>256 whileかけるようになったらまたおいで。 258 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 00:09:41 ] >>256 一回だけ処理するならその程度で済むかもね。 259 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 00:29:53 ] svn より、cvs のほうがインストールの敷居は低いんじゃないかなぁ。 cvs のほうが依存するライブラリ少いし、FreeBSD なら最初から入ってるし。 260 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 00:42:12 ] 俺はsubversion派だわ って誤爆か 261 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 13:56:47 ] 誤爆じゃないだろ。perldoc.jpの話じゃね？ 262 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 15:29:41 ] my $message = "He is 5 years old\n"; $message =~ s/(\d+)/{ twice($1) }/e; #数字を検索して、2倍して置換 print $message; これなのだけど my $message = "He is 5 years old\n"; $message =~ s/(\d*)/{ twice($1) }/e; #数字を検索して、2倍して置換 print $message; これじゃダメなのはなんで？ 263 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 15:35:34 ] * は0回以上の繰り返しだから、先頭でマッチする。 264 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 18:45:13 ] (\d*) 全てが任意なので、全ての行で置換が行われることに 265 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 18:47:59 ] 先頭つーか、全ての文字の間にマッチする。 266 名前：265 mailto:sage [2008/05/29(木) 18:48:46 ] \d\d* でやってみ。 267 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 19:34:03 ] >>265 egじゃなくてeだから、この場合は先頭だけだろう。 268 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 21:48:26 ] お、eをgと見間違えたわ。 269 名前：デフォルトの名無しさん [2008/05/29(木) 21:59:34 ] いーじーさんにつーれられーてー・・・ いや何でもない 270 名前：デフォルトの名無しさん [2008/05/29(木) 22:23:27 ] 逝っちゃった 271 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 23:56:31 ] 横浜港 乙 272 名前：デフォルトの名無しさん mailto:sage [2008/05/30(金) 03:29:45 ] 港のヨ〜(ry 273 名前：デフォルトの名無しさん [2008/05/31(土) 19:56:52 ] cpan起動出来なくなりました。 #cpan Unable to get Terminal Size. The TIOCGWINSZ ioctl didn't work. The COLUMNS and LINES environment variables didn't work. The resize program didn't work. at /usr/local/lib/perl5/site_perl/5.8.3/i386-freebsd/Term/ReadKey.pm line 362. Compilation failed in require at /usr/local/lib/perl5/site_perl/5.8.3/Term/ReadLine/Perl.pm line 63. とエラーが出ます。 恐らく、perlのバージョンアップした際に不具合が生じているのかと思うのですが・・・。 ネットで解決法を探すも情報がほとんどなく手がかりもつかめません。 perl　v5.8.3 OS FreeBSD　4.2-R 助けて下さい。お願いします。 274 名前：デフォルトの名無しさん mailto:sage [2008/05/31(土) 20:09:04 ] もっかいCPANインスコしなおせばいいじゃん 275 名前：273 [2008/05/31(土) 21:57:38 ] インストールしなおしてみましたが、ダメでした。 同じ症状です・・・。トホホ。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef