Perl コーディング初心者質問コーナー Part26

**nobodyさん** · 03/07/24 19:48

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

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

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

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

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/07/24 21:49

いや違いますね。

**nobodyさん** · 03/07/24 21:56

>>9
Perl4までは、srandで一旦初期化する必要があったのだ
しかし5からはsrandはいらない

**nobodyさん** · 03/07/24 21:58

変数の名前を取得するにはどうすればいいですか？
$xxxx="test";
$nameに"test"なく"xxxx"を代入したいんですが・・・。

**nobodyさん** · 03/07/24 22:00

>>11
有難うございました。
ところで、そのPerl4かPerl5かは、
どこで分かりますか？

**nobodyさん** · 03/07/24 22:12

>>13
perl -vって打つと分かるよ

**nobodyさん** · 03/07/24 22:16

>>13
perlのバージョンもわからずにコード書いてるのかい？
もう4は少ないだろうが、もしそうだったら大きな影響があるのだから
先にそういうことは知っておくこと

**nobodyさん** · 03/07/24 22:35

>>12
どういう場面でそれが必要になるのか分からん……

**nobodyさん** · 03/07/24 22:38

>>16
たぶん釣りでしょ

**nobodyさん** · 03/07/24 23:20

プログラム全体でなく、あるディレクトリ
だけロック処理をしたいんですが、
その場合にはどうしたら良いのでしょうか？

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

>18
ttp://pc2.2ch.net/test/read.cgi/php/1024795138/
↑で聞いた方がいいかもしれない。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/24 23:43

>>17
釣りではないんですが。

**nobodyさん** · 03/07/24 23:50

>>21
それならどういうケースでそんなことしたいか説明してくれ
サンプルのソースを添えてな

**nobodyさん** · 03/07/24 23:54

>>9
http://flex.ee.uec.ac.jp/texi/perl/perl_31.html

>>11
http://pc2.2ch.net/test/read.cgi/php/1056730690/984n

>>12
local $xxxx = 'test';
my $name;
while ((my $key, local $value) = each %::) {
　　${$value} eq 'test' or next;
　　$name = $key;
　　last;
}
print $name;

**nobodyさん** · 03/07/24 23:57

>>12
変数の名前はプログラムを書いた人が知ってるから、調べなくてよい。

**nobodyさん** · 03/07/24 23:58

乱数の話しもう終わったかな。
おれはいつも、
rand(time*$$)ってやってるけど。。。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/25 00:01

>>25
それは意味のあるものが返ってくるのか?

じゃなくて、、、コンピューターが出せる乱数は(rand())、擬似乱数なんだ、
ということを認識していないと、おもしろいことをされる可能性がある。

**nobodyさん** · 03/07/25 00:03

要約すると、srand()で/dev/randomを使おう!

**nobodyさん** · 03/07/25 00:15

