Perlコーディング初心者質問スレ Part 50

**nobodyさん** · 2006/06/26(月) 00:46:38

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 2006/06/26(月) 00:47:26

関連スレ
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

【Perl,CGI】参考書籍第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc8.2ch.net/test/read.cgi/php/1034645635/

Perlモジュールについて
http://pc8.2ch.net/test/read.cgi/php/997829243/

CGIに依存しないPerlの話題一般/Part2
http://pc8.2ch.net/test/read.cgi/php/1030548610/

★三　【スクリプト改造工房 PART 9 】　★三
http://pc8.2ch.net/test/read.cgi/php/1143834740/

【スクリプト改造依頼スレ】(丸投げ) part5
http://pc8.2ch.net/test/read.cgi/php/1141174205/

**nobodyさん** · 2006/06/26(月) 00:48:09

［過去ログ] 1 of 5

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html

**nobodyさん** · 2006/06/26(月) 00:49:09

**nobodyさん** · 2006/06/26(月) 00:49:50

［過去ログ] 3 of 5

part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc5.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc5.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc5.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc5.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc5.2ch.net/test/read.cgi/php/1069846177/

**nobodyさん** · 2006/06/26(月) 00:50:46

**nobodyさん** · 2006/06/26(月) 00:52:13

**nobodyさん** · 2006/06/26(月) 00:53:27

ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.8/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://www.cpan.jp/search.cgi
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

**nobodyさん** · 2006/06/26(月) 00:54:30

ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

**nobodyさん** · 2006/06/26(月) 01:02:34

>>1
乙つつつ

**nobodyさん** · 2006/06/26(月) 10:30:20

>>11

おちかれー

**nobodyさん** · 2006/06/26(月) 20:55:18

1000取っちゃった。
オブジェクト指向より、いい指向ってないのかな。

大き目のプログラム組んで何ヶ月か、又は何年か後に見てみたら
全体の流れとそれぞれの処理を理解するのに数日かかってしまうのがいや。
これはオブジェクト指向とは無関係だけど。

プログラムを専門にやってないから思い出すのとあわせて、いつも
「なんでこんなイケてないんだこれ」
と自己嫌悪に陥る。

オブジェクト指向ってモジュールとか確かにべんりだけどさ。
完ぺき主義というか極端な自分としては全てをオブジェクト指向的にやろうとして、
うんざりする。

もっといいやりかたないのかね。

うんスレ違いだ。すみませんでした。

**nobodyさん** · 2006/06/26(月) 21:30:04

>>12
それはプログラムの組み方の問題なんじゃないのかなあ。

プログラム組むときって、ノートに処理の流れとかメモするでしょ？
テキストエディタとかで
編集
　|- 検索
　　 |- 次を検索
　　 |- 前を検索
とかってあるけど、これもオブジェクト指向といえばオブジェクト指向だし。
編集::検索->次() みたいな。

これで例えば「次を置換」とか改造して入れるために、また一からプログラム全体を把握し直さなきゃわかんない、とかそーないと思うんだけど。
なんか変なとこにこだわりすぎてんじゃない？

**nobodyさん** · 2006/06/26(月) 21:48:52

>>12
> 完ぺき主義というか極端な自分としては全てをオブジェクト指向的にやろうとして、
> うんざりする。
> もっといいやりかたないのかね。

Ruby 使っとけ。

**nobodyさん** · 2006/06/26(月) 22:04:56

質問。
sub noward {
local($flag);
foreach ( split(/\s+/, $no_wd1) ) {
if (index("$in{'name'} $in{'sub'} $in{'comment'}",$_) >= 0) {
$flag = 1; last;
}
}
if ($flag) { $err .= "不適切な文字が含まれています。"; }
if ($err) { &error($err); }
}
禁止ワードのサブルーチンなんだけどコレを改行で区切る事が出来ないのだがどうすればいいのか教えてほしい。
お願いします。

**nobodyさん** · 2006/06/26(月) 22:19:27

その前に、何を改行で区切りたいのでしょうか？そこが分かりません。
文からするとサブルーチンを改行で区切りたいように読めるけど…。

**nobodyさん** · 2006/06/26(月) 23:07:40

kentっぽい書き方だな

**nobodyさん** · 2006/06/26(月) 23:26:42

いまどきmyですむようなところにlocalだしな。

悪い癖をおぼえる前にもう少しましな手本を探したほうがいいような
気がする。

**nobodyさん** · 2006/06/26(月) 23:38:21

kentはそろそろ後方互換性じゃなくて
古くてアレなスクリプトを配布する事による弊害を気にした方がいいね。
いまどきperl4だけの鯖なんてないし。

**nobodyさん** · 2006/06/27(火) 00:04:59

当方C/C++/VBは使えますがPerlは難しいですか？
以前使っていたレンタル鯖がCのCGIを許可していたので
Cでゴリゴリ書いていましたが、別の業者に移管されてしまい
そこの業者はCのCGIが不可、Telnet不可とCGIが全て使えなくなってしまいました。
昔、ちょろっとPerlの本を見たことがあるのですが、コードがC以上に記号ばかりでゴチャっとしていて
追いにくいなぁと直ぐに本を閉じてしまった記憶があります。
C12年/C++3年/VB5年程です。。
　

**nobodyさん** · 2006/06/27(火) 00:10:32

そんだけコード書いてればPerl覚えるのは余裕。
独特の癖があるので人のコードを読むのは苦労するかもしれんが、
書く分には好きなように書ける。

TIMTOWDIバンザイ

**nobodyさん** · 2006/06/27(火) 01:00:12

それだけの経験があるなら１週間perlだけ弄ってればすぐに動くものが作れるt思います。たぶん。

sub内でローカル宣言した変数がリファレンス(Cでいうポインタ)で参照できちゃう気持ち悪い部分もあってｗ、
あまりに自由すぎるのがperlの欠点といったとこでしょか

**nobodyさん** · 2006/06/27(火) 01:15:43

とりあえず文字列操作は正規表現メインで。
Cのポインタの概念は無いんで、文字列ポインタ動かしたりはできません。
だからといって文字列は配列でもないので、配列操作にもしないことです。

Cだけの人がとりあえず書いてみたPerlのプログラム読んだ事あるけど
思いっきりCぽくて、全然Perlじゃなかったなあ。

ていうか、Perlのソース読む方が理解が早いかも。

**nobodyさん** · 2006/06/27(火) 01:38:26

まず変数の扱いとスコープの違いにつまづいて
次に構文の違い（elsifとかswitchとか）につまづいて
コンテキストの理解につまづいて
関数の仮引数が無いのにつまづいて
リファレンスをポインタだと思い込んでつまづいて

・・・がんばってください。

**nobodyさん** · 2006/06/27(火) 02:08:24

掲示板のプログラムを作っているのですが、
まず、書き込みページを出力して、
データを受け取って文法チェックをして結果を出力して、
次のデータ受け取りでファイルに書き出しをするプログラムなのですけど、
どうしても原因が見つけれないエラーが出ていて困っています。
ただ、これ自体が大きすぎるので少し違うルートで質問します。

500 Internal Server Error
というのはどのような条件下で出てくるのでしょうか？
細かい説明などをくれるとうれしいです。

それともうひとつ
プログラムやルーチンの文法ミスもないし、ファイルの参照ミスもないのに
ファイル書き込み等をしているどこかでエラーが出てくる場合
どういうミスの可能性があるでしょうか？

ずいぶんと分かりにくくなってしまっていますが、お願いします

**nobodyさん** · 2006/06/27(火) 02:36:42

よくこういう質問でるけど、なんで自分でわかんないんだろう？
文法ミスならローカルで実行したときわかるし、
違うなら処理の途中でためしに exit して、どこまでならエラーでないか、って突き詰めていけばわかるよな？

それでもどこもエラーないなら、
print "Content-type: text/html\n\n"; の前に何か print してる、くらいしか思いつかない。

>>25
要するに、知らんがな、ってこと。
ブラウザだけでやってんの？ちゃんとエラー文のせようよ。

**nobodyさん** · 2006/06/27(火) 02:52:04

>>25
> ただ、これ自体が大きすぎるので少し違うルートで質問します。

お勧めしません。逆効果です。

> 500 Internal Server Error
> というのはどのような条件下で出てくるのでしょうか？

それが、CGI が何なのかを理解せずに書いたプログラムなら、ほとんどどのような条件下ででも。

> ファイル書き込み等をしているどこかでエラーが出てくる場合
> どういうミスの可能性があるでしょうか？

