Perlコーディング初心 ..
258:nobodyさん
08/03/29 03:54:49
>>255
URLﾘﾝｸ(www.st.rim.or.jp)
259:nobodyさん
08/03/29 04:33:29
>>253
年を二桁にしたら100年後に困るぞ！
260:nobodyさん
08/03/29 08:45:59
>>253
s/^\d\d//;
s/^(\d\d\/)0/$1/;
s/金/Fri/;
s/:\d\d$//;
261:nobodyさん
08/03/29 14:59:25
>>259
19xxから20xxに変わったが、2桁で困ってないので100年後も同様に困らない。
262:nobodyさん
08/03/29 17:09:47
>>259
百年後なんて俺等死んでるから気にする必要ないｗ
263:nobodyさん
08/03/29 17:56:41
そういう屑のせいで困る人たちもいるわけだ
264:nobodyさん
08/03/29 19:27:22
>>262
医学の進歩は目覚しいから、お前のような底辺奴隷はむしろ死ねないかもしれない。
265:259
08/03/30 22:02:27
ジョークを真に受ける馬鹿がこんなに多いとは・・・
266:nobodyさん
08/03/30 23:27:37
>>265
更にジョークを真に受けた馬鹿の登場ですか？
267:nobodyさん
08/03/30 23:58:51
>>266
言っとくけど俺をあまりナメないほうがいいよ
vipでコテハンやってるしこのスレ潰すくらいの影響力は持ってるから
くだらないことで刺激して後悔しないようにね
268:nobodyさん
08/03/31 01:08:05
>>267
そのコピペには、もう飽きた＼(^o^)／
269:259
08/03/31 07:25:32
>>266
後出しｼﾞｬｿｹｿｶｺﾜﾙｲ
270:nobodyさん
08/03/31 10:11:33
どっちが後出しだよｗ
271:nobodyさん
08/03/31 12:02:54
中出しの方が気持ちいいぞ。
272:nobodyさん
08/04/01 21:14:09
HTML::Templateっていうモジュールを使おうとしたら
鯖管理してる人が入れたくないです。っていうので
HTML::Templateの代わりになるような標準モジュールって何かありますかね？
個人的にはHTML::Templateの<TMPL_IF>みたいなのが使えれば大満足なんだけども
自分で作っちゃったほうが早いかな？
273:nobodyさん
08/04/02 01:00:40
普通にディレクトリでも作って放り込んで、useで使うのは駄目なん？
274:nobodyさん
08/04/02 10:50:31
HTML::TemplateはPurePerlだからディレクトリ作ってほうりこめばおｋ
275:nobodyさん
08/04/02 14:04:47
昨日から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さん
08/04/02 14:28:33
>>275
>perlには大きくわけて２つある
ファイルを置けば動くPurePerlと、installが必要なバイナリの2種類かな？
>恐らくActivePerlの為に書かれたであろうソースをcygwinで
プログラムファイル自体にその差は無い
よって
>cygwinとActiveperlは書き換える箇所があるのですか？
書き換える箇所は無い
ただしActivePerlでは動かないものもあるかもしれない
cygwinはUNIXエミュレータ（みたいなもの）
ActivePerlはWindows版のPerlインタプリタ
同列に並べるのはおかしい
> Internet Explorer ではこのページは表示できません
このエラーが出るってことはおそらくパーミッション
277:nobodyさん
08/04/02 15:21:24
>>275
書いた人です。「それは Perl だ」と言ったのも自分。
あれはCGIではなくてCLIスクリプト（＝コンソールアプリ）なので、
Perl実行環境さえあればWebサーバだの何だのは要りません。
# 「標準出力に何も吐かない」ブツはCGIではない。
あなたのしたいことは、Web制作板ともWebProg板とも関係のないことです。
ブツ自体はActivePerl だろうが cygwin 上の Perl だろうが動きます。
プロンプトから perl hoge.pl するだけ。以上。
ただ、glob() に2万ファイル食わせるのはやめといたほうがいいと思うな。
278:nobodyさん
08/04/02 15:33:03
直接やれｗｗｗ
279:nobodyさん
08/04/02 15:40:45
元ネタはここか
ｽﾚﾘﾝｸ(hp板:100番)
ほんとか？
280:nobodyさん
08/04/02 15:52:10
>>275です
>>276
詳しくありがとうございます
勉強になります
>>277
手取り足取りスレでお世話になりました
>>277さんのお陰で目標までの道が見えたような気がします
本当に感謝しております
HTMLとTXTそれぞれ3枚づつ置いてテストしてみようとしたのですが
上記の通り読み込めませんでした
hello.plで試したところ読み込みはできているようなので
書き込み用のファイルを用意しておくべきなのかわからないです
サーバなしで動くのでしたか私はサーバを通して操作するものかと勘違いしてましたすいません
perlでできると教えてくれて本当にありがとうございます
板違いになるのかーショボーン
どこに行けばいいのか・・・
みなさんありがとうございました
281:277
08/04/02 16:00:03
スレ汚しまくりで、本当にごめんなさい。 > all
とりあえず、物凄い勢いで板違い。>>275さんには、教えてgoo辺りがお勧め。
当分消えよう。
>>278
間接でも偏頭痛がしたので勘弁してください。
放置するとめんどくさい流れになりそうだったので出てきました。すみません。
>>279
そこで正解です…。
282:nobodyさん
08/04/02 17:09:09
winならActivePerlでいいやん。
283:nobodyさん
08/04/02 21:09:16
おまえらstrawberryperl知らんのか
284:nobodyさん
08/04/03 00:13:59
知らないかダメダメだから話題に出ない
それぐらい察してくれるとありがたい
285:nobodyさん
08/04/03 03:38:43 x8vlzbgB
colinuxでいいじゃん
286:nobodyさん
08/04/03 10:28:20
いろいろ出すと混乱しちゃうぉｗ
287:nobodyさん
08/04/03 13:05:14
colinuxとクリネックスて似てるね
288:nobodyさん
08/04/03 14:21:42
初心者ならActivePerl、中級者以降ならStrawberry Perlだな。
289:nobodyさん
08/04/03 16:36:19
超上級者ですが ActivePerl 使ってます
290:nobodyさん
08/04/03 18:06:58
perl開発者ですがperl使ってません
291:nobodyさん
08/04/03 19:03:25
自分はStrawberryPerlが有り難すぎるのだけど、前はActivePerl使ってた。
StrawberryPerlと比べてActivePerlはどういうメリットがあるのかな。
PPMが便利なこともあるけど、CPANが使いやすいStrawberryPerlの方が自分は便利。
ActivePerlの方を推す方の意見を聞きたいです。
292:nobodyさん
08/04/03 19:56:47
ActivePerl に一致する日本語のページ 約 560,000 件中 1 - 50 件目 (0.04 秒)
Strawberry Perl に一致する日本語のページ 約 13,000 件中 1 - 50 件目 (0.37 秒)
ActivePerl入れっぱなしだから特に探さなかった
293:nobodyさん
08/04/03 20:05:15
じゃ、今のActivePerl使ってみな。
294:nobodyさん
08/04/03 20:05:58
>>293 → >>291
295:nobodyさん
08/04/03 22:08:39
おーこんなんあったのか
存在すらしらなかった
296:nobodyさん
08/04/03 22:33:14
ActivePerlにはppmがあるし、最近は日本人がやってるppmリポジトリ（tcool）があるから
何かあっても日本語で済ませられるからなぁ。あそこだとCatalyst+DBIC+TT2もJiftyもPlaggerもそろってるし。
297:nobodyさん
08/04/04 04:20:23
winでweb開発するならvmwareとかcolinuxとかいれるだろ情交
298:nobodyさん
08/04/04 10:07:57
>>297
たしかにそれはもっともなんだが、クライアントの要望でWinで動かなきゃだめ、ってのでも
対応できて助かる。ほんと。
299:nobodyさん
08/04/04 14:10:52
vmwareとかcolinuxって何に必要なんだ？
特殊なことをするのでなければ、cronとSpeedyCGIぐらいしか思いつかない。
300:nobodyさん
08/04/04 16:49:23
サーバ機のOSにwin使うの？それならば何も言わんけど
301:nobodyさん
08/04/04 17:29:46
話がどんどんズレてるぞおまいら。
302:nobodyさん
08/04/05 00:28:43
PerlからDBI::ODBCでMS Accessに接続しようと思います。
SQLに日本語が混じっているときSJISだとうまくいくのですが
UTF8だと文字化けしてエラーになってしまいます。
Unicodeでも文字化けしない方法はないでしょうか？
303:nobodyさん
08/04/05 03:41:48
DB 側に文字コードを指定できたはず
304:nobodyさん
08/04/07 18:30:35 /Zogy0zf
もの凄く抽象的な質問ですがご容赦ください。
現在、mod_perl下で動いているプログラムがあります。
必要があり、これを修正してみたところ、何が悪かったのかそのままサーバダウン。
サーバダウン直前の挙動、エラーメッセージ、mod_perlの特性などから検証した結果、
プログラムの必要メモリ量が極端に増え、それに伴いメモリ不足で落ちたのではないかという結論に至りました。
さて、ここからが質問なんですが、
mod_perlのプログラムを書くにあたり、メモリ使用量などに関して、
コーディングのコツ、書くときの注意、メモリ使用量を見る方法などがありましたら教えてください。
参考になるサイトや書籍などでも構いません。
英語でも頑張って読んでみようとは思いますが、理解できるかどうかは甚だ怪しいです。
305:nobodyさん
08/04/07 19:21:31
プロを雇いなさい。
306:nobodyさん
08/04/07 19:50:42
修正前は全く問題なかったのなら修正部分見るだけで簡単に解かるから楽ジャン
307:nobodyさん
08/04/07 21:42:21 TcHrwP/2
元に戻す
308:nobodyさん
08/04/07 23:10:26
svn revert -R
309:nobodyさん
08/04/07 23:27:22
ちゃんと初期化、解放したったらえーんとちゃうのん？
310:nobodyさん
08/04/08 03:52:16
一定回数の呼び出しでリブートするしかなかったっけか。
311:nobodyさん
08/04/08 06:53:24 O35wAre8
あるオブジェクトが属するクラス名(パッケージ名)はどこに入っているのでしょうか。
特定のオブジェクトを外部から判定したいとしたときなど、
文字列(ClassName=HASHxxxなど)を見て判断できるとも思いますが、
文字列変換が値の出力にオーバーライドされていたりするとダメですし・・
例えば、あるサブルーチンの引数をClassNameオブジェクトに限る、といったときに判定したいのです。
よろしくお願いします。
312:311
08/04/08 07:27:45
すみません見つかりました。判定に関しては
if ($obj->isa('ClassName')) {・・・}
この辺から探っていけそうでしたので、311の質問は一旦取り下げますm(_ _)m
313:nobodyさん
08/04/08 09:05:59
>309
してます。
今回の場合に限りますが、解放されてないリソースが溜まり続けると言うより、1回の必要量が大きすぎた模様。
>305
いや、そんなこと言われても。
>306-309
質問文は後半だ。
314:nobodyさん
08/04/08 09:13:08
>>313
>>1
【激速】mod_perl SpeedyCGI FastCGI【激速】
ｽﾚﾘﾝｸ(php板)
315:nobodyさん
08/04/08 12:45:16
>>304
mod_perlかcgiかに関係なく
strictを付ける
サイズの予想できないデータは一括取り込みしない
ってのは当たり前だと思うんだが・・・
mod_perlで問題になりそうなのは
循環参照と意図しないクロージャくらいかな？
316:nobodyさん
08/04/08 18:50:34
>314
ありがとうございます。
宗教戦争が勃発してる魔境にしか見えないのが辛いところですが。
>315
ちょっとだけ内部の挙動を変えたらメモリ容量が4倍に膨れ上がってしまいまして…。
こういうのを、topコマンドでリアルタイムに監視する以外の方法があれば教えてください。
317:nobodyさん
08/04/08 19:19:20
4倍で落ちるってどんだけだよ
318:nobodyさん
08/04/08 19:20:40
Devel::Sizeでどの変数がメモリ食ってるか調べてみれば？
319:nobodyさん
08/04/08 19:26:09
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(perl.apache.org)
参考リンク
320:nobodyさん
08/04/08 20:31:28
>317
単純計算ですが、総計にしてメモリ1GBほど増加です。
>318
ありがとうございます
>319
ちょうど英語にひぃひぃ言いながら読んでたところです。
321:nobodyさん
08/04/08 20:55:45
メモリ量が4倍になったならMaxClientsを1/4にすりゃいいじゃん。
とりあえずこのへんも参考にするといい
URLﾘﾝｸ(iandeth.dyndns.org)
URLﾘﾝｸ(www.typemiss.net)
322:nobodyさん
08/04/08 22:02:45
>>313
数100MBのデータを気軽に読み込んじゃうのは素人なんだってば。
だからプロを雇えと。
323:nobodyさん
08/04/08 23:49:56 ng1N9SG/
与えられた文字列がutf8として正しいかどうか判断するのに
utf8::decode($str);
if ($str =~ /\P{IsASCII}/ and not (utf8::is_utf8($str))) {
### エラー
}
ってやってみましたが、あってますか？
324:nobodyさん
08/04/11 10:40:16
モジュールがPurePerlかどうかはどうやって判断すれば良いでしょうか？
325:nobodyさん
08/04/11 11:53:06
それは機械的に?
それとも手動で?
326:nobodyさん
08/04/14 15:21:25
URLﾘﾝｸ(watalog.jugem.jp)
↑の人と同じ悩みなんですが、jugem.jpのRSSをLWP::Simple::mirrorでミラーリングしようとすると、
RSSの内容ではなく、HTMLの内容が帰ってくるのは、どうしてですか？
RSSは以下のURLなのですが、引数を渡しているURLは、LWP::Simpleでは対応できないってでしょうか？
URLﾘﾝｸ(watalog.jugem.jp)
327:訂正
08/04/14 15:22:02
URLﾘﾝｸ(watalog.jugem.jp)
↑の人と同じ悩みなんですが、jugem.jpのRSSをLWP::Simple::mirrorでミラーリングしようとすると、
RSSの内容ではなく、HTMLの内容が帰ってくるのは、どうしてですか？
RSSは以下のURLなのですが、引数を渡しているURLは、LWP::Simpleでは対応できないってことでしょうか？
URLﾘﾝｸ(watalog.jugem.jp)
328:nobodyさん
08/04/14 16:19:57
>>327
UAで判定してる模様。
$ua = LWP::UserAgent->new(agent=>'IEみたいなUA');
でやってみ。
329:nobodyさん
08/04/14 16:25:16
>>328
ありがとうございます。いやらしいことしますね…
LWP::Simple::mirrorを使っているので、全部書き直すか、例外処理を作るしかなさそうですねorz
330:nobodyさん
08/04/14 16:33:55 BE:212256083-DIA(100004)
LWP::Simple は $ua を Export 出来る
331:nobodyさん
08/04/14 16:52:36
>>328の一行を追加すればいけるということでしょうか。
オブジェクト指向的な話（->とか）が全くわからないので、そういうところを避けながらコーディングしてきたのですが厳しいですね。
332:327
08/04/14 19:32:33
結局、LWP::UserAgentでUA偽装して、ミラーリングさせました。
今後はSimpleではなくて、こっちを使おう…
333:nobodyさん
08/04/14 21:28:37 vhVZb6UQ
CGI::Application を使ってみようかと考えてるPerl初心者です。
Web上でいろいろサンプルコードを見ていたんですが、
使いたいモジュールがある場合は
CGI::Application::Plugin として利用するのがお決まりのように見えます。
実際、それが推奨スタイルなんでしょうか？
Log::Handler が使いたかったのですが、
単純に use Log::Handler; して使うと何か不都合があるのでしょうか？
334:nobodyさん
08/04/15 07:46:19 m7oSRbUq
再利用しやすいようにPluginにぶら下げてるだけなんじゃないの？
好きにしたらいいと思うよ
335:nobodyさん
08/04/15 11:53:04 7+9bkjp8
ありがとうございます！
336:いしはら
08/04/15 18:41:44 y4DgL3Q4
------------------------------------------------
☆簡易ＣＴＩサービス(1万5千円)
URLﾘﾝｸ(s1s.jp)
☆自動クリックサービス
URLﾘﾝｸ(s1s.jp)
☆ブログ自動更新 記事投稿 コメント書き込みアプリ
URLﾘﾝｸ(s1s.jp)
------------------------------------------------
ヽ('A`)ﾉ
( ) 大金星!!
ﾉω|
337:nobodyさん
08/04/16 14:37:06
二項分布で確率１／ＡをＢ回の試行でちょうどＣ回引く確率を計算したいのですが、
これらをｐｅｒｌかPHPで計算する方法が分かる方いましたらアドバイス頂けないでしょうか。
式は見ても理解できないのでサンプルソースを頂けると助かります。
338:nobodyさん
08/04/16 15:16:19
式を見ても理解できないとコーディングなんてできないだろｗ
339:nobodyさん
08/04/16 16:03:06
「二項分布 perl」でぐぐれ
340:nobodyさん
08/04/16 17:57:49
最初の方に出て来るＪＵＧ７のソースいじりましたが、
サイコロ１００００回投げて１が１６６６回出る確率とかだそうとする際に
数値が大きすぎるのかバグります…。
以前調べた時のソースも、数値が小さければ問題無いものの、
規模を大きくすると1.#INFというエラーが返ったり。
341:nobodyさん
08/04/16 21:19:23 WbXSl+I/
お願いします。
与えられた文字列が大小文字同一視でハッシュのキーとして存在するかどうか、
調べる方法はないでしょうか。ハッシュキーは膨大な数あるので、配列にコピーとかは
したくないです。よろしくお願いし明日。
342:nobodyさん
08/04/16 21:28:03
1 hashを作るときに小文字(あるいは大文字)に変換して作る。
2 tieで1と同じ事を行う。
好きなほうをどうぞ。
343:nobodyさん
08/04/16 21:32:57
>>341
大小文字の区別はされるけどexistsって関数がある
344:nobodyさん
08/04/16 21:39:38
なるほど、ありがとうございます。
実は、元の正しい表記を後で取り出したいんですが、
ハッシュのvalueは空いてるので、そこに元の表記を入れておいて
キーを大文字統一にしてみようと思います。
コピーするのと変わらないかもしれませんが。
345:nobodyさん
08/04/17 04:13:49 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さん
08/04/17 07:21:16
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さん
08/04/17 09:58:36
>>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さん
08/04/17 14:34:42 FD3bsXbG
>>345です
解決しました。情報に感謝します。
>>346の内容を、Encode::〜でやりました。
こういうのって結構な落とし穴ですね。フラグのことはわかっているつもりでしたが……
349:nobodyさん
08/04/17 20:17:29 2zzFnXWL
教えて君でスマンが、分かる人がいたら助けて。
CGI::Applicationパッケージを使っているんだけど、
param() 関数で、数字だけの長い「文字列」を受け取ると
数値リテラルとして、しかも丸められた値が返されちゃうんだけど、
文字リテラルとしてそのまま受け取れるよい方法ないかな?
350:349
08/04/17 22:21:21
自己レスです。
CGI.pmにまでさかのぼって調べた結果、
query()->param()は文字リテラルで返してました。
自分が書いた、表示する際の処理のバグでした。orz
351:nobodyさん
08/04/18 00:03:02 qXgVgrBZ
いつもすみません。
自分で作ったhash refの配列がデリファレンスできません。
$array[0]->{key}
$array[0]{key}
${$array[0]}->{key}
とか書いてみましたが様々なエラーが出ました。どう書いたらいいですか？
352:nobodyさん
08/04/18 00:07:12
すみません。問題を取り違えていました。デリファレンスはできてました。
ソートをしようと思い、下記のように書いたらhash refを配列扱いするなと言われます。
my @sorted = sort {$array[$b]->{score} <=> $array[$a]->{score}} @array;
よろしくお願いします。
353:nobodyさん
08/04/18 00:20:08
ものすごく勘違いしてました。こういうことでした。
my @sorted = sort {$b->{score} <=> $a->{score}} @array;
354:nobodyさん
08/04/18 10:01:49
そういうときもあるよ
355:nobodyさん
08/04/18 18:42:42 J/rLxrZJ
前に２項分布について質問した者ですが、
これだけでも教えてくれると助かります…。
1.#INF の意味はなんですか？インフィニティ？
検索しても＃は検索対象にならないらしく、
*.INFの設定ファイルや関係無いものが出て来るばかりで…。
356:nobodyさん
08/04/18 19:06:45
知らんがな
357:nobodyさん
08/04/19 09:40:11
インフォメーションじゃね？
それかインフォーラム
もしくはインフェルノ
358:nobodyさん
08/04/19 12:48:02 n4AN2xdT
URLﾘﾝｸ(www.semblog.org) で配布されている、
RNAというアンテナソフトを使っています。
すでに動作してるのですが、summary部分のhtmlタグを除去したいと思います。
URLﾘﾝｸ(www-kasm.nii.ac.jp)
のように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さん
08/04/20 00:00:52
いくら何でも冷たすぎじゃないかお前ら。
>>355
備長炭 自殺方法 でぐぐれ。それでダメなら二項分布 オーバーフローとか。
360:nobodyさん
08/04/20 01:46:25
>>358
現物ソース確認したわけじゃないけど
URLﾘﾝｸ(naoya.dyndns.org)
の下の方にある remove_html を試してみたらどうかな。
361:nobodyさん
08/04/20 02:10:18
>>358
そのモジュールについては詳しくはわからないけど、もともとのソースをいぢるんじゃなくて、
それが吐き出したものを、自前で書き換えればいいんじゃね？
362:nobodyさん
08/04/20 02:30:50
元のコード見なくても
> 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さん
08/04/20 16:44:58
ヒアドキュメント内でハッシュリファレンスを使う場合はどのようにすればよいのでしょうか？
$text =<<EOL;
name = $h->{'name'}
mail = $h->{'mail'}
EOL
とやっても変数が展開されません。
仕方ないのでハッシュにデリファンスしてますが、
方法があったら教えてください。
364:nobodyさん
08/04/20 17:36:03
本当はシングルクォートで括ってね？
365:nobodyさん
08/04/20 20:52:48 tHisgd6U
オリジナルの携帯サイトアクセスランキングを作っています。
OUTをカウントするためなんすけど、アンカーから自前のCGIページを通過させてリンク先を表示させるにはどうすればいいですか？
366:nobodyさん
08/04/21 00:00:18
自前のCGIページを通過させるアンカーを出力すればよいと思います。
367:nobodyさん
08/04/21 18:56:21
>>363
my $h = {name=>'john', mail=>'john@example.net'};
my $text =<<EOL;
name = $h->{'name'}
mail = $h->{'mail'}
EOL
print $text;
こんな感じ。
368:358
08/04/23 09:11:49
>>360, >>361, >>362
ありがとうございます。
remove_html、使いたいのですが使い方がわかりません...
# URLﾘﾝｸ(naoya.dyndns.org)
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さん
08/04/23 12:47:07
m_unit.plというライブラリがほしいんですがググっても出てきません
どこで手に入れる事ができるでしょうか？
370:nobodyさん
08/04/23 13:05:00
>>369
ググっって出てくる奴とは違う物？
371:↑
08/04/23 13:08:34
ごめんなさい間違えました（＞＜）
372:nobodyさん
08/04/24 18:43:40
ABCXXXDEF
という文字列から
ABCとDEFを削除してXXXのみを表示させたい場合はどうすればよいのでしょうか？
$moji = ABCXXXDEF;
$ans = $moji からABCとDEFを削除;
print "$ansです\n"
という具合でいいんでしょうか？
このABCとDEFを消す処理の部分がわかりません。
373:nobodyさん
08/04/24 18:47:46
$moji =~ tr/ABCDEF//d;
print $moji;
374:nobodyさん
08/04/24 18:48:17
>>372
$moji =~ s/ABC|DEF//g;
$ans = $moji
375:nobodyさん
08/04/24 18:50:21
>>373>>374
ありがとうございました。
助かります。
376:nobodyさん
08/04/26 13:15:07 flUVuiqJ
basenameでファイル名を取り出したいのですが、ブラウザが動いているOSの種類によって、
区切りが/であったり\であったりとまちまちです。
perlはLinux上で動いているので、デフォルトでは、/で区切られている場合しか、ファイル名を取り出せません。
\で区切られている場合でも、取り出せるようにするにはどのようにしたらよいのでしょうか？
fileparse_set_fstypeでMSWin32を指定してしまうと今度は、Unixからアクセスしてきた場合にうまくいきません。
377:nobodyさん
08/04/26 13:19:19
んなもんアクセスしてきたOSの種類で使いわけりゃいい話だろボケ
こんなもん中学生でも分かるぞカス死ね
378:nobodyさん
08/04/26 16:13:45 flUVuiqJ
もしブラウザがOSに関する情報を送ってこなかったらどうすればよいのでしょうか？
379:nobodyさん
08/04/26 16:23:13
>>378
ファイルの有無を判断して、
どっちのデリミタで切るか、
判断したら？
380:nobodyさん
08/04/26 17:01:10
アクセスしてきたOSは関係ない。
Perlが動いているサーバーのOSが関係する。
そして、basenameは動いているOSによって区切りを/か\か自動的に
判断してくれるので便利に使える。
サーバーがWindowsでもLinuxでもbasenameは正しく動いてファイル名を取り出せる。
取り出せない場合は、何か別の原因。
381:nobodyさん
08/04/26 19:45:43
type=fileで送られてくるファイル名の話じゃないのか?
382:nobodyさん
08/04/26 21:48:20 vQRq4Omz
だいたいみなさんの、perl普通にコード書き込みできるまでに要した
時間と日数おしえてもらえませんか？時間とか１日何時間くらいしてます？
383:nobodyさん
08/04/26 22:09:54
意味が。
384:nobodyさん
08/04/26 22:14:17
>>382
もっと、日本語を勉強した方がいいよ
385:nobodyさん
08/04/26 22:49:57
>>382
皆さんは「週何日、1日当たり何時間」なんていう時間割みたいな方式で
取り組んできたわけじゃないので、そういうのはよくわかんないのです。
そりゃ、そんな方式で堅苦しく取り組んできた人もいるかもしれないけど。
あなたが今までにちんちんを何ストロークしてきたかが不明なのと似てます。
386:nobodyさん
08/04/27 00:52:54 G3KB/HmG
mod_rewriteでURLを書き換えた時に%2Fがあると404エラーになってしまうので
スラッシュをURLエンコードさせたくないのですが、可能でしょうか？どなたか助けてください・・
p://example.net/dir/index.cgi?name=<em>hoge</em>
このように、どうしてもタグが含まれてしまうURLなので困ってます。
見るからに初心者ですが、どうかよろしくお願いします。
387:nobodyさん
08/04/27 01:20:29
>>386
不可能。
388:386
08/04/27 02:55:07 G3KB/HmG
>>387
そうですか・・
諦めて他に方法がないか試行錯誤してみます
ありがとうございました。
389:nobodyさん
08/04/27 23:26:09
>>382
10時間ぐらいかな。
もっとも、Perl以前にawk, sed, C
などの下地があったわけだが。
390:nobodyさん
08/04/27 23:35:33
普通がどの程度か全く分からないけど、とりあえず動く掲示板を作るのに１日１〜２時間ほど
コード書いて１週間かかった気がする
そんな自分は C (すっかり書けないけど、ポインタで躓くまでは書いてた)、VB (アプリをいくつか作ってた) の経験ありです。
391:nobodyさん
08/04/27 23:39:03
Perlでバッチ処理を書くのはすぐ出来るけど、
Webアプリ(cgi)は時間がかかると思う。
392:nobodyさん
08/04/27 23:44:48
そんな貴方にCGI.pmですよ
393:nobodyさん
08/04/30 17:01:56 9OxUbc+M
あの、乱数についてなのですが、100~150までの間でランダムな数をスカラー変数に格納するにはどうすればいいでしょうか？
394:nobodyさん
08/04/30 17:13:24
my $rndnum = rand(51) + 100
rand(51)
0 〜 51 未満を生成 (未満は 51 を含まないので 50 以下の数字が現れる)
+100
下限値である 100 を加えてやる
以上
395:nobodyさん
08/04/30 17:14:49
int
396:nobodyさん
08/04/30 17:19:40
my $rndnum = int(rand(51)) + 100;
397:nobodyさん
08/04/30 17:19:49
忘れてたｗ
>>395
thx
my $rndnum = int(rand(51) + 100);
398:nobodyさん
08/04/30 18:11:00
>>393の質問ではintなしの>>394が正解とすべきなんじゃないか？
質問者の質問が悪いところまでフォローして手取り足取りするのが役目？
399:>>393
08/04/30 18:26:54 9OxUbc+M
皆さんどうもありがとうございます。
確かに>>398さんの言うとおりです。わざわざフォローして下さった親切なお二方に感謝します。
400:nobodyさん
08/04/30 18:38:47
すいません。
どうも下記例のforeachのループの中で、さらにwhileのループを
回せないのですが、たぶん簡単な理由だとは思うのですが、
お助け下さい。
他にもこのようなforeachのループの中で、foreachのループも回せないと
思います。
foreach $number(@number){
while (<F2>) {
print "$number\n";
if (/$number/)
{
print "マッチしました\n";
print F3;
}
}
}
401:nobodyさん
08/04/30 19:09:01
>>400
<F2>で同じ行数を複数回とりだしたい感じ？
だとしたらヒント：seek
402:nobodyさん
08/04/30 19:10:23
>>400
1回目のforeachが終わったときに<F2>が空になる
403:nobodyさん
08/04/30 19:48:00
whileに入る前に開きなおすのも手だな
404:nobodyさん
08/04/30 20:17:59 GavbPT5W
一回目のループで開いてるファイルのファイル位置が終端にあるため
２周目はファイルを読み込むループが発生しません
解決法は２つ
・While の直前でファイルを開くようにする
・While の直前で seek を使ってファイル位置を先頭に戻す
です。
負荷は後者の方が幾分か軽いです
405:nobodyさん
08/04/30 20:28:06
my @lines = <F2>;
場合によってはこれもありかなと思った。無駄にメモリ食うけど。
406:nobodyさん
08/04/30 20:47:41
whileの中でforeachじゃ駄目なん？
407:400
08/04/30 23:43:57
すいません。seekというのは初めて知りました。
1回目のforeachが終わったときに<F2>が空になる ってマジですか。
例のループにseekを追加して、動くようにしていただけませんか？
お願いします。
408:nobodyさん
08/05/01 01:39:53
>>400
初めてのPerlと続・初めてのPerl買えばいいよ。
409:nobodyさん
08/05/01 12:48:54
コストの高い I/O をメインにループさせたほうがいいっすね
open(F2, "hoge.txt");
while (<F2>) {
foreach $number(@number){
〜
}
}
close(F2);
410:nobodyさん
08/05/01 13:18:21
>>407
自分でやれ。
できないなら金払って業者つかえ。
代行するところじゃなく、自分で作るためのヒントを与えるところだ。
ここまでヒントがそろったらあとは調べながらできる。
411:nobodyさん
08/05/01 13:51:56
あとね、初心者なんだから記述を略すな
ちゃんと意味がわかってから略すように汁
412:400
08/05/01 23:38:01
>409 Thx 明日試してみます。seek(F2, 0, 0)では動かなかった。
>410 GW中くらい、自宅警備を止めてみたら？
>411 省略ハァ？ 汁？
413:409,411
08/05/01 23:46:36
そういう口調ならてめぇで解決しろよ能無しチンカス糞野郎
414:nobodyさん
08/05/02 00:07:00
> 省略ハァ？ 汁？
ﾜﾛﾀ
415:nobodyさん
08/05/02 05:46:04
まあ、なんだ
「ものを学ぶ姿勢」ってやつを身に着けないと成長できないよね
416:nobodyさん
08/05/02 08:12:32
きっとこの人はこれからさきの人生も困ったら自分の力で解決しようとせず人を頼りにして生きていくんだろうな。
これ10代だったら笑って流せるけど、20代以上で本気で言ってたら深刻ｗｗ
417:nobodyさん
08/05/02 10:22:44
定期的に沸くから慣れろｗｗｗ
418:nobodyさん
08/05/02 10:32:20
自分の書いてるのが略記だって事すらも気がついてないんだろうな
あと、これはおそらくは宿題だなｗ
419:nobodyさん
08/05/02 11:18:57
延々と質問者を叩く・・・キモッ
とっくに質問者は消えてることに気づけよ禿げ
420:nobodyさん
08/05/02 12:28:02
>>419
僕の予想が確かなら、質問者なら君のパソコンのモニタの前に居るよ。
421:nobodyさん
08/05/02 12:37:17
>>420
はぁ？俺か？
ちゃうっちゅーねん
あほか
422:nobodyさん
08/05/02 13:12:28
ノリが一緒でわろたｗｗｗ
423:nobodyさん
08/05/02 13:34:20
お前の粘着っぷりのほうがおもろい
医者いったほうがええんちゃうかｗ
リアルでアレかｗ
424:nobodyさん
08/05/02 13:43:58
日本語が変でござるよ
425:nobodyさん
08/05/02 14:15:25
ネット上での似非関西弁って餓鬼が凄む時に巻き舌になるのに似てる
426:nobodyさん
08/05/02 14:47:41
それは言わないのが優しさだったのに・・・
427:nobodyさん
08/05/02 15:08:52
質問者以外が必死になる理由が見つからない
428:nobodyさん
08/05/02 18:44:35
ぼくが一番、perlをうまく操れるんだ！
429:nobodyさん
08/05/02 23:07:56
>>427
思い込み激しいとか言われへん？
回りに迷惑かけても気づかないタイプだな
回答もしないのに罵倒するのはお前だけやろ
頭変すぎてわからんかｗ
430:nobodyさん
08/05/02 23:28:43
>>429
そんならお前が回答してやれよ。 出来るもんなら。www
431:nobodyさん
08/05/02 23:45:27
>>429
なんでそんなに必死なん？
432:nobodyさん
08/05/02 23:59:11
GWで暇なんだろ
433:nobodyさん
08/05/03 02:50:47
GW、通勤とか会社の中とか人が少なくていいよね。
434:nobodyさん
08/05/03 03:07:39
いいですよね。客からの電話も鳴りませんし。
435:nobodyさん
08/05/03 10:04:09
泣いてませんか？
436:nobodyさん
08/05/03 18:44:15
内線もならないよね。
437:nobodyさん
08/05/03 19:02:10
でもトイレに花子さん居るよね。
438:フー子
08/05/04 19:36:48 798fbSDd
Perl の CGI::Base とか CGI::Request モジュールって、
何のためにあるの？どうやって使うの？
439:nobodyさん
08/05/04 19:50:31
>>398
初心者質問スレで何言ってるんだ。
440: ◆TWARamEjuA
08/05/04 20:01:51 BE:3267465-2BP(7082)
>>438
君かわいいね。
・・・ぶつ森のスレかとオモタorz...
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(search.cpan.org)
を眺めてみればよろしいかと。
例文を眺めればだいたい何がしたいのかが見えてくるかと。
英文は無理に読まなくてもよろしいかと。
441:nobodyさん
08/05/04 20:22:15
pmという拡張子、ｶﾞｸﾌﾞﾙ
442:nobodyさん
08/05/05 14:08:42 GD7pTJpy
CGI掲示板を自作していますが、書き込み送信メールのSendmailによる送信処理でつまづきました。
以下のように記述すると、管理人である自分には登録メールが送られますが、
管理人以外に、書き込みした人にも登録確認メールが送られるようにしたいんです。
#Sendmailによる送信処理
if (open(MAIL,"| $sendmail -t")){
print MAIL "X-Mailer:legend2\n";
print MAIL "To: $administrator\n";
print MAIL "Errors-To: $administrator\n";
print MAIL "From: $administrator\n";
print MAIL "Subject: $subject\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "$mail_comment\n";
print MAIL "\n";
close(MAIL);
}
}
以下のどれかを使うのでしょうか？
print SENDMAIL "From: $sender <$from>\n";
print SENDMAIL "To: $to\n";
print SENDMAIL "Cc: $cc\n";
print SENDMAIL "Bcc: $bcc\n";
どうすれば良いか御教授下さい。宜しくお願いします。
443:nobodyさん
08/05/05 14:20:17
>>442
# CGIは板違いだが、この処理自体はCGIと関係がないので。
if文のブロックを、Toヘッダだけ「書き込みした人」のアドレスにしてもう一度処理するか、
Toを「書き込みした人」のアドレス、CcまたはBccを「管理人」のアドレスにするか。
Errors-Toヘッダはobsoluteだった気がします。
envelopeアドレスを指定するべし。sendmailに-fオプションに続けてアドレスを指定する。
URLﾘﾝｸ(sonic64.com)
444:nobodyさん
08/05/05 16:36:56
つーか、今時、open(MAIL,"| $sendmail -t")やErrors-To:とか前世紀に
書かれた古文書を元にCGI作るな。めーわくだ。
445:nobodyさん
08/05/05 18:19:44
批判だけならゾウリムシにもできる
例文または参考 URL ぐらい提示すればいいじゃない
446:nobodyさん
08/05/05 19:20:18
ただでは断る。
447:nobodyさん
08/05/05 20:15:30
>>446
しね
448:nobodyさん
08/05/05 21:17:57
役立たずなテキストに騙される処を指摘してやったのに随分な言い草だな。
449:BEET
08/05/05 21:36:20
URLﾘﾝｸ(z-z.jp) ここのスクリプト抜きたいんですけど、どうしたらいいのですか？
450:nobodyさん
08/05/05 21:39:44
>>449
むり
451:nobodyさん
08/05/05 21:57:12
>>449
ハッキングすればできるかもしれない。
452:nobodyさん
08/05/05 22:16:06
スクリプト抜くってどういう意味なんですか？
453:nobodyさん
08/05/05 22:44:54
ハァハァするんじゃないかな。
454:nobodyさん
08/05/05 23:21:45 V/xhfGfA
ftpで接続しないとスクリプトは抜けないでしょう
455:BEET
08/05/06 00:42:09
回答ありがとう。 ハッキングって.. 簡単なのかな？ ソフトはできるだけ使いたくないな
456:BEET
08/05/06 00:45:09
追記なんですけど
このレンタル掲示板の管理パスをクラックされて、改竄されたんだけど、どうやってクラックしてるのかな？
457:nobodyさん
08/05/06 00:49:33 fJq/GBDg
(｀･ω･´)？？
458:nobodyさん
08/05/06 00:50:15
>>455-456
>>1を100回声を出して読め。
読み終わったら610と三ポールのミックスカクテル飲め。
459:nobodyさん
08/05/06 00:51:09 fJq/GBDg
(｀･ω･´)ソフト使ってるだろｗｗ
460:nobodyさん
08/05/06 09:09:26
Windowsローカルに入れたActivePerlで
cpan > install XML::ATOM::Feed
したのに、それを500エラーになってしまいます
（useしてるところをコメントアウトすると通る）
moduschで見たら「存在しないか、ロード出来ない」っぽい
なぜでしょうか…？
461:nobodyさん
08/05/06 16:59:23
>>442
BCCで目的は達成できると思うけど、
自分のメールアドレスを、スパムを送りたい先などにされると
簡単にスパムの踏み台になるから気をつけてね。
462:nobodyさん
08/05/06 22:50:17 wGWcI8Lv
AUTOLOADってのを初めて使ってみたんです。
未定義の関数を読んだら無事AUTOLOADが呼ばれたんですが、
変数$AUTOLOADを参照するとGlobal symbol〜っていうエラーが出てしまいます。
AUTOLOADを使う場合はno strictしていいものでしょうか。
463:nobodyさん
08/05/07 00:05:35
use strict;
use warnings;
sub AUTOLOAD {
our $AUTOLOAD;
print $AUTOLOAD;
}
foo();
464:nobodyさん
08/05/10 23:18:32
URL転送なんだけど今こうしてます↓
#!/usr/bin/perl
print "Location: URLﾘﾝｸ(*****\n\n)";
これに転送するまでHTMLの<meta content="x">みたいに
一定時間ウェイトかける事って出来るのでしょうか？
465:nobodyさん
08/05/10 23:19:01
いいえ
466: ◆TWARamEjuA
08/05/11 01:16:36
転送するまでひと寝入りする。
467:nobodyさん
08/05/11 02:11:14
>>464
いい事いうじゃねえか。
出来るんだな？
今すぐ頼むぞ。
468:nobodyさん
08/05/11 13:18:10 yMOlxpUv
print qq{あいうえお @{[1+1]} かきくけこ };
無名配列のリファレンスとデリファレンスを使ってクォート内に式を埋め込めます。
これ気に入っててよく使うんですが、これのスカラーリファレンス版ってできませんか？
\$()
無名スカラーって存在しないんですかね。
いやそもそも@{[]}に式を埋め込めるのはそこをクォート内ではないと認識するからなわけで。
いや、う〜ん。確かこれなんかいい方法があったような期がするんですが。
469:nobodyさん
08/05/11 23:02:44 Vy6R2X5C
Perlスクリプトの処理が全て完了する前に
クライアントとの接続を明示的にクローズする方法は
ありませんでしょうか？
以下のようなことが実施したいです。
どなたかよろしくお願いします。
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html><body>なんちゃら</body></html>";
## ここで明示的にクライアントとのConnectionをクローズしたい。
## ここからクライアント側に影響がない時間がかかる別の処理を実施したい。
&HokaNoShori();
exit;
470:nobodyさん
08/05/12 01:08:40 CYOIx0A2
perlで重い処理をさせるのが困ります。
例えばパソコンの30％の能力だけ使わせるとかってできませんか？
471:nobodyさん
08/05/12 01:16:51
>>470
それは知らないけど、nice付けて起動とかしてみては？
472:nobodyさん
08/05/12 03:09:36
>>468
qq{ ${\do {1+3}} }
473:nobodyさん
08/05/12 04:50:44
>>469
close(STDOUT);
474:nobodyさん
08/05/12 10:21:48
>>469
fork
475:nobodyさん
08/05/12 16:03:50
WindowsXPでActivePerlを使って
クリップボードにあるテキストに処理を加えて
クリップボードに戻すプログラムを作ろうとしています。
Win32::Clipboardを使用しているのですが、Unicodeだと化けてしまいます。
Unicodeでも化けないで処理できる方法はあるでしょうか？
476:nobodyさん
08/05/12 16:08:19 CYOIx0A2
>>472
思い出した！
print qq{ ${ \(1+1)} };
でしたね。
なるほどなるほど。${}これでデリファレンスができるというわけだ。
477:nobodyさん
08/05/12 17:20:30
Win32::Clipboard が受け取るのは Shift_JIS 固定っぽいです
Encode でShift_JIS にして渡してみたらどうりますか？
478:nobodyさん
08/05/12 18:00:21
>>477
回答ありがとうございます。
Shift_JISにない文字も処理したかったので
Win32::Clipboardでは無理と言うことですね。
Win32::Clipboard以外でクリップボードを利用できるものはありますか？
479:nobodyさん
08/05/12 20:22:51
文字化けしないようにする方法教えてください
use LWP::Simple;
my $page = get('URLﾘﾝｸ(hogehogehoge.jp)');
getprint('URLﾘﾝｸ(hogehogehoge.jp)');
print $page
480:nobodyさん
08/05/12 21:36:53
>>479
ヒント：Jcode
481:nobodyさん
08/05/13 01:04:45
perl 文字化け でググれカス
482:479
08/05/13 03:44:42
エスジス保存しておいたソースファイルをEUCに変更保存してみたけど
何も変わんないですよ
483:nobodyさん
08/05/13 06:45:22
>>482
「ソースファイル」ってのが上の us-ascii で足りそうなコードのことだったら
SJIS → EUC しても何も変わんないですよ。
環境その他も書かれてないし、変換に興味なさそうなので
perl hoge.pl > test.html
して「まともなエディタで見れば文字化けしない」でいいのかも。
484:nobodyさん
08/05/13 13:57:38
>>464
Location:を表示する前にwaitをいれればおk
485:nobodyさん
08/05/17 19:31:00
$obj = new Class;
$obj = Class->new();
この二つの違いは何ですか？
486:nobodyさん
08/05/17 20:03:56
おんなじ。どっちのClassクラスのコンストラクタを呼んでるだけ。
Classってサブルーチンが定義されてるときに問題がおきることがあるので、
$obj = Class->new;
の形式のほうが推奨されるけど。
487:nobodyさん
08/05/17 23:09:13
>486
ありがとんです
488:nobodyさん
08/05/18 11:25:25
俺はコンストラクタを呼び出すときだけはnew Classってしてあとはぜんぶ$obj->sub()ってするかな。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4937日前に更新/211 KB
担当:undef