【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/02/09 00:24ID:s0tpWWxg1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 9
http://pc.2ch.net/test/read.cgi/php/1041530204/
参考書籍の話題は【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は 【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/
あとは>>2-10。
0313nobodyさん
03/02/20 00:14ID:???$ENV{'TZ'} = "Japan";
とかでもやってみるとか。
0315266
03/02/20 00:21ID:Hhj+m+Kjあるよ
0316nobodyさん
03/02/20 00:24ID:???perl -cでチェックできるのは、コンパイルエラーのみだから、
実行したときに発生するエラー(require失敗、関数が見つからない)は、
存在するかしないかは分からない。
0317nobodyさん
03/02/20 00:25ID:???0318266
03/02/20 00:32ID:Hhj+m+Kjどうもありがとうございます。
もう一度先頭行を確認してみます。
0319nobodyさん
03/02/20 01:06ID:???http://www.harukaze.net/~mishima/perl/cgi-debug-env/deb-tech.html
0320マリモーマ ◆r6PDGT6Xd2
03/02/20 08:45ID:ZbzyrSlfｗｉｎｄｏｗｓタスクマネージャーで perl.exeを 終了させると
いいらしい
0321nobodyさん
03/02/20 09:04ID:hpPhmqwv初心者らしい意見を有り難う。
0322304
03/02/20 09:05ID:Am46dVIUURLエンコードというのですか。
勉強になりました
0324nobodyさん
03/02/20 09:50ID:???って具合のが見易くて良いかもね。
0325nobodyさん
03/02/20 09:57ID:???一行内に特定文字列(>>\d+)がいくつあるか
数える方法というのはありますでしょうか？
現在、代案として下記のように>>\dで
splitし配列を数えているのですが
いかんせん正攻法じゃないので...
local @tmp = split(/>>\d+/,$_);
print $#tmp;
0326nobodyさん
03/02/20 10:15ID:???適当な配列にコピーしてs//gして帰ってくる数値を見ればいいんでない？
もしくはwhile(/>>\d+/g)ってやってカウンタを増やすとか…
0328nobodyさん
03/02/20 10:51ID:???> 一行内に特定文字列(>>\d+)がいくつあるか
これを読んでいなかったｽﾏｿ
my $count = 0;
foreach(split(/\n/,$_)){
print sprintf(qq{">>\\d+"の数：%0d 行目 %0d 個},++$count,(s/(>>\d+)/$1/g));
}
0330nobodyさん
03/02/20 20:18ID:ve8bV8Zf「このまま一生彼女ができないのでは…」
私は社会学を専攻している者です。社会学や周辺の学問を利用し、実践的な
恋愛理論を開発しております。机上の空論に終わらず、あくまで実践的。効果
は絶大です。この理論は私自身の苦悩から生まれました。モテないことに深く
悩んでいた私は社会学部に入り、恋愛をはじめとするコミュニケーションにつ
いて考察することを決意。開発期間およそ６年。やっと研究が実を結びました。
ルックスなんて恋愛に関係ないということを自ら証明したのです。今回はその
集大成を公開しようと、メールマガジン発行を決めました。すでに数回発行し
ておりますが、購読者にはバックナンバーが閲覧できますのでご安心を！
今ならまだ間に合います。春、出会いの季節に幸せが訪れるかどうかは、あな
たの選択次第です。絶対に後悔はさせません。「９０日彼女ゲットプログラム」
もちろん購読は無料！ → → http://www.h5.dion.ne.jp/~psysys/index.html
0331nobodyさん
03/02/21 01:07ID:f3aIdgTvRaQ3で正常に動いていた画像掲示板が、RaQ550にサーバーを変えてから
エラーが出て動かなくなってしまいました。
エラーログを見ると
「Premature end of script hedders : /usr/cgiwrap/cgiwrap」
となっています。
これはどういう意味のエラーなのでしょうか？いろいろ調べたのですが
わからずほとほと困っています。
perlのバージョンが上がったのが原因なのかとも思いましたが、
なにぶん初心者なのでよくわかりません。
もしよろしければ教えていただければありがたいのですが。
よろしくお願いします！
0332nobodyさん
03/02/21 01:40ID:???・1行目の Shebang が違う。
・require の該当するファイルがパスの通ったところにない。
・適切な Content-type: エンティティを吐き出していない。
・外部ファイルへのアクセス時に、該当ファイルのパーミッションが不適切であった。
・長いので省略。全部見るには >>1
0334nobodyさん
03/02/21 02:12ID:???0335nobodyさん
03/02/21 02:46ID:p5R52YmNPerlﾓｼﾞｭｰﾙを作ってるのですが、
拡張子.pmだと、ﾌﾞﾗｳｻﾞでｱｸｾｽされると中が見えてしまいます。
で、拡張子.cgiでﾓｼﾞｭｰﾙ使おうと思ったのですが、
それだと、useで呼び出せません。
拡張子.pm以外は、useで呼び出せないのでしょうか？
また、.pmﾌｧｲﾙの中が見えないようにするにはどうすればいいでしょうか？
0336nobodyさん
03/02/21 03:13ID:???perldoc -f useを参照。.cgiでも使えるかも。
通常は鯖側で見えないように設定かと。
.htaccessの偉い人 Part3
http://pc2.2ch.net/test/read.cgi/php/1019888234/l50
0338331
03/02/21 11:42ID:???>>333
ありがとうございました！
教えてもらったところをチェックしてみます！
前のサーバーで動いていたのに、新しいサーバーでは動かないのが
わからないんですよね・・パスはチェックしたけど
0339nobodyさん
03/02/21 18:57ID:???確かwhileを使う方法があったのですが思い出せません。
教えて頂けないでしょうか？
0340nobodyさん
03/02/21 19:01ID:???http://www.din.or.jp/~ohzaki/perl.htm#File_Random
無理。使えない。require()するしかないね。
0345nobodyさん
03/02/22 12:20ID:00dHJZueperlから以下のような内容を含むメールを送信したいのですが
&jis("この度は〜頂きありがとうございます。\n今回のオーダーは以下の内容で承りました。\nもしこの内容でよろしければこのままメールをご返信ください。〜
で送信後メールの「今回のオーダーは」
の部分が「今回のお錐桙ンは」
のように文字化けを起こします。他の箇所はよいのですが
この部分だけ文字化けを起こします。
何か対処法はあるのでしょうか？
よろしくですm(__)mペコリ
0347あすか
03/02/22 17:29ID:9iUywjuX$value =~ s/藁/笑/g;
で、藁を「笑」に変換するのはわかるんですが
これに「タグ」を利用したい場合どの様にすればよいのでしょうか？
つまり、もしも「藁」という文字列があった場合
「<b>笑</b>」と（←実際にはタグは実行されてしまっている）
したいんですが、</b>としたときの「/」が置換演算子とかぶって
しまいエラーになってしまいます・・・。（泣
0348nobodyさん
03/02/22 17:36ID:???0349nobodyさん
03/02/22 17:36ID:???世にこれをエスケープという。
/を置換演算子とやらとして解釈されないようにする。
s#藁#笑#g
世にこれを...知らん
0350マリモーマ ◆r6PDGT6Xd2
03/02/22 18:32ID:SFcrKMsp今回のオ\ーダー ではどうかな？
0351nobodyさん
03/02/22 18:36ID:9Q2QNoLVどうすれば良いのでしょうか？
↓こんな感じでやりたいんですが、、
use constant HOGE => ['hoge','hoge2','hoge3'];
print "$_\n" foreach(HOGE);
0352nobodyさん
03/02/22 19:04ID:???jcode.pl(.pm)を使う。
>>347
s/<b>笑<\/b>/藁/g; # /をエスケープ
s|<b>笑</b>|藁|g; # 区切り(デミリタ)を変える
s{<b>笑</b>}{藁}g; # 同上
>>351
use constant HOGE => ('hoge', 'hoge2', 'hoge3');
0354nobodyさん
03/02/22 21:55ID:dmtEQjtbファイルロックしてもデータが飛んでしまいます。
どうすればデータが飛ばないように出来るんでしょうか？
0355nobodyさん
03/02/22 21:55ID:???0356354
03/02/22 22:14ID:dmtEQjtbopen(OUT, "+< count.dat");
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT $i++;
close(OUT);
ってやってるんですが・・・。
大量のアクセスに耐え切れませんでした
0358nobodyさん
03/02/22 22:28ID:???0360nobodyさん
03/02/22 22:31ID:???0361nobodyさん
03/02/22 22:35ID:???0363354
03/02/22 22:53ID:dmtEQjtbflock(F, 2);
$count = <F>;
$count++;
seek(F, 0, 0);
print F $count;
close(F);
} else {
&error();
}
いろいろ改良して、こんな感じなったんですけど、やっぱり1000回ぐらい何人かでやるとファイルの中身がおかしくなってしまいます
0364nobodyさん
03/02/22 22:56ID:???0365nobodyさん
03/02/22 22:59ID:???処理の結果ってのはバグの手がかりを知る大事な情報だから省略しないように。
0366354
03/02/22 23:04ID:dmtEQjtb0367nobodyさん
03/02/22 23:06ID:???0368354
03/02/22 23:07ID:dmtEQjtbそれで、実行された回数を記録したいんです。
0369nobodyさん
03/02/22 23:09ID:???例えば、先行プロセスでflockが失敗したとする。
しかしエラー処理が無いのでそのまま進む。
ここで後続プロセスがロックがかかってないのでファイルをオープンする。
データが壊れる。
0370nobodyさん
03/02/22 23:28ID:???限界があると思うけど・・・。
絶対壊れないようにするﾌｧｲﾙﾛｯｸはないです。
0371354
03/02/22 23:30ID:dmtEQjtb0372nobodyさん
03/02/22 23:31ID:???0373nobodyさん
03/02/22 23:42ID:???でたらめ抜かすな。ロックは2種類しかない。
正しいロックと駄目ロックだ。絶対に壊れないのが正しいロック、それ以外が駄目ロック。
0376354
03/02/23 00:04ID:osZUd/C4truncateって何ですか？
0377nobodyさん
03/02/23 00:08ID:???0378nobodyさん
03/02/23 00:18ID:???その方法が最良じゃないかと思いますが。
無駄な処理とかないですし。
あとはflockとseekとcloseにエラー処理加えるくらいですね。
0379378
03/02/23 00:19ID:???0381nobodyさん
03/02/23 00:29ID:???なんで354は再三にわたってエラー処理をしろというレスを
無視するんだああああｒ；かえ；ｇｋ’えあ；ｒｌｆ’あうぇｒ
0383nobodyさん
03/02/23 01:09ID:???flockを使わない。
0385nobodyさん
03/02/23 01:15ID:PmGQRxss何とか回避する方法はありませんでしょうか？
0386nobodyさん
03/02/23 01:21ID:???0387nobodyさん
03/02/23 01:26ID:???Socketで＆を含むURLをGETしようとしてるんですが、＆amp; に展開されてしまってうまくいきません。
何とか回避する方法はありませんでしょうか？
0388nobodyさん
03/02/23 01:28ID:???0389387
03/02/23 01:30ID:???my $SOCKET = new IO::Socket::INET -> new(PeerAddr => $hostname,
PeerPort => 'http',
Proto => 'tcp',
TimeOut => '5' );
print $SOCKET "GET $url HTTP/1.1\r\n";
ってな感じです。
0390nobodyさん
03/02/23 01:39ID:???0391387
03/02/23 01:42ID:???$url = "test/read.cgi/php＆1044717887";
my $SOCKET = new IO::Socket::INET -> new(PeerAddr => $hostname,
PeerPort => 'http',
Proto => 'tcp',
TimeOut => '5' );
print $SOCKET "GET $url HTTP/1.1\r\n";
ってな感じです。
（この$urlは実在しません）
0392387
03/02/23 01:46ID:???Invalid URI in request GET test/read.cgi/php＆amp;1044717887 HTTP/1.1<P>
と出ます。
0393nobodyさん
03/02/23 01:50ID:???0397nobodyさん
03/02/23 01:56ID:???参考のためにOS教えて。
# truncateまでしたら、まず壊れないと思うけど。
参考のために。
use IO::File;
my $fh = IO::File->new("count.dat", O_EXLOCK|O_RDWR); # $fhがハンドル
で、ファイル開いてみてください(ただしWindows不可)。
>>387
展開されます？
>>392のサーバのエラーはHTML形式で出力されているようですが。
0400nobodyさん
03/02/23 02:14ID:???http://www.ietf.org/rfc/rfc2616.txt
5.1 Request-Line
Request-Line = Method SP Request-URI SP HTTP-Version CRLF
5.1.2 Request-URI
Request-URI = "*" | absoluteURI | abs_path | authority
http://www.ietf.org/rfc/rfc2396.txt
3. URI Syntactic Components
abs_path = "/" path_segments
ここら辺を読んでくれたまへ。
0401nobodyさん
03/02/23 12:17ID:???ローカルではopenできるのですが、UPするとhtmlファイルがopenできません。
どうしたら良いでしょうか?
0404nobodyさん
03/02/23 12:41ID:???まともなOSなら、まともなロックぐらいできるはずだ。
エラー処理とは...
全てのシステムコールに、or die($!);ってつけて、
eval BLOCK の中で実行してみろ。例外が飛んできたら(?)
$@に入るから、それを出せばいい。
0405nobodyさん
03/02/23 18:05ID:???0406nobodyさん
03/02/23 18:07ID:???CGIだけど、なんか質問ある？ Part 9
http://pc2.2ch.net/test/read.cgi/php/1041530204/
0407nobodyさん
03/02/23 19:06ID:srUBO4KW0408nobodyさん
03/02/23 19:08ID:???私のプロバがヤフーＢＢで今書き込めなくて困っています。
どうしたら書き込みできるようになるんでしょうか。教えてください。
0409408
03/02/23 19:09ID:???0411nobodyさん
03/02/23 19:15ID:???リストに読み込んでリバースするとなると、メモリ容量が心配でして・・・
0413nobodyさん
03/02/23 21:20ID:???ｽｸﾘﾌﾟﾄは間違ってなかったのですが
鳥の仕様でｽﾀ(cgi-bin以下のﾌｧｲﾙは操作できない)
婆茶とかﾊｲﾏしか触ったこと無かったので分からなかった(;´Д`)
■ このスレッドは過去ログ倉庫に格納されています