URLで情報を渡して(http://xxxx.com/**.cgi?=名前.メールアドレス)
Cgiで認証させるにはどうやったらいいんでしょうか？

**nobodyさん** · 03/07/25 00:17

前スレで既出だった模様…

**nobodyさん** · 03/07/25 00:17

>>29
セッション管理

>>30はsrandの話に関して

**nobodyさん** · 03/07/25 00:21

539 名前：窓板住人 ◆winDOwS0aE ：sage 投稿日：03/07/24 (木) 19:17 ID:???
WIndowsとはそんなに関係ないですが、CGIでよく使われるらしい
スクリプト、CGI.pmにクロスサイトスクリプティング脆弱性があるようです。
CGI 職人、あるいはCGI使われている方々は最新のバージョンに
アップデートすることを推奨します。

http://archives.neohapsis.com/archives/bugtraq/2003-07/0267.html

みなさん、大丈夫ですか

**nobodyさん** · 03/07/25 00:36

>>23
12にそういうコードを教えるのはよくないと思うぞ

**nobodyさん** · 03/07/25 01:00

CGI.pm なんて使ってねーしぃ

**nobodyさん** · 03/07/25 01:02

>>32
start_form()使ってないですね。
フォーム生成にCGI.pm使います？

>>12
意図がつかめない…。
具体的に何をしたいかを書くと答えが得られるかもね。
多分、ハッシュを使うと解決しそうな問題な気がする。。

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

>>28
既にデフォルトのseedは/dev/randomがあれば/dev/randomを使うようになってる。
Windowsとかだとどうしようもないけどね。

**nobodyさん** · 03/07/25 01:22

CGI.pm
はフォームのデータをひらったり、クッキーを作ったりするのに
使ってたりする。
HTMLを生成するのには使ってない。。。だって
手で直接打った方が早いし、外部テンプレにしたら
もっと楽だし

**nobodyさん** · 03/07/25 01:28

>>12って超初心者でプログラムの流れをうまく書けなくて
あんなこと思いついただけのような気がする

**nobodyさん** · 03/07/25 02:30

>>38も超初心者

**nobodyさん** · 03/07/25 02:34

>>39
38の言ってることが当たりなのか？12よ

**nobodyさん** · 03/07/25 02:35

>>40
そうだよ！ﾌﾟﾝｽｶﾌﾟﾝｽｶ

**nobodyさん** · 03/07/25 02:36

>>39
>>40
>>41

ｼﾞｻｸｼﾞｴｰﾝ

**nobodyさん** · 03/07/25 02:38

すみません、教えてください。

<FILEHANDLE> while ( $count-- < 0 );

ってやったあと、tellしたら、データのバイト数分の値がでたんです。
これはFILEHANDLEで指定しているファイルを1行ずつ読んでるんだと思うんですが、
$_には入ってないみたいなんです。

いったい読み込んだデータはどこいっちゃったんでしょう。

**nobodyさん** · 03/07/25 02:44

すいません>>12=>>38です。

**nobodyさん** · 03/07/25 02:46

それ、ほんとに１行ずつ読んでると思うか？

**nobodyさん** · 03/07/25 02:52

>>43
いや、読んでない。
（正確には、読んでるけど全部捨ててるようなもの）

基本的なファイルの読み方をもう一度おさらいしてみよう。

**nobodyさん** · 03/07/25 02:55

はい、なんとなく思います。

12 · 03/07/25 02:56

なんとなく読みこんでるとおもったんですが、、、

**nobodyさん** · 03/07/25 03:00

>>43=12かよ

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

どひゃー

43 · 03/07/25 03:05

43 ne 12 です。

>>45 >>46
ファイルは、$/をセパレータに、なんというか、セパレータまでのデータを
1行として、そこまでを評価していくんだと思います。

その、全部捨ててるっていうのがなんというか、腑に落ちないんです。

あの、ダンプでしたっけ？PERLがなにやってるかを逐一ログに残すやつ。
それを見たら少しは理解できるとおもうんですが、
abnormal program termination
ってでちゃうんです。

困ったなあ

**あぼーん** · NG

あぼーん

38 · 03/07/25 03:15

すまん。俺も超初心者なんだ・・・。

**nobodyさん** · 03/07/25 03:22

>>51
単に１行読むたびに$_に代入されるから、直前に読んだデータが上書きされてるだけ。
それが見かけ上「捨ててる」ってこと。
んでEOFまで逝っちゃうと、あとは何度読んでもundefが返ってくる。
それと、普通はwhileの条件式に<FILEHANDLE>を書いてループをまわすものだけど、
謎の変数$countでまわしてる。これは一体どこから出てきて何が入ってるのか。

腑に落ちないって、どういう結果を期待してるの？まずそれを教えてよ。

**nobodyさん** · 03/07/25 03:47

>>43
そのコードに入る前の $count の値が 0 以上ならば $count-- < 0 は偽。
よって <FILEHANDLE> は一度も評価されないまま while から抜けるから、
これ以前に読み込んでいないなら tell は -1 を返す筈。
$count の値が 0 未満なら無限ループ。
あと行入力演算子が $_ に自動で代入してくれるのは while の条件部に
書いた時のみ。

38 · 03/07/25 03:54

すみませんでした。
なんとなくで、分かりにくい説明ありがとうございました。

54 · 03/07/25 03:55

＞あと行入力演算子が $_ に自動で代入してくれるのは while の条件部に
＞書いた時のみ。

あ、ほんとだ。リファレンス本見たらそう書いてあった……
おいらも適当なこと言ってすまんかった。反省。そしてありがとう。

**nobodyさん** · 03/07/25 04:08

質問に混じって茶々入れまでしてるのかよ
まじめにやれや

38 · 03/07/25 04:21

すみませんでした。

**nobodyさん** · 03/07/25 04:22

祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り

ニーノさんのホームページ作り２
http://ex.2ch.net/test/read.cgi/entrance/1059029010/
ニーノ ◆p9GipySMGk によってラウンジにたてられたこのスレで、

http://page.freett.com/ninogumi/
【ニーノさんのホームページ】
というサイトが作られた。（現在もコンテンツは爆発的に増えてるよ。）

さぁ、君もアイディアを出して、２CHネラーだけの最強サイトをつくろう！

祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り

**nobodyさん** · 03/07/25 04:29

要は…

$lolita = <FILE>;

こういうコードがどういう動きをするか理解しないとだめだ

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

"12<>34"という形のデータを左側優先で大きい順に並べ、
左の値が同じなら、右の値の大きさの順に並べるプログラムを作ろうと思うのですが
ヒントをください。
"1<>9"
"2<>3"
"8<>4"
"2<>8"
"8<>8"
を
"8<>8"
"8<>4"
"2<>8"
"2<>3"
"1<>9"
と並び替えるようなものです。

**nobodyさん** · 03/07/25 05:28

>>62
http://m-factory.zone.ne.jp/perl/SchwartzianTransform.html
http://www.cc.rim.or.jp/~midorin/mad-p/perl/benkyou/199909/mgp00039.html

@sorted_data = map $_->[0],
sort { $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2] }
map [ $_, split /<>/ ],
@data;

