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

1 名前：デフォルトの名無しさん mailto:sage [2008/01/11(金) 00:07:22 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 ttp://pc11.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 ttp://www.perl.org/get.html ● 2008/01/11現在の最新版: 5.10.0 ● 2007/01/11現在の開発版: 5.9.5 前スレ Perlについての質問箱 33箱目 pc11.2ch.net/test/read.cgi/tech/1192463997/ リンク集は>>2-3 過去スレは>>4 あたり 388 名前：デフォルトの名無しさん [2008/02/09(土) 20:29:27 ] ある既存のシステムからもらってきたデータの中に４バイトの単精度実数が入ってるんです。 それを受け取りたいんですが、画面表示すると丸め誤差ってヤツ？が出てしまうんです。 ためしにやってみたこと $x=pack('f', 123456 ); $y=unpack('f', $x); print $y,"\n"; $x=pack('f', 0.05 ); $y=unpack('f', $x); print $y,"\n"; $x=pack('f', 0.0000001); $y=unpack('f', $x); print $y,"\n"; 結果 123456 0.0500000007450581 1.0000000116861e-007 元の数字に戻すには、どうしたらいいですか？ 389 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 20:32:19 ] >387 「固定少数点」でググれ 390 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 20:34:52 ] >388 精度を指定すれば? 391 名前：386 mailto:sage [2008/02/09(土) 20:36:48 ] >387 すまん、>384への補足のつもりだったんだ 392 名前：デフォルトの名無しさん [2008/02/09(土) 20:52:05 ] >>390 精度の指定の仕方を教えてください。 393 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 00:44:37 ] >>388 $x=pack('f', 0.0000001 ); $y=unpack('f', $x); ($z = sprintf("%.7f\n", $y)) =~ s/\.?0*$//;print $z; 394 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 16:23:05 ] 標準入力を待つため以下の様に書いたがうまくいきません。 何がまずいのでしょうか。ActivePerl5.8です。 use IO::Select; $sel = IO::Select->new; $sel->add(\*STDIN); while(1){ print "can_read\n"; @a = $sel->can_read; foreach $fh (@a){ if($fh == STDIN){ print "STDIN\n"; } exit; } } 395 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 16:51:18 ] >394 perlport より >select >Only implemented on sockets. (Win32, VMS) 396 名前：394 mailto:sage [2008/02/10(日) 18:23:33 ] >395 そう言う事かー。納得しました。ありがとうございました。 397 名前：デフォルトの名無しさん [2008/02/11(月) 02:25:54 ] 現在、与えられた文字列を読み込み、それを元にHTMLを出力するプログラムを作成しています。 与えられた文字列の中に特定のキーワードを見つけると、それをリンクに変換するようにしたいと考えています。 例： 　　[google:hoge]　→　<a href="www.google.co.jp/search?q=hoge">Googleでhogeを検索</a> 　　[mixi:xxxxx]　 →　<a href="mixi.jp/show_friend.pl?id=xxxxx">mixi</a> 　　xxx.xx　→　<a href="xxx.xx">xxx.xx</a> こういった置換を行うコードを1つずつ書くのではなく、 例えば、以下のような置換パターンをセットしたハッシュを用意しておき 　　%hash = ( 　　　　'\[google:\w+\]'　=>　'<a href="www.google.co.jp/search?q=$1">Googleで$1を検索</a>', 　　) forやforeachで回しながら自動的に置換したいのですが、どのようにすればよいでしょうか。 （エンコードとかは考えない方向で） 　foreach my $key (keys %hash) 　{ 　　　$input_str =~ s/$key/$hash{$key}/g; 　} とやった場合、変換後の文字列の中に「$1」そのものが入ってしまいます。 398 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 02:29:35 ] $input_str =~ s/$key/$hash{$key}/gee; できるかは知らん 399 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 10:43:55 ] >>397 クロスサイトスクリプティングって知ってるか? 素人のCGI作成は法律で禁止して欲しい。 400 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 11:28:03 ] >>397 答えそのものは書かないけど、以下のことが必要。 '\[google:\w+\]'の部分は'\[google:(\w+)\]'でしょうね。そうしないと $1で受け取れないから。 置換をするなら、 $input_str =~ s/$key/conv($1, $hash{$key})/eg; などとしておいて、 sub conv {     my ($word, $str) = @_;     $str =~ s/\$1/$word/g;     $str; } などとでもしておくとか。 で、 URLのクエリー部分に仕込む文字列はURIエスケープが必要。 そんで、マルチバイトの場合、どの文字コードにしてからエスケープするかも 考える必要あり。 さらに、<a>と</a>の間の文字列に使用するときはサニタイズ処理が必要(XSS対策)。 >>398 の方法だと、perlコードをそのまま解釈してしまうので、別の危険あり。 「与えられた文字列」は誰が与えるのかがとても大きな問題です。 URLにリンクを張るのは、大崎氏のPerlメモが使えると思います。 401 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 11:57:26 ] >399 もちろん知ってます。 置換条件と置換パターンを配列などに保持しておく（または外部から読み込む）という考え方自体が セキュアではないということでしょうか？ >400 ( )で括って無かったのは書き込み時のミスです、すみません。 手元のソースでは書かれてたんですが、適当な条件に直すときに忘れてしまったようです。 402 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 12:22:23 ] 置換パターンにperlの$1を流用しようとしてるところがセキュアでない。 '<a href="www.google.co.jp/search?q=${1:urlencode(utf8)}">Googleで${1:htmlsafe}を検索</a>' とかして、これを解釈するようにすればよい。 403 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 17:27:17 ] ありがとうございます。 自分用のツールをさくっと作るつもりだったけど、そこまでやろうとすると手間かなあ。 誰かモジュール作ってるかもしれないけど。 404 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 18:12:59 ] 質問です。 'おまんこ'も'おちんこ'もマッチしないのですが、どこか間違いあるのでしょうか？ use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; while (my $str = <STDIN>) { chomp($str); last if ($str eq 'end'); if ($str =~ /お.んこ/) { print "$& --- マッチしたお\n"; } else { print "マッチしないお\n"; } } 405 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 18:16:55 ] binmode STDIN, ':utf8'; 追加したらマッチしますた。 406 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 05:34:25 ] 質問です。 use Encode; binmode STDOUT, ':iso-8859-1'; open READ , '<:encoding(utf8)', "$ARGV[0]" ; while (my $data = <READ>){ print "$data"; } close READ; exit; でutf8でencodeされたファイルをiso-8859-1に変換しようとしたら、 標準出力ではうまくいって、リダイレクトすると文字化けしました。 おわかりになる方、いらっしゃるでしょうか。 407 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 05:45:10 ] lv でみれないだけで、less したらみれました…すいません。 408 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 09:07:43 ] >>407 lvのほうがlessより優秀ってイメージなんだけど、lvが文字コードを誤判定しちゃったのかな。 409 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 12:12:12 ] use CGI; my $delimiter = "\t"; my $q = new CGI; my $save = $q->param('name') . $delimiter . $q->param('mail'); my ($name, $mail) = split /$delimiter/, $save; 入力はHTMLフォームからを想定しています。 こういった場合に適切なデリミタは何でしょうか。 たまに<>を見かけますが<>を><に変換してる場合じゃないと有効で無いですし \tは入力が可能、\0は良い方法だと思いますがCGI.pmと衝突します。 \a等が良いのでしょうか。 410 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 12:14:45 ] × たまに<>を見かけますが<>を><に変換してる場合じゃないと有効で無いですし ○ たまに<>を見かけますが<>を&lt;&gt;に変換してる場合じゃないと有効で無いですし ミスりました汗 411 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 12:52:41 ] 板違いっぽいがスペースじゃだめ？ 412 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 13:13:53 ] $save の前に入力チェックしてタブ文字を消せばいいだろ 413 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 14:12:21 ] my $save = join("&&", map { my $i = $q->param($_); $i =~ s/&/&/g; $i } ("name","mail")); my($name,$mail) =~ map { s/&/&/g; $_ }(split("&&",$save)); 414 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 18:08:01 ] >>409 <SOME_UNPREDICTABLE_STRING_XXX> でおｋ 415 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:16:04 ] 投資家板で名高いプログラマの書いたコードですが 初心者が多く、下記コードについて評価できません プロの目から見た下記コードの評価を教えて下さいませ live27.2ch.net/test/read.cgi/market/1202806626/454 $vict++; $vict100++; print $_ ."$riekiプラス！持ち越し成功！\n"; } if($end < $start2){ $loss=$start2-$end; $loss=~s/\-//; $totall =$loss + $totall; $totall100 =$loss + $totall100; $lost++; $lost100++; print $_ ."$loss マイナス！持ち越し失敗！\n"; } } 416 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:16:34 ] つづきです if(($cost < 1000)&&($cost > 300 )){ if($end > $start2){ $rieki=$end -$start2; $rieki=~s/\-//; $totalr =$rieki+$totalr; $totalr1000 =$rieki+$totalr1000; $vict++; $vict1000++; print $_ . "$riekiプラス！持ち越し成功！\n"; } if($end < $start2){ $loss=$end-$start2; $loss=~s/\-//; $totall =$loss + $totall; $totall1000 =$loss + $totall1000; $lost++; $lost1000++; print $_ . "$lossマイナス！持ち越し失敗！\n"; } 417 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:22:13 ] >>415 前の部分が欠けてて途中からになってるけど…？ 418 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:35:29 ] 書きかたはまるっきり初心者 処理内容としては 1．コストで場合分け（ここで見えてるのは300から1000まで） 2．スタートとエンドの差をとって，スタートがエンドより低ければ利益，逆なら損害として出力 3．利益または損害をトータルに加算 4．利益の出た回数と損害の出た回数をカウント．コストの範囲ごとにもカウント なんつうか小学生でも計算できる内容だ 419 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:43:46 ] 計算さえ出来ればいいんでしょ？ 合ってりゃいいと思うよ 420 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:54:35 ] >>415 軽くスレ読んだが名高いプログラマじゃなくて単に周りに避けられてる面倒くさい人じゃん。 コードは上で言われてるように初心者でも書ける程度のもん。 プログラム書かない人にけん制になると思ったのかもしれんが こんなの書いて自慢する人より電卓持ってる事務員のがずっとマシ。 421 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:08:22 ] ちゃんと動いて計算が合ってるならいいんじゃないの？ それ以外に評価しようが無い。 422 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:11:02 ] 「名高いプログラマ」ってとこは確かにどうかと思うコードではあるｗ 423 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:17:13 ] あっちのことはよく知らないけど，変な演算する能力よりもデータを見極める目のほうが大事なんじゃないの？ 424 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:25:14 ] 主婦が、余った材料で栄養バランスの取れた料理を作るようなイメージ。 プロの料理人と比較しちゃいけない。 425 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:27:12 ] 典型的なうんコードだな 426 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:31:07 ] >>421 あ、ごめん。機能満たすだけなら充分。 でも向こうのでの使い方が目的あって出してるコードじゃなく 素人にコード見せて牽制してるだけだからこんなの自慢にならんなぁって。 427 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:36:31 ] データを集積して処理するならともかく、この程度のことなら電卓+ノートのほうがいいと思うがな 428 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:40:32 ] サイタマン　は　やっぱり　うんこだった！ 429 名前：415のスレ住人 mailto:sage [2008/02/13(水) 12:41:56 ] 名高いプログラマーというより彼は社長だそうです。 年収3000万だったそうです。 ですからプログラムの内容というよりは アイデアで儲けている方なのかもしれませんね。 真実が定かでは無いのですが彼がIT企業の社長という点はどう思われますか？ 430 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:42:37 ] >>424 だが余った食材をそのまま食べたほうが味も見た目も栄養も手間も優れていたというパターン ただの自己満足にしかなってないという… 431 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:43:04 ] こっちに来られると困るからノーコメント。 432 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:44:33 ] 内容云々じゃなくて、これくらいすばらしいコードを書けるスキルがあれば年収2000万くらいは最低限ある、 という内容のことを言っていたのですが、株板では判断できる人が少なかったので参考になりました。 433 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:45:27 ] 　　　　　　　　　　　＿＿　　　　　　　　♪ 　　　ﾖﾎﾎ♪　　　 ＼ 　 ＼　　　　　　　　♪ 　　　　　　　　　　　　＼/　 ｀' ==‐‐-- 、　　♪ 　　　　　　ξﾐﾐﾐﾐﾐ 　　./＼　　　　　　　 .ヽ, .　　　　　　｜´_｀| 　/　 .＼　　　　　　　 ,l 　　　　　　　/.__)￣￣￣|￣￣￣￣￣￣| 　　　　　 〜l└‐L、 ＿,==.,―――=,==r′ 　　　　　 l~~｀ゝつ.l l |||/ | l´　　　　 　l | 　.　　　　 ´||￣||´ |.|≠　 ||　　　　　 　|| 434 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:46:12 ] >>429 とりあえず 2chに入りびたってコテハンつけてる そんなIT社長はイヤだ 435 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:46:21 ] サイタマン社長の名言集です。 どうぞ全部読んであげてください live27.2ch.net/test/read.cgi/market/1188339064/l50 436 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:46:32 ] 　　　　　　　　　　　　__,,γ⌒ヽ　　　　　　　　　　　　　　　　＿ 　　　　　　　　　　 ,,-''", ―‐―ｲ―ュ---､,,,,,,,,,,_　　　　　　　　三＼ 　　　　　　　　　／ ∠　　ム＿ゝ三i二二(山山ｱｦ　　　　　 -=　二） 　　　　　　　 γ √　　イ,, -"　　　　　　　　　　　　　　　　　　.三／ 　　　　　 　 .ん､_(γ７''"　　　　　　　　　　　　　　　　　　　 ￣ 　　　　　　　r�_,ノ''こ!､,,┴． 　　　　　　　.|　 ‘''く′ ,／ │ 　　　　　　　.r'ﾍ,、　 ｀'ｲﾞ＞'" 　　　　　　　.厂|,`'-,,　 .|'ヽ、 　　　　　　　.〜へ-―‐＾''ｰ" 437 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:47:22 ] 「○○なら年収○○万くらいは最低限ある」 なんて言い方する時点で中二病 ここは２ｃｈだぞ 438 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:48:36 ] 個人のスレがたってるような奴を信じるなよｗ 439 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:50:03 ] >>437 投資板はcisっていうイレギュラーの塊のような人が住んでるから うそつきが住みやすいんですよ 440 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:51:27 ] コテで自慢する人は注目されたいだけ。 >>435 いりません。お引き取りください。 441 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:51:27 ] 2レス目まで読んだ Results 1 - 10 of about 1,040 Japanese pages for 金拝主義. (0.21 seconds) Results 1 - 10 of about 5,450 Japanese pages for ボラリティ. (0.14 seconds) Results 1 - 10 of about 3,130,000 Japanese pages for シュミレーション. (0.10 seconds) Results 1 - 7 of 7 Japanese pages for イートレイドワラッパー. (0.35 seconds) プロフィールをていぞう 愚かの骨頂 個性的な語彙を持ってることはわかった 442 名前：デフォルトの名無しさん [2008/02/13(水) 12:51:45 ] サイタマン社長はゴールドカードもupしてるし 信じたいんですがやっぱり嘘なのでしょうか。 客観的に見てあのくらいのプログラムが書ければ年収二千万はいけるのでしょうか 443 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:53:43 ] >>442 すでに必要な情報は提示されてる。あとは自分で考えれ。 ここは２ｃｈだぞ。 444 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:55:09 ] おー。変数名に数字つかうってスゴいセンスだな。 でどこの幼稚園の子供よ？ 445 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:55:13 ] これだけ持ち上げられるってことはなにか持った奴なんじゃない？ 446 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:57:50 ] どうやら面白ワード生成機として有名みたいだな。 447 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:59:57 ] サイタマン先生の今までupした物は 200万円くらいのお金と60万円の証券会社の口座と ゴールドカード4枚ですね。 プログラムのｽｷﾙでよく株のツールなどを作ろうかなどと言ったりします 448 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:12:34 ] >>447 なんだかんだで君も彼にぞっこんっぽいなｗ 449 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:14:02 ] >>446 2ch語を適当に組み合わせるしか脳のない「普通の厨」なら、 似たようなクオリティの人工無能も書けるかもしれないけど、 天然素材は模しようがないなｗ 450 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:19:08 ] >>449 実は本人はスーパーハカーで，2chに書き込んでるのはサイタマンに作られた人工知能なんじゃないか… そしてあのコードも学習して自動生成されたんじゃないかと妄想してみたwww 451 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:29:30 ] >>447 ゴールドポイントカードならぼくも持ってるよ。 452 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:33:07 ] ま、スレ違いだから去れ 453 名前：デフォルトの名無しさん [2008/02/13(水) 15:54:58 ] aaa1 aaa2 aaa3 aaa4 というファイルがあったときに 通番どおりに結合して1つの出力にする上手い方法ありませんでしょうか？ 454 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 15:59:00 ] cat 呼び出す 455 名前：453 mailto:sage [2008/02/13(水) 18:25:02 ] >>454 ありがとうございます。 catは盲点でした。無事解決しました。 456 名前：デフォルトの名無しさん [2008/02/13(水) 18:31:44 ] 配列のなかに配列を複数持っている場合 それらをうまく結合する手段ってないでしょうか？ 具体的には以下のような感じです @array[1] = {aaa, bbb} @array[2] = {ccc, ddd} @array[3] = {eee, fff} このとき、一つの変数にまとめて {aaa, bbb, ccc, ddd, eee, fff} となるようにしたいです。 申し訳ないのですが、知恵を貸してください。 457 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 18:46:13 ] 544 ：デフォルトの名無しさん：2007/05/12(土) 02:54:05 深さのある配列を左から順番に呼んでフラットな配列を作りたいんですが、 よい方法ご存知の方いませんか @a = ([1,2,3], [4,5,6], [[7,8],[9,0]]); @b = flatten(@a); # 1,2,3,4,5,6,7,8,9,0 546 ：デフォルトの名無しさん：2007/05/12(土) 03:16:52 >>544 sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ } こんなんどうよ。 458 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 19:26:12 ] >>457 456です、回答ありがとうございます。 しかしながら、私が挙げた例の場合にはどのように用いればよいか分からず困っています。 ヒントだけでもいただけないでしょうか？ 459 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 19:29:20 ] {}はハッシュだろ 460 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 19:31:12 ] >>459 理解できました、ありがとうございます！ 461 名前：デフォルトの名無しさん mailto:sage [2008/02/14(木) 00:42:53 ] Pgを使って(DBIじゃなく)複数スレッドから同時にDBアクセスを使用と思います。 DBへの接続は各スレッドで行います。 Perl自体はスレッドに対応していても、関連モジュールとかの対応状況がわかりません。 バージョンは以下の通りです。 Perl 5.8.8 libpg 2.1.1 PostgreSQL 8.1 ディストリビューションは、Debian etchです。 スレッドの方が子供の面倒が見やすそうなので、できればスレッドにしたいのです。 462 名前：デフォルトの名無しさん [2008/02/14(木) 01:19:43 ] で、自分では試したくないので、だれかヒマなヤツ、オレのかわりに試してくれんか。 オレは家でゴロゴロしてアニメ観るのに忙しいから。 ・・・とか？ 463 名前：デフォルトの名無しさん mailto:sage [2008/02/14(木) 01:27:23 ] いえ、アニメじゃないです。　アニメの実写劇場版です。 464 名前：デフォルトの名無しさん mailto:sage [2008/02/14(木) 21:24:49 ] >>462 せっかくぼけてくれたところをマジレスすると、試して問題なかったからと言って、スレッドに対応しているとは限らないから困ってるんです。 たまたま動いているだけってことがあるし。 465 名前：デフォルトの名無しさん [2008/02/15(金) 09:03:33 ] perl5.10が普及するのっていつごろ？ 466 名前：デフォルトの名無しさん mailto:sage [2008/02/15(金) 22:25:02 ] >>464 その当たりの情報は、ソースやリリースノートを追うしかないと思う。 やたら古くてあまり参考にならないけど tp://homepage3.nifty.com/hippo2000/perltips/DBI/FAQ.htm#5_1_Can_I_do_multi_threading_wit 467 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 02:06:19 ] ActivePerlの5.10の最新版（ほかいくつかのバージョン）で、 ppm search (モジュール名) でモジュールをネットから探してくれないのですが、 何か指定が必要でしょうか。 468 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 02:59:34 ] >>467 5.8 と5.10ではバイナリ互換性がないので、単に5.10向けにビルドしたのがないと思われる。 469 名前：デフォルトの名無しさん [2008/02/17(日) 01:17:31 ] winで、perlからmysqlを使っているのですが、 insert into a(a) value("あ"); コマンドラインで打つとうまくいくのですが、perlのDBIではうまくいきません。助けてください。 470 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 03:10:36 ] >>469 向こうの(mysql)スレでも言われているように、mysqldのdefault-charsetは確認したか？ 471 名前：デフォルトの名無しさん [2008/02/17(日) 09:58:05 ] はい、sjisになっていて、win なのでPerlで書いているソースもそうじゃないかと。 472 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 11:02:29 ] >>471 ほんじゃ、unpack()つかって、バイナリの並びを表示して確認してみるとか？ 473 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 11:04:16 ] >471 最近の Perl は内部 UTF-8 だべ。 474 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 12:00:13 ] >>471 >>470で聞いたのは、mysqldの’connect’と’client’のcharsetのこと。 mysqldのversionを明記してないけど、多分4.1か5.0だと仮定して、 perl-DBD-mysqlで接続したときの、default-charsetがちゃんと’sjis’なり’cp932’になってない。 (mysqldとDBD-mysqlを自前でコンパイルしてない限り) つうことでそこを確認、変更しましょう。 ちなみに>>469で書いてるみたいに、コマンドラインのmysql.exeからLoginして確認した ’charset’関係は、あくまでもコマンドラインのmysqlからの接続時のみに効いてる状態なんでそれとは別。 475 名前：デフォルトの名無しさん [2008/02/17(日) 13:47:20 ] >>469 insert 以前にさ、select はうまくいくの？ 初心者なら、簡単な事からはじめてみよう。 use utf8; use DBI; my $db = DBI->connect("DBI:mysql:以下省略・・・   $db->do('SET NAMES UTF8'); $id = 1; my $sql = "SELECT name,address FROM members WHERE id=$id;"; my $sth = $db->prepare($sql);  $sth->execute or die DBI::errstr;  $sth->bind_columns(undef, \(my($M_name,$M_address))) or die DBI::errstr; my $rc = $sth->fetch();  utf8::decode($M_name);  utf8::decode($M_address); insert はこの逆をすればいいだけ。 476 名前：デフォルトの名無しさん [2008/02/17(日) 16:29:46 ] 設問１ f-e-d-c-b-a-0-a-b-c-d-e-f 477 名前：デフォルトの名無しさん [2008/02/17(日) 16:31:00 ] 設問２ 9-8-7-6-5-4-3-2-1-X-1-2-3-4-5-6-7-8-9 478 名前：デフォルトの名無しさん [2008/02/17(日) 17:13:02 ] 以下の問題を定義しなさい。 １{"f" = "-f == f" && "+f == f"} ２{"9" = "-9 == 9" && "+9 == 9"} ３{構成文省略} "9" は "f" に等しく、また "-9" は "-f" に等しい "0" は "X" に等しいので "0" == "X" = "n" とする 先ず此の構成を "x,y,z && n" を成型にしなさい また "n" は "y" で在り "9…0…9" まで存在する しかし "n = y" の配列は"次の"配列 "9…0…9" を使用する事！ 残された "9…0…9" は　"1/3" の後の "1/4" で使うが？ "n" == "0 = X" && "x,y,z" = "x,y,z" == "n/4" に為りますが構成は入り組んで居りますね？ 479 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:17:15 ] 日本語が苦手なら英語でおk 480 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:19:52 ] どちらのお国のガイジンさんですか 481 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:26:21 ] 宿題は自分でやるか先生に聞きなさい。ためにならん。 482 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:26:35 ] いくらなんでも丸投げすぎワロタｗ 483 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:28:26 ] 解読できません＞＜ 誰か和訳たのむ 484 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 18:52:46 ] >>476-478 くだらねぇ問題はここへ書け ver.3.14(57桁略)4592 science6.2ch.net/test/read.cgi/math/1197828000/ 485 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 20:29:46 ] >>476 ん？ >>477 え？ >>478 パルプンテ 486 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 21:40:18 ] >>478 居りますよ 487 名前：デフォルトの名無しさん [2008/02/17(日) 22:24:11 ] おちんちんの傘のまわりに小さいギザギザがあるんですが 医者に見せたほうがいいですか？ 488 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 22:28:07 ] >>487 このスレ的には大きなツブツブのほうが好まれますね 死ね

---

---

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

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