- 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/
- 236 名前：nobodyさん mailto:sage [2008/03/27(木) 12:36:10 ID:???]
- >>228
こうするのさ。
---const.pl---
$x="あいうえお";
1;
---main.cgi---
use strict;
our $x;
require "./const.pl";
print $x;
- 237 名前：nobodyさん mailto:sage [2008/03/27(木) 16:59:46 ID:???]
- our ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
- 238 名前：nobodyさん mailto:sage [2008/03/27(木) 19:04:51 ID:???]
- ○|＿||￣ ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
- 239 名前：nobodyさん mailto:sage [2008/03/27(木) 22:17:48 ID:???]
- oL/
- 240 名前：228 [2008/03/27(木) 23:49:16 ID:OO8NUyXN]
- >>229-236
さっぱりわからんがサンクス。調べてみる
iniファイルやPHPみたいに簡単に取得できる方法はないのかのう・・・
- 241 名前：nobodyさん mailto:sage [2008/03/27(木) 23:56:27 ID:???]
- ＞iniファイルやPHPみたいに簡単に取得できる方法
だからモジュール紹介されてるやんけｗｗｗ
- 242 名前：nobodyさん mailto:sage [2008/03/28(金) 00:17:56 ID:???]
- ﾜﾛﾀ
- 243 名前：233 mailto:sage [2008/03/28(金) 00:26:56 ID:???]
- >>240
感想でいいからくれ
何がさっぱりわからんと思ったか書いてくれれば分かりやすくもういっかい書くよ。
1. リンクを開いたと思うんだが、何が意味不明だと思った(全部ってのはなしで)
2. 何を作っててプログラム暦何年か教えてくれ。
スレ汚しならすまん。ちょっと個人的に技法よりも心理障壁に興味がある。
- 244 名前：nobodyさん mailto:sage [2008/03/28(金) 10:02:51 ID:???]
- 新人教育かｗ
- 245 名前：nobodyさん [2008/03/28(金) 15:01:30 ID:jpsDmJfA]
- ログに保存されている日付を以下のように整形するにはどうしたらいいんでしょう？
2008/03/28(金) 09:30:08
↓
08/3/28 9:30
- 246 名前：nobodyさん mailto:sage [2008/03/28(金) 15:33:52 ID:???]
- >>245
sub reduce_date {
my @date = split /\D+/, $_[0];
$date[0] -= 2000;
sprintf '%02d/%d/%d %d:%d', @date[0..4];
}
print reduce_date('2008/03/28(金) 09:30:08');
- 247 名前：nobodyさん mailto:sage [2008/03/28(金) 15:36:13 ID:???]
- use strict;
my $orgdate = '2008/03/28(金) 09:30:08';
my @splitdata = $orgdate =~ /(\d{2})+/g;
printf("%02d/%02d/%02d %02d:%02d:%02d", @splitdata);
- 248 名前：nobodyさん mailto:sage [2008/03/28(金) 15:46:09 ID:???]
- s{\d\d(\d\d/\d+/\d+)[^ ]+( \d+:\d+):\d+}{$1$2};
- 249 名前：nobodyさん mailto:sage [2008/03/28(金) 15:48:45 ID:???]
- 指定がないけど %02d/%d/%d %d:%02d を期待されてそうな気がする
- 250 名前：nobodyさん mailto:sage [2008/03/28(金) 15:57:20 ID:???]
- なるほど。
s{\d\d(\d\d)/0?(\d+)/0?(\d+)[^ ]+ 0?(\d+):(\d+):\d+}{$1/$2/$3 $4:$5};
- 251 名前：nobodyさん mailto:sage [2008/03/28(金) 16:45:45 ID:???]
- my @splitdata = $orgdate =~ /(\d{1,2})+/g;
my $datetime = sprintf("%02d/%d/%d %d:%d:%d", @splitdata);
- 252 名前：nobodyさん mailto:sage [2008/03/28(金) 16:49:23 ID:???]
- 間違えた
my @splitdata = $orgdate =~ /(\d{1,2})+/g;
my $datetime = sprintf("%02d/%d/%d %d:%d", @splitdata);
print $datetime;
- 253 名前：nobodyさん mailto:sage [2008/03/28(金) 16:59:35 ID:???]
- 2008/03/28(金) 09:30:08から08/3/28(Fri) 9:30にするにはどうする？
- 254 名前：nobodyさん mailto:sage [2008/03/28(金) 17:35:24 ID:???]
- >>247-252
もはや、知らない奴が見たら暗号でしかないなw
- 255 名前：nobodyさん mailto:sage [2008/03/28(金) 19:09:17 ID:???]
- javascriptのプログラムをPerlに移植しようとしていて、複合代入演算子の挙動が違うのでとまどっています。
例えばjavascriptで
var c=1;alert(c=c+(c*=10)+(c*=100));
は1011
Perlで
my $c=1;print($c=$c+($c*=10)+($c*=100));
は1020
になります。
そこで、この問題について載っているサイトがあれば教えてください。
- 256 名前：nobodyさん mailto:sage [2008/03/28(金) 20:04:35 ID:???]
- 式の途中で値を変えるやり方がまずいとは思うけどね
- 257 名前：nobodyさん mailto:sage [2008/03/28(金) 23:58:05 ID:???]
- 加算の評価順は定義されてないという事を知らずに
> var c=1;alert(c=c+(c*=10)+(c*=100));
こう書くのはクズグラマー。
- 258 名前：nobodyさん mailto:sage [2008/03/29(土) 03:54:49 ID:???]
- >>255
www.st.rim.or.jp/~phinloda/cqa/cqa7.html
- 259 名前：nobodyさん mailto:sage [2008/03/29(土) 04:33:29 ID:???]
- >>253
年を二桁にしたら100年後に困るぞ！
- 260 名前：nobodyさん mailto:sage [2008/03/29(土) 08:45:59 ID:???]
- >>253
s/^\d\d//;
s/^(\d\d\/)0/$1/;
s/金/Fri/;
s/:\d\d$//;
- 261 名前：nobodyさん mailto:sage [2008/03/29(土) 14:59:25 ID:???]
- >>259
19xxから20xxに変わったが、2桁で困ってないので100年後も同様に困らない。
- 262 名前：nobodyさん mailto:sage [2008/03/29(土) 17:09:47 ID:???]
- >>259
百年後なんて俺等死んでるから気にする必要ないｗ
- 263 名前：nobodyさん mailto:sage [2008/03/29(土) 17:56:41 ID:???]
- そういう屑のせいで困る人たちもいるわけだ
- 264 名前：nobodyさん mailto:sage [2008/03/29(土) 19:27:22 ID:???]
- >>262
医学の進歩は目覚しいから、お前のような底辺奴隷はむしろ死ねないかもしれない。
- 265 名前：259 mailto:sage [2008/03/30(日) 22:02:27 ID:???]
- ジョークを真に受ける馬鹿がこんなに多いとは・・・
- 266 名前：nobodyさん mailto:sage [2008/03/30(日) 23:27:37 ID:???]
- >>265
更にジョークを真に受けた馬鹿の登場ですか？
- 267 名前：nobodyさん mailto:sage [2008/03/30(日) 23:58:51 ID:???]
- >>266
言っとくけど俺をあまりナメないほうがいいよ
vipでコテハンやってるしこのスレ潰すくらいの影響力は持ってるから
くだらないことで刺激して後悔しないようにね
- 268 名前：nobodyさん mailto:sage [2008/03/31(月) 01:08:05 ID:???]
- >>267
そのコピペには、もう飽きた＼(^o^)／
- 269 名前：259 mailto:sage [2008/03/31(月) 07:25:32 ID:???]
- >>266
後出しｼﾞｬｿｹｿｶｺﾜﾙｲ
- 270 名前：nobodyさん mailto:sage [2008/03/31(月) 10:11:33 ID:???]
- どっちが後出しだよｗ
- 271 名前：nobodyさん mailto:sage [2008/03/31(月) 12:02:54 ID:???]
- 中出しの方が気持ちいいぞ。
- 272 名前：nobodyさん mailto:sage [2008/04/01(火) 21:14:09 ID:???]
- HTML::Templateっていうモジュールを使おうとしたら
鯖管理してる人が入れたくないです。っていうので
HTML::Templateの代わりになるような標準モジュールって何かありますかね？
個人的にはHTML::Templateの<TMPL_IF>みたいなのが使えれば大満足なんだけども
自分で作っちゃったほうが早いかな？
- 273 名前：nobodyさん mailto:sage [2008/04/02(水) 01:00:40 ID:???]
- 普通にディレクトリでも作って放り込んで、useで使うのは駄目なん？
- 274 名前：nobodyさん mailto:sage [2008/04/02(水) 10:50:31 ID:???]
- HTML::TemplateはPurePerlだからディレクトリ作ってほうりこめばおｋ
- 275 名前：nobodyさん mailto:sage [2008/04/02(水) 14:04:47 ID:???]
- 昨日からperlに興味持っています
perlには大きくわけて２つあると聞きました
１：恐らくActivePerlの為に書かれたであろうソースをcygwinで動かしたい
（書いた方はどちらのperlと言うこともなく消えちゃいました。他の方が「それperlだよ」と教えてくれました）
2：1行目に書かれていた 「 #!/perl/bin/perl 」 を 「 #!/cygwin/bin/perl 」 に書き換えた
2行目にあった 「 # /usr/bin/perl はないはず 」 を削除した
読み込ませるファイルをcgi-binフォルダーに置いた
3： Internet Explorer ではこのページは表示できません
cygwinとActiveperlは書き換える箇所があるのですか？
基本は同じと聞いたのですが細かく言うと変更すべきところもあるんでしょうか？
どなたかよろしくお願い致します
- 276 名前：nobodyさん mailto:sage [2008/04/02(水) 14:28:33 ID:???]
- >>275
>perlには大きくわけて２つある
ファイルを置けば動くPurePerlと、installが必要なバイナリの2種類かな？
>恐らくActivePerlの為に書かれたであろうソースをcygwinで
プログラムファイル自体にその差は無い
よって
>cygwinとActiveperlは書き換える箇所があるのですか？
書き換える箇所は無い
ただしActivePerlでは動かないものもあるかもしれない
cygwinはUNIXエミュレータ（みたいなもの）
ActivePerlはWindows版のPerlインタプリタ
同列に並べるのはおかしい
> Internet Explorer ではこのページは表示できません
このエラーが出るってことはおそらくパーミッション
- 277 名前：nobodyさん mailto:sage [2008/04/02(水) 15:21:24 ID:???]
- >>275
書いた人です。「それは Perl だ」と言ったのも自分。
あれはCGIではなくてCLIスクリプト（＝コンソールアプリ）なので、
Perl実行環境さえあればWebサーバだの何だのは要りません。
# 「標準出力に何も吐かない」ブツはCGIではない。
あなたのしたいことは、Web制作板ともWebProg板とも関係のないことです。
ブツ自体はActivePerl だろうが cygwin 上の Perl だろうが動きます。
プロンプトから perl hoge.pl するだけ。以上。
ただ、glob() に2万ファイル食わせるのはやめといたほうがいいと思うな。
- 278 名前：nobodyさん mailto:sage [2008/04/02(水) 15:33:03 ID:???]
- 直接やれｗｗｗ
- 279 名前：nobodyさん mailto:sage [2008/04/02(水) 15:40:45 ID:???]
- 元ネタはここか
pc11.2ch.net/test/read.cgi/hp/1205922529/100
ほんとか？
- 280 名前：nobodyさん mailto:sage [2008/04/02(水) 15:52:10 ID:???]
- >>275です
>>276
詳しくありがとうございます
勉強になります
>>277
手取り足取りスレでお世話になりました
>>277さんのお陰で目標までの道が見えたような気がします
本当に感謝しております
HTMLとTXTそれぞれ3枚づつ置いてテストしてみようとしたのですが
上記の通り読み込めませんでした
hello.plで試したところ読み込みはできているようなので
書き込み用のファイルを用意しておくべきなのかわからないです
サーバなしで動くのでしたか私はサーバを通して操作するものかと勘違いしてましたすいません
perlでできると教えてくれて本当にありがとうございます
板違いになるのかーショボーン
どこに行けばいいのか・・・
みなさんありがとうございました
- 281 名前：277 mailto:sage [2008/04/02(水) 16:00:03 ID:???]
- スレ汚しまくりで、本当にごめんなさい。 > all
とりあえず、物凄い勢いで板違い。>>275さんには、教えてgoo辺りがお勧め。
当分消えよう。
>>278
間接でも偏頭痛がしたので勘弁してください。
放置するとめんどくさい流れになりそうだったので出てきました。すみません。
>>279
そこで正解です…。
- 282 名前：nobodyさん mailto:sage [2008/04/02(水) 17:09:09 ID:???]
- winならActivePerlでいいやん。
- 283 名前：nobodyさん mailto:sage [2008/04/02(水) 21:09:16 ID:???]
- おまえらstrawberryperl知らんのか
- 284 名前：nobodyさん mailto:sage [2008/04/03(木) 00:13:59 ID:???]
- 知らないかダメダメだから話題に出ない
それぐらい察してくれるとありがたい
- 285 名前：nobodyさん [2008/04/03(木) 03:38:43 ID:x8vlzbgB]
- colinuxでいいじゃん
- 286 名前：nobodyさん mailto:sage [2008/04/03(木) 10:28:20 ID:???]
- いろいろ出すと混乱しちゃうぉｗ
- 287 名前：nobodyさん mailto:sage [2008/04/03(木) 13:05:14 ID:???]
- colinuxとクリネックスて似てるね
- 288 名前：nobodyさん mailto:sage [2008/04/03(木) 14:21:42 ID:???]
- 初心者ならActivePerl、中級者以降ならStrawberry Perlだな。
- 289 名前：nobodyさん mailto:sage [2008/04/03(木) 16:36:19 ID:???]
- 超上級者ですが ActivePerl 使ってます
- 290 名前：nobodyさん mailto:sage [2008/04/03(木) 18:06:58 ID:???]
- perl開発者ですがperl使ってません
- 291 名前：nobodyさん mailto:sage [2008/04/03(木) 19:03:25 ID:???]
- 自分はStrawberryPerlが有り難すぎるのだけど、前はActivePerl使ってた。
StrawberryPerlと比べてActivePerlはどういうメリットがあるのかな。
PPMが便利なこともあるけど、CPANが使いやすいStrawberryPerlの方が自分は便利。
ActivePerlの方を推す方の意見を聞きたいです。
- 292 名前：nobodyさん mailto:sage [2008/04/03(木) 19:56:47 ID:???]
- ActivePerl に一致する日本語のページ 約 560,000 件中 1 - 50 件目 (0.04 秒)
Strawberry Perl に一致する日本語のページ 約 13,000 件中 1 - 50 件目 (0.37 秒)
ActivePerl入れっぱなしだから特に探さなかった
- 293 名前：nobodyさん mailto:sage [2008/04/03(木) 20:05:15 ID:???]
- じゃ、今のActivePerl使ってみな。
- 294 名前：nobodyさん mailto:sage [2008/04/03(木) 20:05:58 ID:???]
- >>293 → >>291
- 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`)ﾉ
( ) 大金星!!
ﾉω|
|
 |