43 · 03/07/25 07:30

>>54-57

すみません。説明不足でした。
やりたいのは、ファイルの読み飛ばしです。
$count=10だとすると、
11行目以降のファイル内容を取得することなんです・

<FILEHANDLE> while ( $count-- < 0 );
としたあとで、
push(@line,scalar(<DAT>)) while($line-- > 0);　#$lineは$count以降の取得したい行数
ってやると、ちゃんと11行目以降の内容が@lineにはいるんです。
つまり<FILEHANDLE>に対するファイルポインタは、巻き戻ってないから、それを
逆に利用してるんだそうです。

で、腑に落ちないのは
＞あと行入力演算子が $_ に自動で代入してくれるのは while の条件部に
＞書いた時のみ。
ってところで、$_に代入しなきゃどこに入れてるんだ、っていうことです。
PERLの、なんというか一時記憶領域みたいなものに入れてるんでしょうか。
あと、$_に代入しない場合でも、やっぱり1行ずつ読んでるんですよね？？？

結果はいいけと、PERLがやってることがなんとなくでも理解できないと、
応用できないんかなって。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

◆hMJAPH9PWA · 03/07/25 11:31

| <FILEHANDLE> while ( $count-- < 0 );

…これで動いてるって？
既に>>55で指摘されてるけど、比較演算子が逆じゃない？

| ってところで、$_に代入しなきゃどこに入れてるんだ、っていうことです。
| Perlの、なんというか一時記憶領域みたいなものに入れてるんでしょうか。

そうだよ。
<FILEHANDLE>ではなく、readline(FILEHANDLE)と関数呼び出しとして書くと分かるかな？
ついでに言うと、print()とかも成功/失敗を知らせる値を返してる。
大抵は必要ないから即座に捨ててるだけで。

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

>>64
最初からその2行のコードと説明してくれれば早かったのに。
$_ を気にしてるようだが、$_ には読み込まれないから考える必要はない。

scalar(<DAT>)　←　これがミソで、リストである<DAT>を強制的に
スカラとして評価することによって<DAT>の1行だけを取得しているので
ここでは1行読み込みみたいな動きになる。

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

