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

**あぼーん** · NG

あぼーん

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

分解数がわからないsplitの場合、

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

$i = 0;

while($name =~ /\\/g){
$i+=1;
}

@match = ();
for($n=1; $n<=$i+1; $n++){
$a = '$path'.$n;
push(@match,"$a");
}

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

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

がんばってこんな感じになりました。
けっこう長いです・・サブルーチンになりそう・・・
もっと簡潔な方法あれば教えてください。

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

すんません。
$a = '$path'.$n;
push(@match,"$a");
これは、
push(@match,"%n");に変えます。

配列の全値をjoinでスカラ($match)に代入
そして、($match) =split・・・・
ってやるつもりだったんですが、$matchが展開されないってことに気づいて、
リファレンス良く見ると、そのまま配列でsplitできることがわかって、
$pathっての消すの忘れてました。

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

×　%n
○　$n
何回もすいません。

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

>>234

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

これを読め。結局何がしたのが伝わってこない

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

×結局何がしたのが伝わってこない
○結局何がしたいのか伝わってこない

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

>>237
簡潔な方法がないか聞きたかったんです。
けっこう長いから・・・

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

>>239
簡潔な「何をする」方法なのか？

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

ここは、エラーがどうしても消えなくて、助けをほしい人がくるスレなんですね。
簡略なソースを求めるスレでないんですね。
どうもすいませんでした。

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

>>241
分かればよろしい。

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

どんな結果を言葉で示してくれないと答えようがない。
ただ単にソースをダラダラ書かれても困るだけ。
このスレの解答者はソース解析屋でもないんだから

**あぼーん** · NG

あぼーん

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

デバッガ付きのPerl処理系ありますか？
ErrorメッセージがInternal Server Errorだけじゃ捗りませんよね。

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

perl -d

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

>>243
ええと、このソースは、フォームから「文字列」と、「分解の基準になる文字列」（なんか分かりにくいかな・・
split(/aa/,"")←ここのaaの部分です。
で、フォームからだと、だれがどんな文字列もってくるかわからないでしょ？
だから、当然分解数も違う。
それで、分解数がはじめから分からなくても、ちゃんとsplitで分解する
っていうのが上のスクリプトなんです。

あぁ、説明下手で伝わらなかったらｺﾞﾒﾝ

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

なんかダラダラ書いてるから日本語おかしくなってる・・・
4行目の「で」は「受け取って、splitで分解するスクリプトなんです。」ですね・
なんか日本語変になってる

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

日本語の解析も必要みたいです。

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

>>248
とりあえず、年齢とPerl歴、日本語歴をお書きになってください。

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

ごめんなさい。書き直します。

>>234のスクリプトは、フォームから「文字列」と「分解の基準になる文字」を受け取って、
それをsplitして表示する、というものです。

でも、フォームから送られてくるのは人によってまちまちだし、当然分解する数も違うので、はじめっから
($a,$b) = split(/$bunkaimojiretu/,"$mojiretu");なんてできません。
だから、上のようにまず、whileで「分解の基準になる文字列」の数を調べて、
次に、その数＋1個分の値がある配列を作ります。
そして、その配列を分解

こうすれば、分解数がわからなくても、ちゃんとsplitしてくれる、そういうスクリプトです。

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

それで、自分なりにがんばってみて>>234ができあがったわけなんですが、
どうもソースが長いなぁ、と思い、簡略化できないかと聞いてみた次第です。

お手数かけてすみません。これでマシな日本語になりましたか？

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

>>251
なんでそんなことをする必要があるのか全然わからん。

@pairs = split /\&/, $STDIN;
foreach ( @pairs ) {
($k, $v) = split /=/;
$form{$k} = $v;
}

これでは何故いかんのか？

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

>>234

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

foreach (split(/\\/,$name)) {
print "$_<br>";
}

もう飽きた。

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

>>252
うん。よくわかった。

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

$STDIN???
僕がやっているのは、ブラウザからなんですよ。DOS窓じゃないんです・・・

**213** · 03/07/30 00:30

収束してから書き込もう…

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

split(/\\/,$name)は\で区切った配列になるのだ。

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

>>254
えと、この場合は、フォームからの文字列が、たとえば「c:\windows\system32」の場合の話ですよ～
ってことです。
なにも言ってなくてｽｲﾏｾﾝ。

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

そうですね。この場合は、ちゃんと
split(/$cut/,$name)くらいにしておけばよかったです。
誤解を招くようなこと書いてすいません。

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

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