Perlコーディング初心者質問スレ Part 57

1 名前：nobodyさん mailto:sage [2008/02/25(月) 19:25:51 ID:???] Perlのコーディングで困ってる人のスレです。 【投稿する際の注意】 質問するときは内容をよく吟味してから投稿してください。 「コマンドの意味がわかんない」とかはマニュアル見ましょう。 回答者さんは何でも屋じゃありません。 1： 自分はこういう事がしたい。 2： それでこんな風にやってみたが･･･ 3： こんなエラーが出て上手く行かなかった。 最低でも1と3が無いと誰も答えられないよ。 良い回答は良い質問から。一緒に勉強しましょう。 お勧めサイトは >2 以降 前スレ　pc11.2ch.net/test/read.cgi/php/1189939783/ 過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/ 553 名前：nobodyさん mailto:sage [2008/05/24(土) 14:14:00 ID:???] >>551 正直、目的に対して技術が足りなすぎる。イヤミじゃなくてね。 トラブル起こす前に、オライリーのCGIプログラミング読破オススメ。 554 名前：nobodyさん mailto:sage [2008/05/24(土) 14:18:21 ID:???] >>552 ＞受け取るソースがsession.cgiだと認識してるのですが…。 少なくてもこのソース中でセッションIDはどこにも発行してないでしょ？ 後は調べなさい。 555 名前：554 mailto:sage [2008/05/24(土) 14:19:15 ID:???] ごめんミスった。 　×　＞受け取るソースがsession.cgiだと認識してるのですが… 　○　＞データを受け渡す側のソースが>>543で 556 名前：543 [2008/05/24(土) 14:19:38 ID:CztaXqIN] すいません。もう少し勉強しなおしてきます。 みなさん、有難うございましたー・・・ 557 名前：543 [2008/05/24(土) 14:23:19 ID:CztaXqIN] >>554 あ、ソースの一部分しか乗せてなかったためです！ use CGI::Session qw/-ip_match/; my $session=CGI::Session->new(undef,undef,{Directory=>'./session'}); $session->expire('+1m'); #有効期限は1分間 $session->param('name','john'); #セッション経由で引き渡す項目と値 my $cgi=CGI->new; print $cgi->header(-charset=>'UTF-8', -cookie=>$cgi->cookie(-name=>'CGISESSID', -value=>$session->id, -expires => '+3M')), #cookieにセッションidを保管 $cgi->start_html(-lang=>'ja', -encoding=>'UTF-8', -title=>'CGI.pm使用/cookie'), $cgi->p('session id: '.$session->id.'<br/>', 'name: '.$session->param('name').'<br/>', 558 名前：543 [2008/05/24(土) 14:24:17 ID:CztaXqIN] 続き print <<EOT <form action="localhost/cgi-bin/session.cgi" method="post"> <p> <label for="nm">お名前：</label> <input type="text" name="namae" id="nm"><br> <label for="ma">メール：</label> <input type="text" name="email" id="ma"> </p> <p> <input type="submit" value="送信"> <input type="reset" value="リセット"> </p> </form> EOT ; $cgi->end_html; #end すいません…！ 559 名前：nobodyさん mailto:sage [2008/05/24(土) 14:27:18 ID:???] めんどくさいし、合ってる保証ないけど、適当にフォローしてみる 追記 use CGI; 追記 my $cgi = new CGI; × my $session=CGI::Session->new(undef,undef,{Directory=>'./session'}); ○ my $session=CGI::Session->new(undef, $cgi, {Directory=>'./session'}); 560 名前：nobodyさん mailto:sage [2008/05/25(日) 02:16:54 ID:???] htmlのフォームデータをセッション変数に格納して利用するには htmlのフォームデータをpost→受け取ったデータをセッション変数を格納するCGI →それらのセッション変数にアクセス(利用する)CGI の流れがいるのでは？ 自信ないけど 561 名前：nobodyさん [2008/05/25(日) 19:58:56 ID:sAYmYKjS] perlのセッション管理はphpに比べるとかなりめんどい もちろん細かく制御するには向いてるんだが始めとっつきにくいかもなー 562 名前：nobodyさん mailto:sage [2008/05/26(月) 13:29:09 ID:???] >>561 >>543の質問を分かりやすくPHPで説明すると、 $_REQUESTの内容を$_SESSIONで受け取るにはどうしたらいいんですか？ ということ。 563 名前：nobodyさん [2008/05/26(月) 19:00:45 ID:BXwqNwjP] すみません。質問です。 Global symbol "%in" requires explicit package name at C:/ApacheGroup/〜〜.cgi line 375, <DATA> line 855. というソフトウェアエラーが出続けてるんですが。 どうすればいいでしょう。 どなたか教えてください〜。 564 名前：nobodyさん [2008/05/26(月) 19:09:34 ID:fmVA2Qe8] 先生方！　質問よろしいでしょうか！ open(OUT,"+< log.txt"); eval{flock(OUT, 2);}; eval{truncate(OUT, 0);}; seek(OUT, 0, 0); print OUT @log; eval{flock(OUT, 8);}; close(OUT); 今はこのように通常のテキストでログの上書き保存をしているのですが、 私はgzipで圧縮して上書き保存をしたいのです！ しかしどれだけGoogle先生に訊いてもgzipでの保存方法を教えてもらえません！　あの先生はケチです！ もう先生方だけが頼りなんです！　一体どうすればgzipでの保存が可能になるんでしょうか！ 565 名前：nobodyさん mailto:sage [2008/05/26(月) 19:18:18 ID:???] >>563 xn--lckja1b6r.jp/%47%6C%6F%62%61%6C%20%73%79%6D%62%6F%6C%20%20%72%65%71%75%69%72%65%73%20%65%78%70%6C%69%63%69%74%20%70%61%63%6B%61%67%65%20%6E%61%6D%65 >>564 xn--lckja1b6r.jp/%70%65%72%6C%20%67%7A%69%70 566 名前：nobodyさん mailto:sage [2008/05/26(月) 19:32:47 ID:???] Archive perl でググればでてくるじゃないの 567 名前：nobodyさん mailto:sage [2008/05/26(月) 23:41:19 ID:???] >>563 英語が読めないなら駱駝本を買うべきだ。 568 名前：nobodyさん mailto:sage [2008/05/27(火) 11:06:43 ID:???] ラクダを漢字で書かれると困ります　（＞＜；） 569 名前：nobodyさん mailto:sage [2008/05/27(火) 19:27:42 ID:???] { $global_foo = $foo; $global_bar = $bar; my $foo; my $bar; $foo = $_[0]; $bar = $_[1]; $foo = $global_foo if $foo eq undef; $bar = $global_bar if $bar eq undef; } をコンパクトにまとめたいが、バグが混入しそうでいやん。 570 名前：nobodyさん mailto:sage [2008/05/27(火) 19:44:24 ID:???] { my $global_foo = $foo; my $global_bar = $bar; $foo = shift || $global_foo; $bar = shift || $global_bar; } 571 名前：nobodyさん mailto:sage [2008/05/27(火) 19:55:45 ID:???] >>569-570 $foo eq undef もたいがいだが shift || $global_foo だと $_[0] が '0' の時に挙動変わるな。 572 名前：nobodyさん mailto:sage [2008/05/27(火) 20:06:24 ID:???] { my $global_foo = $foo; my $global_bar = $bar; $foo = defined( $_[0] ) ? $_[0] : $global_foo; $bar = defined( $_[1] ) ? $_[1] : $global_bar; } こうか？ 573 名前：nobodyさん mailto:sage [2008/05/27(火) 20:06:58 ID:???] あ、三項演算子逆だ。すまん。 574 名前：nobodyさん mailto:sage [2008/05/27(火) 20:33:00 ID:???] defined関数の存在が頭から抜けてたorz $foo = $global_foo if $foo eq undef; $bar = $global_foo if $bar eq undef; ではなく $foo = $global_foo unless defined $foo; $bar = $global_foo unless defined $bar; でお願いします。あと>>570-573サンクス、参考になります。 575 名前：nobodyさん mailto:sage [2008/05/27(火) 20:38:51 ID:???] つーか、>>569だとまともに動かんよ。 初期化するためにmy使っちゃってるように見えるけど、 この場合、ブロックスコープになるから、 ブロック内の$foo, $barと、グローバル変数$foo, $barは別物になる。 576 名前：nobodyさん mailto:sage [2008/05/27(火) 20:54:18 ID:???] myの仕様間違えて覚えてたか… $global_foo = $foo; $global_bar = $bar; { my $foo; my $bar; $foo = $_[0]; $bar = $_[1]; $foo = $global_foo unless defined $foo; $bar = $global_foo unless defined $bar; } 欲しい動作はこうかな… 577 名前：nobodyさん mailto:sage [2008/05/27(火) 20:56:48 ID:???] いやいやいやいやｗ 「perl スコープ 変数」でググっみ。 578 名前：nobodyさん mailto:sage [2008/05/27(火) 21:53:15 ID:???] 全然わかってないわかってないｗｗｗ 579 名前：nobodyさん mailto:sage [2008/05/27(火) 22:34:53 ID:???] my $foo = 1; sub func { my $temp = $_[0]; return defined( $_[1] ) ? $_[1] : $temp; } ex : $foo = func( $foo, 10 ); # $foo = 10 $foo = func( $foo ); $foo = 1 580 名前：nobodyさん mailto:sage [2008/05/28(水) 00:31:36 ID:???] 早くdefined-or演算子実装されないかな… 581 名前：nobodyさん mailto:sage [2008/05/28(水) 01:24:48 ID:???] 今日が今月の何週目か求めるにはどうしたらよいでしょうか 582 名前：576 mailto:sage [2008/05/28(水) 01:29:54 ID:???] $global_foo = $foo = 1; $global_bar = $bar = 2; @_ = (3,4); #@_に値あり { my $foo; my $bar; $foo = $_[0]; $bar = $_[1]; $foo = $global_foo unless defined $foo; $bar = $global_bar unless defined $bar; print "point 1: foo=$foo bar=$bar\n"; } print "point 2: foo=$foo bar=$bar\n"; 出力結果 point 1: foo=3 bar=4 point 2: foo=1 bar=2 583 名前：576 mailto:sage [2008/05/28(水) 01:32:06 ID:???] $global_foo = $foo = 1; $global_bar = $bar = 2; @_ = (3,4); #@_に値あり { my $foo; my $bar; $foo = $_[0]; $bar = $_[1]; $foo = $global_foo unless defined $foo; $bar = $global_bar unless defined $bar; print "point 1: foo=$foo bar=$bar\n"; } print "point 2: foo=$foo bar=$bar\n"; 出力結果 point 1: foo=1 bar=2 point 2: foo=1 bar=2 ━━━━━━━━━━━━━━━━━━━━━━━ うん、欲しかった動作そのままだけど。 >>577-578が理解できず悩み中 584 名前：nobodyさん mailto:sage [2008/05/28(水) 01:34:02 ID:???] ぎゃー、>>583張り間違えた 【誤】@_ = (3,4); #@_に値あり 【正】@_ = (); #@_に値無し orz 120秒規制が若干きつい… 585 名前：nobodyさん mailto:sage [2008/05/28(水) 01:35:51 ID:???] Date::Calc 586 名前：nobodyさん mailto:sage [2008/05/28(水) 01:46:51 ID:???] >>576 目的が分からん。そもそも何がしたいの？ 説明する気あるのか？ my $foo = 1; my $bar = 2; print $foo = func( $foo ); print $bar = func( $bar ); print $foo = func( $foo, 3 ); print $bar = func( $bar, 4 ); exit; sub func { return defined( $_[1] ) ? $_[1] : $_[0]; } 587 名前：nobodyさん mailto:sage [2008/05/28(水) 01:47:41 ID:???] >>585 感動した　ありがとう 588 名前：576 mailto:sage [2008/05/28(水) 01:58:37 ID:???] >>586 サブルーチン冒頭にて、引数リスト　＞　デフォルト値（グローバル変数の値とか） の優先順でmy変数値を設定したいことはよくあるから、 perlなら…　perlならきっとすごくスマートに書く方法があるに違いない… という夢を見たけど、幻だったみたいですね… 変数ひとつずつシコシコとunless definedを当てることにします。 589 名前：nobodyさん mailto:sage [2008/05/28(水) 02:00:25 ID:???] いや、日本語でおｋ お前の望むようなことは確実にできると思うんだけど、 なにぶん言いたいことがよく分からんｗ 590 名前：nobodyさん mailto:sage [2008/05/28(水) 02:16:48 ID:???] my $global_foo = my $foo = 1; my $global_bar = my $bar = 2; # @_ =( ); @_ =( 3, 4 ); { my $foo = defined( $_[0] ) ? $_[0] : $global_foo; my $bar = defined( $_[1] ) ? $_[1] : $global_bar; print "point 1: foo=$foo bar=$bar\n"; } print "point 2: foo=$foo bar=$bar\n"; 結局、最初に提案されてる回答をアレンジすれば、 >>582-584をシンプルかつ可読性も保ったまま実現できるんだが。 これじゃいかんの？ 591 名前：nobodyさん mailto:sage [2008/05/28(水) 02:25:18 ID:???] >>590 そのへんが限界みたいですね…ありがとうございます。 私の欲求そのものが十分特殊だったのかな… いま考えてる最善の形はサブルーチンを使うことです。 サブルーチンコールは負担かかりそうだからやりたくないんだけど… sub merge_argument_and_default{ my ($argument, @default) = @_; my @value; while(1){ my ($a, $v) = (shift @$argument, shift @default); my $c = ((defined $a) ? $a : $v); last unless defined $c; push @value, $c; } return @value; } sub foo{ my(@bar) = &merge_argument_and_default(\@_, @default_bar); } みなさんありがとうございました。 592 名前：nobodyさん mailto:sage [2008/05/28(水) 02:30:59 ID:???] 殺してぇ……。日記じゃねぇんだよ。 593 名前：nobodyさん mailto:sage [2008/05/28(水) 06:17:52 ID:???] >>580 もう実装されてるよ? search.cpan.org/dist/perl/pod/perl5100delta.pod#Defined-or_operator 594 名前：nobodyさん mailto:sage [2008/05/28(水) 06:40:31 ID:???] >>576みたいに、自分のプライド保つために 当初の目的をすり替えて、自分は違うもの作ってました的な発言するやつは質問にくるなよ。 当初は「>>569をコンパクトにしたい」って言ってただけなのに、 どんな解が提示されても、 どんどん違う方向に勝手に転換して善意のレスすら流し読み。 こういう奴は、治らないから本当に放置すべきだと思うよ。 595 名前：nobodyさん mailto:sage [2008/05/28(水) 07:18:42 ID:???] >>594 それは違うんだけど、あなたへの説得は無理かな。 ひどく機嫌を損ねてしまったのは悪いと思ってるが。 いただいたありがたいアドバイスから、例えば今回は、 「サブルーチン化でもしなければ相当コンパクトに収めるのは難しいらしい」 「そのサブルーチンはこういう形で書くのがよいのだろうか」 などと、自分の知識や興味対象は移り変わっていくことが多いです。 ただ、このスレッドにはしばらく書き込みを自粛します。さよなら。 596 名前：nobodyさん mailto:sage [2008/05/28(水) 10:11:34 ID:???] 典型的な"隠す人"だったか。 597 名前：590 mailto:sage [2008/05/28(水) 10:39:10 ID:???] うわ、ちょっと離れたスキにすげぇ慇懃無礼なこと書いてやがる。 目的も明確にせず、そのへんが限界てｗ そもそも次の疑問に移ったなら、その過程を説明するのが回答者への最低限の礼儀だろ。 社会出て苦労するよ。 ちなみに>>591は、俺ならこう書く。 sub merge_argument_and_default { 　my ($argument, @default) = @_; 　my %count; 　$count{$_} = $default[$_] for( 0..$#default ); 　$count{$_} = ${ $argument }[$_] for( 0..$#{ $argument } ); 　return map { $count{$_} } sort keys %count; } 598 名前：nobodyさん mailto:sage [2008/05/28(水) 11:40:59 ID:???] >595みたいなやつっているよね 言葉遣いが丁寧なだけで、いっぱしの大人だと思ってる人。 599 名前：nobodyさん mailto:sage [2008/05/28(水) 12:04:01 ID:???] sub merge_argument_and_default { map{ defined $_[0][$_] ? $_[0][$_] : $_[$_ + 1] ;} 0 .. $#{$_[0]} ; } >>598 ガキなの見え見えなんだよねw ttp://www2.atpages.jp/mirror/2ch/perl/prog/read.php/1157874614/ の595を思い出した。 600 名前：nobodyさん mailto:sage [2008/05/28(水) 13:55:09 ID:???] >>593 そいえば5.10でてるんだっけ(汗 RHELとCentOSしか使ってないからすっかり忘れてました。 601 名前：nobodyさん mailto:sage [2008/05/28(水) 15:44:58 ID:???] 5.10って絶対分かりづらいよｗ 5.8より昔のリリースだとしか思えない。 602 名前：nobodyさん mailto:sage [2008/05/28(水) 15:51:58 ID:???] Ver 5.008008 Ver 5.010000 こう書けばよいのか？ 603 名前：nobodyさん mailto:sage [2008/05/28(水) 16:09:29 ID:???] 5.1の方が新しいんですか？ 知らなかったorz 604 名前：nobodyさん mailto:sage [2008/05/28(水) 16:21:25 ID:???] 5.10.0 > 5.9.5 > 5.8.8 >> 5.1.0 苦肉の策なんだろうな……。 605 名前：nobodyさん mailto:sage [2008/05/28(水) 17:55:49 ID:???] perl6ってどうなったん？ 606 名前：nobodyさん mailto:sage [2008/05/28(水) 19:03:22 ID:???] >>605 parrotの新しいのが最近でた気が･･･ 607 名前：nobodyさん mailto:sage [2008/05/28(水) 20:28:19 ID:???] あるIPアドレスが変数$ipに格納してあります。 この$ipが存在するか、あるテキストファイル(ip.txt)を読んで チェックしています。以下は例です。 $ipは"192.168.0.1" ip.txtに192.168.0.1が記述してあります。 この場合マッチするようプログラムしてあります。 ip.txtに 192.168.0.0/24 または 192.168.0.0/255.255.255.0 と記述してあるものと マッチさせたいのですが、 そういうサブルーチンは ありますでしょうか？ 簡単にいうと、あるIPアドレスが サブネットマスクで指定してある １０進表記またはサイダー表記に マッチするか判定したいのです。 ip.txtは１０進表記でもサイダー表記の どっちでも構いません。 608 名前：nobodyさん mailto:sage [2008/05/28(水) 20:34:04 ID:???] ttp://pc11.2ch.net/test/read.cgi/tech/1086143976/491-590 の543-544及び「IP pack unpack perl」でググれ。 609 名前：607 mailto:sage [2008/05/28(水) 20:59:40 ID:???] >>608 あり♪ 明日、見てみるよん 610 名前：597 mailto:sage [2008/05/28(水) 21:17:34 ID:???] >>599 終わった話題なんだけど、ちょっと気になった。 めんどくさかったら、スルーして。 提示してくれてるルーチンだと、 　引数1 @array1 = (); 　引数2 @array2 = ( 1,2 ); のとき、返り値が空になっちゃうよね。 配列1（引数1） > 配列2（引数2） という優先順位で、 配列3（返り値）を混ぜ合わせるというのが目的の処理だと思うんだけど、 配列1と配列2で要素数の大きい配列を、要素数だけループさせる処理にする場合、 キレイにまとめる方法ってないかなぁ？ 　if( ( $#array1 <=> $#array2 ) == -1 ) { 　　EXPR for( 0..$#array2 ); 　} else { 　　EXPR for( 0..$#array1 ); 　} みたいな、冗長な方法しか俺には思い浮かばなかった。 だから、「配列の重複値をハッシュを利用してマージ」の応用みたいなことを>>597でやってみたわけだ。 なんか美しい方法あればいいんだけどなぁ。 611 名前： ◆TWARamEjuA mailto:sage [2008/05/28(水) 21:20:10 ID:???] (´-`).｡ｏＯ(Net::CIDRでよさそうな。。。) 612 名前：597 mailto:sage [2008/05/28(水) 21:26:18 ID:???] my @temp = ( $#array1 <=> $#array2 ) == -1 ) ? ( 0..$#array2 ) ; 0..$#array1; こんな前処理してから、>>599のmap対象配列に、( 0..\$temp ) って感じかなぁ？ エレガントさには欠けるけど、これが可読性保つギリギリかな？ 613 名前：597 mailto:sage [2008/05/28(水) 21:28:46 ID:???] 動作確認してないからtypoしまくり。まぁ分かるよね？（苦笑 614 名前：６０７ mailto:sage [2008/05/28(水) 21:31:18 ID:???] >>611 私へのレスですね。 明日調べてみます 615 名前：599 mailto:sage [2008/05/28(水) 22:23:24 ID:???] >>610 ああ、 @array1 = ( undef, undef ) ; は考えてたけども、それは想定してなかったw >>612の解で良いんじゃね？　助長を厭わないならば、 map{ 略 } 0 .. $#{$_[0]} , 0 .. $#_ - 1 ; っつー荒技もw 自分のスクリプトじゃ絶対やんないけどね。 616 名前：599 mailto:sage [2008/05/28(水) 22:27:21 ID:???] >>615 s/助長/冗長/ 617 名前：nobodyさん mailto:sage [2008/05/29(木) 03:05:45 ID:???] mapがいまいち理解し切れなくて使ってないんだが覚えとくべき？ 覚えると便利そうだけど。 618 名前：nobodyさん mailto:sage [2008/05/29(木) 03:45:40 ID:???] やってることは、forやforeachと変わらん。 違うっていえば、{}の中を、引数リストのそれぞれの要素で実行した結果をリストとして返すってとこか。 かなり便利な局面もある。覚えとくべきだとは思う。 @res = map{ $_ + 10 } (1,2,3,4,5) ; print join("\n",@res); ---結果--- 11 12 13 14 15 619 名前： ◆TWARamEjuA mailto:sage [2008/05/29(木) 07:02:31 ID:???] my $Now_Date = sprintf qq|%04d/%02d/%02d %02d:%02d|, map { $_->[0] += 1900; $_->[1]++; @$_; }[(localtime)[5,4,3,2,1]]; 2008/05/28 07:02 って出るかと思う。 620 名前：nobodyさん mailto:sage [2008/05/29(木) 08:23:18 ID:???] >>617 シュワルツ変換という定番sort手法には必須だよ。 ぐぐって、foreach 文で書いてみたらありがたみが分ると思う。 >>619 お前さんの例は頻繁にとんでもなく斜め上を行くなあw なんで一要素しかないと分りきってる無名配列を作って map の例にする？ do ならいざしらず perl -le 'my $Now_Date = sprintf qq|%04d/%02d/%02d %02d:%02d|, do{ @_ = (localtime )[5,4,3,2,1] ; $_[0] += 1900 ; $_[1] ++ ; @_ } ; print $Now_Date ;' それ以前に普通は↑こんな面倒な事しないだろ？ perl -MPOSIX=strftime -le '$str =strftime "%Y/%m/%d %H:%M", localtime; print $str, "\n"; ' 621 名前：607 mailto:sage [2008/05/29(木) 17:51:57 ID:???] Net::CIDR::cidrlookupでうまくいきそうなのですが、 IPアドレスのチェックを行いたいと思ってます。 ググると、以下の様な正規表現がありますが、 \d(バックスペース)の意味が分かりません。 どういう意味なんでしょうか？ \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3} 622 名前：nobodyさん mailto:sage [2008/05/29(木) 17:53:57 ID:???] 0-9 623 名前：607 mailto:sage [2008/05/29(木) 17:54:42 ID:???] すみません。 \dは数字でした。 申し訳ない 624 名前：607 mailto:sage [2008/05/29(木) 18:10:05 ID:???] またまたお願いします。 正規表現で/をマッチさせたいのですが、 以下であってますでしょうか？ $hoge =~ /\// 625 名前：607 mailto:sage [2008/05/29(木) 18:11:58 ID:???] すんません \/で、いけるみたいです。 お騒がせしました。 626 名前：nobodyさん mailto:sage [2008/05/29(木) 18:15:31 ID:???] $hoge =~ m(/); すこしは綺麗？ 627 名前：nobodyさん mailto:sage [2008/05/29(木) 18:19:11 ID:???] >>617だけどレスありがとう。 シュワルツ変換とかまだいまいち理解できないけど良さそうだね。 sortは結構使うから思い処理の部分で使うのはいいかも。 でも問題は後で読み直して何してるか理解できなくなりそうな所だな。 628 名前： ◆TWARamEjuA mailto:sage [2008/05/29(木) 20:45:58 ID:???] >>620 つっこみおおきに♪ mapを覚えちゃってからどんどん斜め上に逝っちゃいました。 ひとまず車輪の再発明は大好き♪ 629 名前：nobodyさん mailto:sage [2008/05/30(金) 02:09:30 ID:???] 曲芸はほどほどに 630 名前：nobodyさん mailto:sage [2008/05/30(金) 08:17:40 ID:???] 出来た物が車輪じゃない上に使えないのならただの無駄 631 名前：nobodyさん mailto:sage [2008/05/30(金) 10:14:07 ID:???] 車輪を作ろうとしたら鎖鎌が出来ちゃった感じだな 632 名前：nobodyさん mailto:sage [2008/05/30(金) 10:19:32 ID:???] まーmapは便利だってことだ 633 名前：nobodyさん mailto:sage [2008/05/30(金) 11:57:18 ID:???] XML::DOMを使ってXHTMLに広告を挿入するCGIを書いたのですが、use encoding "utf8"; を書くとローカルで文字化けしてしまいます。これをコメントアウトすると XREA.COMのサーバ上でScript Errorが発生してしまいます(しかもエラーログが見られない)。 ローカルでもXREA.COM上でも動くようにしたいのですがどうすればいいでしょうか。 コードはこんな感じです。 #!/usr/bin/perl use strict; use XML::DOM; use encoding "utf8"; my $xhtml_file = $ENV{'PATH_TRANSLATED'}; my $parser = new XML::DOM::Parser; my $doc; eval { $doc = $parser->parsefile($xhtml_file) }; if($@) { print "Content-Type: text/plain;charset=utf-8\n\n"; print "parsing error occured: $@"; exit; } # 広告挿入処理 print "Content-type: application/xhtml+xml;charset=utf-8\n\n"; print $doc->toString; $doc->dispose; ローカルの環境はUbuntu 8.04 + Perl 5.8.8 + Apache 2.2.8、 XREA.COMはよくわかりません。 634 名前：nobodyさん mailto:sage [2008/05/30(金) 12:22:33 ID:???] >>632 だれも「mapが不便」なんて言ってないがな 明らかにバッドノウハウなコードを曝してる奴をくさしてるだけで 635 名前：nobodyさん mailto:sage [2008/05/30(金) 12:23:13 ID:???] すみません。自己解決しました。use encoding "utf8";をコメントアウトして utf8::is_utf8($doc->toString) ? print encode('utf-8', $doc->toString) : print $doc->toString; とすればいいみたいです。utf8フラグというのが関係しているみたいなので、 調べてみます。おさわがせしました。 636 名前：nobodyさん mailto:sage [2008/05/30(金) 12:40:26 ID:???] >>635 これはマジメに調べまくった方がいい。 慣れるまでPerl5.8以降でハマる最大の原因。 637 名前：nobodyさん mailto:sage [2008/05/30(金) 12:50:11 ID:???] BOM付けてたりして・・・ 638 名前：nobodyさん mailto:sage [2008/06/01(日) 07:19:24 ID:???] BOMBなら付いてますw 639 名前：nobodyさん mailto:sage [2008/06/02(月) 12:34:35 ID:???] Wed, 12 Mar 2008 21:20:11 GMT Last-Modified↑これをtimeの値に変換する方法を教えてください。 3600秒以内とかの判定に使いたいので。 640 名前：nobodyさん mailto:sage [2008/06/02(月) 12:49:16 ID:???] >>639 timelocal 641 名前：nobodyさん mailto:sage [2008/06/02(月) 12:57:39 ID:???] >>640 ありがとうございました！ 642 名前：nobodyさん mailto:sage [2008/06/02(月) 13:51:21 ID:???] こんな感じで出来たのですが凄く格好悪いです。 $mon = 1 if $mon eq 'Jan';とか。 スマートな例があったら参考の為に見せてください。 sub last_modified { my $time = shift; my($day, $mon, $year, $hour, $min, $sec); if ($time =~ /\w+, (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) GMT/) { ($day, $mon, $year, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6); $mon = 1 if $mon eq 'Jan'; $mon = 2 if $mon eq 'Feb'; $mon = 3 if $mon eq 'Mar'; $mon = 4 if $mon eq 'Apr'; $mon = 5 if $mon eq 'May'; $mon = 6 if $mon eq 'Jun'; $mon = 7 if $mon eq 'Jul'; $mon = 8 if $mon eq 'Aug'; $mon = 9 if $mon eq 'Sep'; $mon = 10 if $mon eq 'Oct'; $mon = 11 if $mon eq 'Nov'; $mon = 12 if $mon eq 'Dec'; } else { die "Error: $time\n"; } $time = timelocal($sec,$min,$hour,$day,$mon-1,$year); return $time; } 643 名前：nobodyさん mailto:sage [2008/06/02(月) 14:47:28 ID:???] >>642 %mons = ( Jan => 1, Feb => 2, Mar => 3, Apr = 4, # ……以下省略 ); $mon = $mons{$mon}; とかどうよ？ 644 名前：nobodyさん mailto:sage [2008/06/02(月) 15:22:18 ID:???] >>643 ありがとうございます。 連想配列は普段全く使わないので、この機会に試してみます！ 645 名前：nobodyさん mailto:sage [2008/06/02(月) 15:44:50 ID:???] >>643は、どうせ後で1引くのに、どうしてわざわざ1足すのさ？ｗ 646 名前：nobodyさん mailto:sage [2008/06/02(月) 16:15:30 ID:???] >>645 ほんとだ＞＜ お前頭いいな すみません＞＜ 647 名前：nobodyさん [2008/06/02(月) 17:46:33 ID:VCfcjQkN] CPANを使わずにモジュールを使いたいのですが、なかなかうまくいきません。 HTML::Template を使いたいのですが、 ローカルにインストールしている、 C:\Perl\cpan\build\HTML-Template-2.9\Template.pm というファイルを、以下のcgiと同ディレクトリにコピーしました。 #!/usr/local/bin/perl use strict; use lib qw(.); use HTML::Template; print "Content-type:text/html\n\n", "test"; ですが、うまくいかないようです。 use lib qw(.); の部分を、 unshift @INC, '.'; などとしても不可能でした。 ググっても上記の方法ぐらいしか出てこないんですが、何がいけないか教えていただけますでしょうか。 Perl のバージョンは 5.00503 です。 648 名前：nobodyさん mailto:sage [2008/06/02(月) 17:51:49 ID:???] Template.pmをHTMLというディレクトリを作ってそこにいれる 649 名前：nobodyさん [2008/06/02(月) 18:08:23 ID:VCfcjQkN] >>648 ありがとうございます。 助言どおりHTML ディレクトリにTemplate.pmを入れて、エラーが出たので、 Digest::MD5がどうだとかエラーが出ました。 同じ要領で、Digest ディレクトリを作り、MD5.pmを入れると、 次はXSLoader.pmが必要らしく、それもcgiと同ディレクトリに入れました。 次はDynaLoader.pmがどうとかエラーが出たので、それも同じディレクトリに入れたのですが、 今度はエラーが消えませんでした。。 最終的にCGI::Carpがはいたエラーは以下です。 [Mon Jun 2 18:01:45 2008] Template.pm: [Mon Jun 2 18:01:45 2008] Template.pm: [Mon Jun 2 18:01:45 2008] MD5.pm: [Mon Jun 2 18:01:45 2008] MD5.pm: [Mon Jun 2 18:01:45 2008] DynaLoader.pm: Can't locate loadable object for module Digest::MD5 in @INC (@INC contains: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 .) at HTML/Template.pm line 915 [Mon Jun 2 18:01:45 2008] Template.pm: [Mon Jun 2 18:01:45 2008] Template.pm: BEGIN failed--compilation aborted at HTML/Template.pm line 915. BEGIN failed--compilation aborted at test.cgi line 6. 650 名前：nobodyさん mailto:sage [2008/06/02(月) 18:17:18 ID:???] CPAN にモジュールの関連性とか書いてなかったっけ？ 651 名前：nobodyさん mailto:sage [2008/06/02(月) 18:18:22 ID:???] 関連性とかじゃなくて依存のこと 652 名前：nobodyさん [2008/06/02(月) 18:25:00 ID:VCfcjQkN] q.hatena.ne.jp/mobile/1195733487 ↑必要としているモジュールは違うものの、 この人と同じ状況なのかな、と思うんですがどう思いますか？ 同じ状況だとすると、不可能ですよね FTPであげることしかできませんので。。。 653 名前：nobodyさん mailto:sage [2008/06/02(月) 18:41:40 ID:???] 呼び出されてるDLLがWin用のコンパイル済みDynaLoader.pmを、Linuxにそのままコピーしたんでしょ？　たぶん。 Linuxでコンパイルし直さないとムリ。よってムリ。

---

---

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

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