リストと配列って同じ意味ですか？

**nobodyさん** · 03/07/25 15:12

そんな事より、リファンレンスが解らない…（´д⊂ヾ

**nobodyさん** · 03/07/25 15:26

犯罪予告ｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━!!!!
【犯行】明日入殺します【予告】
ttp://ex.2ch.net/test/read.cgi/entrance/1059109904/l50

**nobodyさん** · 03/07/25 15:27

ああ、いけね
なんでリストなんて書いちゃったんだろ

**nobodyさん** · 03/07/25 16:09

ソースをSJISで書けといわれたのですが、「表」等の文字化け
対象文字列の扱いに困っております。
$htmlの中に「表」等の文字が入っている場合、
$html =~ s/5C/5C5C/sig;
これで回避できるかと思ったのですが、どうもうまくいきません。

教えていただけたら幸いです。

**nobodyさん** · 03/07/25 16:15

\x5c

**nobodyさん** · 03/07/25 16:45

>>74
お返事有難うございます。
早速下記のようにやってみましたが、まだいかないようです。
$html =~ s/\x5c/\x5c\x5c/sig;

初心者で申し訳ないです、、、

**nobodyさん** · 03/07/25 16:51

>>75
$html = "表示";

この時点で、$html内には0x5cが含まれないことに注意。
あとは自分で考えてみて。

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

$html = '表示';

73 · 03/07/25 17:23

うーん、素で分かりません、、、

$htmlは、ヒアドキュメントを使って内部に変数が含まれて
いるため、シングルクォーと等は使えません、、、

再度しばらく考えてみます、、、

**nobodyさん** · 03/07/25 17:36

ヒアドキュメントでソースに直で書いてるんなら、

　　表\示

でいいじゃん。

73 · 03/07/25 17:48

メンテナンスはプログラムが分からない人がやるので、
「表」や「能」等を平気で普通に使ってしまう可能性が
あるため、最後にまとめて変換してしまおうと考えました。

出力形式は要望であるため、変えられないのが痛い
です、、、

**nobodyさん** · 03/07/25 17:51

>>80
HTMLをヒアドキュメントではなく、外部ファイルにする。
これで解決。メンテナンス性もよくなって一石二鳥。

73 · 03/07/25 18:00

>>81
それが許されないからヒアドキュメントなのです。
できればそうしたいのですが、ロードバランサーを使用した
サーバ3台体勢なため、どんなに説明しても1ファイルで
完結してくれと、、、

すみません、無駄にｽﾚ消費させているので書き込み自粛
します。

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

>>82
__DATA__ トークン以下に HTML データを書いて <DATA> で読む。

**nobodyさん** · 03/07/25 18:58

>>73
シングルクォートで囲んでおいて、変数部分を置換する。

**nobodyさん** · 03/07/25 20:25

