Perl 初心者コーナー Part24

◆fBgbHI04bQ · 03/06/07 22:30

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/06/24 10:41

>>818
クラス名・変数名に迷ったら書き込むスレ
http://pc2.2ch.net/test/read.cgi/tech/1046541730/

こんなスレもあるでよ

**818** · 03/06/24 10:44

>>824
初耳です。
こっち行きます。

**nobodyさん** · 03/06/24 10:44

>>823
いったい何を言ってるんだ？
まともな文章と書くスレを選ぶ方法を先に学べ

**nobodyさん** · 03/06/24 11:05

でもperlはカウンタとか一時変数とかは名前付けなくていいし、
ネーミングで困ることは少ないな
大抵そういう、どうでもいい変数で困る事が多いし

**nobodyさん** · 03/06/24 11:11

>>826
分からないなら、しゃべんなって。
な。

**nobodyさん** · 03/06/24 11:19

>828
お前はあの文章がわかんのか、とか思ったら本人だったので鬱

**nobodyさん** · 03/06/24 11:23

CarpとCGI::Carpは違う。

**nobodyさん** · 03/06/24 11:27

>>828
お前の文章も確かにおかしいぞ

**nobodyさん** · 03/06/24 12:32

頭おかしい奴が（・∀・）ｷﾃﾙｰ

**nobodyさん** · 03/06/24 13:40

ログ見てエラーが出てるんなら、そのエラーメッセージ見て解決策を考えろ。

**nobodyさん** · 03/06/24 13:59

2JWEavapは恥ずかしくてもう来られない

**nobodyさん** · 03/06/24 14:10

DBI使ってDBを操作するとき､SELECT文の結果は配列で返ってきます｡
つまり値を参照するときはフィールド番号（って言うんですか？）で指定しなければいけません。
$record[2]みたく。
できれば、フィールド名で参照したいんですけど、それって無理なんですか？
連想配列みたいになれば言うことないんですが｡
$record{'DATE'}って感じに参照したいんですけど、DBIだけでは無理？

どの解説サイトみても、「配列でかえります」までしか説明されてませんでした。

**nobodyさん** · 03/06/24 14:29

BBS作ってるんですけど、例えばレスが800あるスレッドを
表示する時2ちゃんねるみたいに
1&750-800みたいに途中を飛ばして表示するとして
ログがレス順1から順に並んで保存されてるとすると
2-749まで空読みして飛ばしますよね？
これって無駄に思えますが何か良い方法ありませんか？
レスを逆順に800,799・・・保存する方法も考えましたけど
これだと表示時に表示するレスの分だけメモリ消費して
こちらも無駄かなと思ってしまうんですが。
全レス表示したら全レス分配列必要だし。

前者だとレスが多いスレだとCPU負荷がかかるし
後者だとメモリを多く消費してしまうし、何か他の選択が
ないでしょうか？

**nobodyさん** · 03/06/24 14:31

>>836
1レスの長さを固定してseekとreadを駆使して読み出すのが効率いいんじゃない？

**nobodyさん** · 03/06/24 14:38

