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

1 名前：デフォルトの名無しさん mailto:sage [2007/03/14(水) 22:54:12 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 pc8.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2006/12/21現在の最新版: 5.8.8 ● 2006/12/21現在の開発版: 5.9.3 前スレ Perlについての質問箱 29箱目 pc11.2ch.net/test/read.cgi/tech/1166708139/ リンク集は>>2-3 過去スレは>>4 245 名前：デフォルトの名無しさん mailto:sage [2007/04/12(木) 04:01:25 ] >>242 見事になんにもなし。 246 名前：デフォルトの名無しさん mailto:sage [2007/04/13(金) 05:01:57 ] >>240 ありがとうございます。 >>241 いえ。こだわってないから他の手にするつもりです。 UNIX環境でないとなかなか不便なものなんですね。 247 名前：デフォルトの名無しさん mailto:sage [2007/04/13(金) 22:58:40 ] >>246 >UNIX環境でないとなかなか不便なものなんですね。 この点は同意なんだけどね。 しかし、キミが不便だと言っている点についてオレは不便を感じたことはないな。 248 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 00:31:00 ] そんなに頻繁に使うようならスクリプトをちゃんと書けよ てかperlの質問じゃなくて、コマンドラインについての質問だよな・・・ 249 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 13:30:37 ] >>247 >しかし、キミが不便だと言っている点についてオレは不便を感じたことはないな。 主観的且つ感情的な意味でしょうか？そうではないとしたら何か理由がおありですよね？ 不便と思わない理由はなんでしょうか？ >>248 スレ違いになるかもですね。 そろそろ退散したいと思います。 250 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 13:32:25 ] ＞そんなに頻繁に使うようならスクリプト ？ 251 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 17:11:52 ] #!/usr/bin/perl # >>235 の望みを叶える夢のスクリプト: exec 'perl', '-pi.bak', '-e "tr/A-Z/a-z/"', shift; __END__ 252 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 22:29:21 ] >>251 頭大丈夫？ 253 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 22:41:39 ] 大丈夫な人も大丈夫じゃない人も大丈夫って答えるから 間抜けな質問というしかない。 254 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 22:55:57 ] >>184 @a = grep {/(foo|bar|baz)/} split /(foo|bar|baz)/ , $_; 255 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 23:30:26 ] こんばんは。 会社のHP作成を引き継いだのですが、わからないことがあるのでどなたか教えていただけないでしょうか。 コンボボックスを外部のテキストから読み込んでいるのですが、途中までしか表示されないのです。 0<>--<><> 1<>A<><> 2<>B<><> 3<>C<><> 4<>D<><> 5<>E<><> 6<>F<><> 7<>G<><> 8<>H<><> (中略) 14<>N<><> 上記が外部テキストの中身なのですが、コンボボックスには8までしか表示されないのです。 コンボボックスの方は #編集モード以外は表示するだけ、編集モード時はコンボボックスで表示 if (!$edit) {$html .= "<td align=\"center\"><table width=\"100%\">"; for ($l = 0; $l < $periods; $l++) { if ($showpname) { $html .= "<tr><td>$periodname[$l]</td>"; } $html .= "<td align=\"center\">$STATUSSTR[$stats[$l]]</td></tr>";} $html .= "</table></td>\n";} となっています。 全てを表示させるようにするにはどこを変えたらいいのでしょうか。 (これだけの情報では不十分でしたらすみません。 　他にどんな情報が必要かも教えていただければ幸いです) Perl関連の本など読んでみたのですがわからなくて… 宜しくお願いします。 256 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 23:36:54 ] コンボボックスじゃなくて表で表示するコードに見えるが・・・。 257 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 23:48:58 ] >>256さん あ、もしかしてここは関係なかったですかね… カレンダーの1日ごとにコンボボックスが入っているので、そのカレンダーの方のコードなんでしょうか… わからないことだらけのまま質問してしまってごめんなさい。 もう一度コードを見直してみます。 258 名前：デフォルトの名無しさん mailto:sage [2007/04/14(土) 23:53:55 ] 読み込まれたテキストデータがコンボボックスのどの変数になってるのかがわからない。 perlコードの、$periods、$showpname・・・とやらが何なのかわからないと 何もアドバイス出来ないよ。 259 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 00:03:49 ] >>258さん そうですか… $periodsなどなどは専門用語なのかなぁ、と思っていたのでそこから間違いだったのですね。 前任者とは全く連絡が取れず、初心者の私には何がなにやらさっぱりで… 失礼致しました。 もっと勉強して出直します！ 260 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 00:23:13 ] periodつーたら何らかの「期間」じゃないのか? 261 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 00:39:39 ] >>260さん 期間…カレンダー関係ですかねぇ。 日ごとにアルファベッドを選択して登録するんですけど、 何ヶ月か分をまとめて登録してそれをScriptで(？)違うページに呼び出すので、それですかねぇ… それにしても8番までしか出てこないのもどこかで指定してるんですかねぇ。 あまりにファイルが多すぎて、探すのに時間がかかりそうです… 262 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 00:52:49 ] >>255 本当にそのコードが該当コードなのかどうか怪しいね ありうるとすれば@STATUSSTRの中が"<select>…"といったhtmlになってるとか とりあえずPerlの配列変数は先頭の記号が $ だったり @ だったりするので それだけ注意して変数をさかのぼって行くとか お節介だけど$showpnameのif文、通らない場合に開始<tr>タグ欠けるよ 263 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 01:03:42 ] 俺なら解読するの諦めて書き直したくなるな 264 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 01:56:12 ] >>255 エスパーのおいらが予測するには、>>255 が挙げた箇所の次に } else { という行があり、その後の部分が問題の部分なんだろうな。 265 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 06:52:58 ] perlのソースコードの中に直接HTMLが書かれているなら 「type="select"」あたりで検索すれば、該当個所の近辺の コードに当たるんじゃないか？ 266 名前：265 mailto:sage [2007/04/15(日) 06:55:31 ] 間違えた。「type="select"」じゃなくて「<select」だな。 267 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 23:51:49 ] >>255さんには内緒で、実はその前任者さんをこのスレにお呼びしています＾＾。 実は前任者さん、その書き込みの様子をモニターを通して見ておりました。 では、心に引っかかっていた辛い過去。 あの時、伝えられなかった想いを今、、、 268 名前：デフォルトの名無しさん [2007/04/16(月) 00:50:06 ] perlの時代は終わった・・・ これからの初心者は、今の時代に合った言語を使ってくれ・・・ ・・以上 269 名前：デフォルトの名無しさん mailto:sage [2007/04/16(月) 00:53:48 ] ruby？python？ 270 名前：デフォルトの名無しさん mailto:sage [2007/04/16(月) 01:04:26 ] 情報保護の時代だからな。 Whitespaceだろ。 271 名前：デフォルトの名無しさん mailto:sage [2007/04/16(月) 04:53:46 ] 仕事をPHPいじってから、Perlを汚い言語だなんて言ってた自分の愚かさに気づいた。 Perlは消えなくていい。PHP、頼むから消滅してくれ。 272 名前：デフォルトの名無しさん mailto:sage [2007/04/16(月) 04:56:25 ] s/(?<=仕事)を/で/ 273 名前：デフォルトの名無しさん mailto:sage [2007/04/16(月) 06:08:15 ] 255です。 皆さんどうもありがとうございます。参考になりました！ ここで皆さんにお聞きするにはあまりにも自分が無知すぎて申し訳ないです。 更新は休みの土日しかできないので、来週までに色々調べてまた挑戦します。 >>262さん なるほど… <tr>タグの件、ご指摘ありがとうございます！ >>263さん 書き直すなんて絶対無理ですので頑張って解読したいと思います… >>264さん } else { って部分あります！！ その部分に注意してみます。 >>265さん 検索ですね。htmlがperlの中にあるので試してみます！ >>267さん 実は前任者とは全く面識がないので、あの時も何もあったもんじゃない、って感じなのですが… 274 名前：デフォルトの名無しさん mailto:sage [2007/04/16(月) 14:16:33 ] >>225 すんげー今更だな google出来た頃から規約に書いてあるし www.google.co.jp/accounts/TOS 275 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 06:50:02 ] まさかLWP使ったらすべて自動クエリだとか思ってる訳じゃないよな。 276 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 06:59:52 ] >検索結果ページに対して ってあるからなぁ 277 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 13:36:22 ] 質問です $var = 010203　とあります これを $var = 01/02/03 このように2桁ごとにスラッシュを入れるにはどうしたらよいでしょうか？ 0102　や　01、01020304　の場合などどの桁数にも対応したいです 278 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 13:43:51 ]  perl -e '$var="010203"; $var=~s/([0-9]{2})/$1\//g;print $var;' 279 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 15:07:07 ] ありがとうございます できました 280 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 15:48:19 ] 正規表現の中にスラッシュがあるときはエスケープするより s{([0-9]{2})}{$1/}g とかの方が良い気がする 281 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 16:06:26 ] 0-9より\dのがいい気がする 282 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 16:11:38 ] '010203' のとき '01/02/03/' になる気がする 283 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 16:44:03 ] s{\d{2}(?=\d)}{$&/}g; かな 284 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 17:15:38 ] $& 使うくらいだったら普通に join したくなるなあ、俺は。 perl -le '$var = qq{010203} ; print join q{/}, ( $var =~ /(\d{2})/g )' 285 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 19:37:56 ] まあ一般には \d は 0-9 の必要条件であって同値ではないけどな。 286 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 19:46:31 ] こういうことか $ perl -e 'use utf8; print q[０] =~ /\d/' 1 287 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 22:03:19 ] J2EEの方がいい気がする 288 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 22:40:33 ] >>277 3桁区切りにカンマをつけるというのがよくあるから それを参考に好きなの使えば？ 289 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 22:57:26 ] >>282 答えはそれでいいんだろ？ 290 名前：デフォルトの名無しさん mailto:sage [2007/04/17(火) 23:59:03 ] >>289 質問者の出してる例はそうは言ってないぞ。 291 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 03:02:24 ] >>277 Date::Manipでできんじゃね? 292 名前：壁| x ・)つ○ mailto:sage [2007/04/18(水) 03:09:07 ] こういうのは こうりつわるいですか？ for ($i = 2; $i < rindex($var, ""); $i += 3) { 　　substr($var, $i, 0) = "/"; } 293 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 12:07:56 ] $var = reverse( ( $var = reverse $var ) =~ s{(\d\d)(?=\d\d)}{$1/}g ); 294 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 12:18:50 ] 近頃はs#･･･#･･･#って書き方見なくなったな 295 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 13:07:55 ] >>292 人間の読み書きの部分で効率悪いと思う 296 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 14:36:58 ] 1 while $var =~ s/(\d{2})(\d{2})/$1\/$2/g; 297 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 14:43:01 ] s/(\d{2})(?=\d{2})/$1\/$2/g 298 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 16:53:45 ] >>297 $2なんてないじゃん 299 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 17:11:53 ] >298 なにを言っているんだお前は。 300 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 17:40:37 ] いやさ、 (?= ) は後方参照を生成しないだろう？ > perl -e "q/123/ =~ /(\d)(?=\d)(\d\d)/; print $2;" 23 そもそも、(?= )はゼロ幅先読みだろう。 > perl -e "q/123/ =~ /(\d)((?=\d))/; print $2;" (出力なし) 301 名前：デフォルトの名無しさん mailto:sage [2007/04/18(水) 20:54:57 ] >>295 なるほど　ワンライナーでさらっとかけるよう しょうじんいたします ・)つ●　←おれいのしな 302 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 10:56:55 ] >>300 そのとおり。適切な指摘ありがと。書いてから気がついた。 >>283か、 s|(\d\d)(?=\d)|$1/|g みたいな感じで。 303 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 22:59:05 ] ファイル出力の質問です open IN , ">$failename"; print IN , "test; close IN; で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです　Orz 助けてエロい人 304 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 23:02:26 ] >>303 > で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです　Orz さあ、「なんかうまく言ってくれないんです」の「なんか」を推定するクイズです!! 305 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 23:08:28 ] これは流石に釣りだろう 306 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 23:11:10 ] エスパーの私がお答えしよう。 Windows で \ 記号がディレクトリ名の区切りなもんだから ダブルクォーテーションで括っただけだとエスケープと 解釈されちゃって変な文字列完成。→オープン→エラー。 そんなファイルはねえよヴォケと $! に入っている。 307 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 23:34:21 ] $failename (フェイルエネーム?) だからではないか・・・なんてことはないか。 そもそも IN じゃなくて OUT だろうと use Fatal qw(open close); open my $out, '>', $filename; print {$out}, "test"; close $out; 308 名前：307 mailto:sage [2007/04/19(木) 23:39:40 ] - print {$out}, "test"; + print {$out} "test"; 309 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 23:40:55 ] {$out} 310 名前：デフォルトの名無しさん mailto:sage [2007/04/19(木) 23:54:37 ] {$safe} 311 名前：265 mailto:sage [2007/04/19(木) 23:58:02 ] $failename =~ s/^/zettaipath\/; 312 名前：303 mailto:sage [2007/04/20(金) 00:05:38 ] みなさま　マジでありがとうです こんな初心者をささえてくれてありがとお　つω； 313 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 01:32:59 ] なんかうまく言えました 314 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 03:42:05 ] うまく言えないけれど宝物だよ 315 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 03:53:44 ] 僕たちはできる!! できるんだ!! 316 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 03:54:26 ] 最高ですか！！？ 最高です！！！ 317 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 12:14:51 ] プラス思考のスレはここですか? 318 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 15:30:27 ] プラス指向プログラミング　POP 319 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 19:25:20 ] @http = $_ =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g; print FILEA @http; このような記述をしたら、 Variable "@http" is not imported at http-client.pl line 53. Variable "@http" is not imported at http-client.pl line 54. Global symbol "@http" requires explicit package name at http-client.pl line 53. Global symbol "@http" requires explicit package name at http-client.pl line 54. と言われました。 これは何のエラーですか！？ 320 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 22:19:47 ] @httpを括弧でくくってください 321 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 23:21:12 ] >>319 Variable "@http" is not imported については、perldiagをどうぞ。 というか、「何の」もなにもperlが出しているエラーなんだからまずはここで調べるべし。 つ perldoc.jp/docs/perl/5.6.1/perldiag.pod とりあえず、use strictなのに @http が生で使われているのが原因ですので、パッケージを明示的に 指定して使うか、my宣言すればいいのでは。 322 名前：デフォルトの名無しさん [2007/04/21(土) 23:17:55 ] PDFを解析したいんですが、どのような方法で読み込んでいったらいいと思いますか？ ちなみに、PDFの仕様として： ・改行文字はCR，LF，CRLF，のどれでもよい。 ・文字列内での改行文字はそのままのかたちで残さなければならない。 ・文字列内で（見た目のために）改行したいときは \改行文字 とする。 read(FILE, $buf, 512) ってのもめんどくさそうだし、できれば while(<FILE>) で 済ましたいんですが、意味のある改行もあるしなぁ。。。 323 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 00:20:39 ] >>322 何をしたいのか知らんが、まずCPANでPDF関係のモジュールを サーチしたほうがいいね。 あなたがしたいことを既に実現しているモジュールがあるかもしれないし、 少なくとも、改行文字の扱い方については、ソースの中にお手本が あると思うし。 324 名前：303 [2007/04/22(日) 04:50:29 ] 303ですが　またまた超初心者な質問です。 requier './jcode.pl'; sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); } ってコードがあったのですが &jcode の後ろについている ' の意味がわかりません。 もしかして &jcode::convert(*msg,'jis'); と同義ですか？ エディターの色分けが気持ち悪くなるので直したいです。教えてエロい人　Orz 325 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 05:35:13 ] Perl4 326 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 05:37:45 ] >>324 エロい人よりマニュアルに頼ろうよ。 <q cite="www.kt.rim.or.jp/~kbk/perl5.005/perlmod.html"> 古いパッケージ区切り子はシングルクォートでしたが、 現在はダブルコロンを使うのが推奨されています。 </q> mikeneko.creator.club.ne.jp/~lab/kcode/jcode.html#h2-2 327 名前：324 mailto:sage [2007/04/22(日) 11:13:18 ] なるほど！　ありがとうございました　＞＜ Jcodeの使い方も含めて勉強してきます　＞＜ノ 328 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 14:43:25 ] CPAN でインストールする際に以下のようなメッセージが出て失敗します。 Undefined subroutine &Compress::Zlib::gzopen called at /usr/local/lib/perl5/5.8.8/CPAN.pm line 5721. 何をインストールしても大体このエラーが出て失敗します。 Zlib は、 /usr/local/lib/perl5/site_perl/5.8.8/Compress/Zlib.pm にあって、サブルーチン gzopen もありました。 また、@INC に /usr/local/lib/perl5/site_perl/5.8.8 は含まれていました。 どこに問題があるか分からないのですが、教えてもらえないでしょうか。 環境は、 OSX 10.4.9 で Perl 5.8.8 を /usr/local/bin にインストールしました。 329 名前：デフォルトの名無しさん [2007/04/22(日) 16:09:08 ] >>328 あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？ で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、 /usr/local/bin/perl ってことに間違いはない？ 330 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 16:35:51 ] >>329 レスありがとうございます。 >あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？ はい。ソースコードからインストールしたらそこにインストールされたので、 /usr/local/bin/perl を使っています。 >で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、 >/usr/local/bin/perl ってことに間違いはない？ 間違いないはずです。 which perl で確認しました。 CPAN.pm の該当箇所をみると、 $CPAN::META->has_inst("Compress::Zlib") で判定した後に、 Compress::Zlib::gzopen を呼び出していました。 そこで gopen がないとなる理由がよく分かりません。 331 名前： ◆TWARamEjuA mailto:sage [2007/04/22(日) 17:40:08 BE:2287837-2BP(6823)] >>330 > >で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、 > >/usr/local/bin/perl ってことに間違いはない？ > 間違いないはずです。 > which perl で確認しました。 $env してみると判るけれども標準ではpathが通っていないと思うですです。 PATH=/bin:/sbin:/usr/bin:/usr/sbin @MacOSX 10.4.9 もっぺん確認してみよう♪ ♯tu-ka未だに5.8.6のままなんだよなぁ。。。(´･ω･`) $ perl -v This is perl, v5.8.6 built for darwin-thread-multi-2level (with 3 registered patches, see perl -V for more detail) 332 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 17:55:38 ] >>331 レスありがとうございます。 $env で確認してみましたが、先頭に/usr/local/binがありました。 PATH=/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin こうなるように、以前./bash_profile に追加しました。 となると、原因は不明でしょうか？ インストールの仕方が悪かったのかなあ。 333 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 20:53:01 ] CPANなんてまともに動作すると思うほうがおかしい。 手動で入れろ。 334 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 21:21:50 ] >>323 THX PDFファイルのすべてを把握するのが目的です。 CPANをみたところ、PDFのテキストや書誌情報を抽出したりするためのAPIは用意されてる のですが、もっと低レベルなパーサーがないようです。。 各種トークンが出現するたびにイベントを起動するような奴がほしいんですが。 HTML::ParserのPDF版でPDF::Parserみたいな感じの奴です。 335 名前：デフォルトの名無しさん [2007/04/22(日) 23:26:59 ] 日曜潰してまだ分からないので、どなたか助けてください＼(ToT)／ UTF-8でURIエスケープされた文字列を、アンエスケープするPerlの処理でけつまづいてます。 元の文字列をURIエスケープした文字列がサーバ側まで来ているのは確認しました。 「質問」→「%E8%B3%AA%E5%95%8F」だとか、「ü」→「%C3%BC」だとか。 これを $utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi; しても、正しくアンエスケープされない（文字化けする）のです。 UTF-8が可変バイトなのが曲者なのでしょうか。。。 ググった先（ttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1644542）の $utf8str =~ s/%(e[a-f\d])%([a-f\d]{2})%([a-f\d]{2}/pack('H2',$1).pack('H2',$2).pack('H2',$3)/egi; してもやはりだめでした。 336 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 23:56:33 ] >>333 むあじっすか。 337 名前：デフォルトの名無しさん mailto:sage [2007/04/22(日) 23:59:22 ] >335 use Encode qw/from_to/; my $str = '%E8%B3%AA%E5%95%8F'; # utf8の'質問'をエスケープ (my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi; from_to($dec, 'utf8', 'cp932'); # Winのコマンドプロンプトで表示するのでcp932にしてる print $dec; とりあえずこれで動いてるけど？　ブラウザに出してるんなら、Shift_JISって解釈されてるとかじゃない？？ 338 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 00:01:31 ] >>335 > $utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi; $1のための括弧が閉じられてません。 あとは、UTF-8に対応したEditorで開いてないとかでしょうか。 上の式で正しくアンエスケープされました。 339 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 00:35:06 ] 括弧閉じ忘れでごめんなさいorz >>337さんのスクリプトを実行したところ、文字化けしませんでした。 また、from_toする前でも、ファイルにリダイレクトして、 そのファイルをエディタで開いても同様に文字化けしていませんでした。 しかし、サーバに持って行ってブラウザに結果を出すと文字化けしてしまいます。 エディタはUTF-8に対応していて、Perlスクリプトもutf-8で保存して、 use utf8; use open ":utf8"; use open ":std";して、 print "Content-type: text/html; charset=utf-8\n\n"; いるのですが、 >>337さんのものでprint $dec;でもprint $str;でも駄目（文字化け）でした。 環境はWin XP SP2 + IE7、[表示]-[エンコード]でもUTF-8であることを確認しているのですが。。 。 度々で申し訳ないのですが、他に何か怪しい箇所がありますでしょうか？ 340 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 00:49:03 ] #!/usr/bin/perl my $str = '%E8%B3%AA%E5%95%8F'; (my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi; print "Content-Type: text/plainl; charset=utf-8\n\n"; print $dec; __END__ とりあえず手元だとこれで動いてる。まずは問題の発生する最小限のコードまで切り詰めてみ？ 341 名前：337 mailto:sage [2007/04/23(月) 01:17:20 ] ありがとうございました！解決しました。 use open ":std";が余計でした（よく分からないのに「おまじない」で書くのは駄目でしたね）。 問題のスクリプトから上記を除いて、かつ、 自分で作って読んでいるモジュールからも上記を除きました。 本当にありがとうございます！ 342 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 01:18:56 ] 自分（↑）は>>337さんでなくって>>335でした。お目汚しでごめんなさい。 標準入出力を使わないなら、use open ":std";等は確かに不要でした。 343 名前：335 mailto:sage [2007/04/23(月) 03:15:36 ] 事後報告がてら・・・ use open ":std";を外せばアンエスケープで文字化けしないものの、 今度は後続処理でUTF-8な文字を処理できないという問題がありました。 結局、以下のサイトを参照して、 ttp://naoya.dyndns.org/~naoya/mt/archives/000611.html use open ":std";は残したままで、アンエスケープ処理の後に utf8::decode($str);でUTF8フラグを落とせば、 スクリプトへのUTF-8文字列の受け渡しも、後続処理も、うまく行きました。 夜更けにお答えくださって、本当にどうもありがとうございました。 これで安心して眠れそうです。 344 名前：デフォルトの名無しさん [2007/04/23(月) 18:08:16 ] ■　Perl言語　■　何でも質問コーナー　■ mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396 Perlに関すること、cgiに関すること なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！) （Web系であればOK） ルール： Google検索で調べてわかるようなことでも質問してもOKです （初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので） 回答してくださるかたは、暖かく質問者を迎えてやってください o(^^o) (o^^)o 345 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 18:19:57 ] そのトピック自体はどうでもいいんだが コミュニティのタイトルとか説明文が凄く気になって仕方が無い。

---

---

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

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