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/30 00:33

>>260
おまい、どんどん頭よくなっていくなぁ・・。

**234** · 03/07/30 00:33

すいません。
初めの一行に「フォームからの文字列(c:\windows\system32)、分解の基準の文字(\)の場合の例」
と、一言かいておければよかったです。
無駄なレスさしてほんとに申し訳ないです。。

**nobodyさん** · 03/07/30 00:34

>>256
その台詞で貴様の技能がどの程度かよくわかった。
標準入力からだろうがブラウザからだろうが入力は入力だろうが。応用の利かない阿呆が。

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

>>263
はぁ、ｱﾌｫだ。STDINなんかcgiで使えるわけないだろ、氏ね

**234** · 03/07/30 00:37

>>263
え？STDINって、DOS窓じゃなかったんですか？
フォームのデータは、ReadParse使って、変数に格納してる状態なんですけど・・・

**234** · 03/07/30 00:37

もしかして、POSTの場合の、フォームの受け取りのことを言っていたんでしょうか？

**nobodyさん** · 03/07/30 00:38

264nobodyさんsage03/07/30 00:36 ID:???
>>263
はぁ、ｱﾌｫだ。STDINなんかcgiで使えるわけないだろ、氏ね

**nobodyさん** · 03/07/30 00:40

234 の混乱ぶりが面白いｗ

**234** · 03/07/30 00:43

253の言いたいことがようやくわかりました。
標準入力、GETの場合は？以降を、分割するってことを言っていたんですね。
そういうことではないんです。
フォームから、好きな文字列とキーの文字を送ってもらって、
そのキーで「文字列」を分解するってことです。
GETの場合でいうと、
?moji=c:\windows\system32&key=\
それで、この「\」で「c:\windows\system32」を分解したいんです。
?moji=aiueo,kakikukeko,sasisuseso&key=,
こんなことです。

**nobodyさん** · 03/07/30 00:46

>>269
だから応用できるだろって言ってるだろ。

**nobodyさん** · 03/07/30 00:47

俺、未だに 234 が何をしたいのか良く解らないんだけど…

> 初めの一行に「フォームからの文字列(c:\windows\system32)、分解の基準の文字(\)の場合の例」

要は、ある文字列を分解の基準の文字で分解してリストにしたいって事？
split でいいんじゃねーの？って思うが、肝心な「期待しているリストにはこう入って欲しい」
みたいなこと書いてねーからさっぱり解らん

**nobodyさん** · 03/07/30 00:53

234のしゃべりとスクリプトがそっくりでおもしろい。

**234** · 03/07/30 00:53

>>271
そういうことです。
それで、「ある文字列」も、「基準の文字」も、「何分割される」かも、分からない、という状況で、
どういうスクリプトで処理したらいいかといろいろ試行錯誤して、上のスクリプトができました。
それで、このスクリプトは正しいのか？、もっと簡単にできるんではないか？と思いまして、聞いてみました。

**nobodyさん** · 03/07/30 00:56

で、@match にはどう入って欲しい訳？
君はその事について未だ何も記述してないね

**234** · 03/07/30 01:00

>>274
@match = split(/$kijun/,"$data")って処理されるわけですから、
基準の文字の数＋1が必要な値になりますよね？
たとえば、\で切る、データが「a\b」だったら、2個という具合で。

だから、
@match = ();
for($n=1; $n<=$i+1; $n++){
push(@match,"$n");
}
ここで、その数だけ、配列の値を・・・・・・・・・・
あら、もしやこれ不要なんでは・・・
まさか、いらない・・・
あぁ、いらないんだ。。。
そーだったのか、ｱﾌｫなことをした・・・・

**234** · 03/07/30 01:02

あっはっは

$name = 'c:\windows\system32';

@match = split(/\\/,$name);

foreach $col (@match){
print "$col<br>";
}

これでいけたわ
すまんな、

**254** · 03/07/30 01:04

>>276
それ俺が書いたまんま…

**234** · 03/07/30 01:05

いやぁ、@matchってのは、splitで分割する数だけ値をいれてやらないかんと思っとったんよ。
でも、良く考えると、
push(@match,"$n")って、値がはいってるのに、
なんでc:とか変わってるのかと思ったら