>836
1レス1ファイル形式(w

**nobodyさん** · 03/06/24 14:48

>>835
http://member.nifty.ne.jp/hippo2000/perltips/dbimemo.htm
よく読んで毛

**nobodyさん** · 03/06/24 15:07

☆とにかく可愛い娘のＨ画像です☆
http://endou.kir.jp/yuminet/link.html

**nobodyさん** · 03/06/24 15:10

>>836
1000回の空読み <<<<< ファイルのopen
というか、
1000回の空読み <∞< perlのオーバーヘッド

何をするにもCPU負荷はかかるけど、
定量的に考えないと。

あと、これはバリ私見＆経験則だけど、
最近のマシンは一般的なwebサーバー用途で考えると、
バランス的にCPUだけの性能が突出してます。
仮に、1Gメモリー積んでCPUがPIII 1Gぐらいのとき、
先ず、CPUが足りなくなる前にメモリーが足りなくなります。
（これは、webサーバーやRDBMSがメモリー食いすぎというのも理由だが）
なので、CPUとメモリーはトレードオフの関係にあるときは、
メモリー優先で基本的にはOK。

**nobodyさん** · 03/06/24 19:20

>>838
一度それで作ったことあるけど微妙ｗ

やっぱ1ファイルで空読みかねぇ。

**nobodyさん** · 03/06/24 19:55

そんなけ書き込み激しいのならば、DB使うだろ・・・

**nobodyさん** · 03/06/24 22:48

>>836
無駄っちゃ無駄だけど、小細工してもたいして効果ないよ

**nobodyさん** · 03/06/25 00:40

ハッシュのキーって、全角文字でもいけますか？

**nobodyさん** · 03/06/25 00:59

>>845
いけるらしいです。
俺は、試してないけど。

でも、あまり推奨されるような物じゃないと思うので、
極力避けましょう。

**nobodyさん** · 03/06/25 01:18

質問がございます。

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<TITLE></TITLE>
</HEAD>
<BODY>
<FORM action="test.cgi" method="POST">
%%errmsg%%
E-mailアドレスを入力して下さい。<BR>
<INPUT size="30" ="text" name="email" value="%%email%%"><BR>
確認のため、再度入力してください。<BR>
<INPUT size="30" type="text" name="confirm" value="%%confirm%%"><BR>
<BR>
<INPUT type="submit" value="送信"></FORM>
</BODY>
</HTML>

これを変数化したものを
$html =~ s/\%\%.+?\%\%//gs;
このように「%%～%%」を全て取り除くはずなのですが、
なぜか$html =~ s/\%\%.+?\%\%//gsi;
でないといきませんでした。%%%%に大文字も小文字も無いとは思いますが、、、
どうしても腑に落ちないため、質問させていただきました。
宜しければどうかご教授ください。宜しくお願いいたします。

**nobodyさん** · 03/06/25 01:20

>>>845
問題なし

**845** · 03/06/25 01:30

>>846 >>848
thx.
プログラム関係の板の人は怖い人ばかりだと思っていたけど、
ちゃんとレスくれて嬉しいです。ではまた

**nobodyさん** · 03/06/25 06:35

>>847
$html =~ s/%%.+?%%//g;
で、動かないかい？
それはさておき、%%strings%%で書き換えるHTMLテンプレートをよく見かけるけれども、
鬱陶しくなぁい？
%sにしてsprintfで一気に書き換える方が楽そうに思えるけれども。

それはさておき、正しいHTMLを描きましょう。

**nobodyさん** · 03/06/25 11:07

<p>で開いたパラグラフは
必ず</p>で閉じましょう

**nobodyさん** · 03/06/25 14:07

>>850
それじゃ、コード側で順番が固定されてしまうだろ

**nobodyさん** · 03/06/25 16:44

>>851
</p>は省略可能だけど、それを意識して省略しましょうね。ということでよろ。
>>852
そだよ。そんなに頻繁にテンプレを変えるのは少々難ありだと思うけれども。

**nobodyさん** · 03/06/25 17:48

>>853
ﾃﾝﾌﾟﾚは変わるだろ。ｼｽﾃﾑ変わらずともﾃﾞｻﾞｲﾝが変わることは多々ある。
あとDOCTYPEの指定がないのに省略可能と言い切るのはすごいな。

**nobodyさん** · 03/06/25 18:36

ハ゜ールのcgiをいじっていたら、漢字の「表示」が正しく表示されない
のですが、これは文字コート゛の問題なのですか？
普通はどう解決しますか？

**nobodyさん** · 03/06/25 18:38

>>855
漢字を使わない。

**nobodyさん** · 03/06/25 18:45

>>855
それくらい、とほほにも書いてある。聞く前に調べる。

**nobodyさん** · 03/06/25 19:49

表\示

これで表示される。Shift-JIS だと「表」のコードが \x95\x5c となる。
\x5c(\) が perl だと特別に解釈される文字なのでおかしくなる

**855** · 03/06/25 20:04

すいません自己解決しました。

**nobodyさん** · 03/06/25 20:18

普通はどう解決しますか？
↓
明らかに突飛な解決策が提示される
↓
「調べろ」とアドバイス
↓
同情した奴がマジレス
↓
自己解決

まったく噛み合ってないな(w

**ayaya** · 03/06/25 20:35

始めまして！私と顔を見ながらチャットしませんか？楽しい会話をしましょう
アドレスです！http://www.loveshelter.tv/まで！沢山きてね(^o^)丿
待ってまーす

**nobodyさん** · 03/06/25 20:49

test->func();
test::func();
この呼び方で、どちらでも動くようにfunc()をコーティングしたいんだけど、
いい方法知らないすか？

**nobodyさん** · 03/06/25 21:02

unicodeの文字列をURLエンコードするにはどうすればいいのでしょうか？
JavaScriptのescapeのように、あいうえお<->%u3042%u3044%u3046%u3048%u304A
といった感じで変換したいのです。
$value =~ s/(\W)/'%' . unpack 'H2' , $1/eg;
とやっただけではムリでした。

どのようすればいいのでしょうか？

**nobodyさん** · 03/06/25 21:12

ファイルテスト演算子の-Mについてですが、
取得する時間って24*60*60しないとちゃんと取得できないの？

**nobodyさん** · 03/06/25 21:13

>>861
これで見たの３回目だ。NGワードに入れた

**nobodyさん** · 03/06/25 21:40

>>862
1.与えられた引数とは全く関係なしに、決まった結果を返す。
2.与えられた第一引数を調べ、それがオブジェクトかそうでないかを判断する。
ref $_[0] でなんとかなるだろ。

**nobodyさん** · 03/06/25 21:42

>>864
本読め。
-M で取得できるのは、最終更新日からの日数だと明記してある。
秒に変換したいなら、*24*60*60しないとどうしようもないわな。諦めろ。

**nobodyさん** · 03/06/25 23:29

>>867
>>864のメル欄

**nobodyさん** · 03/06/25 23:52

完全に成功した釣りの例ではあるが、
今一つ爽快感に欠けるのは、-Mについて聞くのが
どのくらい愚かなのか実感が無いからだな

**nobodyさん** · 03/06/26 00:03

>>868
釣られた……
頼むから釣りだけはカンベンしてくれ……
ただでさえ、アレなのが多いのにこんな肩すかしまで食らわされるとな。

**nobodyさん** · 03/06/26 00:39

>>870はいい人。

**864** · 03/06/26 04:34

bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka
bakabakabakabakabakabakabakabakabakabaka

**nobodyさん** · 03/06/26 04:35

EUCコードで書いているのですが、なぜか「当」という
文字が文字化けの原因となってしまいます。
具体的には、「当代島」と打つと、「套島」、「当島」と打つと
「島」となってしまいます。

入力フォームも間違えなくEUCなのですが、不明です。
どうかご教授いただけますでしょうか。

**nobodyさん** · 03/06/26 05:46

\当びっくり｡

**nobodyさん** · 03/06/26 09:17

>>873
そうなったPerlスクリプトを挙げよ。

**nobodyさん** · 03/06/26 09:31

あと、漢字コードの変換モジュールあたりも書いとくほうがいい・・・

**nobodyさん** · 03/06/26 11:55

釣られage

**nobodyさん** · 03/06/26 12:17

また釣り？

当代島 - C5F6 C2E5 C5E7
套島　　- C5　　　　E5 C5E7

当島　　- C5F6 C5E7
島　　　 - C5　　　　E7

なんか2バイト目と3バイト目が欠けてる気が。

**nobodyさん** · 03/06/26 12:46

箕島に遊びに行ったことを思い出す

**nobodyさん** · 03/06/26 13:41

と言いながら答えてる>>878はいい人

**nobodyさん** · 03/06/26 15:21

　携帯向けの投稿用cgiの開発を考えているのですが、写メールは、
受信に添付されたファイルを使えばいいので何となくわかるのですが、
i - shot の場合、メール内のアドレスを解析してそのサイトから
画像を取ってくるようなプログラムはどのようになるのでしょうか？

**nobodyさん** · 03/06/26 15:23

>>881
簡単にしたいなら/usr/local/bin/wgetとか、use LWP::UserAgentとか。

**873** · 03/06/26 16:07

本当に皆さんご親切に有難うございます。
ソースを載せますと

my (%form, $buffer, @pairs);

if ($ENV{'REQUEST_METHOD'} =~ /^post$/i){ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else{ $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
foreach (@pairs){
my ($key,$value) = split(/=/,$_);
$value =~ tr/+/ /;
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$key} = jcode::convert(\$value,'euc', 'euc','z');
}

このようにformで受け取ったものを%formに入れているのですが、
ここで問題の「当代島」の入っている$form{address}を表示させる
と例の文字化けが発生してしまいました。
スクリプト内で「当」がきたらエスケープする処理をしてもよいの
ですが、もう少し効率的な方法を考えたいと思います。

こんな駄目質問にも応えていただいた皆様には本当に感謝しており
ます。

_ · 03/06/26 16:23

http://homepage.mac.com/hiroyuki44/

**nobodyさん** · 03/06/26 16:33

コードに直で漢字を書く以外で変なことが起きたことが無いので、
jcode:converが怪しい

**nobodyさん** · 03/06/26 16:41

>>883
＞jcode::convert(\$value,'euc', 'euc','z');
3つ目にeucを指定してEUCtoEUCじゃ、実際に変換が行われるのは
ｚオプションの半角カナ→全角カナ変換だけだろ

jcode::convert(\$value,'euc', '','z');　じゃないのか？

**nobodyさん** · 03/06/26 16:43

pack("C", hex($1))ってよく見かけるけど、なんでpack("H2", $1)にしないの？
なんか理由あるのかね？

**nobodyさん** · 03/06/26 17:00

>>887
pack("H2", $1)の方が早いけど、そうすると何故か人気が出ないというジンクスがある。

**nobodyさん** · 03/06/26 17:12

pack("C", hex($1))とpack("H2", $1)はどう違うの？

**nobodyさん** · 03/06/26 17:23

>887
多分 kent-web とかの配布スクリプトが hex 使ってるから
>889
同じ
速度が違う

**nobodyさん** · 03/06/26 17:37

原因不明の症状に悩んでおります・・・。
申し訳ありませんがご助言をお願いできませんでしょうか。

1: Perlスクリプトで色んなサイトのhtmlソースを一気に取得してきたい。
2: それでこんな風にやってみました。

　※メインのスクリプトにて
　foreach(@url_list){　# @url_listに各サイトのurlが入っている。
　@source = &get($_);

　（いろいろな処理）

　}

　※サブルーチン（別ファイル）にて
　sub get{

　（socketを使ってソースを取得し、@backに格納）

　return(@back);
　}

3: うまくいかないサイトがちらほらあります。
　＜付加的情報＞
　・問題なく取得できるサイトも多くある。
　・Hostヘッダは送っている（＝バーチャルホストが原因ではない？）。
　・うまくいかないサイトでも、サブルーチン内ではそのソースをprintできる。
　（＝実は取得できている？）

　＜自分の考え＞
　・特定のサイトの時だけ、メインのスクリプトに@backが帰って来ない？
　・特定のサイトの時だけ、そもそもサブルーチン内で配列に格納されていない？

**891** · 03/06/26 17:38

これ以上の原因を調べようがなくて八方塞状態です。
足りない情報などあったらすべてお答えしますので、
何とぞよろしくおながいします。<(_ _)>

**nobodyさん** · 03/06/26 17:43

>>891
ステータスコードは確認している？

# なんかPerlと関係ない話題のような・・・

**nobodyさん** · 03/06/26 17:54

俺も>>886に同意。
HTMLの文字コードがEUCだからって、EUCが送られてくるとは
限らないよ。たまたまIEなんかはそういう実装になってるだけで。

あと、単にブラウザが文字コードを判定ミスしてるってことはない？
Content-Type行を、

print "Content-Type: text/html; charset=EUC-JP\r\n\r\n";

みたいにしてみ。

**nobodyさん** · 03/06/26 18:09

icab とかは EUC のページでも SJIS で送信するらしいね

**nobodyさん** · 03/06/26 18:22

>>895
んでそういうのを平気で「ブラウザのバグ」とか言うプログラマが居るんだよな。

**nobodyさん** · 03/06/26 18:26

逝ってよしだな。

**891** · 03/06/26 18:29

>>893
ありがとうございます。しかし申し訳ありません。原因は凡ミスでした・・・。
891の「（いろいろな処理）」のほうがマズかったようです。
質問する前にもっとしつこく調べてみるべきでした。本当にすみません。

**nobodyさん** · 03/06/26 18:52

>>898
おいおい、解決したから満足ですさようならーってのはナシでしょ。
善意とは言え、他人の手を煩わせたんだから、
その凡ミスを晒して他の初心者に貢献するのが
ギブアンドテイクっていうもんじゃないか？

**nobodyさん** · 03/06/26 19:05

>>899
「この掲示板は自分のためにある」by 891

**nobodyさん** · 03/06/26 19:12

>>900
そりゃ本７の名言だろ

**nobodyさん** · 03/06/26 20:03

<FORM accept-charset="euc-jp" ･･･
とか。

**nobodyさん** · 03/06/26 20:10

>>902
それ、すごく正しいけどIEもNNも実装してなかった気がする。
ちょっと今すぐ試せないけど。

**nobodyさん** · 03/06/26 20:13

>>902
んな風に書けるんだ。知らなかった。

**nobodyさん** · 03/06/26 20:36

ファイルの読み書きとフォームデータを使う場合の二つの負荷はどっちがお得か教えて下さい。
サーバーの負荷はファイルの読み書き何byteに対してフォームデータ送信何byteと同じぐらいでしょうか？

**nobodyさん** · 03/06/26 20:53

>>903
そんなブラウザ今すぐ窓から投げ捨てた方がいい気がする。

**nobodyさん** · 03/06/26 20:55

>>903
今回の件についてはIEやNNなら実装していなくても問題ない。

**nobodyさん** · 03/06/26 21:12

Welcome..........

ホスト12-231-187-185.client.attbi.com

名前：
E-mail：
内容：

こちらでリロードしてください。 GO!
分からないことがあったら２ちゃんねるガイドへ。。。

プロキシー制限は、２ちゃんねるビューアを使うと回避できることがあります。

ﾜﾗﾀ

**nobodyさん** · 03/06/26 21:32

>>906
窓も一緒に投げ捨てた方がいい気がする。

**nobodyさん** · 03/06/26 22:00

２つ（以上）の jpeg 画像ファイルを入力とし、
横に連結した１つの jpeg 画像ファイルを出力するプログラムを書け。
また、指定した位置に連結できるようにもせよ。

どなたか作っていただけませんか？

**nobodyさん** · 03/06/26 22:07

自分でコーディングしないのは初心者とは言いません

**nobodyさん** · 03/06/26 22:07

>>910
偉そうにマルチポストか。死ね。

**nobodyさん** · 03/06/26 22:29

>>910
うわぁ、最悪

**nobodyさん** · 03/06/26 22:31

>>910
まじれすすると、モジュール要るし、
貴方にはソレを入れるとか、もしくはソレを使えるサーバーも用意できないと思われる。

もうちっと勉強してきなさい。

**nobodyさん** · 03/06/26 22:33

>>914
＞まじれすすると、モジュール要るし、

自分の低レベルをカミングアウトせんでも・・・。
学生のうちに離散コサイン変換位覚えとけ。

**nobodyさん** · 03/06/26 22:54

>>915
>>914じゃないけど、俺も面倒だからモジュール使うかなあ。必須だとは思わんけど。

> 学生のうちに離散コサイン変換位覚えとけ。

プログラマで10年飯を食ってるけど、文系なのでそういうの苦手。

**nobodyさん** · 03/06/26 22:55

>>915
自分で実装するのもなー。
社会人になってからじゃあ、確かに時間がないから、今のうちっちゃ今のうちだが。

**891** · 03/06/26 23:08

>893,>899
本当にバカですみません。どういう凡ミスかを簡単に申しますと、
htmlソースの<body>から</bocy>までの間だけ切り取ろうとしていた部分で
$_ =~ /^<body/i　→　$_ =~ /<body/i　のように直したという感じの話です。

ちなみに実は他にも問題山積みであまり解決していないので
＞解決したから満足ですさようならー
という状況でもなかったりするのですが。

**nobodyさん** · 03/06/26 23:21

>>915
あふぉか・・・そんな処理入れて使い物になる実行速度でるよ

**nobodyさん** · 03/06/26 23:24

>>915
何のためにいろいろとモジュールが公開されているのか･･･。

**nobodyさん** · 03/06/26 23:29

でるのかよ

**nobodyさん** · 03/06/26 23:30

>>919がよくわからない。
入力ミスか？

**nobodyさん** · 03/06/26 23:33

どっちにしろPerlでは向かない処理やね