あらゆるミスの可能性、及び誰のミスでもない可能性があります。
どういうミスかはわかりません。ただ、「誰のミスか」であれば、この場合は控え目に言って 99.8% 程度の確立であなたのミスです。

# 助けてあげたくてもこの質問じゃ何もできないよぅ・・・orz

**nobodyさん** · 2006/06/27(火) 03:53:29

#! c:/perl/bin/perl

# CGIヘッダーの出力
print "Content-type: text/html\n\n";

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>Hello HTML</title></head>\n";
print "<body><p>こんにちは。これはHTML文書の例です。</p></body>\n";
print "</html>";

というＣＧＩのプログラムがあったんですが
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";はどういう役割をしているんでしょうか？？

**nobodyさん** · 2006/06/27(火) 04:05:08

HTMLのDOCTYPE宣言。ValidなHTML文書作る時の常識。Perlとは直接関係ない。
板違いなのでWeb制作技術板へ行ってらっしゃい。

**nobodyさん** · 2006/06/27(火) 04:09:20

> sub内でローカル宣言した変数がリファレンス(Cでいうポインタ)で参照できちゃう気持ち悪い部分もあってｗ、

何それ？

**nobodyさん** · 2006/06/27(火) 04:13:07

>>30
こういう事かな。レキシカルな $s が外から見える。

sub hoge {
my $s = "ababababa";
return \$s;
}

my $s_ref = hoge();
print $$s_ref;

**nobodyさん** · 2006/06/27(火) 04:54:57

それなかったらオブジェクトやクロージャもできないなあｗ

**nobodyさん** · 2006/06/27(火) 06:30:44

>>25
基本的にＣＧＩのエラーは500しか出ません。
パーミッションのミスでも文法ミスでも全て500が出ます。

＞プログラムやルーチンの文法ミスもないし、ファイルの参照ミスもないのに
＞ファイル書き込み等をしているどこかでエラーが出てくる場合
＞どういうミスの可能性があるでしょうか？
例えば代入式の途中でexit()で終了した場合なんかは
perlがエラー→何も出力されない→500となったりします。
（が、たぶんそのエラーじゃ無い気がしますが・・・

要するに一度にいっぺんに書きすぎて、デバッグできなくなった状況ですよね。
=c
=cut
という技があるのでそれで半分づつエラーの範囲を絞ってみてはどうでしょうか？
（それ以前に全部コメントアウトしprint "\n\n"だけ書いて動くのかとかも要確認。
それが動けばそこから少しずつ増やしていけば何でエラーが起きてるのか特定できるはず・・・

**nobodyさん** · 2006/06/27(火) 08:42:29

>>25
perl -c の結果をうｐしてよ。

**nobodyさん** · 2006/06/27(火) 08:46:11

>32
static宣言見たいのがあればなぁ・・・と思うわけですよ

**nobodyさん** · 2006/06/27(火) 09:41:13

>>35
そこで Tie::Static ですよ。

**nobodyさん** · 2006/06/27(火) 14:12:21

1：自分はこういう事がしたい。
・ファイルがなければ新規にファイルを作成し$dataAを書き込んでから$dataBを書き込む。
・ファイルがあれば（すでに$dataAは書き込み済みなので）$dataBを書き込む。

2：それでこんな風にやってみたが･･･
unless ( -e $file ) {
open ( OUT , "> $file" ) or die;
flock ( OUT , 2 );
seek ( OUT , 0 , 0 );
print OUT $dateA;
truncate ( OUT, tell ( OUT ) );
close ( OUT );
}

open ( OUT , "+< $file" ) or die;
flock ( OUT , 2 );
いろいろ処理
seek ( OUT , 0 , 0 );
print OUT $dateB;
truncate ( OUT , tell ( OUT ) );
close ( OUT );

3：こんなエラーが出て上手く行かなかった。
エラーは出てないんですが、これって同時アクセスがあった場合に
ファイル壊れる可能性ないですか？
他に良い方法があればアドバイスよろしくお願いします。

**nobodyさん** · 2006/06/27(火) 14:45:28

>>37
他にもある気がするが、-eしてから>でopenまでの間に割り込まれると壊れるな。
File::Tempで一時ファイルを作ってリネームするとよさげ。

37 · 2006/06/27(火) 15:20:15

>>38
やっぱり壊れる可能性ありますよね。

>File::Tempで一時ファイルを作ってリネームするとよさげ。
ありがとうございます。
一度それでやってみます。

他にもアドバイスがあればよろしくお願いします。

**nobodyさん** · 2006/06/27(火) 15:28:09

ひとつロック用のファイルを用意しといて

・ロック用ファイルをロック
・ファイル存在チェック
・無ければ生成
・オープン
・処理
・書き込み
・ロック用ファイル閉じ

モジュール使わずコレでどうでしょう

37 · 2006/06/27(火) 15:47:13

>>40
アドバイスありがとうございます。

一連の流れを全てロックしてしまえ、ということですね。
ただ、ロックファイル自体が信用できるかどうか怪しい代物なので
ちょっと二の足を踏んでしまいます。

**nobodyさん** · 2006/06/27(火) 15:55:10

HTML内のフォームからファイルと時間を選択させて、
その時間になったら自動で指定ファイルをFTPで別サーバー
へ移動するという処理は可能でしょうか？
Perlでcrontabに書き出すことができればと思いましたが
レンタルサーバーでそれは許可されておりません。

cronを使用せずにperlにより指定時間になっているかどうかを
チェックして時間になっていたらFTPでファイルを移動
するような処理は可能なのでしょうか？

どなたかご存知の方居られましたら宜しくお願い致します。

**nobodyさん** · 2006/06/27(火) 15:57:12

http://pc8.2ch.net/test/read.cgi/php/1024795138/
こっち行ったほうがいいかな。

**nobodyさん** · NG

もうcron関連の質問秋田

37 · 2006/06/27(火) 16:32:46

>>40
勘違いしてました。
flockでロックファイルをロックすれば良いだけでしたね。
ロックファイルが残り続けるのがちょっと気持ち悪いですが簡単に処理できるのは良いですね。

>>43
誘導先見ましたが、どちらかと言うとロックの追究が主のようで、例えば
open ( OUT , "+< $file" ) or die;
flock ( OUT , 2 );
いろいろ処理
seek ( OUT , 0 , 0 );
print OUT $dateB;
truncate ( OUT , tell ( OUT ) );
close ( OUT );
このコードのロック自体の有効性についての議論が中心のように見受けました。
わざわざ紹介していただいたのに不躾な言い分ですが、
私は上のようなロックでまず大丈夫という前提に立っているので
誘導先のスレよりもこちらで質問した方が適切だと思いますので
すみませんが、こちらに居させて下さい。

**nobodyさん** · 2006/06/27(火) 16:38:21

>もうcron関連の質問秋田
そうおっしゃらずにどうかお願いします。
過去ログ見てみても無かったので…

**nobodyさん** · 2006/06/27(火) 17:35:31

過去ログに何度も出てると思うよ。
cron使いたくない(or 知らない)けど定時的に何かしたいってのは。

**nobodyさん** · 2006/06/27(火) 17:36:54

>>37
はじめの書き出しの方のseekとtruncateは別に無くても良いと思う

**nobodyさん** · 2006/06/27(火) 18:26:33

ファイルをダウンロードした後、サーバ上から自動で消すことって不可能？
Locationでダウンロードするファイルに飛ばした後に
unlinkしてもダウンロードが始まる前にファイルが消えちゃう。

**nobodyさん** · 2006/06/27(火) 18:29:53

ダウンロードがきちんとできたかどうか分からないけど
失敗してても消すのならできそう。

**nobodyさん** · 2006/06/27(火) 18:34:47

>>49
そこでcronですよ。
削除リストファイルを作ってそこにあるファイルは定期的に起動するcgiで削除する。

で、ファイルのダウンロードはcgiから以外にはできないようにしておく。
一度ダウンロードしたものは２度とできないようにしておく。

**nobodyさん** · 2006/06/27(火) 18:35:11

>>50
是非ご教示下さい！

**nobodyさん** · 2006/06/27(火) 18:40:24

定期的に削除でいいのか？？
Content-type: application/octet-streamで検索

49 · 2006/06/27(火) 18:49:19

>>51
やっぱりcronかぁ。
ダウンロード自体の頻度はかなり低い（月に数回程度）ので
すごく無駄な気がしてしまふ・・・。

