【Perl 】初心者コーナーPart8

**名無しさん＠お腹いっぱい。** · 01/10/24 14:11

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

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50

過去ログ、その他の役立ち情報は>>2-10を見よう。

01/12/23 15:35

>>866

Perlでメモリーを気にするのはナンセンス

**名無しさん＠お腹いっぱい。** · 01/12/23 15:43

>>860

returnって関数なの？

**868** · 01/12/23 15:45

うわ!本当だ。あれの237ページに組み込み関数として載っていた(汗　

**名無しさん＠お腹いっぱい。** · 01/12/23 15:46

>>868 んなわけない。

**名無しさん＠お腹いっぱい。** · 01/12/23 15:47

>>870

いや、関数らしいぞ。プログラミングPerl改訂版(JP)の237ページに載っている。

**名無しさん＠お腹いっぱい。** · 01/12/23 15:51

useもrequireもlastもnextも関数かよ。なんだこの言語は・・・・

**名無しさん＠お腹いっぱい。** · 01/12/23 15:51

>>871 なぜかperldoc perlfuncにも載ってるね。さすがPerlだ(w

**名無しさん＠お腹いっぱい。** · 01/12/23 15:56

>>872 gotoも関数だね。q//関数に至っては、もはやPerlにおける「関数」ってのは
他の言語とは意味が違うとしか思えないよ。

**名無しさん＠お腹いっぱい。** · 01/12/23 15:58

>>874

ifやforも関数にすればよかったのにね。 (w　

**JAPU** ◆JAPUTeX. · 01/12/23 16:05

>>867
過度にメモリを気にするのはナンセンスだけど、ある程度は考えようぜ。(苦笑)
(>>866 の場合は while 使うのが吉。)

**名無しさん＠お腹いっぱい。** · 01/12/23 23:28

return関数とかgoto関数とか言うと
突っ込み隊が一杯釣れそうだな　(・∀・)

**名無しさん＠お腹いっぱい。** · 01/12/24 01:49

LWPで代理サーバを使う事は出来ますか?
まだドキュメント読んでる最中なんで、可否が解れば幸いです　^^

**JAPU** ◆JAPUTeX. · 01/12/24 03:13

>>878
"proxy" を検索すれば0.3秒で分かります。

**名無しさん＠お腹いっぱい。** · 01/12/24 04:33

チャットや掲示板を軽くする方法ってないでしょうか？

**名無しさん＠お腹いっぱい。** · 01/12/24 05:44

>>880
有るか無いか聞いてどうすんの？
＞いらっしゃーい、perlのコーディングで困ってる人のスレです。
　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

**名無しさん＠お腹いっぱい。** · 01/12/24 06:24

forkで生成するプロセス数を制限するのに
常套手段って有りますか
例えば上限を5とすると、5を超えるとsleep秒待ってリトライ
と言う感じで実装したいのです

**821@v（・ｖ・）v** · 01/12/24 08:10

_gunzipさんどうもッス、xsって何だそりゃと思って読んでなかったっす
Socket.xs、ちょっと開けて読んでみましたけど、難解ですねー
と言うかこれってスパゲッティー？
頑張りますー　、ありがとうっす。

**名無しさん＠お腹いっぱい。** · 01/12/24 15:39

ＳＳＩでクッキーを食べさせる方法っていうのがあると聞いたのですが、
具体的な方法をご存知の方がいらっしゃいましたらご教授お願い致します。

**名無しさん＠お腹いっぱい。** · 01/12/24 16:03

>>884
JSで書き出せば可能かと。

**名無しさん＠お腹いっぱい。** · 01/12/24 16:10

>>884
何でSSIなん? つーかJavaスクはWEB製作だろっつの >ム板さん
Googleで「Javascript」「Set-Cookie」で検索してヒットしたものを
SSIでexeccmdすれば良いの、ソースは検索すれば１００万件位出てきます　

**田イ戈** · 01/12/24 17:44

>>885 の方法か、あるいは

<meta http-equiv="Set-Cookie" content="cookiename=cookievalue">

か。Perlとは関係ないのでスレ違い。
JavScript を execcmd って何だろう？

**名無しさん** · 01/12/24 17:56

SSIでって言ってるのに
<meta http-equiv="Set-Cookie" content="cookiename=cookievalue">
って何だろう？

**名無しさん＠お腹いっぱい。** · 01/12/24 18:01

厨房が厨房に答える、これ最強

**886** · 01/12/24 18:31

へ? SSIでベタ文字includeするの>>887
>>888 >>889 煽るなー

**884** · 01/12/24 21:50

書き方が下手ですみません。
execcmdでパールで作ったＣＧＩを呼び出すのですが、
それをクッキーに食べさせる方法を聞きたかったのであります。

ＪＡＶＡスクリプト使うか
<meta http-equiv="Set-Cookie" content="cookiename=cookievalue">
を使えばいいのですね。
ＪＡＶＡスクリプトはまだやったことがないので
後者を使ってみます。

どうもみなさんありがとうございましたm(__)m

**名無しさん＠お腹いっぱい。** · 01/12/25 00:55

while(<FILE>){~~~;
てやるのと@data = <FILE>
とかに代入して処理するのだと@dataの方が
メモリ使わなかったりするのですか？

**892** · 01/12/25 00:59

間違えました。
@dataの方がメモリ使ったりするのですか？

**名無しさん＠お腹いっぱい。** · 01/12/25 01:02

>893
します。

**名無しさん＠お腹いっぱい。** · 01/12/25 01:04

>>893
少し上のレスくらい読んでみたらどーよ。

**892** · 01/12/25 01:19

>894-895
どうもありがとうございます。

読んでたんですけど、低次元なレベルなもので
代入だと別なのかも･･･と思いまして。

**892** · 01/12/25 03:25

あ、あと
WHILEで処理してる間に（これは読み取りのみで開いた）
別の処理が書きこみしても大丈夫でしょうか？
例えば

#処理１
open (FILE,./file.dat)
while(<FILE>){～～～;}
close FILE;

#処理2
open (FILE,">./file.dat")
print FILE $hogedata;
close (FILE);
みたいな感じでAさんが処理1をやってる場合に
Bさんが処理2をやるというのは問題無いですか？

**892** · 01/12/25 03:27

あっ、訂正
close (FILE);です。

**名無しさん＠お腹いっぱい。** · 01/12/25 04:08

問題無いですよ好きなようにやって下さい

**遅いか** · 01/12/25 07:28

>>892
ファイルハンドルはリストコンテキストだと全てを(メモリに)読み込み
スカラーコンテキストだと一行読み込みます。
foreach(){}の()とか配列、リストを左辺に置く代入文は右辺は
リストコンテキストで評価されます。
面倒なときはscalar(オブジェクト)で強制的にオブジェクトをスカラーで評価できます。
while(<IN>){}は$_=<IN>の省略なのでスカラー評価でメモリは抑え目です。

**名無しさん＠お腹いっぱい。** · 01/12/25 07:44

>>897
問題ある。
同時に１つのファイルを読み書きすると
おかしなデータを読み込むかもしれない。
処理１側で @data = <FILE>; とやっていてもダメ。
flock関数について調べると吉。同時に読み書きできないようにできる。

蛇足だけどPerl5くらいから，組み込まれたり事前に宣言されている関数は
open FILE, '> ./file.dat';
close FILE;
みたいに ()無しでも使える。

**ｲﾔｰｿ** · 01/12/25 12:56

()なしで書くのってなんかイヤ

**名無しさん＠お腹いっぱい。** · 01/12/25 16:46

配列の中に1,2,3という数字があったとする。
それを順に並び替えて（123、132、213、231･････のように）
全パターン出力する書き方を教えてください。
よろしくお願いします

**名無しさん＠お腹いっぱい。** · 01/12/25 17:17

@ary=sort(@ary); # 分からない時は関数を検索しよう

**903** · 01/12/25 17:27

sortで全パターンが出力されるのですか？

@a="A","B","C";
を
画面上で
ABC
ACB
BAC
BCA
CAB
CBA
の表示させたいのです。

よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/12/25 17:36

>>905
それってPerlの話？それともアルゴリズムの話？
Perlの話なら、とりあえず疑似コードかCでアルゴリズム書いてみ。

**名無しさん＠お腹いっぱい。** · 01/12/25 17:37

Googleに行ってprintを検索しろ
もし分かったら二度と戻ってくるな
もし分からなかったらお前は正真正銘完全完璧にプログラムには
向いてないからやっぱりもどってくるな、諦めろ

**名無しさん＠お腹いっぱい。** · 01/12/25 17:43

ここまで来るとおちょくられてるとしか思えんな（笑

**名無しさん＠お腹いっぱい。** · 01/12/25 17:46

#!/usr/local/bin/perl

&permutation( [], 1 .. 999999 );

sub permutation{
　　my $stack = shift;

　　unless( @_ ){
　　　　print "@$stack\n";
　　　　return;
　　}

　　for( my $i=0; $i<@_; $i++ ){
　　　　push @$stack, $_[$i];
　　　　&permutation( $stack, @_[0..$i-1], @_[$i+1..$#_] );
　　　　pop @$stack;
　　}
}

何で皆怒ってるの？

**名無しさん＠お腹いっぱい。** · 01/12/25 17:46

907は何か勘違いしているとか。

**903** · 01/12/25 17:46

全通り並び替えとprintとどこが関係あるの？
はてはて？

**名無しさん＠お腹いっぱい。** · 01/12/25 17:49

>>907
お前みたいに相手の言っていることも性格に読み取れないようなヤツは
正真正銘完全完璧にプログラムには向いてないからやっぱりもどってくるな、諦めろ（p

**デフォルトの名無しさん** · 01/12/25 17:53

悲惨な人たちですな　

**名無しさん＠お腹いっぱい。** · 01/12/25 20:23

Win32で動くPerl v5.6.1を自分のパソコン（Win98）で使ってるんですけども、
NET::FTPモジュールが入ってるかどうか確認するにはどうしたらいいでしょう？

**名無しさん＠お腹いっぱい。** · 01/12/25 20:31

ftp鯖のアドレスとユーザーIDを入力してスタートボタンを
押すとﾊﾟｽｸﾗｯｸしてくれるCGIの作り方教えて

**892** · 01/12/25 20:45

>>901-902
レスありがとうございます。
度々申し分けないのですが、
#処理１
open (FILE,./file.dat)
while(<FILE>){～～～;}
close FILE;
～～～～～～～～; #この処理は重要では無いので
～～～～～～～～;　#処理1で空データを読み取ってしまっても構わない
#処理２
open (FILE,./file.dat)
while(<FILE>){～～～;}
close FILE;

#処理３
open (FILE,">./file.dat")
print FILE $hogedata;
close (FILE);

上のような一連の流れの場合、処理１ではそのまま読み取って(ロック無しで)
処理２で再度読み取り、この読み取ったデータを元に処理３で
ファイルに書きこむ場合は処理2の前でロックすれば良いのでしょうか？

あと私の覚えてる範囲だとロック処理を行う理由は
別のユーザーが実行したプロセスが
ユーザー１のプロセスがファイルに書きこんでる最中に
ユーザー２が読み取ると空のデータを読み取ってしまい
このデータを元にファイルに書きこむと空データになってしまう。
それを防ぐためにロック処理をしてる。
と覚えてるのですが、他にも理由というのはあるのですか？

01/12/25 21:37

書き込みに影響ある範囲で、だからいいんじゃないの？
スクリプトの内容がよく分からんけど

**名無しさん＠お腹いっぱい。** · 01/12/25 22:57

何だか意味が分からないけど、lock(少なくともflockシステムコール)は
ただの紳士協定です。
有るプロセスが排他ロック(LOCK_EX)すると他のプロセスは排他ロック(LOCK_EX)
が出来なくなるだけで、共有ロックは勿論、読み込みも書き込みも自由に出来るということです
今書いてるのはCGIみたいですが、ややこしければ深く考えずに2行目でロックして
exitする前にアンロックでも大抵は十分です

**名無しさん＠お腹いっぱい。** · 01/12/25 23:00

>917
そうですか。スクリプトの内容というか、
よく上のような場面の処理1で、ロックがかかってるか
調べてから読み取った方が良いのかな？
と考える場面があったので(mkdir方式でロックしてます)
レスありがとうございます。

**名無しさん＠お腹いっぱい。** · 01/12/25 23:00

あ、もし秒間1000回アクセスとか
処理時間1分とかなら別ですよ　:-)

**名無しさん＠お腹いっぱい。** · 01/12/25 23:16

>>914
perldoc -l Net::FTP
とか
perl -e "use Net::FTP"
など

01/12/26 00:01

>>919
処理１はどうでもいいわけでしょ？
処理２～３で扱うデータとの整合性が必要ないならそれでいい
ただタイミング的に（別プロセスとの関係で）おかしいデータを取り得るって
ことじゃないの？
それがいやなら（＝整合性は要らなくても正しいデータが欲しいなら）処理１の前に
ロックしてしまえと

01/12/26 00:34

print "aa" if $b;
こういう書き方って古いPerl(Perl5よりまえ?)でも使えるんでしょうか?

**名無しさん＠お腹いっぱい。** · 01/12/26 00:46

　　　　 ∧＿∧　　／￣￣￣￣￣￣￣￣
ﾋﾟｭ.ｰ　（　・∀・）＜　わーぃ♪
　　＝〔~∪￣￣〕　＼＿＿＿＿＿＿＿＿
　　＝ ◎――◎ 　　　　　　　　

**名無しさん＠お腹いっぱい。** · 01/12/26 00:51

if修飾子ってPerl5からじゃなかったけ？
それはそうと>>815
できないこともないけど1度やったら捕まるね。

**名無しさん＠お腹いっぱい。** · 01/12/26 00:53

ごめん>>915

**名無しさん＠お腹いっぱい。** · 01/12/26 01:59

ハッシュのキーにパッケージ名を入れたいのですが、どうもうまく書けません。
$hash{__PACKAGE__} = "hogehoge";
だと、"__PACKAGE__"と言うキーのハッシュ値ができてしまいます。
今は、
$packagename = __PACKAGE__;
$hash{$packagename} = "hogehoge";
と2行で書いているんですが、もう少しスマートな書き方はありませんか？

**名無しさん＠お腹いっぱい。** · 01/12/26 02:46

package名っつーことで、なんか特別な事があるのかも知れないけど、
defined $hash{'keyname'}
とかそーゆーんじゃなくて？

**名無しさん＠お腹いっぱい。** · 01/12/26 03:20

>>927
$hash{__PACKAGE__}は　$hash{"__PACKAGE__"}と
等価だから、基本的にはそのやり方しかないんじゃないかなぁ。

$hash{''. __PACKAGE__} =1;とかでもいけることはいけるけど。。。

**名無しさん＠お腹いっぱい。** · 01/12/26 03:42

>>918 >>922
そうですね。
レスありがとうございます。

**914** · 01/12/26 03:52

>>921
ありがとうございます。

**名無しさん＠お腹いっぱい。** · 01/12/26 08:23

>>927
$hash{+__PACKAGE__}

**JAPU** ◆JAPUTeX. · 01/12/26 09:36

>>916 >>918

LOCK_EX されると、LOCK_SH で flock を呼び出したときもブロックされます。
(もちろん、LOCK_NB ビットも立てた場合はそのまま失敗する。)

通常、書き込みを伴う処理については LOCK_EX を、読み込みのみの処理のと
きは LOCK_SH を指定します。これだと、書き込みするときは他のプロセスか
ら読み書き両方できず、読み込みする場合は他のプロセスから読み込みのみ可
能となります。

あと、open FH, "> ..." とした場合はその瞬間にファイルサイズが 0 になっ
てしまうので、ロックする意味がないです。>> とか +< で open しておいて、
truncate とかするのがよい。

蛇足ながら、ファイルをクローズ、またはプロセスが終了した時点でロックは
解除されます。

**名無しさん＠お腹いっぱい。** · 01/12/26 14:44

perlの関数呼び出しはCall by referenceだと思うのですが
func ($foo,$hoge,$poyo,$baz,$biz);
のように長い引き数が有る関数の呼び出しで、func内で@_に入った値を
任意の名前にエイリアスする方法は有りませんか?
少し前まで直接$_[3] = '100'; の様に代入してたんですが、とても読みにくいので
今はリファレンスを貰ってます
でも、これでも参照外しが大変なので、せっかく参照呼出しなのだから
何か良い方法が無いかなと思ってしまって･･･
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/12/26 14:48

さげてしまった　(＾＾；
func内で
my (*foo,*hoge,*poyo,*baz,*biz) = \@_;
の様にして一発でエイリアスを張る事って出来ないですかね。。。

**名無しさん＠お腹いっぱい。** · 01/12/26 15:12

local( *x, *y, *z ) = map { \$_ } @_;

Perl って Call by reference じゃないと思うけど。。

**名無しさん＠お腹いっぱい。** · 01/12/26 15:44

Socketを使うときに相手への環境変数提示は
print S "Referer: $ENV{'HTTP_REFERER'}\r\n";
print S "User-Agent: $ENV{'HTTP_USER_AGENT'}\r\n\r\n";
だけで十分ですかね？
やっぱり全部送ってやったほうが良いでしょうか？
また、そう言う場合もっとすっきりやる方法はありませんでしょうか？

**名無しさん＠お腹いっぱい。** · 01/12/26 15:46

けーすばいけーすでちゅ　（・.・）

**名無しさん＠お腹いっぱい。** · 01/12/26 16:33

{
my ($out, $in1, $in2) = (0 .. 2);
sub foo{

# $_[ $in1 ] と$_[ $in2 ] を使って何か演算をする

$_[ $out ] = $result;
return 1; # 成功
}
}

こんなのはどうだろうな。まぁ馬鹿げているが。

**名無しさん＠お腹いっぱい。** · 01/12/26 16:39

>>934
事前にこんなようなの書いとけばできる。
sub func(\$\$) {
　local($one,$two) = @_;
}

**名無しさん＠お腹いっぱい。** · 01/12/26 17:40

>>933
ひょっとして頻繁に起動されるスクリプトでLOCK_SHを使っている場合，
LOCK_EXを掛けようとすると延々待たされますか？

**名無しさん＠お腹いっぱい。** · 01/12/26 17:48

何でやねん、つーか延々とか頻繁のニュアンスがワカラソ
そんな彼方にはプロセス丸ごと排他を推奨　

**名無しさん＠お腹いっぱい。** · 01/12/26 17:50

>>941
LOCK_SHしてるやつがいなくなるまで待つ。
だからクリティカルセッションはなるべく短めにすること。

**941** · 01/12/26 18:02

>>942-943
ありがとう。やっぱそうなるんですか。
読み込みもLOCK_EXにすることにします。

**927** · 01/12/26 18:21

遅レスすみません。
>>932の方法でやろうと思います。
みなさんありがとうございました。

**934** · 01/12/26 19:03

皆さん速レスありがとうございます、勉強になります。
押し切るとlocal使う事になりそうですね、、、
Call by referenceはCの様に関数間で値をmoveするんじゃなくて、
見かけ上、引き数が呼び出し先に突き抜けてくるという意味で書きました
これはプロトタイプでも解決出来ないですよね、、、、
取り合えずconstな値はローカルにコピーして、書き換える時は@_を直接
書き換えることにします　　(でもやりにくいなぁ･･･

**940** · 01/12/26 19:14

ごめん，写し間違えてた。
sub swap(\$\$) {
　local(*one,*two) = @_;
　($two,$one) = ($one,$two);
}
でリファレンス渡しになる。
使う時はswap($aaa,$bbb); みたいに書く。

**名無しさん＠お腹いっぱい。** · 01/12/26 19:52

>>946
参照呼出しで合ってる、俺も前にちょっと考えてenumしたりしたけど結局大きい変数とかは $_[] に書いてるよ

**916** · 01/12/26 21:06

>>933
>open FH, "> ..." とした場合はその瞬間にファイルサイズが 0 になっ
てしまうので

データが空になる瞬間を間違えて覚えてました。
レスありがとうございます。

**JAPU@コミケも近いですね** ◆JAPUTeX. · 01/12/26 21:15

とりあえず、

LOCK_SH (shared) だけならいくらでも同時に可能。読み込みだけの時はこれ
だけ使っておけ。

LOCK_EX (exclusive) は他のプロセスが LOCK_EX / LOCK_SH しているとダメ。
LOCK_NB (non-blocking) を指定していなければ、他のロックしているプロセ
スがロックをやめるまで待ち続けます。書き込みを伴うときはこれ使っておけ。

説明悪い?

LOCK_SH は LOCK_SH のみと共存可能。
LOCK_EX は LOCK_EX とも LOCK_SH とも共存不可能。

って書いた方がいいのかな。

>>944
なんでそんな結論になるかなぁ...

**941** · 01/12/26 21:46

すいません。
「別のスクリプトから書き込む時にLOCK_EXを掛けようとすると延々～」って書いてたつもりでした。。。

**名無しさん＠お腹いっぱい。** · 01/12/27 02:01

foreach(0..10){
などで0～10まで順に実行している時
0～10の値は何に格納されているのですか？
http://tohoho.wakusei.ne.jp/wwwperl1.htm#Tokushu
ここを見たのですが、乗って無いみたいなので。。。
お願いします。

**952** · 01/12/27 02:06

ちょっと質問違いました！
foreach(@array){
てした時に何回目なのかを格納する変数を教えて下さい。でした。
951だと$_
てなっちゃいますね。すいません。

**んとねんとね** · 01/12/27 02:22

ない、いじょ

**名無しさん＠お腹いっぱい。** · 01/12/27 02:27

無いのですか!?
これだけいろいろな特殊変数があるのに！意外だ…。
ではforeach(@array){
$tmp++;

とやって数えるしかないのですね。。。なるほど。
即レス感謝です。
ありがとうございました。

**かもかも** · 01/12/27 04:31

@a= qw(1 5 2);
for ( $[ .. $[+$#a ){
print "id= $_, value= $a[$_]\n";
}

**名無しさん＠お腹いっぱい。** · 01/12/27 05:20

>>956
なるほど～。変数では無いですけど、
そういう方法もありますね。
# $[+$#a
# ここでなんで$[を足すのかがまだわからんですけど
レスどうもです。

**かもかも** · 01/12/27 05:26

配列のインデックスを0からとか1から始めるとかを設定するのが$[変数
なのでR！

**名無しさん＠お腹いっぱい。** · 01/12/27 05:40

かもかも、ｶｺｲｲ♥

**名無しさん＠お腹いっぱい。** · 01/12/27 09:06

$count++; して数えとけ。

**そろそろ次スレを・・・** · 01/12/27 09:38

$［って今は使われて無い（というか、使うなと言われている）変数だから、この場合は素直に　0..$#aでも良いと思うが・・・

**名無しさん＠お腹いっぱい。** · 01/12/27 10:23

>>957
$[ は足さなくてよい。ていうか、足しちゃだめ。
$#aで、$[ をバイアスとする@aの最後の添え字の意味になる。
perldoc perldataでは、以下のように説明されている

　　　　　scalar(@whatever) == $#whatever - $[ + 1;

>>958
デフォルトの$[ == 0だから動いただけ。
　　local $[ = 1;
を965の先頭に入れて動かしてみ。

てことで、>>958新スレよろしく！

**えいじ** · 01/12/27 19:20

open(OUT,+>filename.txt);
print OUT "あいうえお\n";
close(OUT);

でfilename.txtが新規作成されるんですけど
http://www.****.com/ のトップのディレクトリだけは
新規作成されません。
どうしたら解決できるかご存知の方おられますでしょうか。
よろしくお願いいたします

**名無しさん＠お腹いっぱい。** · 01/12/27 19:51

open(OUT,+>filename.txt)||die("$!");
にしてエラーを見てみ

**名無しさん＠お腹いっぱい。** · 01/12/27 19:54

wwwのドキュメントルートと鯖のルートの違いを判ってないに1票

**名無しさん＠お腹いっぱい。** · 01/12/27 19:54

つーかこの馬鹿スレ立てやがった　　(呆