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

1 名前：デフォルトの名無しさん mailto:sage [2008/09/21(日) 12:22:12 ] "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/09/21 現在の最新版（安定版）: 5.10.0 ● 2008/09/21 現在の開発版: 5.9.5 ▼ 前スレ Perlについての質問箱 37箱目 pc11.2ch.net/test/read.cgi/tech/1218449440/ リンク集は>>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは>>5-6 あたり 411 名前：デフォルトの名無しさん [2008/11/12(水) 23:35:47 ] 大学の宿題誰かおながいします・・・ ＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞ 配列，2次元配列を用いて， santaku.pl を以下のようにグレードアップせよ． ○　3択の問題を4題出題し，正解数を最後に表示． $mondai を　@mondai にして配列化 @sentakuを 2次元配列化 $santaku[A][B]の形 $kotaeを　@kotaeにして，配列化 これを　santaku2.pl という名前で保存して動かす 412 名前：デフォルトの名無しさん [2008/11/12(水) 23:36:52 ] santaku.plっってのはこれです # santaku.pl # 問題 $mondai="東京ディズニーリゾートがあるのは次の内，どこか？"; # 選択肢 $sentaku[1]="東京県"; $sentaku[2]="千葉県"; $sentaku[3]="神奈川県"; # 答え $kotae=2; # $user=0; printf ("%s\n", $mondai); # 問題の表示 for ($i=1; $i<=3; $i++) { # 選択肢の表示 printf ("[%d] %s\n", $i, $sentaku[$i]); } printf ("答えを1〜3から選んでください "); $user=<>; if ($user==$kotae) { printf ("正解\n"); } else { printf ("不正解\n"); } exit; よろしくお願いします(；へ；) 413 名前：デフォルトの名無しさん mailto:sage [2008/11/12(水) 23:47:42 ] どこまで考えて、どこが分からないの？ 414 名前：デフォルトの名無しさん [2008/11/12(水) 23:55:39 ] 最初からわかりません・・・ 1つずつやったら面倒だから二次元配列にするというのはなんとなくわかるのですが どこから手をつけていいのか；；； forを2重でつかったりもするんでしょうか・・・頭が痛いです； 415 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 00:04:41 ] 0番使えよ…… 416 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 00:16:04 ] $[=1; 417 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 00:29:28 ] 大学の教養でそういう講義があるのかな？ とりあえず、問題と答えを4問分2次元配列にして、 正解数をカウントする変数をつくればできると思う 418 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 01:05:45 ] printf …… 419 名前：デフォルトの名無しさん [2008/11/13(木) 01:11:16 ] そうです、情報機器の操作っていう講義です どうですか？？正解数をカウントする変数はさっぱりです＞＜ # =================== データ部分 ========================== # 問題 $mondai[1]="東京ディズニーリゾートがあるのは次の内，どこか？"; $mondai[2]="東京大学があるのは次の内，どこか？"; $mondai[3]="横浜があるのは次の内，どこか？" ; # 選択肢 $sentaku[1]="東京県"; $sentaku[2]="千葉県"; $sentaku[3]="神奈川県"; # 答え $kotae[1]=2; $kotae[2]=1; $kotae[3]=3; # ========================================================= # # =================== 手続き部分 ========================== # $user=0; printf ("%s\n", $mondai); # 問題の表示 for ($i=1; $i<=3; $i++) { # 選択肢の表示 printf ("[%d] %s\n", $i, $sentaku[$i]); } printf ("答えを1〜3から選んでください "); $user=<>; if ($user==$kotae) { printf ("正解\n"); } else { printf ("不正解\n"); } exit; 420 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 01:36:31 ] 情報機器の操作とやら　でperlなんだね どちらかというとアバウトな言語だと、教える方も大変だろうに。 rubyとかpythonの方がよさそうだが 421 名前：デフォルトの名無しさん [2008/11/13(木) 01:39:28 ] ＞rubyとかpython さっぱりです＞＜ basic c javaなら講義中に名前を見ましたが。。 その教授はperlが使いやすいといっていたので、、よくわかりませんが どなたかよろしくお願いします；明日の朝提出なので＞＜ 422 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 01:58:02 ] 明日の朝提出なのになんで今頃もってくるんだか。。。 毎日わかったところまでをここで聞いていればよかったのに。 printfだけなおして友達のを写した方が早いよ 423 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 02:11:29 ] この程度のがわからないのならあきらめた方が良いんじゃね？ 424 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 02:27:03 ] 明日の朝なら、まだ30時間くらいあるじゃない。 425 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 08:04:28 ] # =================== データ部分 ========================== # 問題 my @mondai=(); $mondai[0]="東京ディズニーリゾートがあるのは次の内，どこか？"; $mondai[1]="東京大学があるのは次の内，どこか？"; $mondai[2]="横浜があるのは次の内，どこか？"; # 選択肢 my @sentaku=(); $sentaku[0][0]="東京県";　$sentaku[0][1]="千葉県";　$sentaku[0][2]="神奈川県"; $sentaku[1][0]="東京県";　$sentaku[1][1]="千葉県";　$sentaku[1][2]="神奈川県"; $sentaku[2][0]="東京県";　$sentaku[2][1]="千葉県";　$sentaku[2][2]="神奈川県"; # 答え my @kotae=(2,1,3); # =================== 手続き部分 ========================== my @input=(); for(my $cnt=0;$cnt<scalar(@mondai);$cnt++){ printf("%s\n", $mondai[$cnt] ); # 問題の表示 for(my $cnt2=0;$cnt2<3;$cnt2++) { # 選択肢の表示 printf("[%d] %s\n",$cnt2,$sentaku[$cnt][$cnt2] ); } printf("答えを1〜3から選んでください"); my $user=<>; push @input,$user; } exit; とりあえず、問題表示部分だけ。正誤判定は自分で考えてください。 …ところで、「@sentakuを 2次元配列化 $santaku[A][B]の形」が嫌だなぁ。 リファレンス($santaku->[A][B])使っちゃ駄目なのかな？ 426 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 08:13:52 ] # =================== データ部分 ========================== # 問題 my @mondai=("東京ディズニーリゾートがあるのは次の内，どこか？", "東京大学があるのは次の内，どこか？","横浜があるのは次の内，どこか？"); # 選択肢 my @sentaku=(["東京県","千葉県","神奈川県"],["東京県","千葉県", "神奈川県"],["東京県","千葉県","神奈川県"]); # 答え my @kotae=(2,1,3); # =================== 手続き部分 ========================== my @input=(); for(my $cnt1=0;$cnt1<scalar(@mondai);$cnt1++){ 　printf("%s\n", $mondai[$cnt1] ); # 問題の表示 　for(my $cnt2=0;$cnt2<scalar(@{$sentaku[$cnt1]});$cnt2++) { # 選択肢の表示 　　printf("[%d] %s\n",$cnt2,$sentaku[$cnt1][$cnt2] ); 　} 　printf("答えを1〜3から選んでください"); 　my $user=<>; 　push @input,$user; } exit; この方がスッキリしてて良いかな？ 427 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 09:22:27 ] みんな、なんでいつものゴルフバージョンを作らないの？ 428 名前：デフォルトの名無しさん [2008/11/13(木) 09:35:48 ] >>427 おまえが率先して作らないからだろ。司令官どの。 429 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 10:50:48 ] 419は「２次元配列」の意味がわかってない 430 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 10:52:18 ] ＞…ところで、「@sentakuを 2次元配列化 $santaku[A][B]の形」が嫌だなぁ。 ＞リファレンス($santaku->[A][B])使っちゃ駄目なのかな？ よく、質問を質問で返す人がいるよね。 しかも、「・・・じゃダメなの？」という言い方する人が結構多い。 なんか頭悪そう。 431 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 10:57:07 ] 自信が無いから、質問を質問で返すのかな。とにかく頭悪そうに見える。 432 名前：デフォルトの名無しさん [2008/11/13(木) 11:05:00 ] 頭の悪さ判定師が集結中のスレはここですか? 433 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:27:51 ] 課題にレスしちゃうところがなんか頭悪そう。 434 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:28:49 ] 配列変数で添え字が0から始まるのに、1、2、3…と使うのは気持ち悪い。 $[ = 1 とすればいいが、そんなの私は実際に使ったことない(使う必要ない)。 それに、問題、選択肢、回答と別々の配列変数に入れて、添え字でくくるのも 気持ち悪い。私なら無名ハッシュの配列を作るが。 my @mondai = ( "東京ディズニーリゾートがあるのは次の内，どこか？", "東京大学があるのは次の内，どこか？", "横浜があるのは次の内，どこか？", ); my @sentaku = ( ["東京県","千葉県","神奈川県"], ["東京県","千葉県","神奈川県"], ["東京県","千葉県","神奈川県"], ); my @kotae = (2,1,3); for my $q(0..@mondai-1) { print $mondai[$q], "\n"; for my $i(1..@{$sentaku[$q]}) { printf("[%d]%s\n", $i, $sentaku[$q][$i-1]); } my $input; while (1) { printf "答えを1〜3から選んでください: "; chomp($input = <STDIN>); last if $input =~ /^[1-3]$/; } print $input == $kotae[$q] ? "○正解" : "×不正解"; print "\n\n"; } print "終わり\n"; 435 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:29:04 ] 「東京県」に誰も突っ込まないのは頭悪すぎ 436 名前：434 mailto:sage [2008/11/13(木) 11:30:21 ] >>435 しまったorz 437 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:31:14 ] 東京大学は東京都にも千葉県にも神奈川県にもあるのに頭悪すぎ 438 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:33:41 ] 埼玉都ですね。わかります。 439 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:34:14 ] ttp://www.campuscity.jp/misscampus/todai/kawakami/ 神戸県ですね、わかります。 440 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:38:27 ] 本質的な部分での発言ができないので コメントや文字列リテラルの中のスペルミスやtypoに 突っ込まざるを得ない人たちが集まるスレはここですか？ 441 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:41:17 ] >>430 そういう言い方しちゃダメなの？ 442 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:43:21 ] ここで本質とは何を指していますか？ 頭が悪いので教えてください。 443 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:45:36 ] >>440 「本質的」とか言い出すあたり、すごく頭悪そう。 444 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:47:23 ] ここは乗っかっとくとこだろｗ 445 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:47:32 ] >>442 議題は横浜がどこにあるか です 446 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 11:47:43 ] 顔真っ赤だよｗ そんなに恥ずかしかった？ 447 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:06:20 ] ["東京県（都？）","千葉県","神奈川県"] が重複してるのがなんか嫌だね。 my @sentaku = (["東京県","千葉県","神奈川県"])x3; とか短くできんのかな？ 448 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:11:53 ] >>447 449 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:16:13 ] 選択肢は広がる可能性があるからそれぞれ指定できるようにしておいたほうがいいと思う。 俺なら47都道府県を別配列で持っておいて、インデックスの配列で指定する。 my $sentaku = [ [1,2,3], [1,2,3], [1,2,3], ]; 450 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:16:17 ] >>441 「質問に質問で返す」ことはなぜよくないこととされているのでしょうか。 ttp://q.hatena.ne.jp/1144955089 451 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:26:58 ] これさ、問題つくってるヤツアホだよな。 452 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:32:45 ] ？が付いただけで質問返しと認識するってどうよ… って430までで唯一「・・・じゃダメなの？」を使ったオレが 顔を真っ赤にしてカキコ。 >>447 my @arr = ( ([1,2 ]) x 2 ) ; 453 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:34:56 ] >>439 埼玉都はネタだけど、神戸県は明治初期に実在した。 454 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:35:15 ] あ、問題見てなかった リファレンス使わない2次元配列なんて、逆にわからんわ 455 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 12:43:29 ] >>447 ２問目の選択肢が変更になったらどうするのかねアンダーソン君 456 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 13:00:06 ] リファレンス使わない2次元配列なんてない、 てことはリファレンスは使っていいのか、 となると2次元配列じゃない方がやりやすくね？ ってなるんだが。 457 名前：デフォルトの名無しさん [2008/11/13(木) 13:11:47 ] ↑ こいつ最高に頭悪い 458 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 13:35:50 ] >>2-458 すごく頭悪そう。 459 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 15:09:10 ] >>458 ﾁｮﾄﾜﾛﾀ 460 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 16:20:56 ] ヒマだったんで二次元配列縛りなしでやってみた。 my $ok = 0; TEST: for ( @qz ) { print $_->{'質問'} . "\n"; print "\t$_\n" for ( @{$_->{'選択肢'}} ); while (1) { print '正しい選択肢の番号を入力してください(中止:q): '; chomp ( my $c = <STDIN> ); last TEST if $c =~ /q/i; if ( $c =~ /^\d+$/ && 1 <= $c && $c <= @qz ) { $c == $_->{'答'} ? ( print "正解" and $ok++ ) : print "不正解"; last; } } print "。\n\n"; } print "$ok 問正解しました。\n"; 461 名前：407 mailto:sage [2008/11/13(木) 16:33:58 ] >>408 レスありがとうございます。 規制に巻き込まれてしまい、返事が遅くなってしまいました やはり一度読み込み直すしかありませんか… 外部データが増えるとそれだけ読み込み・追加・書き出しに時間がかかってしまうので 何とか追加だけでやりくり出来ないかと考えていたのです。 アドバイスと合わせ、色々模索してみたいと思います 462 名前：460 mailto:sage [2008/11/13(木) 16:48:31 ] 誤 $c <= @qz 正 $c <= @{$_->{'選択肢'}} 余計なことするといつも恥をかく...orz 463 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 18:20:36 ] >>461 > やはり一度読み込み直すしかありませんか… いや。 普通、DBM類を使う。 464 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 19:39:19 ] >>461 全ての面倒を読み込み側に押し付けるって手もある。 保存用フォルダに "${^T}.${$}" 等のファイル名で書き出すとか。 465 名前：デフォルトの名無しさん [2008/11/13(木) 20:08:32 ] この度、WindowsサーバーのPerlを5.6.1から5.8.8にバージョンアップ する事になりました。 バーチャルサーバーを立ててWEBチームにテストしてもらっていたのですが、 動かない部分がいくつかある模様です。 WEBチームからPerlのバージョンアップによって 命令がどう変わったか等を調べて欲しいと頼まれたのですが、 どのようにして調べれば良いのでしょうか？ ご教授お願いいたします。 466 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 20:21:12 ] >>465 perldoc.perl.org/index-history.html 467 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 20:47:19 ] 「質問を質問で返すな」って、そんな場面は、結構あると思うし、 そもそも(発端になった)>>435は質問に、まったく答えてない訳でも 無いのに…。 「夕飯何にしようか？」 「肉が良いなぁ。焼肉としゃぶしゃぶどっちが良い？」 「質問を質問で返すなm9（＾Д＾）ﾌﾟｷﾞｬｰ」 とか言っちゃうのかな？(w 468 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 20:51:27 ] いうだろ 469 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:00:57 ] これがゆとり大学生の実態である。 470 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:03:53 ] >>465 ＞命令がどう変わったか 「命令」は変わってないよな。ｗ マジレスすると、変更内容を調べるよりも、 ダメなところを特定して調整するほうがきっとマシ。 それがイヤなら、Perlのバージョンを戻せ。 つか、両方インストールして使いわけろよ。ふぁ。 471 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:12:38 ] >>461 キーの重複はかまわないのか？ ☆かまわない 別のファイルに出力してから、もとのファイルに くっつければいいんじゃね。 ☆ダメ 前のファイルを読み込まずに、重複を調べる 方法を教えろ。 続きはそれからだ。 472 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:51:49 ] × 続きはそれからだ。 ○ 続きはよそでやれ。 473 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:56:22 ] 「夕飯何にしようか？」 「普通に焼肉じゃいけないの？」 474 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:56:52 ] 「夕飯何にしようか？」 「普通にしゃぶしゃぶじゃいけないの？」 475 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:57:56 ] 「夕飯何にしようか？」 「普通にカレーじゃいけないの？」 476 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 21:59:48 ] 「夕飯何にしようか？」 「ラーメンじゃダメなの？」 477 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 22:32:54 ] 「夕飯何にしようか？」 「俺が決めていいの？」 478 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 01:30:11 ] 夫「今日の夕飯なに?」 妻「何が食べたいの?」 夫「質問に質問で返すなっ!!」 ……これが>>430の結婚生活(もしあったとして) 479 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 05:35:27 ] 「夕飯何にしようか？」 「晩飯じゃないの？」 480 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 06:10:57 ] 単一ファイル内で複数packageを定義した場合、 継承がうまく動かないのですが、どうすれば良いでしょうか。 $foo = Foo->new(); # OK $bar = Bar->new(); # NG package Foo; sub new { bless {}; } package Bar; @ISA = qw(Foo); これだと Bar->new() が失敗します。 package Bar 部分を Bar.pm というファイルにして、ファイル先頭で use Bar すると 問題ないのですが、単一ファイル内で継承させる場合はどう書けば良いのでしょうか。 481 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 06:42:23 ] {package Foo; sub new { bless {}; } } {package Bar; @ISA = qw(Foo);} $foo = Foo->new(); # OK $bar = Bar->new(); # OK 482 名前：480 mailto:sage [2008/11/14(金) 07:00:38 ] >>481 おおお。助かりました。thanks! 483 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 08:40:19 ] package Foo; sub new { bless {}; } package Bar; @ISA = qw(Foo); package main; $foo = Foo->new(); # OK $bar = Bar->new(); # OK じゃねえの 484 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 14:24:45 ] 夫「今日の夕飯なに?」 妻「スキヤキじゃダメなの？」 夫「・・・」 485 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 14:26:27 ] 夫「赤ちゃん産まれた？男の子？女の子？」 妻「男じゃダメなの？」 夫「・・・」 486 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 19:10:29 ] >>485 その流れはヤバい！ｗ もう離婚するしかないな。 487 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 20:42:25 ] ｺﾞﾒﾝ理解できない 童貞の俺にも分かるように詳しく 488 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 20:53:25 ] 童貞じゃないけど、俺もわからん！ 489 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 21:03:13 ] 女だったら、夫がロリコンでいたずらすると思ったんだろう。 490 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 21:50:28 ] な〜る 491 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 21:58:27 ] 深読みしすぎてた ﾄﾝ 492 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 22:46:06 ] >>489 それは俺も考えたけど、 それだとスキヤキが説明できない。 493 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 05:16:10 ] >>485 もう嫁ケンカうってるじゃんｗ 494 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 09:03:03 ] ﾂﾝなだけだろｗ 495 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 10:19:13 ] 生まれる段階に至っても性別を知らなかった夫 496 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:02:17 ] 産まれた？って訊いてる時点でダメだろ 497 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:58:51 ] 後のオブジェクト指向である 498 名前：デフォルトの名無しさん [2008/11/16(日) 02:32:11 ] 同じ文字列を使ってもDigest::MD5で得られる16進とmd5sumの結果が違うのはなぜでしょうか 499 名前：498 mailto:sage [2008/11/16(日) 02:36:14 ] 自己解決しました。 一方には改行コードが含まれていないだけでした。 500 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 10:31:38 ] perlのマッチ演算子で変数が使えますけど $pat = "foo"; $str =~ /$pat/; # この場合 /foo/ と同じ 変数に含まれる文字を全て普通の文字としてマッチさせるにはどうしたらいいでしょうか。 たとえば $pat = "foo[0]"; だと、/$pat/では[0]の部分を文字クラスとして処理するよう ですが、単純に "foo[0]" という文字にマッチしてほしいのです。 501 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 10:36:15 ] /\Q$unko\E/ 502 名前：デフォルトの名無しさん [2008/11/16(日) 13:14:45 ] dmain.cpp Note: including file: d:/projects/game/include\common.h Note: including file: d:/projects/game/include\product.h Note: including file: d:/projects/etc/psdk/include\WindowsX.h Note: including file: d:/projects/etc/psdk/include\windows.h こういうファイルを dmain.obj: \ /cygdrive/d/projects/game/include/common.h \ /cygdrive/d/projects/game/include/product.h \ /cygdrive/d/projects/etc/psdk/include/WindowsX.h \ /cygdrive/d/projects/etc/psdk/include/windows.h \ dmain.cpp こんな風にするスクリプトってどうやるの？ 503 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 13:57:44 ] perl -ple 's/$/\\/; s/cpp/obj/; s/Note: including file: d:/\/cygdrive\/d/; END{ print "dmain.cpp";} ' 504 名前：デフォルトの名無しさん [2008/11/17(月) 20:02:29 ] 質問です。掲示板のプログラムなのですが、データファイル（１行１投稿内容のテキストファイル） を掲示板のCGIのサーバーとは異なるサーバーに置きたいのですが、その場合どのように すればよいでしょうか？　できればmySQLサーバーはインジェクションの関係で使いたくあり ません。 サーバー１　掲示板cgiや画像データなどを担当 サーバー２　掲示板テキストデータ（掲示板cgiから読み書きされる） なにかアドバイスをお願いします。 505 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 20:11:26 ] >>504 NFSマウント。とネタレス。 WebProg行け。とマジレス。 その質問だとperl無関係だから、いきなりperlのスレに行くなよ…。 506 名前：デフォルトの名無しさん [2008/11/18(火) 19:27:48 ] www.drk7.jp/MT/archives/001422.html に記載されている通りにやったのですが、 C:\strawberry\cpan\build\DB_File-1.817-XRfyBQ>perl Makefile.pl Parsing config.in... Looks Good. Note (probably harmless): No library found for -llibdb Writing Makefile for DB_File C:\strawberry\cpan\build\DB_File-1.817-XRfyBQ>dmake cp DB_File.pm blib\lib\DB_File.pm AutoSplitting blib\lib\DB_File.pm (blib\lib\auto\DB_File) gcc -c -I/usr/local/BerkeleyDB/include -s -O2 -DWIN32 -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -DPERL_MSVCRT_ READFIX -s -O2 -DVERSION=\"1.817\" -DXS_VERSION=\"1.817\" "-IC:\strawberry \perl\lib\CORE" -D_NOT_CORE -DmDB_Prefix_t=size_t -DmDB_Hash_t=u_int32_t versi on.c version.c:30:16: db.h: No such file or directory dmake: Error code 129, while making 'version.o' と出てしまい、DB_Fileが結局インストールされません。 INCLUDEもLIBも自分の環境に沿って変えているのですが出来ません。 どなたかよろしくお願いします。 507 名前：デフォルトの名無しさん [2008/11/18(火) 20:14:56 ] 長文すみません 以下のjavaを // 平均パケット到着レートの算出＆ヒストグラム構成 if (preTimeList.size() >= pktNumForCalcRateAverage) { sampleAveRate = pktNumForCalcRateAverage / (nowTime - preTimeList.remove(0)); int point = (int)(sampleAveRate / gap); histgram[point] += 1; total += sampleAveRate; lineNum += 1; } をperlに書き変えたいのですが # 平均パケット到着レートの算出＆ヒストグラム構成 if ($preTimeList.size() >= $pktNumForCalcRateAverage) { $sampleAveRate = $pktNumForCalcRateAverage / ($nowTime - $preTimeList.remove(0)); 　　　　$point = ($sampleAveRate / $gap); 　　　　$histgram[$point] += 1; 　　　　$total += $sampleAveRate; 　　　　$lineNum += 1; 　　}　 ではエラーが出てしまいうまくいきません。 nowTimeが間違っているのでしょうか？ どなたかアドバイスお願いします。 508 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 21:14:27 ] エラーメッセージは？ 509 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 21:56:41 ] それ以前の問題だろ… javaの文章に適当に$つけりゃperlになるとでも思ってんのかねえ？ 510 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 21:58:07 ] Perl 6で動かしてるとか 511 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 22:36:19 ] 　　エラーメッセージを読む。 そういうクセをつけてあげないと、本人のために良くないだろ。

---

---

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

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