あっはっは

**nobodyさん** · 03/07/30 01:05

>>277
ご愁傷様……(;´Д｀)

**234** · 03/07/30 01:06

よーするにだ、
@aaa = split(/$aa/,$bb)
ってすりゃぁ、
勝手に@aaaの値の数が調節されるんだな

あっはっは
すごいな、パールって

あっはっは

**234** · 03/07/30 01:08

ほんとにすまんな、みんな
あっはっは

えらい迷惑かけちまってあっはっは

パールってのはすごい言語だ
あっはっは

俺としたことが・・

みんなこれ知っててだまってたんだろ？

まったく、恥かくぜあっはっは

**234** · 03/07/30 01:10

しかも>>254のって
foreach (split(/\\/,$name)) {
だったんだな
なんかほかの物に見えたよ。

この時点で答えでてんじゃん
あっはっは
俺ってどんくさいな

**nobodyさん** · 03/07/30 01:11

次の方お待たせ。

↓

**nobodyさん** · 03/07/30 01:11

アハハ吊られたね。

では次の質問どーぞ！

**nobodyさん** · 03/07/30 01:16

>>282
おまい、Ｃのやりすぎだ。

**234** · 03/07/30 01:19

確かにそうかも、
授業でCあるからな・・

**nobodyさん** · 03/07/30 01:19

>>286
配列の大きさとか初めに宣言しなくていいのばペールですよ＾＾；

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

すみません、「<>;」ってどういう意味なんですか？

**nobodyさん** · 03/07/30 01:32

<ARGV>

**nobodyさん** · 03/07/30 01:33

<^ ^;>

**nobodyさん** · 03/07/30 01:58

>>290
おぉ、コンパイルとおるぞ。

**213** · 03/07/30 01:59

>>215 ぐぐったけど敷居が高そう。今後の課題にします。
>>225 <>で入力完了を待ってシグナルを発生させるみたいです。

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

>>288
@ARGVがあれば、@ARGVが行入力演算子に割り当てられ、
@ARGVが空ならSTDINが割り当られる。

代入先がないので、読み出して捨ててる。
STDINが割り当てられたのなら、STDINを一行読み飛ばしている。
STDINにターミナルデバイスが割り当てていれば、一行待って、中身を捨てるということに。
(単なる改行待ち)

>>292
キーボードに関してはperldoc -q keyで、faq5辺りに情報が載ってますよ。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#How_can_I_read_a_single_characte

**292** · 03/07/30 03:18

>>293 謝謝　ちと勉強してみます

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

cgiproxyの動作は
アクセスがあったらその間だけ
proxyサーバとして動作させ、目的のページを吐き出したら
proxyサーバを終了させる。といった感じですか？
それともproxyサーバとcgiproxyは別の原理ですか？

**nobodyさん** · 03/07/30 03:31

すいません。
Perlのことで質問したいのですが。
変数名の一部に変数の中の数字を埋め込んで
その変数名を代入したいのですが
どのようにいくのでしょうか？
ちょっと、言葉では分かりにくいので例を挙げると
例えば、$a1 $a2 $a3という変数があって
$bの中に１～３のいずれかの数字が含まれているとし
この$bの中の数字を変数名として使いたいのです。
これを
$c = '$a' . "$b";
といった感じでやれば$aの方はそのまま文字列として出て
$bの方は変数の中身が展開されて出ると思ってやってみたのですが
エラーが出てしまいます。

どなたかお助けください。
よろしくお願いいたします。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/30 03:57

print ${'a'.$b};

**nobodyさん** · 03/07/30 06:20

>>296
ハッシュか配列を使う。

**nobodyさん** · 03/07/30 10:34

↑答えもう出てるだろ(　´,_ゝ`)ﾌﾟｯ

300 GET ⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡

**nobodyさん** · 03/07/30 10:34

こういう、変数名自体を動的に云々っていう質問よく見かけるけど、
なんでそういう発想になるんかね。
他の言語じゃそういう質問見かけないんだが（ないことはないと思う）。
やっぱソフトリファレンスのせいなんだろうか。

**nobodyさん** · 03/07/30 11:00

>>296
> すいません。
> Perlのことで質問したいのですが。
> どのようにいくのでしょうか？
> ちょっと、言葉では分かりにくいので例を挙げると
> どなたかお助けください。
> よろしくお願いいたします。

読みにくくなるだけだから無駄に6行も余計なことを書くな

**nobodyさん** · 03/07/30 11:03

>>301
リファレンスとかじゃなく、単に発想がおかしいだけなんじゃない？

**nobodyさん** · 03/07/30 11:36

ソフトリファレンスは悪です・・・

まぁ、ちゃんと変数の整理が出来てないつーのと、変数のスコープを理解してないってことじゃないだろうか・・・

**nobodyさん** · 03/07/30 11:53

Perlはその辺を逐一理解してなくても扱える言語だからな。
それはPerlの優秀な点である。
その分ユーザーのレベルが下がるのは仕方がない。

**nobodyさん** · 03/07/30 12:32

下手にソフトリファレンスなんてもんがあるせいで、配列やハッシュの有効な使い方を
理解しないまま進んでしまうんじゃないかな。

**296** · 03/07/30 13:22

質問にお答えくださってありがとうございます。

print ${'a'.$b};
だとスカラ変数だとうまくいったのですが
配列の変数だとうまくいかないようです。

$sen1[] $sen2[] $sen3[]という変数があって
$randaに1～3という値が入ていて
print("{${sen$randa}[$i]}");
のように書いたのですが、どうもうまくいかないみたいです。

**nobodyさん** · 03/07/30 13:43

＞"{${sen$randa}[$i]}"
ヽ(*｀Д´)ノ　むちゃくちゃやんけー！

**nobodyさん** · 03/07/30 14:05

>>304
モジュールまたがってソフトリファレンス使ってるソースを見たことがある。
最初どこから変数が湧いてくるのか理解できなくて気絶するかと思った。
……って、これはマ板ネタか。

>>307
勉強しなおした方が良いと思われる。

**296** · 03/07/30 14:09

>>308-309
Perlは今回初めての仕様で、まだ慣れてないんで
お許しください。
外の括弧で囲めば、配列の[]が文字列として認識されずに済むと
聞いてやってみたのですが
もしかして、これはPHPの文法でしょうか？

**296** · 03/07/30 14:10

仕様→使用でした

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/30 15:13

ほれ、
print ${'sen'.$b}[$i];

あと >>299 >>304 >>306 >>309 を１０回ずつ声を出して読んで！！
お帰りはこちら　↓
http://www.google.co.jp/

**nobodyさん** · 03/07/30 15:17

>>307
> $sen1[] $sen2[] $sen3[]という変数があって

ってのは@sen1, @sen2, @sen3ってことか？
perlの配列がわかってれば、こんな書き方にはならないと思うのだが。

${'a'.$b}という回答を貰っておいて${sen$randa}[$i]はないだろ……。

print ${'sen' . $randa}[$i];

**nobodyさん** · 03/07/30 16:38

初心者質問失礼致します。

if(!open(FH, ">>file")){ print 'file open error'; }
else{
　　flock(FH, 2);
　　print FH 'abcde';
　　close(FH);
}

このように追記モードの場合、flockは必要になるの
でしょうか。

**nobodyさん** · 03/07/30 16:50

うん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/30 17:09

>>315
モードに関係なく必要なときは必要だと思うが。

**nobodyさん** · 03/07/31 03:15

>>318
お返事有難うございます。
ロック使うことにしました。
有難うございました。

**nobodyさん** · 03/07/31 05:53

readline,<FH>を使ってデータを取り込みたいのですが、
上（最初）から順ではなく、下（最後）から読ませることは出来ませんか？

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

>>320
無理ぽ
あとはPerlメモ嫁

**nobodyさん** · 03/07/31 07:08

了解　seekで頑張ります
有難うございました。

**nobodyさん** · 03/07/31 10:39

unshiftしたらえんちゃうんかと

**nobodyさん** · 03/07/31 10:44

>>323βακα..._〆(ﾟ▽ﾟ*)

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 12:08

use Time::Local;

$t = time;
print "UTC =", timegm( gmtime( $t ) ), "\n";
print "UTC =", timelocal( localtime( $t ) ), "\n";

gmtime とか localtime で返してくる値を time で
返す値の形式に戻すコードってこんなんでいい？

テストしたら一応２つとも同じ値返す様になったけど…。

**nobodyさん** · 03/07/31 12:56

希望通り動いてんのならここで聞かなくてもいいでしょ。
誰かのお墨付きが欲しいの？

**nobodyさん** · 03/07/31 13:18

いや、ちょっと自信が無かっただけ…。
UTC の解釈もチョット間違ってたし＜自分

**nobodyさん** · 03/07/31 13:32

戻すと言ってもそれじゃ無意味だしな

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 13:55

$t = 10.2 - 10.0
のような小数計算で$tに正しく答が代入されないのはなぜですか？

**nobodyさん** · 03/07/31 14:11

↑確認の方法どうやってるの？それが、間違ってるような気がするが

**nobodyさん** · 03/07/31 14:19

>>334
不動小数点数の精度の問題ですね。
一般に小数の最後の桁は信用できません。

**336** · 03/07/31 14:22

浮動小数点です。

**334** · 03/07/31 14:29

>335
代入して、htmlに書き出すだけです。

>336
そうなのですか…
遠回りですが整数でやることにします。ありがとうございました。

**nobodyさん** · 03/07/31 14:55

cgi内部で外部cgiファイルを起動する方法を教えてください。

HTMLだと、<img>タグを使ってたのですが、
<img src="./hoge.cgi">

CGIファイルだと、これがうまく起動されないわけです。
print "<img src=\"./hoge.cgi\">";

どうしたら良いでしょうか？ご教授お願いします。

**nobodyさん** · 03/07/31 15:58

>>339 さま、>>1 をお読みください

**nobodyさん** · 03/07/31 16:11

>>340
当たり前ですがエラーはでません。
起動したいファイルから吐き出しファイルが更新ができないだけなので、
どう質問したらいいでしょうか？よろしくお願いします。

って340じゃ無理か。(w

**nobodyさん** · 03/07/31 16:20

>>339
CGIから別のCGIを呼び出して、その出力を利用したいという事か?
お前の質問からそれを読み取るのは著しく困難だし、態度悪いから教えない。

**nobodyさん** · 03/07/31 16:54

>>339
ﾊﾞｶだね～

**nobodyさん** · 03/07/31 17:07

おちえない

**nobodyさん** · 03/07/31 17:22

>>341 さま、>>1を1200回ほどお読みください

**nobodyさん** · 03/07/31 20:52

>>339
いやもう見てて哀れだよ。
自分がたたかれてる理由がわからない奴ってのは。
しかしここで教えるとためにならんしなあ。
辛いところだ。

**nobodyさん** · 03/07/31 21:26

だいたいそのCGI、直接叩いてちゃんと出力するんかい。
んでエラー吐かんのは当たり前なんかい。
ちゃんと動かんかったらエラー吐くようにしとらんだけやんか。
それがあんたにとって当たり前なら、あんたの書いたコードは書いた通り
正常にうごいとるわけで、プログラムはなんも悪くないとオモーヨ。
はぁ

**nobodyさん** · 03/07/31 21:31

おもろい

**nobodyさん** · 03/07/31 21:44

自演ウザ。(*^｡^*)

**nobodyさん** · 03/07/31 22:18

ちょっとした煽りにいちいちキレてるような奴は、真面目に回答してくれた人に対しても
そういう態度を取る可能性があるからね。
思い通りに動作しなかったり、質疑応答が長引いて耐え切れなくなったときに。

お互いがイヤな気持ちにならないためにも、そしてスレのためにもそういうアフォな質問者は
さっくりと無視しましょう。

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

if ($a>1)
　　if ($a<10)

これを

if ($a>1 && $a<10)

と書くような技法を何ていうんでしたっけ？知ってる人教えてください。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 22:47

自演うぜー。まじで。
いやなら無視すりゃいいのに。

**nobodyさん** · 03/07/31 22:57

結合演算子を使う技法ｗ

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

ていうか名前なんてあるのか

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

２行を１行にする技法

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

>>354
自演？
心配すな。
おまいも端役のひとりじゃ

**nobodyさん** · 03/08/01 00:33

>>354
>>339必死だな。

**nobodyさん** · 03/08/01 04:02

>>351
トリビア技法