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/ 295 名前：nobodyさん mailto:sage [2008/04/03(木) 22:08:39 ID:???] おーこんなんあったのか 存在すらしらなかった 296 名前：nobodyさん mailto:sage [2008/04/03(木) 22:33:14 ID:???] ActivePerlにはppmがあるし、最近は日本人がやってるppmリポジトリ（tcool）があるから 何かあっても日本語で済ませられるからなぁ。あそこだとCatalyst+DBIC+TT2もJiftyもPlaggerもそろってるし。 297 名前：nobodyさん mailto:sage [2008/04/04(金) 04:20:23 ID:???] winでweb開発するならvmwareとかcolinuxとかいれるだろ情交 298 名前：nobodyさん mailto:sage [2008/04/04(金) 10:07:57 ID:???] >>297 たしかにそれはもっともなんだが、クライアントの要望でWinで動かなきゃだめ、ってのでも 対応できて助かる。ほんと。 299 名前：nobodyさん mailto:sage [2008/04/04(金) 14:10:52 ID:???] vmwareとかcolinuxって何に必要なんだ？ 特殊なことをするのでなければ、cronとSpeedyCGIぐらいしか思いつかない。 300 名前：nobodyさん mailto:sage [2008/04/04(金) 16:49:23 ID:???] サーバ機のOSにwin使うの？それならば何も言わんけど 301 名前：nobodyさん mailto:sage [2008/04/04(金) 17:29:46 ID:???] 話がどんどんズレてるぞおまいら。 302 名前：nobodyさん mailto:sage [2008/04/05(土) 00:28:43 ID:???] PerlからDBI::ODBCでMS Accessに接続しようと思います。 SQLに日本語が混じっているときSJISだとうまくいくのですが UTF8だと文字化けしてエラーになってしまいます。 Unicodeでも文字化けしない方法はないでしょうか？ 303 名前：nobodyさん mailto:sage [2008/04/05(土) 03:41:48 ID:???] DB 側に文字コードを指定できたはず 304 名前：nobodyさん [2008/04/07(月) 18:30:35 ID:/Zogy0zf] もの凄く抽象的な質問ですがご容赦ください。 現在、mod_perl下で動いているプログラムがあります。 必要があり、これを修正してみたところ、何が悪かったのかそのままサーバダウン。 サーバダウン直前の挙動、エラーメッセージ、mod_perlの特性などから検証した結果、 プログラムの必要メモリ量が極端に増え、それに伴いメモリ不足で落ちたのではないかという結論に至りました。 さて、ここからが質問なんですが、 mod_perlのプログラムを書くにあたり、メモリ使用量などに関して、 コーディングのコツ、書くときの注意、メモリ使用量を見る方法などがありましたら教えてください。 参考になるサイトや書籍などでも構いません。 英語でも頑張って読んでみようとは思いますが、理解できるかどうかは甚だ怪しいです。 305 名前：nobodyさん mailto:sage [2008/04/07(月) 19:21:31 ID:???] プロを雇いなさい。 306 名前：nobodyさん mailto:sage [2008/04/07(月) 19:50:42 ID:???] 修正前は全く問題なかったのなら修正部分見るだけで簡単に解かるから楽ジャン 307 名前：nobodyさん [2008/04/07(月) 21:42:21 ID:TcHrwP/2] 元に戻す 308 名前：nobodyさん mailto:sage [2008/04/07(月) 23:10:26 ID:???] svn revert -R 309 名前：nobodyさん mailto:sage [2008/04/07(月) 23:27:22 ID:???] ちゃんと初期化、解放したったらえーんとちゃうのん？ 310 名前：nobodyさん mailto:sage [2008/04/08(火) 03:52:16 ID:???] 一定回数の呼び出しでリブートするしかなかったっけか。 311 名前：nobodyさん [2008/04/08(火) 06:53:24 ID:O35wAre8] あるオブジェクトが属するクラス名(パッケージ名)はどこに入っているのでしょうか。 特定のオブジェクトを外部から判定したいとしたときなど、 文字列(ClassName=HASHxxxなど)を見て判断できるとも思いますが、 文字列変換が値の出力にオーバーライドされていたりするとダメですし・・ 例えば、あるサブルーチンの引数をClassNameオブジェクトに限る、といったときに判定したいのです。 よろしくお願いします。 312 名前：311 mailto:sage [2008/04/08(火) 07:27:45 ID:???] すみません見つかりました。判定に関しては if ($obj->isa('ClassName')) {・・・} この辺から探っていけそうでしたので、311の質問は一旦取り下げますm(_ _)m 313 名前：nobodyさん mailto:sage [2008/04/08(火) 09:05:59 ID:???] >309 してます。 今回の場合に限りますが、解放されてないリソースが溜まり続けると言うより、1回の必要量が大きすぎた模様。 >305 いや、そんなこと言われても。 >306-309 質問文は後半だ。 314 名前：nobodyさん mailto:sage [2008/04/08(火) 09:13:08 ID:???] >>313 >>1 【激速】mod_perl SpeedyCGI FastCGI【激速】 pc11.2ch.net/test/read.cgi/php/1149505269/ 315 名前：nobodyさん mailto:sage [2008/04/08(火) 12:45:16 ID:???] >>304 mod_perlかcgiかに関係なく strictを付ける サイズの予想できないデータは一括取り込みしない ってのは当たり前だと思うんだが・・・ mod_perlで問題になりそうなのは 循環参照と意図しないクロージャくらいかな？ 316 名前：nobodyさん mailto:sage [2008/04/08(火) 18:50:34 ID:???] >314 ありがとうございます。 宗教戦争が勃発してる魔境にしか見えないのが辛いところですが。 >315 ちょっとだけ内部の挙動を変えたらメモリ容量が4倍に膨れ上がってしまいまして…。 こういうのを、topコマンドでリアルタイムに監視する以外の方法があれば教えてください。 317 名前：nobodyさん mailto:sage [2008/04/08(火) 19:19:20 ID:???] 4倍で落ちるってどんだけだよ 318 名前：nobodyさん mailto:sage [2008/04/08(火) 19:20:40 ID:???] Devel::Sizeでどの変数がメモリ食ってるか調べてみれば？ 319 名前：nobodyさん mailto:sage [2008/04/08(火) 19:26:09 ID:???] search.cpan.org/perldoc?Devel::Size perl.apache.org/docs/1.0/guide/performance.html#Measuring_the_Memory_of_the_Process 参考リンク 320 名前：nobodyさん mailto:sage [2008/04/08(火) 20:31:28 ID:???] >317 単純計算ですが、総計にしてメモリ1GBほど増加です。 >318 ありがとうございます >319 ちょうど英語にひぃひぃ言いながら読んでたところです。 321 名前：nobodyさん mailto:sage [2008/04/08(火) 20:55:45 ID:???] メモリ量が4倍になったならMaxClientsを1/4にすりゃいいじゃん。 とりあえずこのへんも参考にするといい iandeth.dyndns.org/mt/ian/archives/000624.html www.typemiss.net/blog/kounoike/20060212-64 322 名前：nobodyさん mailto:sage [2008/04/08(火) 22:02:45 ID:???] >>313 数100MBのデータを気軽に読み込んじゃうのは素人なんだってば。 だからプロを雇えと。 323 名前：nobodyさん [2008/04/08(火) 23:49:56 ID:ng1N9SG/] 与えられた文字列がutf8として正しいかどうか判断するのに utf8::decode($str); if ($str =~ /\P{IsASCII}/ and not (utf8::is_utf8($str))) { ### エラー } ってやってみましたが、あってますか？ 324 名前：nobodyさん mailto:sage [2008/04/11(金) 10:40:16 ID:???] モジュールがPurePerlかどうかはどうやって判断すれば良いでしょうか？ 325 名前：nobodyさん mailto:sage [2008/04/11(金) 11:53:06 ID:???] それは機械的に? それとも手動で? 326 名前：nobodyさん mailto:sage [2008/04/14(月) 15:21:25 ID:???] watalog.jugem.jp/?eid=135 ↑の人と同じ悩みなんですが、jugem.jpのRSSをLWP::Simple::mirrorでミラーリングしようとすると、 RSSの内容ではなく、HTMLの内容が帰ってくるのは、どうしてですか？ RSSは以下のURLなのですが、引数を渡しているURLは、LWP::Simpleでは対応できないってでしょうか？ watalog.jugem.jp/?mode=rss 327 名前：訂正 mailto:sage [2008/04/14(月) 15:22:02 ID:???] watalog.jugem.jp/?eid=135 ↑の人と同じ悩みなんですが、jugem.jpのRSSをLWP::Simple::mirrorでミラーリングしようとすると、 RSSの内容ではなく、HTMLの内容が帰ってくるのは、どうしてですか？ RSSは以下のURLなのですが、引数を渡しているURLは、LWP::Simpleでは対応できないってことでしょうか？ watalog.jugem.jp/?mode=rss 328 名前：nobodyさん mailto:sage [2008/04/14(月) 16:19:57 ID:???] >>327 UAで判定してる模様。 $ua = LWP::UserAgent->new(agent=>'IEみたいなUA'); でやってみ。 329 名前：nobodyさん mailto:sage [2008/04/14(月) 16:25:16 ID:???] >>328 ありがとうございます。いやらしいことしますね… LWP::Simple::mirrorを使っているので、全部書き直すか、例外処理を作るしかなさそうですねorz 330 名前：nobodyさん mailto:sage [2008/04/14(月) 16:33:55 ID:??? BE:212256083-DIA(100004)] LWP::Simple は $ua を Export 出来る 331 名前：nobodyさん mailto:sage [2008/04/14(月) 16:52:36 ID:???] >>328の一行を追加すればいけるということでしょうか。 オブジェクト指向的な話（->とか）が全くわからないので、そういうところを避けながらコーディングしてきたのですが厳しいですね。 332 名前：327 mailto:sage [2008/04/14(月) 19:32:33 ID:???] 結局、LWP::UserAgentでUA偽装して、ミラーリングさせました。 今後はSimpleではなくて、こっちを使おう… 333 名前：nobodyさん [2008/04/14(月) 21:28:37 ID:vhVZb6UQ] CGI::Application を使ってみようかと考えてるPerl初心者です。 Web上でいろいろサンプルコードを見ていたんですが、 使いたいモジュールがある場合は CGI::Application::Plugin として利用するのがお決まりのように見えます。 実際、それが推奨スタイルなんでしょうか？ Log::Handler が使いたかったのですが、 単純に use Log::Handler; して使うと何か不都合があるのでしょうか？ 334 名前：nobodyさん [2008/04/15(火) 07:46:19 ID:m7oSRbUq] 再利用しやすいようにPluginにぶら下げてるだけなんじゃないの？ 好きにしたらいいと思うよ 335 名前：nobodyさん [2008/04/15(火) 11:53:04 ID:7+9bkjp8] ありがとうございます！ 336 名前：いしはら [2008/04/15(火) 18:41:44 ID:y4DgL3Q4] ------------------------------------------------ ☆簡易ＣＴＩサービス(1万5千円) s1s.jp/CTI/ ☆自動クリックサービス s1s.jp/ ☆ブログ自動更新　記事投稿　コメント書き込みアプリ s1s.jp/BLOG/ ------------------------------------------------ 　ヽ('A`)ﾉ 　　(　 )　 大金星!! 　　ﾉω| 337 名前：nobodyさん mailto:sage [2008/04/16(水) 14:37:06 ID:???] 二項分布で確率１／ＡをＢ回の試行でちょうどＣ回引く確率を計算したいのですが、 これらをｐｅｒｌかPHPで計算する方法が分かる方いましたらアドバイス頂けないでしょうか。 式は見ても理解できないのでサンプルソースを頂けると助かります。 338 名前：nobodyさん mailto:sage [2008/04/16(水) 15:16:19 ID:???] 式を見ても理解できないとコーディングなんてできないだろｗ 339 名前：nobodyさん mailto:sage [2008/04/16(水) 16:03:06 ID:???] 「二項分布 perl」でぐぐれ 340 名前：nobodyさん mailto:sage [2008/04/16(水) 17:57:49 ID:???] 最初の方に出て来るＪＵＧ７のソースいじりましたが、 サイコロ１００００回投げて１が１６６６回出る確率とかだそうとする際に 数値が大きすぎるのかバグります…。 以前調べた時のソースも、数値が小さければ問題無いものの、 規模を大きくすると1.#INFというエラーが返ったり。 341 名前：nobodyさん [2008/04/16(水) 21:19:23 ID:WbXSl+I/] お願いします。 与えられた文字列が大小文字同一視でハッシュのキーとして存在するかどうか、 調べる方法はないでしょうか。ハッシュキーは膨大な数あるので、配列にコピーとかは したくないです。よろしくお願いし明日。 342 名前：nobodyさん mailto:sage [2008/04/16(水) 21:28:03 ID:???] 1 hashを作るときに小文字(あるいは大文字)に変換して作る。 2 tieで1と同じ事を行う。 好きなほうをどうぞ。 343 名前：nobodyさん mailto:sage [2008/04/16(水) 21:32:57 ID:???] >>341 大小文字の区別はされるけどexistsって関数がある 344 名前：nobodyさん mailto:sage [2008/04/16(水) 21:39:38 ID:???] なるほど、ありがとうございます。 実は、元の正しい表記を後で取り出したいんですが、 ハッシュのvalueは空いてるので、そこに元の表記を入れておいて キーを大文字統一にしてみようと思います。 コピーするのと変わらないかもしれませんが。 345 名前：nobodyさん [2008/04/17(木) 04:13:49 ID:CjUpsUhE] お世話になります。 All UTF-8 でやってます。 さらに USE CGI しないURLデコードをやってみたところ、マルチバイト文字が文字化けするようになりました。 全部□になります。 ？#!c:/user/local/bin/perl510/bin/perl.exe use utf8; use encoding "utf8"; # ↓UTF8でPOSTされた情報を想定 my $str = '%E8%8C%B6%E6%B1%B2%E5%85%BC%E9%9B%91%E7%94%A8%E4%BF%82'; # ↓URLデコード(今回$strに+はないのでそのへんは省略) $str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg; # ↓出力 print "Content-type: text/html; charset=UTF-8\n\n"; print "テスト // START // $str<br>\n"; これでHTML全体としては正しく表示されているんですが、$str部分のみが文字化けします。 ウェブで原因を調べること丸1日、これについてどこにも情報がありませんでした…… 346 名前：nobodyさん mailto:sage [2008/04/17(木) 07:21:16 ID:???] use utf8; use encoding "utf8"; # ↓UTF8でPOSTされた情報を想定(内部ではワイドキャラクタとして格納されてます) my $str = '%E8%8C%B6%E6%B1%B2%E5%85%BC%E9%9B%91%E7%94%A8%E4%BF%82'; utf8::encode($str); # 一旦UTF-8フラグを落として # ↓URLデコード(今回$strに+はないのでそのへんは省略) $str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg; utf8::decode($str); # UTF-8フラグを付け直す 347 名前：nobodyさん mailto:sage [2008/04/17(木) 09:58:36 ID:???] >>345,>>346 > # ↓UTF8でPOSTされた情報を想定(内部ではワイドキャラクタとして格納されてます)  > my $str = '%E8%8C%B6%E6%B1%B2%E5%85%BC%E9%9B%91%E7%94%A8%E4%BF%82';  それデコードしたら、バイナリ(utf8フラグoff)のUTF-8文字列。 とりあえず、use utf8;とuse encoding "utf8"を外して、そのままprintしてみ。 ちゅうか、use utf8 とuse encoding "utf8"両方してる意味がわからん。 348 名前：nobodyさん [2008/04/17(木) 14:34:42 ID:FD3bsXbG] >>345です 解決しました。情報に感謝します。 >>346の内容を、Encode::〜でやりました。 こういうのって結構な落とし穴ですね。フラグのことはわかっているつもりでしたが…… 349 名前：nobodyさん [2008/04/17(木) 20:17:29 ID:2zzFnXWL] 教えて君でスマンが、分かる人がいたら助けて。 CGI::Applicationパッケージを使っているんだけど、 param() 関数で、数字だけの長い「文字列」を受け取ると 数値リテラルとして、しかも丸められた値が返されちゃうんだけど、 文字リテラルとしてそのまま受け取れるよい方法ないかな? 350 名前：349 mailto:sage [2008/04/17(木) 22:21:21 ID:???] 自己レスです。 CGI.pmにまでさかのぼって調べた結果、 query()->param()は文字リテラルで返してました。 自分が書いた、表示する際の処理のバグでした。orz 351 名前：nobodyさん [2008/04/18(金) 00:03:02 ID:qXgVgrBZ] いつもすみません。 自分で作ったhash refの配列がデリファレンスできません。 $array[0]->{key} $array[0]{key} ${$array[0]}->{key} とか書いてみましたが様々なエラーが出ました。どう書いたらいいですか？ 352 名前：nobodyさん mailto:sage [2008/04/18(金) 00:07:12 ID:???] すみません。問題を取り違えていました。デリファレンスはできてました。 ソートをしようと思い、下記のように書いたらhash refを配列扱いするなと言われます。 my @sorted = sort {$array[$b]->{score} <=> $array[$a]->{score}} @array; よろしくお願いします。 353 名前：nobodyさん mailto:sage [2008/04/18(金) 00:20:08 ID:???] ものすごく勘違いしてました。こういうことでした。 my @sorted = sort {$b->{score} <=> $a->{score}} @array; 354 名前：nobodyさん mailto:sage [2008/04/18(金) 10:01:49 ID:???] そういうときもあるよ 355 名前：nobodyさん [2008/04/18(金) 18:42:42 ID:J/rLxrZJ] 前に２項分布について質問した者ですが、 これだけでも教えてくれると助かります…。 1.#INF の意味はなんですか？インフィニティ？ 検索しても＃は検索対象にならないらしく、 *.INFの設定ファイルや関係無いものが出て来るばかりで…。 356 名前：nobodyさん mailto:sage [2008/04/18(金) 19:06:45 ID:???] 知らんがな 357 名前：nobodyさん mailto:sage [2008/04/19(土) 09:40:11 ID:???] インフォメーションじゃね？ それかインフォーラム もしくはインフェルノ 358 名前：nobodyさん [2008/04/19(土) 12:48:02 ID:n4AN2xdT] www.semblog.org/wiki/?rna で配布されている、 RNAというアンテナソフトを使っています。 すでに動作してるのですが、summary部分のhtmlタグを除去したいと思います。 www-kasm.nii.ac.jp/~i2k/tmp/rna/rss/recent_entry.html のようにRSSを取得してくるCGIなのですが、 summary部分にhtmlタグが残ってしまいます。 ATOMやRSS2.0などでしょうか、 Yahoo!やexcite等RSSにhtmlタグが入ってるサイトを巡回すると htmlタグが入ってしまいます。 template/recent_template には <div class="summary"> <$RNAItemDescription$> </div> となっており、そのあたりを作ってると思われる lib/RNA/AntennaTree.pmの1029行目、 my $encoded_descript = encode($item->{channel}->{description}); の後に my $encoded_descript =~ s/<.*?>//g; を追加してみたところ、サマリー部分がなくなってしまいました。 開発がストップしてるCGIなので、なんとか改造して使い続けたいと思っています。 どうかご教示願います。 359 名前：nobodyさん mailto:sage [2008/04/20(日) 00:00:52 ID:???] いくら何でも冷たすぎじゃないかお前ら。 >>355 備長炭 自殺方法 でぐぐれ。それでダメなら二項分布 オーバーフローとか。 360 名前：nobodyさん mailto:sage [2008/04/20(日) 01:46:25 ID:???] >>358 現物ソース確認したわけじゃないけど ttp://naoya.dyndns.org/~naoya/mt/archives/000611.html の下の方にある remove_html を試してみたらどうかな。 361 名前：nobodyさん mailto:sage [2008/04/20(日) 02:10:18 ID:???] >>358 そのモジュールについては詳しくはわからないけど、もともとのソースをいぢるんじゃなくて、 それが吐き出したものを、自前で書き換えればいいんじゃね？ 362 名前：nobodyさん mailto:sage [2008/04/20(日) 02:30:50 ID:???] 元のコード見なくても > my $encoded_descript = encode($item->{channel}->{description}); > の後に > my $encoded_descript =~ s/<.*?>//g; > を追加 って書いてるんだから my $str = "<strong>大切な</strong>文書"; my $str =~ s/(.)/$1/g;　# 行頭の何かが余計 print length($str); こういうことじゃないの。 363 名前：nobodyさん mailto:sage [2008/04/20(日) 16:44:58 ID:???] ヒアドキュメント内でハッシュリファレンスを使う場合はどのようにすればよいのでしょうか？ $text =<<EOL; name = $h->{'name'} mail = $h->{'mail'} EOL とやっても変数が展開されません。 仕方ないのでハッシュにデリファンスしてますが、 方法があったら教えてください。 364 名前：nobodyさん mailto:sage [2008/04/20(日) 17:36:03 ID:???] 本当はシングルクォートで括ってね？ 365 名前：nobodyさん [2008/04/20(日) 20:52:48 ID:tHisgd6U] オリジナルの携帯サイトアクセスランキングを作っています。 OUTをカウントするためなんすけど、アンカーから自前のCGIページを通過させてリンク先を表示させるにはどうすればいいですか？ 366 名前：nobodyさん mailto:sage [2008/04/21(月) 00:00:18 ID:???] 自前のCGIページを通過させるアンカーを出力すればよいと思います。 367 名前：nobodyさん mailto:sage [2008/04/21(月) 18:56:21 ID:???] >>363 my $h = {name=>'john', mail=>'john@example.net'}; my $text =<<EOL; name = $h->{'name'} mail = $h->{'mail'} EOL print $text; こんな感じ。 368 名前：358 mailto:sage [2008/04/23(水) 09:11:49 ID:???] >>360, >>361, >>362 ありがとうございます。 remove_html、使いたいのですが使い方がわかりません... # naoya.dyndns.org/~naoya/mt/archives/000611.html sub remove_html { my ($str) = @_; my $ret; if (defined $str) { my $p = HTML::TokeParser->new( \$str ) or die "$!"; do { my $plain = $p->get_text; $ret .= $plain; } while (my $token = $p->get_tag); } $ret; } を lib/RNA/AntennaTree.pm の最下部に追記して、 my $encoded_descript = encode($item->{channel}->{description}); の後に見よう見まねで my $encodec_descript = &remove_html(); としてみましたが変わらずでした。 369 名前：nobodyさん mailto:sage [2008/04/23(水) 12:47:07 ID:???] m_unit.plというライブラリがほしいんですがググっても出てきません どこで手に入れる事ができるでしょうか？ 370 名前：nobodyさん mailto:sage [2008/04/23(水) 13:05:00 ID:???] >>369 ググっって出てくる奴とは違う物？ 371 名前：↑ mailto:sage [2008/04/23(水) 13:08:34 ID:???] ごめんなさい間違えました（＞＜） 372 名前：nobodyさん mailto:sage [2008/04/24(木) 18:43:40 ID:???] ABCXXXDEF という文字列から ABCとDEFを削除してXXXのみを表示させたい場合はどうすればよいのでしょうか？ $moji = ABCXXXDEF; $ans = $moji からABCとDEFを削除; print "$ansです\n" という具合でいいんでしょうか？ このABCとDEFを消す処理の部分がわかりません。 373 名前：nobodyさん mailto:sage [2008/04/24(木) 18:47:46 ID:???] $moji =~ tr/ABCDEF//d; print $moji; 374 名前：nobodyさん mailto:sage [2008/04/24(木) 18:48:17 ID:???] >>372 $moji =~ s/ABC|DEF//g; $ans = $moji 375 名前：nobodyさん mailto:sage [2008/04/24(木) 18:50:21 ID:???] >>373>>374 ありがとうございました。 助かります。 376 名前：nobodyさん [2008/04/26(土) 13:15:07 ID:flUVuiqJ] basenameでファイル名を取り出したいのですが、ブラウザが動いているOSの種類によって、 区切りが/であったり\であったりとまちまちです。 perlはLinux上で動いているので、デフォルトでは、/で区切られている場合しか、ファイル名を取り出せません。 \で区切られている場合でも、取り出せるようにするにはどのようにしたらよいのでしょうか？ fileparse_set_fstypeでMSWin32を指定してしまうと今度は、Unixからアクセスしてきた場合にうまくいきません。 377 名前：nobodyさん mailto:sage [2008/04/26(土) 13:19:19 ID:???] んなもんアクセスしてきたOSの種類で使いわけりゃいい話だろボケ こんなもん中学生でも分かるぞカス死ね 378 名前：nobodyさん [2008/04/26(土) 16:13:45 ID:flUVuiqJ] もしブラウザがOSに関する情報を送ってこなかったらどうすればよいのでしょうか？ 379 名前：nobodyさん mailto:sage [2008/04/26(土) 16:23:13 ID:???] >>378 ファイルの有無を判断して、 どっちのデリミタで切るか、 判断したら？ 380 名前：nobodyさん mailto:sage [2008/04/26(土) 17:01:10 ID:???] アクセスしてきたOSは関係ない。 Perlが動いているサーバーのOSが関係する。 そして、basenameは動いているOSによって区切りを/か\か自動的に 判断してくれるので便利に使える。 サーバーがWindowsでもLinuxでもbasenameは正しく動いてファイル名を取り出せる。 取り出せない場合は、何か別の原因。 381 名前：nobodyさん mailto:sage [2008/04/26(土) 19:45:43 ID:???] type=fileで送られてくるファイル名の話じゃないのか? 382 名前：nobodyさん [2008/04/26(土) 21:48:20 ID:vQRq4Omz] だいたいみなさんの、perl普通にコード書き込みできるまでに要した 時間と日数おしえてもらえませんか？時間とか１日何時間くらいしてます？ 383 名前：nobodyさん mailto:sage [2008/04/26(土) 22:09:54 ID:???] 意味が。 384 名前：nobodyさん mailto:sage [2008/04/26(土) 22:14:17 ID:???] >>382 もっと、日本語を勉強した方がいいよ 385 名前：nobodyさん mailto:sage [2008/04/26(土) 22:49:57 ID:???] >>382 皆さんは「週何日、1日当たり何時間」なんていう時間割みたいな方式で 取り組んできたわけじゃないので、そういうのはよくわかんないのです。 そりゃ、そんな方式で堅苦しく取り組んできた人もいるかもしれないけど。 あなたが今までにちんちんを何ストロークしてきたかが不明なのと似てます。 386 名前：nobodyさん [2008/04/27(日) 00:52:54 ID:G3KB/HmG] mod_rewriteでURLを書き換えた時に%2Fがあると404エラーになってしまうので スラッシュをURLエンコードさせたくないのですが、可能でしょうか？どなたか助けてください・・ p://example.net/dir/index.cgi?name=<em>hoge</em> このように、どうしてもタグが含まれてしまうURLなので困ってます。 見るからに初心者ですが、どうかよろしくお願いします。 387 名前：nobodyさん mailto:sage [2008/04/27(日) 01:20:29 ID:???] >>386 不可能。 388 名前：386 [2008/04/27(日) 02:55:07 ID:G3KB/HmG] >>387 そうですか・・ 諦めて他に方法がないか試行錯誤してみます ありがとうございました。 389 名前：nobodyさん mailto:sage [2008/04/27(日) 23:26:09 ID:???] >>382 10時間ぐらいかな。 もっとも、Perl以前にawk, sed, C などの下地があったわけだが。 390 名前：nobodyさん mailto:sage [2008/04/27(日) 23:35:33 ID:???] 普通がどの程度か全く分からないけど、とりあえず動く掲示板を作るのに１日１〜２時間ほど コード書いて１週間かかった気がする そんな自分は C (すっかり書けないけど、ポインタで躓くまでは書いてた)、VB (アプリをいくつか作ってた) の経験ありです。 391 名前：nobodyさん mailto:sage [2008/04/27(日) 23:39:03 ID:???] Perlでバッチ処理を書くのはすぐ出来るけど、 Webアプリ(cgi)は時間がかかると思う。 392 名前：nobodyさん mailto:sage [2008/04/27(日) 23:44:48 ID:???] そんな貴方にCGI.pmですよ 393 名前：nobodyさん [2008/04/30(水) 17:01:56 ID:9OxUbc+M] あの、乱数についてなのですが、100~150までの間でランダムな数をスカラー変数に格納するにはどうすればいいでしょうか？ 394 名前：nobodyさん mailto:sage [2008/04/30(水) 17:13:24 ID:???] my $rndnum = rand(51) + 100 rand(51) 0 〜 51 未満を生成 (未満は 51 を含まないので 50 以下の数字が現れる) +100 下限値である 100 を加えてやる 以上 395 名前：nobodyさん mailto:sage [2008/04/30(水) 17:14:49 ID:???] int

---

---

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

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