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/23 18:51

>>797
やってみろよ
メモリがどれだけ割り当てられているか、残りはどれぐらいかなんて
環境次第なんだから

**nobodyさん** · 03/06/23 19:03

>>798
ﾛｰｶﾙでは問題ないんですが、共有鯖だとどうかな、と。
まぁ、あげてみて試してみます。
同じことをテキスト保存でやったら、ファイルサイズは20㌔くらいなんですが、遅い。
どうしようか･･･。

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

>>795 かわいそうに、、、、まんまと騙されてるね。
通常、索引編成ファイルのキーや値は、任意でないかぎりメモリに入る事はないよ。
Perlだと、確かにDBMファイルとの接続速度は遅いけど、データは読込んでないから、大丈夫。
796とか798の言ってることは相手にすんな。

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

>>800
へ～
物　知　り　で　す　ね

**nobodyさん** · 03/06/23 22:02

>>801
間違いを指摘されたからってそうムキになるなよ。

**nobodyさん** · 03/06/23 23:34

>>787
Perlでswtich文使えたらいいなー、って思うことしきり。

**nobodyさん** · 03/06/23 23:46

>>787
リファレンスと配列を使うとか、無名のサブルーチンで、ハッシュを使うとか書き方あると思うけどねィ・・・

んで、カッコいいよりも見やすい記述を心がけるべきだと思ったり・・・

**nobodyさん** · 03/06/23 23:59

>>803
だね。switchあるだろ、とか思ってリファレンス見直して無いことに気付いたｗ

**803** · 03/06/24 00:16

>>805
同じことしてるなｗ

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

まあ、switch無くても、
if
elsif
elsif
elsif
で処理速度は落ちないんだけど、見た目が、、、

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

>>807
見た目を気にするならSwitchもどき使えばいいんであ？
ttp://tech-web.net/perlmania/perlsyn3.html

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

>>808
ちょっと冗長すぎて、それならまだif elseのほうが・・・
swtich使いたいのは、見た目がスッキリするからなので

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

うーん、その他の方法も見た目が良いとは言えないな

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

ある変数$Aの先頭2バイトを$Bへ代入し、$Aには先頭2バイトの次からが残る。

単純な質問かもしれませんが、どうか教えてください。キーワードが考え付かず、
ググっても見つけられませんでした。(←力不足っす。。)

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

>>811
TMTOWTDI.

# substr
($A, $B) = (substr($A, 2), substr($A, 0, 2));

# unpack
($B, $A) = unpack 'A2A*', $A;

# 置換1
$A =~ s/^(..)//;
$B = $1;

# 置換2
$A =~ s/^(..)/($B = $1, '')[1]/e;

# 回りくどい方法
@tmp = split //, $A;
$B = join '', splice @tmp, 0, 2;
$A = join '', @tmp;

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

s/^(.{2})//;
$1;

こんなんじゃダメかね、ダメだね。文字だもんね。
あんたのやろうとしてることは、関数で出来るよきっと。
普段そうゆう処理しないから名前は知らんけど。
どっかのサイトの関数一覧をどうぞ。
上の正規表現で十分ならそちらをどうぞ。

52 · 03/06/24 03:37

ありがと～～～～～～
# unpack
($B, $A) = unpack 'A2A*', $A;
コレ使わせてもらいました。

**nobodyさん** · 03/06/24 04:16

記憶があいまいだけど、5.?に無かったっけ？＜Switch

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

>>812 >>813
変態的にすごいな。
そういうのは一瞬で浮かぶんでしょうか？

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

浮かぶもんだよ。
アルゴリズムを見れば、どの関数を使うべきか直感的に分かるから。
たくさんコードを書いてると自然に身についてくる。

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

みんな変数名やサブルーチンの名前付けるときってどうしてる？
分かりやすい名前付けた方が後々分かりやすいって聞くけど、
その名前が思い付かないとき…。

漏れコーディングより、名前で時間くう…。
こんな漏れって変でつか…？

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

>>815
少なくとも 5.8.0 には標準で Switch.pm がある。

use Switch;
switch ($val) {
　　case 1　　　　　{ print "number 1" }
　　case "a"　　　 { print "string a" }
　　case [1..10,42] { print "number in list" }
　　case (@array) { print "number in list" }
　　case /\w+/　　{ print "pattern" }
　　case qr/\w+/ { print "pattern" }
　　case (%hash)　{ print "entry in hash" }
　　case (\%hash) { print "entry in hash" }
　　case (\&sub)　{ print "arg to subroutine" }
　　else 　　　　　　{ print "previous case not true" }
}

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

>>818
$hensuに。

**nobodyさん** · 03/06/24 08:34

>>818
変数名の prefix に規則性持たせてつけてるよ

**818** · 03/06/24 08:49

>>820
どういうこと？
とりあえず$hensuにしとくってこと？

>>821
漏れもVBやってたときは付けてた。

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

CarpのfatalsToBrowserでエラー捕まえられない時があるんだけど、
「500 Internal Server Error」が出てしまう時がある。
httpdのログを見る限りエラーメッセージが出てるんだけど・・・
回避方法って無いですかね？

**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

逝ってよしだな。