あるcgiでは<img src="$imgs/seee.png">できちんと画像が
表示されるのに、これでは画像が×印になってしまい
表示されません。何が抜けているのか何でも良いので
気付いた所を教えて欲しい。
sub wedd{
if(!$tpre){
$log .= "<img src=''$imgs/seee.png''><br>\n";
$tm=0;
$trpe='';
}
です。

**nobodyさん** · 03/07/25 20:36

>>85
サブルーチンだけでわかるわけないだろう
このサブルーチンを呼び出す前、あるいは呼び出した後のどこかが
おかしいだけ

**nobodyさん** · 03/07/25 20:37

$log .= "<img src=\''$imgs/seee.png\''><br>\n";

**nobodyさん** · 03/07/25 20:43

>>86
ﾊｽﾞｶｼｲﾈェ

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

みんな釣られたんじゃないの？
>>87は当然としても、エスケープしないと500エラーで
画像が×どころじゃないだろ

**nobodyさん** · 03/07/25 21:46

釣りで処理する回答者はいらね。

**nobodyさん** · 03/07/25 21:49

第1問はここまで

>>86さん　2点
>>87さん　5点
>>88さん　0点
>>89さん　10点

もうちょっとがんばりましょうね

**nobodyさん** · 03/07/25 22:04

>87,>89
ダブルクォーテーション内のシングルクォーテーションを、しかも２個の内一つだけエスケープして意味あるのか？
>85はただの間違い探しだろ。

**nobodyさん** · 03/07/25 23:21

$log .= qq{<img src="$imgs/seee.png"><br>\n};

これで何点貰えるのかなぁ。

**nobodyさん** · 03/07/25 23:31

どこにシングルクウォーテーションがあるのかぜひ教えてもらいたいものだ

**nobodyさん** · 03/07/25 23:32

クォー
の間違いだ。ｽﾏｿ

**nobodyさん** · 03/07/25 23:44

ここはクイズスレになったのか？

**nobodyさん** · 03/07/25 23:45

>>94
>>85をよく見ればわかる。一見ダブルに見えるシングル2個連続。

85 · 03/07/25 23:59

>>93
おお！
とりあえず、それで出来ました。
これで道は開けます。
どうも有り難うございました。

43 · 03/07/26 00:58

>>67-68
ありがとうございました。そうかreadlineか。PERLFUNCを読み直して
すっきりしました。

比較演算子は逆ですね。($count-- >　0)ですよね。

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

>>98
お前>>85のソースはコピペしたのか？
あと出力結果のHTMLソースは眺めたのか？

**nobodyさん** · 03/07/26 03:55

perl5.005からしか使ったことがなかったのですが、
perl5.003の環境で使う状況になってしまいました、
5.003で使えない表現を纏めるにはどこをみれば良い
でしょうか？
また、HTML::Templateをつかいたいのですが、
対応していない表現が多いようで使えません。
書き換えることでつかえるようになるでしょうか？

**あぼーん** · NG

あぼーん

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

>>101
perl -D

なんちて。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

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

perlのインデントとhtmlのインデントについて皆様の意見を聞かせて頂きたいと
思っております。

昔C言語を少しだけ使っておりまして、その習性に引きずられてか、htmlを作るときは
何となくインデントさせていました。例えば
<HEAD>
　<META HTTP-EQUIV="content-type" CONTENT="text/HTML;charset=euc-jp">
　<TITLE>title</TITLE>
</HEAD>
の様にですね(無駄といえば無駄なんでしょうけど…)。

そして上記のhtmlをperlで出力させる際には、
#!/usr/bin/perl
print "　<HEAD>";
print "　　<META HTTP-EQUIV=\"content-type\" CONTENT=\"text/HTML;charset=euc-jp\">";
print "　　<TITLE>title</TITLE>";
print "　</HEAD>";
等と書いてインデントされた状態のhtmlが出力されるようにしていました。

しかしif文やfor文内にてhtmlを出力する処理となった場合等、perlのソースを
インデントさせて、そこでまたさらにインデントされたhtmlを出力するために
文字列を記述していくと、なんだか非常に見づらいソースになってしまうように
感じてしまいます(ソース内でhtml部分のインデントが一致しない等)。

今後メンテするのはperlのソースなので、perlのソースとして読みやすいものにすれば
よいと思うのですが、かといって出力であるhtmlが読みづらいとメンテが大変であるとも
思います。皆様どのように考えて作られてますでしょうか?

**106** · 03/07/26 11:42

すみません、自己レスで一部修正します。
> print "　<HEAD>";
print "<HEAD>";
ですね。
ソースからコピペして、インデントを全角スペースにする時に間違えました…

**nobodyさん** · 03/07/26 11:46

print でスタティックに html を出力するよりは別ファイルにしたほうがよくないか？

**nobodyさん** · 03/07/26 12:01

俺はperl自体の記述がもっとも見やすいようにしてる。
ループとかでテーブル生成、とかそーゆー時は、出力したところが見やすいようにする。

で、最終的にプログラムが完成し、出力するHTMLが意図した通りになったのを確認したら、
出力時のタブや改行などは全部消す（出力直前に正規表現で）。
文字のスペースは全て＆nbsp；を使ってるからスペースも消す。