>ファイルのダウンロードはcgiから以外にはできないようにしておく。
そんなことってできるんスか！？
refererでチェック？でも、簡単に偽装できるから意味ないか。

>一度ダウンロードしたものは２度とできないようにしておく。
これもやり方がさっぱり思い付かない。
パーミッション変更？
でも、いつダウンロードが終了したかは確認できんよな。
これもcron？って、それならパーミッションいじるより削除した方が早いよな。

>>53
ダウンロード頻度が低い、つまり削除の頻度も低いので
定期的に削除というよりは都度削除希望であります。
でも、無理なら仕方ない、といった感じであります。
検索して調べてきます。サンクス！

**nobodyさん** · 2006/06/27(火) 19:06:41

そんなに頻度が多くないなら、Location使わずにCGI経由でダウンロードさせるようにすれば？
つまり、CGIがファイルを読み出して出力、全部出力したらファイル削除。

素のファイルには .htaccess などでアクセスできないように設定しておく。

**nobodyさん** · 2006/06/27(火) 20:19:59

55の言ってるので出来ますね
print "content-type:MIME-type\n\n";
open fp,"downfile";
print <fp>;
close fp;
unlink "downfile";
ただしMIME typeをちゃんと指定しないと、textで無理やり表示されたり、めんどくさい感じ・・・
あと、ダウンロード→キャンセルでもうファイルが消えてるので、結構使いづらいかも？
.htaccess使うまでもなくパーミッションを600とかにしとけば普通に見えない。

ところで、UPは誰がどういう風にするのかが気になる・・・
それによってはもっといいアイデアがあるかも？？

**nobodyさん** · 2006/06/27(火) 20:42:38

いや、だから、>>53 が言ったみたいに
Content-Type: application/octet-stream
か
Content-Type: application/x-download
とでもしてDLさせればいいんでない？

49 · 2006/06/27(火) 21:36:29

Content-Type: application/octet-stream
とか初見だったんで最初はよく分からんかったけど。

ファイル読み込み
↓
出力
↓
ファイル削除

で出来ますた！サンクスであります。

>>56
それとほぼ同じ形に収まった・・・2時間以上かけてだけどｗ
UPは特定の仲間内（？）の任意の誰か、
またはすでにあるログから情報を抽出加工したものを新規ファイルとして作成、
という何とも分かりにくい感じ。深く気にしないでね。

ところで、少し気になったんだけど、
>>53 >>55 >>56 >>57
の言おうとしてる内容はほぼ同じって解釈で合ってるよね？？

**nobodyさん** · 2006/06/27(火) 21:54:28

合ってる合ってる

56 · 2006/06/27(火) 22:01:59

>>57
なるほど、そういうmimeタイプがあるんですね。知らなかったです。
nameを指定するオプションとかも使えそうな感じ・・・（？

49 · 2006/06/27(火) 22:38:41

本題とちょっとズレるけど、
open直後にunlinkしても内容は保持されるみたいだね。
てか、UNIXなんかのテンポラリファイル使う場合は常套手段だとか。
>>56の例で言えば、
open fp,"downfile";
unlink "downfile";
print <fp>;
close fp;
って感じだな。
こうした方が、異常終了の際にファイルが消えてないってリスクが減るのでベターなわけだ。

**nobodyさん** · 2006/06/28(水) 00:23:47

>>61
お前ぶっとばすよ？

**nobodyさん** · 2006/06/28(水) 00:32:55

>>62
やめて

25 · 2006/06/28(水) 00:51:27

perl -c　ではOKでエラーは見つからないです。
localでは、問題が見つからなかったのでサーバにアップロードしたらエラーが出まして
自分が考えれるところを確認しましたが、分からなくなってます。

ttp://hisazin-up.dyndns.org/up/src/11946.txt
再びいろいろといじっているせいで若干おかしなものも混ざっているかもしれませんが、
このような形です。
何の引継ぎなどがない場合には78行目の処理が行われて、
別ルーチンから投稿フォームが出力されます。
その投稿フォームから出力された場合に85行目からの処理が実行されて、問題がなければ
投稿OKかどうかの確認ページの出力
その確認ページからデータを引き継いだら143行目の処理に入るのですが、
143行目の処理の中で
ローカルでは問題なく結果が表示されるのですが、
サーバへアップするとどうしても500エラーとなってしまいます

**nobodyさん** · 2006/06/28(水) 01:54:52

こりゃまたけったいなスクリプトがきたぞ

**nobodyさん** · 2006/06/28(水) 02:00:58

☆

**nobodyさん** · 2006/06/28(水) 02:05:10

500エラーのときは鯖のエラーログ出せよ。

どうせヘッダ出力してないとかそういうのだろうけどな。

**nobodyさん** · 2006/06/28(水) 02:58:08

sub nothing_log{
nothing_log: <<<これは一体？
print "その記事はすでに削除されているので書き込みできません\n";
exit;
}

**nobodyさん** · 2006/06/28(水) 03:28:54

>>68
ラベル。

**nobodyさん** · 2006/06/28(水) 03:45:51

>>25
まず、require文とhtml_head("掲示板")だけで動くのか報告よろ。
どうせ晒すなら全部晒してもらうとこっちでもテストできるんだけど・・・

**nobodyさん** · 2006/06/28(水) 03:58:15

あ、わかった。143行目を　print "\n\ntest\n";　で解決ですね。たぶん
あるいは　html_head("掲示板"); print "test\n";　とか
82行目のifをスルーした場合どこにもヘッダを出力する
ルーチンがないので、普通にエラー・・・・・・・・・・・・

**nobodyさん** · 2006/06/28(水) 04:19:30

・・・
form_vew_make($pop_name,$pop_title,$pop_msg,$pop_icon,$pop_color,$pop_password,$pop_mail,$pop_home,$pop_thread);
こういう代入はあまりにも毒々しいので、$popなんとかは全部１つのリファレンスにまとめた方がいい。
あるいは%FORMをそのまま放り込んで、$pop系の変数を全部捨てた方がいい。
$lenなんとかはlenごときで変数作るなよと、ｗその程度だったら
必要な時にlen_count($なんとか)で取れば十分。
あと$view_flagのgoとbackは、goとbackを代入してるif文のところで
そのまま処理すればよいので不要

**nobodyさん** · 2006/06/28(水) 08:40:19

すみません。
BASIC認証するときのサーバの負荷について教えてください。
[ID]:[PASS]
というようなユーザファイルあると思うんですが、
何件ぐらい大丈夫なんでしょうか。
5万、10万件ぐらいは平気な感じでしょうか。
データベースでなく、ただのテキストファイルの検索って
どれぐらい大変なのかわかりません。

レンタルサーバじゃ実験できないし、
apacheのインストールの勉強も途中という
初心者ですので。
よろしくお願いします。

**nobodyさん** · 2006/06/28(水) 09:22:51

>>73
perlの話じゃないので、スレ違い。使ってる鯖(apacheなり
なんなり)のスレを探してそっちできけ。

**nobodyさん** · 2006/06/28(水) 09:34:48

板違い

**nobodyさん** · 2006/06/28(水) 10:04:15

>>74
73です。
たしかに、１をよく読んだら全然違ってました。
初心者、perlつながりで質問してしまいました。

旅に出ます。＞＜

**nobodyさん** · 2006/06/28(水) 17:08:53

どこがperl繋がりなんだ…

**nobodyさん** · 2006/06/28(水) 17:13:29

perlで.htaccessなり.htpasswdに追加アッー！

**nobodyさん** · 2006/06/28(水) 17:38:43

質問があるんですが「->」って何に使うんですか？
検索エンジンでは記号の検索ができないので、調べようにも調べられずに困っています・・・。

**nobodyさん** · 2006/06/28(水) 17:43:27

>>79
「perl アロー演算子」辺りでぐぐる

**nobodyさん** · 2006/06/28(水) 20:12:24

デリファレンス

**nobodyさん** · 2006/06/29(木) 00:16:50

$hoge->[10] $hoge は配列へのリファレンス
$hoge->{piyo}　$hoge はハッシュへのリファレンス
$hoge->()　　　 $hoge はコードブロックへのリファレンス
$hoge->piyo()　$hoge はオブジェクト（メソッドコール）

っていう理解でいいですか？

**nobodyさん** · 2006/06/29(木) 00:18:42

まぁ合ってる。
ただリファレンスじゃなくて
リファレンスの参照というか、デリファレンスというか

82 · 2006/06/29(木) 00:33:58

$hoge->[10] で要素が参照できるなら $hoge は配列へのリファレンス、というわけではないのでしょうか？
デリファレンスしてるのはアロー演算子ですよね？？　混乱してきた。。。

**nobodyさん** · 2006/06/29(木) 00:37:48

ごめん、82を読み違えてた。
合ってる。$hogeは配列へのリファレンス。

**nobodyさん** · 2006/06/30(金) 00:52:51

掲示板で無造作な大量リンクのカキコを排除したいと考えています。

　　if(　$txt　にURLが５個以含まれる　){

　　　　はじき処理

　　}

の場合は、IF文のカッコ内にどのような文字を入れるとよろしいでしょうか。
よろしくお願いします。

**nobodyさん** · 2006/06/30(金) 01:03:46

$text =~ m!(http://.*){5,}!s
とかでいいんじゃね

**nobodyさん** · 2006/06/30(金) 01:31:11

>>87
なりました１１１１１１１１
ありがとうございました　　　三　三　旦

**nobodyさん** · 2006/06/30(金) 10:18:19

perl 5.8.6 で XML::RSS を使って Podcast 情報を取得しようとしていますが、enclosure url が引っ張り出せません。XML::RSS では出来ないようなのですが、他に enclosure url が取得できるものはあるでしょうか。m(_ _)m

**nobodyさん** · 2006/06/30(金) 10:41:50

crypt関数について質問です。
#saltはランダムです
$crypted_pass = crypt($password, $salt);

$crypted_passは、$password='1111';$saltはランダムなので毎回違った
文字列になります。すごい疑問なんですが、これをBASIC認証のための
.htpasswdファイルに書き込むと、'1111'でも$crypted_passは毎回違う
文字列ができるのに、何回$crypted_passを作ってもBASIC認証の
ダイアログに'1111'を入れると認証されます。
すごいバカなので全然理解できないです。

わかりにくいとあれですので、やってみたいことを細くします。
フォームから入力されるパスワードを$FORM{'pass'}
.htpasswdファイルにすでに書いてあるパスワードを$pass_htpasswdとします。

パスワードが正しかったら～するって言うことが目的なんです。
if( crypt($FORM{'pass'}, $salt) eq $pass_htpasswd){hoge処理;}
こういうことがしたい場合は、$saltを固定しないとperlでは
できないんでしょうか？固定するとこの処理で大丈夫みたいです。
ランダムだと毎回違う文字列が出てきてだめです。

サーバだとなんで、'1111'ってわかるんでしょうか。
perlでもなんか処理のしかたありますか。
ちょっと、長い文章で申し訳ないですが、よろしくお願いします。

**nobodyさん** · NG

ヒント：crypted文字列の前から二文字はsalt

**nobodyさん** · 2006/06/30(金) 12:01:59

>>91
cryptの戻り値(digest)にはsaltの情報も含まれているのであとで確認したいときは
それをsaltとしてそのまま食わせればいいことになっている。

When verifying an existing digest string you should use the digest as the salt (like
"crypt($plain, $digest) eq $digest"). The SALT used to create the digest is visible as part of
the digest. This ensures crypt() will hash the new string with the same salt as the digest.
This allows your code to work with the standard crypt and with more exotic implementations. In
other words, do not assume anything about the returned string itself, or how many bytes in the
digest matter.

**nobodyさん** · 2006/06/30(金) 15:14:17

>>91
>>92
90です。
ありがとうございます。
できました！！！

saltといっしょだったんですね。
cryptだとパスワードそのまま、saltにできるんですね。
すごく便利です。
ありがとうございました。

**nobodyさん** · 2006/06/30(金) 15:22:58

なんか勘違いしてそうな文面だな。

**nobodyさん** · 2006/06/30(金) 16:17:19

　　　　　　　　　　　第三者　　　　　　　　　　　　　　　　　「通信は傍受される」のがセキュリティの前提で
　　　　　　　　　　　　　↓
　　　　　受信　　　　　↓傍受　　　送信　　　　　　　　　　この場合、パスワードが傍受されるから
サーバー←←←[パスワード]←←←クライアント　　　　生でパスワードを送るのはダメ

　　　　　　　　　　　　第三者　　　　　　　　　　　　　　　　　パスワードからハッシュ関数で生成した
　　　　　　　　　　　　　 ↓　　　　　　　　　　　　　　　　　　ダイジェストを送信すれば、傍受されても
　　　　　受信　　　　　 ↓傍受　　　送信　　　　　　　　　　ダイジェストからパスワードは復元できない
サーバー←←←[ダイジェスト]←←←クライアント　　　　（できるけど、とてつもなく時間がかかる）ので安全

ダイジェストを受け取ったサーバーは、自分が持っているパスワードをダイジェスト化して
それと送られてきたダイジェストを比べる事で、パスワードが合っているか判断する
っていう理解でおｋ？

**nobodyさん** · 2006/06/30(金) 16:20:58

>>95
それだと、「ダイジェスト」を「パスワード」と読み替えたのと全く同じなのでよくない。

**nobodyさん** · 2006/06/30(金) 16:38:41

下手な図だが。要はパスワードの平文をサーバに保存しないのがcryptの一般的な目的かと

　パスワード入力　ランダムなサルト
　　　　　　↓　　　　↓
crypt($password, $salt);
　↓　　　　　　　　　　　　　　登録時
保存(ダイジェスト化されたパスワード)
　├──────┐　　　　照合時
　↓ 　　　　　　│
照合　　　　　　│頭にくっついているサルトだけが
　↑ 　　　　　　 ↓　　　　自動で取り出される。
crypt($password, $salt);
　　　　　↑　　　　　パスワードとサルトが同じであれば
　パスワード入力　　　　　出てくるダイジェストが同じものになる

**nobodyさん** · 2006/06/30(金) 16:45:56

なるほど。ダイジェストだけ保存しておけば、認証はできるのかぁ。
セキュリティは難しいです＞＜　結城たんのアリス本でも読もうかな・・・

**nobodyさん** · 2006/06/30(金) 17:07:50

>>98
たん付けとは浩に失礼だ。

**nobodyさん** · 2006/06/30(金) 17:12:00

>>94
90です
if( crypt($FORM{'pass'}, $pass_htpasswd) eq $pass_htpasswd){hoge処理;}
$saltの文字列が長いときは、crypt関数が、
頭から2文字saltを取ってきてくれて、.htpasswdに記録されている
パスワードをそのまま$saltに入れても大丈夫

っていうことかと思ったのですが。
違いましたでしょうか？
スクリプトは正常に動いてるみたいです。

よくわかりませんが、BASIC認証は通信を暗号化
しないとだめなんですよね。
たしか。

**nobodyさん** · 2006/06/30(金) 17:18:35

>>100 勉強してきたようだな。
>>93の
> saltといっしょだったんですね。
から>>100の意味は読み取れないぞ。
それに、書くなら、
crypt関数は$saltの先頭2文字をsaltとみなして計算するから、
とかするのが正しいだろう。

ロジックが重要なプログラムの世界で、言葉遣いぐらい、と思っているとひどい目に遭うぞ。

**nobodyさん** · NG

ミルカさん萌え

**nobodyさん** · 2006/06/30(金) 17:50:56

正確には一概に頭二文字とはいえないな。ライブラリ依存。
POSIXやSUSv3の範囲で言えば確かにそうだけど、
拡張として$n$...$形式のsaltに対応している環境も結構ある。
ttp://www.gnu.org/software/libc/manual/html_node/crypt.html
ttp://www.freebsd.org/cgi/man.cgi?query=crypt&apropos=0&sektion=3&manpath=FreeBSD+6.1-RELEASE&format=html

**nobodyさん** · 2006/06/30(金) 18:21:42

ﾒｰﾙｱﾄﾞﾚｽ：aaaa@aaaa.ne.kp
### メール投稿設定 ###
①$tmail = '';# 投稿用メールアドレス
②$mailhost = '';# 受信メールサーバー
③$mailid = '';　　　　　　 # メールアドレス(@以下は入れないでください)

って言うのがあったんだけどそれぞれ何入れればいいんですか？
一応番号ふっときました

**nobodyさん** · 2006/06/30(金) 18:27:54

>>104
Perlうんぬん以前の問題だな・・・

PC初心者板マジオススメ
http://pc7.2ch.net/pcqa/

**nobodyさん** · 2006/06/30(金) 18:28:48

>>104
ここはスクリプトを「作る人」のためのスレだ。使う人はスレ違い。
作者に聞け。

**nobodyさん** · 2006/06/30(金) 19:33:30

作者も聞かれても困るけどなｗ

**nobodyさん** · 2006/07/01(土) 00:20:37

①$tmail = 'info@yahoo.co.jp';# 投稿用メールアドレス
②$mailhost = 'pop.mail.yahoo.co.jp';# 受信メールサーバー
③$mailid = 'info';　　　　　　 # メールアドレス(@以下は入れないでください)
とでもやっておけばいいんじゃないの？
ｼﾗﾈ

**nobodyさん** · 2006/07/01(土) 15:05:13

ページ移動させたいときに

print "Location: http://google.com/";, "\n\n";

ってやるけど、windowsのローカル+Apache+ActivePerl だと 500エラー返しちゃうんだよね…
eval でもエラーにならないんで、
Location: ができるかどうかって前もって判断することってできる？

**nobodyさん** · NG

正常に飛びましたが何か？

**nobodyさん** · 2006/07/01(土) 15:50:23

>>110
マジでΣ
何かの設定違ってんのかなー。

>>109 なんで＆quot; になってんのかわかんないけど。

まあ、ぐぐったら tok2 とか infoseek とかでも Location は 500 るっぽいんだけど、
それは手動で設定変更して HTML吐いての meta タグで飛ばしてた。
プログラム内で自動で判断できれば一番なんだけど、何か対策ないかねえ。

**nobodyさん** · 2006/07/01(土) 16:43:35

print "Status: 302 shine\n";
も一緒に吐くとどうなる？

**nobodyさん** · 2006/07/01(土) 16:44:34

こうだったorz
print "Status: 302 Shine Compact\n";

**nobodyさん** · 2006/07/01(土) 18:13:25

>>113
500だねぇ・・・。
動くとこでやってみたけど、何これ？マジック？

**nobodyさん** · 2006/07/01(土) 18:23:44

print "HTTP/1.1 301 Moved Permanently¥n";
こいつを出してからにするとどう？

**nobodyさん** · 2006/07/01(土) 18:52:35

>>115
おおおおお(*゜▽゜)

print "HTTP/1.1 301 Moved Permanently\n";
～

だといかなかったけど、参考にぐぐって、

print "Status: 301 Moved Permanently\n";
print "Content-type: text/html\n";
print "Location: http://google.com/\n\n";

こうしてやったらいきました！すごい！ありがとう！

……っていうか、ひょっとして Content-type: ないからあかんかった……？(；´Д｀)
動くとこはなくても動いたんだけどｗ

**nobodyさん** · 2006/07/01(土) 19:08:37

Content-Typeはどんなステータスでも必須だったような。。

>>115
それはnph-*なファイル名でないとあかんやん。

**nobodyさん** · 2006/07/01(土) 19:09:54

>>114
CGI/1.1仕様でちゃんと決まってますよ。

**nobodyさん** · 2006/07/01(土) 19:13:14

申し訳ないです。

鯖のインストール済モジュールが知りたくて、検索してたら↓の情報がありました。
ttp://antipop.gs/mt/2004/11/21/115534

ただこれを実行すると DBI など複数同一表示されるものがあるのですが、
これを重複をなくすにはどうすれば良いでしょうか？

**ヽ(´ー`)ノ** ◆.ogCuANUcE · 2006/07/01(土) 20:57:42

use strict の後に my %c; を、for の後に grep { !$c{$_}++ } を入れるんだ。

**nobodyさん** · 2006/07/01(土) 21:38:28

>>99
お前は呼び捨てかよｗ

**nobodyさん** · 2006/07/01(土) 23:52:40

「9.56」みたいな、小数点付きの数字を画像表示させたいと考えているのですがよく分からず困っています。

小数点さえなければ
------------------------------------------------------
$cout = sprintf("%06d",$cout);

for($i = 0; $i < length($cout); $i++){
$no = substr($cnt,$i,1);
push(@image,"./img/$no.gif");
}

print "Content-type:image/gif\n\n";
binmode(STDOUT);
print &gifcat'gifcat(@image);
------------------------------------------------------
というコードで、数字を画像表示させられるというのは分かるのですが、
なにぶん小数点が含まれるとなると・・・・どうしたらよいか・・・・

ちなみに「img」ディレクトリに「0.gif～9.gif」という数字の画像と
「point.gif」という小数点を表示する画像が入っています。

どうかよろしくお願いします　orz

**nobodyさん** · 2006/07/02(日) 00:05:54

>>122
未だにperl4なのがアレだけど…。多分、以下の１行入れるだけでいける。

for($i = 0; $i < length($cout); $i++){
　$no = substr($cnt,$i,1);
　$no = 'point' if ($no eq '.'); ### この行を入れる ###
　push(@image,"./img/$no.gif");
}

**122** · 2006/07/02(日) 00:29:28

>>123
え・・・>>122は入門書っぽい本を参考にして組んだのですが・・・
何かまずかったでしょうか・・・？

とりあえずありがとうございました orz

**nobodyさん** · 2006/07/02(日) 04:58:17

Image::Magickで「9.56」の画像を作ればいいんじゃね

**119** · 2006/07/02(日) 13:06:22

>>120
ありがとうございました、希望の動作になりました。

Perl はコードが省略化されて読めなかったりするのですが、
119のリンク先では↓の部分が難解でした。もしよければ解説おねがいします。

print qq|<li><a href="http://search.cpan.org/search?module=$_";>$_</a></li>\n|
for sort
map {$_ =~ m/^.+?"Module" (.+?)$/}
qx/perldoc perllocal/;

# printの行は↓に変更、最後にセミコロンを付けるとエラー
# print "<li><a href=http://search.cpan.org/search?module=$_>;$_</a></li>\n"
# for sortの行は理解不能無理、こんなループ見たことない検索しても出てこない
# mapの処理自体は分かるが、左に代入先などがないので出力が分からん･･･
# qxは調べて分かった。でもどういう出力に･･･

**nobodyさん** · 2006/07/02(日) 13:35:34

後ろから読んでくと分かるはず。

qx: qxの実行結果を
map: map に通してモジュール名だけ抜く
sort: ↑をソートして
for: そのそれぞれについて(foreach)
print: print

**119** · 2006/07/02(日) 14:16:29

>>127
ありがとうございます、↓やっと分かってきました。

use strict;
my %c;
my @qx = qx/perldoc perllocal/;
my @module = map {$_ =~ /^.+?"Module" (.+?)$/} @qx;
my @modlist = grep { !$c{$_}++ } @module;
@modlist = sort @modlist;
foreach (@modlist) { print "<li>$_</li>\n"; }

**nobodyさん** · 2006/07/02(日) 17:13:00

$_[0]って何だ？
エラーメッセージが一つしか表示されない。
もう一つ表示するはずなんだが・・・。

&error("ダメだ","ダメっす");
コレだと『ダメだ』しか表示されない・・・。
『ダメだ』と『ダメっす』をランダムってか表示させたいんだが

**nobodyさん** · 2006/07/02(日) 17:36:43

>$_[0]って何だ？
配列の一番はじめの要素
>&error("ダメだ","ダメっす");
サブルーチンに配列で引数渡してるところ
>コレだと『ダメだ』しか表示されない
アタリマエ

**nobodyさん** · NG

sub error {
print $_[int(rand(scalar(@_)))];
}

我ながら酷いコードだな

**nobodyさん** · 2006/07/02(日) 18:36:42

ちょっと行き詰ってしまったので質問させてください

今回UTF-8を使用しようと思いjcode.pmでエンコードしようとしたのですが
一部の文字列が文字化けすることに気づきました。

例)心霊

ちなみにエンコード方法は
Jcode::convert (\$value, 'utf8');
としているだけで特に怪しいことはしていないと思います

ちなみにそこを#でコメントアウトしてみると
フォームページ自体をUTF-8で書いているため
さきほどの「心霊」と言った文字列も問題なく表示されるわけですが
フォームページをEUC-JPなどにすると
当然のごとくEUC-8になってしまうため問題があります

何か私自身の書き方に問題があるのでしょうか？
それとも仕様なのでしょうか？
お手数をおかけして大変申し訳ありませんがご教示頂けると嬉しいです

よろしくお願い致します

**nobodyさん** · 2006/07/02(日) 18:53:53

129だが解決方法を教えてくれ

**nobodyさん** · 2006/07/02(日) 18:58:30

せめて sub error を晒せ。
いまんとこ解決というかそれは当たり前というか。
>>130 も書いている通りなんだが。
>>131 もなんか書いてるし。
それを参考にどうぞ。

**nobodyさん** · 2006/07/02(日) 19:00:42

>>131
配列の添え字は整数しかとらないんだし、
randの引数はスカラーコンテキストだからこれで良いじゃないか。
sub error { print $_[rand @_] }

>>132
何をしようとしているときに問題が発生するのかが良くわからんので、問題が発生するときの
・内部エンコーディング(UTF-8ならutf-8フラグはあるのかどうかも出来れば)
・出力/入力するエンコーディング
・どっちの方向に変換しようとしているのか
辺りを詳しく。

スクリプトの内部処理をUTF-8で行って、出力するページのエンコーディングを
EUC-JPにしようとしているわけ？勘では多分、使い方の間違いだ。
Jcode::convert(\$value, '変換先のエンコーディング', '元の文字列のエンコーディング');
ってやって見れ

**132** · 2006/07/02(日) 19:09:39

>>135
ごめんなさい、誤解させてしまうような書き方をしてしまいました

基本的には内部においてUTF-8で処理したいのです
eucやsjisに変換する気はありません

ただどんな文字コードでフォームから入力されても
UTF-8に変換したいために
Jcode::convert (\$value, 'utf8');
としています

# 現在のブラウザではフォーム入力ページがUTF-8なら
# UTF-8で文字コードを送信してくれるという話なので(どっかで聞きました)
# Jcode::convert (\$value, 'utf8');
# をしなくても実害はないといえば実害がないのですが
# 万が一sjisとかで送信してくるブラウザ等があった場合にも
# 対応したいと思い変換処理させています

ところでUTF-8フラグはEncodeモジュール以外でも必要なのでしょうか？
(今回の件で色々ぐぐっていたときUTF-8フラグというものについても読んだのですが
Jcodeモジュールを使う時にフラグ云々という話は出てこなかったので不要なのかと思っていました)

続きます

**nobodyさん** · 2006/07/02(日) 19:10:50

Jcode::convert (\$value, 'utf8');
を
jcode($value)->utf8();
にしてみたら？
自動判別が働いて正しく格納されるはず。

入力のエンコードを誤認してたらどうしようもないけどね

**nobodyさん** · 2006/07/02(日) 19:11:56

入力された文字列を処理させる流れは以下のような感じです

sub decode {
my ($buffer, $key, $value);

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}

@pairs = split(/&/, $buffer);
foreach (@pairs) {
($name, $value) = split(/=/);

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

Jcode::convert (\$value, 'utf8');

$in{$name} = $value;
}
}

**nobodyさん** · 2006/07/02(日) 19:16:54

あの～packしてる時点でスクリプトを書いている文字コードへ変換しているはずですが･･･

＞# 万が一sjisとかで送信してくるブラウザ等があった場合にも
＞# 対応したいと思い変換処理させています
そりゃおまいさんがどんなコンテンツを管理しているかによる。
UTF8で書かれたページからshiftjisで
しかもフォームデータをエンコードもせずにダイレクトで送ってくるブラウザ
使ってる奴なんて死ねばいいと思うよ

**nobodyさん** · 2006/07/02(日) 19:19:08

139の一行目はなんか激しい勘違いなので忘れてw

**nobodyさん** · 2006/07/02(日) 19:23:43

>>137
jcode($value)->utf8();
にしてみたら上手く行ったかと思ったのですが
ためしにフォームページをEUC-JPにして入力してみると
入力された文字列はEUC-JPのまま出力されていました・・・

>>139
>しかもフォームデータをエンコードもせずにダイレクトで送ってくるブラウザ
>使ってる奴なんて死ねばいいと思うよ

もうちょっと正直に書きますと
ある分野のデータベースを作っているのですがその検索フォームを
「自分のサイトにつけたい人はどうぞ」
という風にしたいと考えているのです
ですのでその入力ページがeucもあればsjisもあるかと思うので
鯖側でUTF-8に変換したいなあと・・・

最後まで解決しなければその案は断念しますがｗ

**nobodyさん** · 2006/07/02(日) 19:47:20

>>138
切り分けができてないな。そんなに長いプログラムではどこで
間違ってるか特定できないだろ。

Jcode::convertを疑うのなら、4valueにこの値をいれて
Jcode::convertを呼んだらこれこれこうなったけど
期待している値はこれだというのを示さないと。

**nobodyさん** · 2006/07/02(日) 20:06:33

>>142
えっと･･･このソースの大半は一般的な入力データ処理だと思いますが･･･
とりあえず>>132で書いた通り
Jcode::convert (\$value, 'utf8');
をコメントアウトすれば問題なく処理されます

一応文字化けした結果も載せておくと
「心霊」をUTF-8で記載されたページから入力すると
unpackされた値は「%E5%BF%83%E9%9C%8A」になりそれをpackして
Jcode::convert (\$value, 'utf8');
で変換すると「綽？？」(← 文字化けしたもの)
となってしまうというわけです(当然期待している値は「心霊」です)

ちなみに「心」だけでも「霊」だけでも正常に出力されます

**nobodyさん** · 2006/07/02(日) 20:40:15

いやだから??とか文字化けしたとかじゃわかんないでしょ。
utf8フラグと文字コードのダンプぐらい示さないと。

**nobodyさん** · 2006/07/02(日) 20:48:13

ためしに
Jcode::convert (\$value, 'utf8', 'euc');
と
Jcode::convert (\$value, 'utf8', 'sjis');
ってやった結果も記してくれんかな

**nobodyさん** · 2006/07/02(日) 20:55:32

そもそも他人に使わせるなら日本語限定ではだめじゃん？
ttp://www.russky.net/article/list.asp?id=855
これは gb2312 だけど euc-kr にも日本語のひらがなが入っていたようないないような。

**nobodyさん** · 2006/07/02(日) 21:13:47

おおかたencode/decodeを適切にやってないと予想。

**nobodyさん** · 2006/07/02(日) 21:35:08

ああ、大体わかった
「綽？？」ってのはUTF-8の文字列をEUC-JPとして見たときのものだ。

つまり変換自体には問題はなくて、結果を表示するページを
間違えてUTF-8じゃなくEUC-JPにしてしまっている、と。

**nobodyさん** · 2006/07/02(日) 21:47:43

s/\x0D\x0A/\n/g;
tr/\x0D\x0A/\n\n/;
とかって、改行コードの統一処理はどのタイミングでやるもの？
何かファイルを読み込むごとに毎回するもの？

**nobodyさん** · 2006/07/02(日) 21:52:43

混在してるとごちゃごちゃするので、なるべく入り口近くで決めた形式に
統一しちゃうね。場合によっては無駄になることもあるけどわかりやさ
優先。

**132** · 2006/07/02(日) 22:03:39

>>144
>>143の？？は実際には文字化けの□をもっと縦長にした感じのが出ています
ただここにコピペしたら？に変換されてしまったわけで

>>145
入力ページはUTF-8で記載されていますのでその上での結果です
>Jcode::convert (\$value, 'utf8', 'euc');
「綽？？」
>Jcode::convert (\$value, 'utf8', 'sjis');
「蠢？怺」
ちなみに↑の例ですが入力ページをそれぞれeucおよびsjisに変えたら問題ありませんでした
今回の「心霊」のようにそれぞれの文字コードで別の問題ある文字がないとは限りませんが･･･

>>146
そうかもしれません

>>147
その可能性がないとは言えませんが私は適切にやってるつもりなのでなんとも

>>148
ブラウザでのエンコードはUTF-8になっていることを確認した上で見ています
なのでブラウザの問題ではなくむしろ下に書くように
jcode.pmモジュールがUTF-8をEUC-JPに誤読しているのかと･･･

つづく

**132** · 2006/07/02(日) 22:04:39

今回試しに下のような形でエンコードしたところ
Jcode::convert (\$value, "utf8", "utf8");
正しく「心霊」と表示されました

また「心」と「霊」は単独で正確に表示できることから
思うに「心霊」と続けて入力したとき
繋がっている部分の文字列から文字コードをEUC-JPと判断された上で
UTF-8に変換しているのではないかと個人的には思っています

例) #文字コードについて調べるのが面倒なので下記のような仮定で･･･
UTF-8 ：心→aaaaaa 霊→bbaabb
EUC-JP ：綽→aaaa ？→aabb ？→aabb

今めちゃくちゃ眠いので
もしかしたら落ちてしまって反応明日以降になっちゃうかも･･･
そのときはごめんなさい

あと、忘れていたのですが、ご回答頂いた方々、ありがとうございます

**nobodyさん** · 2006/07/02(日) 22:07:24

>>150
それは、
「コードの最初の方に１箇所だけ統一処理を置いて読み込む度に処理される」
ということを意味してるのか、
「必要不要は置いといて、オープンする度に毎回とりあえず統一処理する」
ということなのか、どっちの意味ですか？
読解力不足ですみません。

**148** · 2006/07/02(日) 22:27:28

>>151-152
そうか、ごめん。こっちの環境ではちゃんと自動認識できてたもので、つい。

なら、SJISの一バイトカナの問題もあるし、
呼び出し元のフォームでエンコーディングを指定してもらうか、
もしくはフォームに適当なマルチバイト文字列を埋め込んでおいて、
それが何になったかでエンコーディングを調べるってのはどうよ。

# formにはaccept-charsetなんてのもあるのだけれど、IE対応してないんじゃ仕方ない…

**132** · 2006/07/02(日) 22:38:32

>>154
ご回答くださり有難うございます
なるほど、その方法がありましたね
ソース見られるとちょっと不恰好だけど･･･

てゆーか素朴な疑問なのですが
jcodeモジュールを使っている人で同じような問題に当たった人って居ないのかなあ･･･
eucで「～」を入れるとNGというのは発見したのですが

# ちなみに入力ページをEUC-JPにした上で「～」を入力したところ確かにNGでした

自分一人だとしたら、やっぱり何か私の書き方がおかしいんだろうな･･･
jcode.plではこんなこと一回もなかったのでjcode.pmが嫌いになりそう

**nobodyさん** · 2006/07/02(日) 22:45:18

ってか受け取った文字列が utf-8 かどうかなんて自分で1行書いて判別すれば起こらない問題じゃね？

**nobodyさん** · 2006/07/02(日) 22:49:46

143の%エンコードっされた文字列をみるに
Jcode::convertには

"\xe5\xbf\x83\xe9\x9c\x8a"

という「心霊」をutf8にしたバイト列を食わしているわけだが、
$Jcode::DEBUG=3にしてこいつを変換すると

>DEBUG:sjis = 6, euc = 2, utf8 = 6 at ～

と出るので、sjisとutf8のスコアが同点でどっちにも決められない
状態になっていることがわかる。

これは避けられないことなので、普通はhiddenで判定用文字列を
渡してどういうのが来るかで文字コードを決定し、他のパラメタに
ついてはJcodeの自動判定にたよらずその文字コードを入力コード
に指定してやるのが安全。

**132** · 2006/07/02(日) 23:19:43

ご回答頂きありがとうございます

>>156-157
なるほど、了解しました
とくに>>157さんは細かく調べて頂き深く感謝致します

>>154さんも仰っていたように
判定用文字列を渡してチェックする方向で対処したいと思います

長い時間お付き合い頂き、皆様、本当にありがとうございました

**nobodyさん** · 2006/07/02(日) 23:58:34

正直、convertサブルーチンを使う気ならjcode.pl使えばいいじゃん。
Jcode.pmはオブジェクト指向が前提だし、その先にはEncodeへの視野がある。

使いこなせないなら無理すんな

**nobodyさん** · 2006/07/03(月) 01:25:18

>159
jcode.plはUTF-8に対応して無いんだが

**nobodyさん** · 2006/07/03(月) 01:44:49

>153
答えた本人じゃないけど・・・
>「必要不要は置いといて、オープンする度に毎回とりあえず統一処理する」
だと思う

俺も基本的にはデータファイルを読み込むときに改行を統一 (または不要なら削除) してる

「あれ？このデータは改行付だったっけか？」なんて迷うことも少なくなるので、
自分でどの段階でまとめておくとか、自分なりのルールを決めておくといいかと思います。

**nobodyさん** · 2006/07/03(月) 02:25:22

早く文字コードが統一される時代が来ないかな
もうこのさいUTF-8でもSJISでもなんでもいいからさ

**nobodyさん** · 2006/07/03(月) 07:23:23

>>157
utf8の心霊はそんなにもeucっぽいという事？ｗ
でも、実際には文字化けしてるわけで、・・・なんか変な感じだ・・・

**nobodyさん** · 2006/07/03(月) 07:27:52

>>129
$_[0]=="ダメだ"
$_[1]=="ダメっす"
自分の経験からするとこういうランダムは、すぐにうっとうしくなるｗ

**nobodyさん** · 2006/07/03(月) 09:14:35

>>162
unicodeはいい機会だったのだが日本語については従来のコード
との対応について統一に失敗したのでだめぽ。まったく当時その
辺で仕事してた奴らは負の遺産を残してくれたものだ。

**149** · 2006/07/03(月) 10:05:01

>>161
もう誰もレスくれないと思ってたからちょっと感動。

やっぱり、オープンの度にコード統一する癖付けといた方が何かと良さそうですね。
これで改行統一の野望に一歩近づきました。
ありがとうございます！

**nobodyさん** · 2006/07/03(月) 12:27:50

sjisで統一されたら面倒くさくて超困るしｗ
utf8は神。もうちょっとがんばってはほしかったが。

jcode の文字自動判別は前からいろいろ問題あったよね。
length で判定して同じ文字数だったらEUCにするので、
sjis で半角カナだけ書いて文字判別させると文字化けするとかね。
優先順位指定できたらもっと使いやすかったと思う。

**nobodyさん** · 2006/07/03(月) 12:30:55

孫がトロン潰しさえしなければなぁ・・・

**nobodyさん** · 2006/07/03(月) 14:44:46

>>167
>jcode の文字自動判別は前からいろいろ問題あったよね。
よくしらないので教えて欲しいんだけど、
utf8で文字化けしないencode方法あるの？
googleとかで文字化けしたの見たことないし方法あるのかなあ。

**nobodyさん** · 2006/07/03(月) 18:36:40

>>169 > utf8で文字化けしないencode方法あるの？
ごめん、日本語でおｋ

(フラグのない) utf8 だって見分けるのは簡単でしょ。
最初の文字から最後の文字まで ascii と utf8 だけだったら utf8 てすればいい。
ああいう特徴的な文字の並びはほぼ間違いなく utf8 なんだから。

掲示板とかで sjis で HTML 書いてて、ほとんどそのフォームからデータ送信して受け取るのに、
euc と sjis が候補にあがった場合、わざわざ euc だと推測するのはおかしいでしょ？
その推測を頼りに決定しまってるのが jcode の convert というか getcode の欠点。
半角カナの文字化けだって、sjis 判定に半角カナのコード範囲を入れてないから起こるもの。

だから、何でもかんでも 1行で変換を済まそうとせず、
一旦 Encode::Guess の guess_encoding みたいに推測して文字コードの候補をとり、
複数の候補があった場合、プログラマがどっちを優先して変換するか書いて決めればいいんじゃないかと思うわけ。

長ぇ！

**nobodyさん** · 2006/07/03(月) 19:43:50

つーか、普通にパラメータ増やして、文字コード
送信すれば？
<input type="hidden" name="encoding" value="sjis">
バイナリから推測なんてメンドクサイ、ムズカシイ、確実じゃない、いい事何もない。

**nobodyさん** · 2006/07/03(月) 19:47:02

たしか質問者は、そのプログラムを他の人のページから使わせる気なんでしょ？
利用者が文字コード知ってて、しかもフォーム書き換えてくれるなんて
あまり期待できないと思うけど。

**nobodyさん** · 2006/07/03(月) 20:01:53

検索とかで、ブラウザのアドレスから
http://～/~.cgi?q=ほげほげ
ってやったときの文字コードなんて何になるかわかんないしな

**nobodyさん** · 2006/07/03(月) 20:41:54

「ファイルの中身の任意の１行だけを書き換える」という処理をする方法なんですが、
open(FH,$FILE);
while(<FH>){
if(マッチ条件){処理}
push(@newdata,$_);
}
とすると、マッチして書き換えた後もファイルの中身を最後まで読み込んで無駄な処理が出てしまいます。
lastとかで飛ばしたいところですが、そうするとファイルの中身が書き換えた行以降消えることになります。
こういうとき、どういう処理をすれば無駄なく完遂できるんでしょうか？
セオリーみたいなものがあれば教えて下さい。

**nobodyさん** · 2006/07/03(月) 20:50:54

>>172
自分のページにフォーム作ろうなんて考える利用者はHTMLぐらいかけるでしょ普通
で、文字コード別にフォームのソース置いといて、化けない奴使ってね、て書けばたぶん分かる。
何にも知らない人はそもそも変なフォームから送信してこないので問題ないと思う・・・

>>173
フォームから入力したいって言ってるんだからGETメソッドに対応しなければいいのでは？
どうしてもGETも対応したいって場合も、ばけたら&en=***なんとかを付けて見て下さいみたいな
誘導でなんとかなりそう・・・
そもそも、アドレス欄からクエリー送信してくるのは上級者だと思う

**nobodyさん** · 2006/07/03(月) 20:51:54

>>174
読み込みで開いてるので消えない

**nobodyさん** · 2006/07/03(月) 21:08:28

ブラウザに送ってくる文字コードを指定する方法があって、すべてのブラウザが
それを守ってくれればいいのだが、とんでもないのが存在するのも現実だ。

一番ひどいと思ったのはhiddenとそれ以外で別のコードで送ってきやがった
某ブラウザ。数年前の話だから今は改善されてるかな。

**nobodyさん** · 2006/07/03(月) 21:11:39

>>174
176の指摘はおいとくとしても、偶然同じ長さの行に書きかえるのでない限り
それ以後の内容を前後にずらす必要があるので、そういうことは考えるだけ
無駄ですな。

File::Inplaceの使用をお勧めする。

**nobodyさん** · 2006/07/03(月) 21:14:39

>>174
一気に read でファイルの中身全部読み込んじゃって、
あとは s{^(マッチ条件).*}{ 処理 }em; とかして、
一気に書き出せばいいんじゃね？

**174** · 2006/07/03(月) 22:04:52

>>176
いや、確かにファイルの中身自体は消えてませんが、そういうことでは…。

>>178
多少の無駄には目をつぶって最後まで走らせておくのが吉なんですかね。
File::Inplaceについては調べてみます。ありがとうございました。

>>179
確かに正規表現で１回マッチ直後に処理すれば、無駄はなくなる…けど、
処理そのものの負担が大きくなってしまうような…。

色んな場面で必要にかられる処理だと思ったので、
他の人はどんな風に処理してるのか適当にCGIを見てみたところ
>>174に書いてあるのが結構多かったかも。
中には
open(FH,$FILE);
my @data = <FH>;
my $loop = @data;
my $i;
while($loop>0){
@temp = split(/ /,$data[$i]);
if(マッチ条件){
処理
last;
}
$i++;
$loop--;
}
ってのも、ありました。ちょっとゴテゴテしてるなぁ。

**nobodyさん** · 2006/07/03(月) 22:05:46

KENTを見て育ってる者だ。
よくlocal何て使わないでmyと書いてあるがすべてmyにしたらダメだよね？
ちょっと違いが分からないので教えて欲しい・・・。

**nobodyさん** · 2006/07/03(月) 22:14:19

>>180
> 処理そのものの負担が大きくなってしまうような

何でそう思うのかｋｗｓｋ

my @data = <FH>;
↑こんなことしてる方がよっぽど負担強いてると思うぞｗ

>>181
コーチ変えたほうがいい。

**nobodyさん** · 2006/07/03(月) 22:19:42

>>182
KENTが一番楽だったからそれにしてたいが今更コーチ変えろって
簡単で見やすいスクリプトなんてあるの？
何せKENTのスクリプトをみて覚えてきた人間だから今更となると見やすいスクリプトじゃないの無理な気がする。

**nobodyさん** · 2006/07/03(月) 22:20:53

>>183
じゃあそのままでいろよ。

**nobodyさん** · 2006/07/03(月) 22:24:31

っていうかKENTが神、ってネタか釣りなんだろ？そうなんだろ？

**nobodyさん** · 2006/07/03(月) 22:48:13

KENTがperl5で全部書き直すか、プログラムの配布を止めれば
状況は変わると思う。

**nobodyさん** · 2006/07/03(月) 22:54:50

>>174
任意の一行ってことはマッチする行がはじめから一行しかない
事が分かってるってことですかね？
それともマッチした最初の行だけとか、？（それだと174はまずいですよね・・・
ファイルの構造が固定してるなら、該当する行をダイレクトに指定
できる可能性とかはありえない・・・？

**nobodyさん** · 2006/07/03(月) 23:07:15

KENTはKENT未満の読むに値しない汚いスクリプトから初心者を守ってるから神。

**nobodyさん** · 2006/07/03(月) 23:16:27

つか、皆から見てKENTのソースってどうなん？
初心者のオイラにはなんのこっちゃか分からない行がたくさんあって、ちょっと嫌

**nobodyさん** · 2006/07/03(月) 23:20:54

つい最近前スレだかでも話題になったからパス。
セキュリティくらい考えて作れよー。

まあKENT儲は ∩（ ´∀｀）∩ｺﾁﾗﾍ (っ´∀｀)っ))ﾄﾞｳｿﾞ

KENT WEB 総合スレ Part2
http://pc8.2ch.net/test/read.cgi/php/1078991985/

**nobodyさん** · 2006/07/03(月) 23:32:34

>>181
…向上心があるなら、出来るだけ早い内にPerl5流に馴染んでおいたほうが楽だぞ。本当に…
きっと、各種モジュールに興味が出てきた頃に、矯正するのに時間がかかって苦労する。というか、した。
# 独学だと何がまともなのか、判るようになるまでが難しい

閑話休題。多くの場合では、myに置き換えて大丈夫だと思う。
localとmyの違いは効果の範囲が動的…プログラムの流れに沿ったものか、
静的…ソース上のブロックに対応したスコープか、と言うのが一番の差。
以下、差を顕著にするためのどうしようもない汚い例。
sub fuga { $foo }
sub hoge_my { my $foo = 'hoge'; print 'my: ', fuga(), "\n" }
sub hoge_local { local $foo = 'hoge'; print 'local: ', fuga(), "\n" }
$foo = 'outer'; hoge_local(); hoge_my();
---------------
local: hoge
my: outer

あと型グロブのように、単純にmyに置き換えることの出来ないものもあるけれど、
これも、出来る限りリファレンスを使って書くのがPerl5流。
localの出番はPerlで定義済みの変数($/の類)とか。

何か大事な点がすっぽ抜けてたら、フォロー宜しくお願いします。

**nobodyさん** · 2006/07/03(月) 23:36:24

local は変数宣言ではないので、use strictすると
local しただけではエラーになるので注意。my か our などが必要。

**nobodyさん** · 2006/07/03(月) 23:37:39

>>191 は親切すぎるぜ…

**174** · 2006/07/03(月) 23:46:28

>>182
>何でそう思うのか
いや、単純に感覚的なものなので間違ってたらすみません。
ファイルの中身が数千行とかあった場合で、
該当する行の情報もそこそこ大きい場合、
全部読み込んで正規表現にかけるより
1行ずつチェックした方が良さそうに思っちゃいました。

>>187
>任意の一行ってことはマッチする行がはじめから一行しかない
>事が分かってるってことですかね？
その通りです。でも、その行はどこにあるのかは分からないし流動的。
掲示板とかアクセスログとかのログと同じようなもんですね。
なので、ダイレクトに指定することはできないです。

**nobodyさん** · 2006/07/04(火) 00:01:32

>>194
数千行ならさあ、
数千回ループさせて、数千回ファイルからデータとってきて、数千回 @array にその大きいデータを push するのと、
改行の数なんか関係なく 1回 read して $scalar に入れて 1回だけ置換するのと、
総合的にどっちが良さそうに見える？

まあその数千行のファイルがウン十Mb とかなら話は変わるけど、そんな規模のデータファイル作ったりはしないよね。
とりあえずいくつか方法で迷ったらベンチでもとっとけばいいと思う。

**nobodyさん** · 2006/07/04(火) 07:41:17

DB使ったほうが楽だと思うけどね。途中だけ書き換えるとか
かなり不毛。ファイルを編集するのが目的ならしょうがない
かもしれないが、データ保存用ならいくらでもやりようがある
はずだ。

**nobodyさん** · 2006/07/04(火) 10:28:25

こういう話題だとDB使えって人はクライアントの仕事したことないんかね？

**nobodyさん** · 2006/07/04(火) 12:30:08

ファイルが大きくなるなら、複数のファイルに分けて、インデックスも作っておく。
掲示板のログと一緒。

**nobodyさん** · 2006/07/04(火) 12:47:20

$titleに入っている題名の間隔を空けて表示したいのです
置換でなかなかうまく行きませんでした
良い方法はありますか？

**nobodyさん** · 2006/07/04(火) 13:02:03

エスパー頼む