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

**nobodyさん** · 04/08/22 01:41

Perlのコーディングで困ってる人のスレです。
誰もが最初は初心者。
だからって、初心者に甘んじた質問の仕方は意味がないよ。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

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

1 · 04/08/22 01:43

前スレ989さん、ありがとう！

関連スレ
【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 8 】　★三
http://pc2.2ch.net/test/read.cgi/php/1077525387/
【スクリプト改造依頼スレ】(丸投げ) part2
http://pc5.2ch.net/test/read.cgi/php/1092304968/
△▲　WebProg 初心者の質問 Part9　▼▽
http://pc5.2ch.net/test/read.cgi/php/1086715675/
【Perl】ファイルロック(排他処理)について語ろう
http://pc2.2ch.net/test/read.cgi/php/1024795138/
★負荷軽減対策委員会（Perl、PHP)★
http://pc2.2ch.net/test/read.cgi/php/1034645635/
【Perl】掲示板を使ろう！
http://pc2.2ch.net/test/read.cgi/php/988890976/
Perlモジュールについて
http://pc2.2ch.net/test/read.cgi/php/997829243/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/

1 · 04/08/22 01:43

1 · 04/08/22 01:44

1 · 04/08/22 01:45

ム板Perlスレより

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www5a.biglobe.ne.jp/~n_rieko/perl/

[本]
リャマ: http://www.oreilly.co.jp/BOOK/lperl3/
駱駝: http://www.oreilly.co.jp/BOOK/pperl3v1/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/BOOK/pcook/

[オンラインマニュアル]
Perldoc.com: http://www.perldoc.com/
perldoc.jp: http://www.perldoc.jp/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/%7ekbk/perl5.005/

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://member.nifty.ne.jp/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/

1 · 04/08/22 01:45

補足

コーディング　【coding】

プログラミング言語を使ってソフトウェアの設計図にあたるソースコードを作成すること。
「プログラミング」とほぼ同義だが、仕様書やフローチャートなど抽象的な設計文書の内容を、
プログラミング言語を使って具体的なコードに変換していく、という意味合いが強い。
（e-Wordsより）

自分の質問がPerlに関することなのか、
それともPerlではなくCGIやHTMLについてなのかを切り分けした上で、
質問して下さい。

1 · 04/08/22 01:47

これは漏れの考えではあるけれど、
http://www.geocities.co.jp/SiliconValley/5656/
とか
http://www.hyuki.com/writing/techask.html
なんかを参考にするといい。

ここでは匿名で書き込むことが出来るけど、
その他のマナーなんかの点は実名公開のMLなんかと一緒。

ﾏﾀｰﾘ行きましょ。

**nobodyさん** · 04/08/22 01:51

>>1
氏ねよマヌケ野郎が！
テンプレはてめーの日記じゃねーぞ！

**nobodyさん** · 04/08/22 02:06

このスレは糞が勝手に>>1を書き換えたので次スレを立てる時は注意してください。

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

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

**前スレ989ですが** · 04/08/22 02:09

すいません、前スレの 5 もお願いできますか？
さっきから貼ろうとしてるんだけど Time out が出るばかりで貼れないんです...orz

**nobodyさん** · 04/08/22 02:21

テンプレも満足に貼れないやつが立てちまったか・・・
グダグダなスレになっちまったな。

**nobodyさん** · 04/08/22 03:05

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

**nobodyさん** · 04/08/22 03:05

「漏れ」って何？

**nobodyさん** · 04/08/22 03:06

[総合]
　・http://www.excite.co.jp/world/ # 英文のページ多いから一応
　・Perl Com: http://www.perl.com/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/ # 死んでるか?
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

**nobodyさん** · 04/08/22 08:46

漏れって漏れのことさ　厨はカエレー

**966** · 04/08/22 13:14

前スレの996だけどとりあえずブロックの返り血ってのは最後の行で。
ブロックないではreturnは使えないからそれようのルーチンでも作る。

ってことでok？

**nobodyさん** · 04/08/22 13:27

>>16
ブロックはifと同じだよ。

**nobodyさん** · 04/08/22 14:02

>>16
> 前スレの996だけどとりあえずブロックの返り血ってのは最後の行で。
わかってるだろうけど、最後に実行した行。
で、おｋ

1 · 04/08/22 14:11

正直、すまんかった。

################
#ここから言い訳#
################
#いや、5の張り忘れに気づいて張ろうと思ったら
#連続投稿規制に引っかかっちゃったのよ。ｺﾞﾒｿ
#
#たださ、聞きたいんだけど>>1って書き換えちゃいけないもんなの？
#過去にも何度か変わってきてるから、概要があってりゃいいと思ったんだけど。
#無意味な中傷はｷﾆｼ(・∀・)ﾅｰｲ

**nobodyさん** · 04/08/22 14:51

>>19
内容に納得いかないとスレ乱立になるときがある。
だから書き変えるときは前スレでちゃんと同意をとれ。

とりあえずスレ立てご苦労様。

**nobodyさん** · 04/08/22 14:52

>>19
> 誰もが最初は初心者。
こんなこと書くなよタコ。
「誰もが最初は初心者」＝「回答者は質問者に尽くすべし」っていう脳内変換が起きるんだから。
次の行で何か書いてるけど意味ねぇよ。一度↑こうなったら何を言っても無駄。

**nobodyさん** · 04/08/22 15:10

>>21
>>1を弁護するわけじゃないが、そういう脳内変換する奴はそもそも>>1を読まないので影響ない。
書く必要性は全くないが。

10 · 04/08/22 15:40

何はさておき
Perl コーディング初心者質問コーナー Part37
http://pc5.2ch.net/test/read.cgi/php/1093134840/
↑これ立てて 2 で挫折した人は早急に削除依頼へゴー。

>>19
とりあえずスレ立て乙。自分は立てられなかったし。

テンプレ部の改定は当然可だけど、他の人の意見もあるからね。
Part35→36のときは
「改定点は？」「スレ違いのお客さんが多いよね」みたいな話があったうえで
>>6の補足が入ったから、もめたりしなかったわけですよ。

個人的には >>1 は構わないけど >>2 を見たときに「お礼はうれしいけど、そこに書いたらあかん！」と
思ったのと、あと >>7 が余分かな。

# 初心者さんは見に行かないし、回答者はURL見ただけで「あー、はいはい」だからね。

とりあえず、この状況が続くと質問者さんが来づらいだろから、事態の収拾を考えましょ。

1 · 04/08/22 16:01

>>20-23
やっぱり、このスレの人たちは教えるのに向いてるよ。色々ありがとう。

こんな状態でアレなんだけど、2つ目の中途半端なスレの方が上にあると、
どうしようもないだろうから一応ageとくことにする。

**nobodyさん** · 04/08/22 16:09

age

**nobodyさん** · 04/08/22 16:28

Perlについての質問箱 11箱目
http://pc5.2ch.net/test/read.cgi/tech/1090889189/641-

Perlにバグがあったみたい..

**nobodyさん** · 04/08/22 18:53

誰かネタ投下しる。新スレになっていきなり勢いが落ちたな。

**nobodyさん** · 04/08/22 20:18

foo(@x, @y) で、
sub foo 内で @x と @y を別に受け取ることはできますか？
@_ だと結合されているので・・・

**nobodyさん** · 04/08/22 20:36

>>28
そのままじゃ無理。リファレンス使え。

28 · 04/08/22 20:39

あ、無理ですか。
素直にリファレンスを使います。
どうも。

**nobodyさん** · 04/08/22 22:09

ここが本スレですよってことでOK？

もひとつの Part37 を立てた人がほったらかしてるっぽいんで、
こちらへの誘導貼り付け＆削除依頼して来ようかと思うんだけど、
皆さんのご意見は？

**nobodyさん** · 04/08/22 22:11

>>31
OK

**nobodyさん** · 04/08/22 22:29

>>29
それじゃせっかくの餌も台無し。
プロトタイプ使えとか言えよ。

**nobodyさん** · 04/08/22 22:52

>>31
あっちの1だけどよろしく。
テンプレﾐｽｯﾀんで放置してた。
じゃそういうことで

**nobodyさん** · 04/08/22 23:06

>>34
氏ねよ！

**23=31** · 04/08/22 23:07

>>32
レスThx.
ともあれ仕事のほうはやっつけてきますた。

そろそろ回答者もヒマしてるはずなので、
次の質問者さん、どうぞー。

**nobodyさん** · 04/08/23 13:11

>>28
perldoc perlsub

sub foo(\@\@) {
my ($x, $y) = @_;
print "x: @$x\n";
print "y: @$y\n";
}

foo(@x, @y);

便乗質問
リファレンスの場合は、sub foo($$); で宣言して、foo([1..10], [1..10]) みたいに直接値を渡せるけど。
sub foo(\@\@); の場合って、配列変数に値を入れてからじゃないと無理?

**nobodyさん** · 04/08/23 13:22

そんなイレギュラーな使い方をするところにプロトタイプなんか使わん。

**nobodyさん** · 04/08/23 15:01

>>37
>>28 に「perldoc perlsub」とか書いておいて自分は読まないのか?

<q cite="http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Prototypes">
バックスラッシュが付けられたプロトタイプキャラクターは、実引数がその
キャラクターで始まるものでなければならないことを表します。
<snip>
$で表される引数はスカラーコンテキストを強制されます。
</q>

sub mypush(\@$) { push @{ shift @_ }, @_ }

my $array = [0..3];
my @array = (6..9);
my $rv = mypush @{$array}, @array;
print join ',', @{$array}, "$rv\n"; # 0,1,2,3,4,5

**nobodyさん** · 04/08/23 23:46

Can't declare constant item in "my" at index.cgi line 191, near ");"
index.cgi had compilation errors.
こんなのがでます。なにが悪いんですか？

**nobodyさん** · 04/08/24 00:09

>>40
デクレアできないぞボケェ！
ってPerlが叫んでるｗ

**nobodyさん** · 04/08/24 00:28

>>41
悔しいけど、ちょとワロタ。でも、もすこしサービスしなさいな。

>>40
これだけではなにが悪いのかわかりませんよ。
index.cgiの191行めに

my (1, 2, 3);

↑例えばこんな行がありそうな気はするけれど。

**nobodyさん** · 04/08/24 01:21

>>42
俺もにやけてしまったよｗ

40 · 04/08/24 01:36

解決しますた

**nobodyさん** · 04/08/24 03:09

>>40
ここは質問と回答で成り立つスレです。
後から同じ状況に陥った人が参考にできるように
何をどうしたら解決したのか、
原因は何だったのか、
かわいい妹がいるのかどうか、
そういった事をきちんと書きなさい。

**nobodyさん** · 04/08/24 12:22

**nobodyさん** · 04/08/24 13:17

>>40
はやくかけよ、
まってんだから。

**nobodyさん** · 04/08/24 15:10

>>47
どうでもいいだろ
どうせアフォなミスだって

**nobodyさん** · 04/08/24 18:35

おまいらメールのSubjectに日本語使う時にMINEエンコードするのってなにでやってる？
mime_pls？モジュール？自作？

自作ってカッコイイよな。

**nobodyさん** · 04/08/24 19:10

MINEってカッコワルイよな。

**nobodyさん** · 04/08/24 19:13

>>49
また知ったか厨か・・・

**nobodyさん** · 04/08/24 19:18

>>51
お前のPCで
「ちゅう」
って打って変換したら常に初めに「厨」になるんだろうな・・・・・

**nobodyさん** · 04/08/24 19:36

>>52
なるけど、何か？

**nobodyさん** · 04/08/24 20:50

>>49
mime_plsはRFC2047を満たさないので自作してますが。

**いらすま** · 04/08/24 21:03

えーとですね。改造自由な掲示板のソースを手に入れたとですよ。
掲示板の背景の色をかえたいのですが、どうしたらよいので？？

**nobodyさん** · 04/08/24 21:09

>>49
オレはIM::Iso2022jp使ってる

**nobodyさん** · 04/08/24 21:42

>>55
サングラスをかけろ

**nobodyさん** · 04/08/24 21:48

>>55
まずは、あちこちの板に駄スレを立てまくるのをやめれ。

**nobodyさん** · 04/08/24 22:30

おまえらJcode使えない環境か？
ってまあ74バイト区切りで改行いれなきゃいけないとか面倒なことがあってそれだけじゃたりないんだっけ？

フォームメールなんて作ったことないからわからんなｗ

**nobodyさん** · 04/08/24 23:08

>>57
でっ、できる・・

**nobodyさん** · 04/08/24 23:20

ここはナイスな回答者が揃っていて好き

**nobodyさん** · 04/08/24 23:48

>>57
それじゃあ背景以外も変わっちまうだろボケｪ！
おまいはセンスはいいんだが、いつも後一歩だな。

**nobodyさん** · 04/08/25 00:17

おいおい　ちょーまじれす

**nobodyさん** · 04/08/25 00:40

おまいらPerlの場合ってモジュールとただのライブラリってどっちがいいと思う？
最近オブジェクト指向でモジュールを１個作ってみたんだけど、確かに再利用性は高いし
インターフェースだけ覚えとくだけで便利なのは間違いないけど、それってライブラリもそんなに大差ないよね。
ライブラリの方が手軽だしさ。

まあDBIくらいになるとオブジェクト指向の方がいいんだけど、みんなはどんな感じで使ってる？
やっぱ小中規模であれば、１個モジュール１個ライブラリってのがいいと思うんだけどさ。

**nobodyさん** · 04/08/25 00:48

サブルーチンを再利用したいなら、普通の関数呼び出しのライブラリの方が手軽でいいかも。
メインルーチンを再利用したいなら、クラスモジュールにしとく方が有利かも。

**nobodyさん** · 04/08/25 01:06

>>65
ほう！そうゆう考え方が主流なのね。

基本的にある程度の振る舞いをもったオブジェクトが欲しい時とか
一貫性のある処理でそれだけで独立させたいときがムジュール。

ちょっとこれだけ再利用。みたいなものの集まりをライブラリとするってのが賢いよね。

ボンジュ～ル？

**nobodyさん** · 04/08/25 01:17

オブジェクトだろうと、関数の集まりだろうとモジュール。。。

**nobodyさん** · 04/08/25 01:20

>>67
頭固いよ。。。

**nobodyさん** · 04/08/25 10:09

画像のカウンタプログラムを書いていますが、
画像連結ライブラリを使うと本当に読み込みが早くなるのでしょうか？
返答よろしくお願いします

**nobodyさん** · 04/08/25 10:13

何故試さん

69 · 04/08/25 11:23

調べたり、テストしたりしましたが、わかりません

**nobodyさん** · 04/08/25 11:24

画像連結ライブラリって、内部でGIFを連結してprint OUTで一気に出力するアレでしょ？
カウンタなんて小さい画像の集まりだから、HTTPヘッダによるオーバーヘッド分がなくなるだけでも有利でしょうな。
大きな画像連結なら負荷やメモリを気にするところだが。

Perlの手始めは向いてるね。カウンタ。

69 · 04/08/25 11:27

>>72
ありがとうございます。失礼ですが、もしPHPだといったいどうなのでしょうか？

**nobodyさん** · 04/08/25 11:34

いっしょだよ

**nobodyさん** · 04/08/25 11:36

テストしたいんだったら、1000ファイルくらい画像連結させて比較すれば差がでるんじゃないの。

69 · 04/08/25 11:37

>>74,75
ありがとうございます

**nobodyさん** · 04/08/25 11:40

っと、1000ファイルすべて違うファイル名にしないと意味ないけどさ。ブラウザにはキャッシュというものがあるからね。

**nobodyさん** · 04/08/25 12:39

>>69
お前みたいにくだらない部分にこだわるやつに限ってゴミソースで重かったりする。
だまってテーブルレイアウトやめればそんなくだらない差は気にならなくなる。

ついでに言うと連結処理あり、なしのベンチとってそれもちゃんと考慮に入れろや。

**nobodyさん** · 04/08/25 18:46

>>75
1000ファイルもあると I/O のコストの方が高くならない?
逆にHTTPサーバーの方のキャッシュが期待できる連結なしの方が早くなりそうだし、
最適化の仕方次第で結果が代わったりするんじゃないかな。(予想だけど
ベンチマークとるなら実際の運用環境に近い条件でやらないと意味がないと思う

>>69
GIF画像の連結はやったことないので、一般的な回答になるけど。
アルゴリズムの優劣とかならはっきりとした一般答がでるかもしれない、
でも、こういった、環境や実装に大きく依存するベンチマークは自分でとらないと役にたたない。
画像連結の方法だけとってみても、perlでやるのか、ライブラリか、外部プログラムに頼るのかで結果が代わってくるはず。

**nobodyさん** · 04/08/25 18:59

>>77
この場合、キャッシュは考慮すべきといっても、offにすべきではないと思う。
連結なしの場合、httpヘッダでcache controlや期限を適切に設定していれば、
ファイルを送る必要はなく文字列出力だけで済む事もあるのだから。

クライアント数とアクセス数を分けて考えてテストする必要がある。
(再訪問者が多い場合にクライアント側のキャッシュの効果が期待できる)

**nobodyさん** · 04/08/25 19:21

ほしゅあげ。

http://pc5.2ch.net/test/read.cgi/php/1060009605/l50

**nobodyさん** · 04/08/25 19:25

↑
（；・∀・）また、騙されたの？
ttp://pc5.2ch.net/test/read.cgi/php/1060009605/

% kill -9 81 || kill -9 81 || kill -9 81
% killall -TERM me

**nobodyさん** · 04/08/25 23:12

>78
今回に限って言えば、ベンチは意味が薄いのではないだろうか。
サーバとの経路とかでも結果が大きく変わるだろうし。

**nobodyさん** · 04/08/26 00:15

クライアントから一回だけ要求を受け取って、
２種類のレスポンスを返す方法ってありますか？

例えば
GETで要求されたURLの応答に
200 OK
を返した直後にクライアントとの接続を閉じずに
304 Not Modified

を返せるような。
どなたかお知恵を貸してください。お願いします。

**nobodyさん** · 04/08/26 00:19

>>84
無理。
どういう理由でそういうことをしたいのかを明確に書けば別解のアドバイスが出てくるかも知れず。
でも、ここはperlコーディングスレなので、webprog 初心者スレの方がいいんじゃないかな。

**nobodyさん** · 04/08/26 00:25

>>85
そっちできいてみます。ありがとうございます。

**nobodyさん** · 04/08/27 07:40

SSIで、9桁の乱数を生成して表示するスクリプトはどのようにして
作ればよいのでしょうか？
例えばどこかのhtmlからを呼び出すと
253145968や040104580とかランダムな9桁の数値を返すものです。
全くの初心者で困っています。教えて下さい、お願いします。

**nobodyさん** · 04/08/27 07:52

rand;rand;printf "Content-type: text/plain\n\n%09d",rand(10**9);

87 · 04/08/27 08:43

>>88
本当にありがとうございます！！！！！！！！

**nobodyさん** · 04/08/27 10:01

>>83
遅レスだけど、ベンチはローカルでやるのが普通だろ。

**nobodyさん** · 04/08/27 10:16

>>88
あたまでrandを2回呼んでるのはなぜ?

88 · 04/08/27 15:08

3回目のrandが返す値が好きだからー！！

**nobodyさん** · 04/08/27 17:15

<FORM method="POST" action="hogehoge">
<INPUT type="submit" name="Reload" value="再読込">
</FORM>
こんな感じでホームページに設置されているボタンを押すPerlスクリプトって作れないでしょうか。

**nobodyさん** · 04/08/27 17:51

>>93
そのスクリプトの用途を聞かせ願えないか？

**nobodyさん** · 04/08/27 18:07

すみません。物騒な聞き方でしたね。
こういう感じのサーバなのです

１．FTPサーバーに管理ファイルをアップする。
２．社内のローカルホスト（http://192.168.0.200:8080/reload.html）にアクセスして更新ボタンを押して更新完了
３．上記をファイルの数だけ繰り返す

私のところに１の管理ファイルがバイトから１日１０件くらい集まるので、
これをいちいちアップして更新して・・・というのは、かなり面倒なのですが、
社内鯖の仕様を変更するのは問題があるので、自動でアップ処理してくれるスクリプトを組もうと思った次第です。
最終的には

１．設定フォルダ内のファイルを社内鯖にアップする
２．更新ボタンを押す
３．これを毎朝９時に行う

ということをしたいのです。

**nobodyさん** · 04/08/27 18:17

>>95
対策＠私の場合
１．バイト君にFTPサーバーの特定のディレクトリにファイルをうｐするように指示をする。
２．その特定のディレクトリを監視するスクリプトを、例えばcronで１時間ごとに起動して、
　　ファイルが存在すれば何らかの更新作業をさせる。
３．私は他の作業をする。

**nobodyさん** · 04/08/27 18:17

ボタンを押すというのは難しいから、そのデータPOSTを自前でやった方が良いと思われ。

**nobodyさん** · 04/08/27 18:50

へたれですみません。どうやったらいいんでしょうか　＞　データPOST

**nobodyさん** · 04/08/27 18:53

getではだめなの？
getならリクエスト1個で終わるんだけどね

**nobodyさん** · 04/08/27 19:08

Net::FTPとLWPがあればささっと書けそうだけどな。

**nobodyさん** · 04/08/27 19:14

>>97
ボタンを押すほうが簡単じゃないでしょうか？？

93 · 04/08/27 19:15

とりあえずFTPのところは書き上げて、手元で動かす分には問題ない程度に動いてます。
WWWは扱ったことがないので、ぐぐって勉強してます。

>96
支給されてるクライアントがNTなので、タスクマネージャーで実行しようと思ってます。

>99
サーバ側の仕様には手を出せないのでPOSTでがんばってます。

>100
ttp://member.nifty.ne.jp/hippo2000/perltips/LWP.html
これでいいんでしょうか？　入手してみます。

**nobodyさん** · 04/08/27 20:43

LWPで普通に出来ないか？

**nobodyさん** · 04/08/27 22:09

>>102
> 支給されてるクライアントがNTなので、タスクマネージャーで実行しようと思ってます。
ではそれで毎日９時に動くようにすれば？
でもってなぜCGIが必要なんだろう？
確認ならばメールで通知、返信すれば自動で更新作業させるなりと方法はあるのに。

**nobodyさん** · 04/08/27 22:28

なんで「ボタンを押す」ことが必要なのだろうか。
ブラウザ立ち上げておかないといけないし、強制終了してしまっていたら立ち上げなおしたりしなきゃいかんし。

**nobodyさん** · 04/08/27 22:34

>104-105
おまえら少しは文章を嫁

93 · 04/08/27 23:10

お世話になっております。

ttp://digit.que.ne.jp/work/index.cgi?Perl%a5%e2%a5%b8%a5%e5%a1%bc%a5%eb%2fLWP#i5

この辺りを読んで解決しました。また１つ賢くなれました。ありがとうございました。

**nobodyさん** · 04/08/28 00:00

>>106=意味不明

**nobodyさん** · 04/08/28 02:17

どっちにしろ>>95を信じたやつは（ｒｙ

**nobodyさん** · 04/08/28 13:06

>>101
ボタンを押すのが簡単ってのは人間が操作する場合で、プログラムにとっては、POSTリクエスト送る方が簡単。
プログラムでそういったことをエミュレートしたいなら、ブラウザのオートメーションを調べてみるといい。

冗長になるは言うまでもないけど。一応フォローしておくと、
HTTPの仕組みを知らない人にとってはこっちの方がコードが簡潔だったりする、
ちょっとした用途にスクリプトを書く場合でもコードを大幅に節約できるといった利点がある.

**nobodyさん** · 04/08/28 17:38

なんでもいいから犯罪者にアドバイスはﾔﾒﾚ

**nobodyさん** · 04/08/29 22:39

検索CGIを作っているのですが、
エスケープが必要な文字の検索で詰まってます。

$str =~ s/($key)/<$1>/g;

こんな感じで、ヒットしたキーの前後に文字を追加してるんですが、
これだと、正規表現の文字（ドット. や　プラス+ ）自体を検索することが
できません。

何かいい方法ありますでしょうか

**nobodyさん** · 04/08/29 22:53

>>112
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq6.html#How_do_I_match_a_pattern_that_is
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlre.html
http://perldoc.com/perl5.8.4/pod/func/quotemeta.html

**112** · 04/08/29 23:11

>>113

ありがとうございます！
quotemetaなんて便利なものがあったんですね。

**nobodyさん** · 04/08/30 10:02

**nobodyさん** · 04/08/30 10:28

そういえば、ひさびさPerlスレ見た

**nobodyさん** · 04/08/30 13:20

@data = split(/\//, $_);

"/" でセパレートされた文字列を分解してそれぞれ配列に入れたいのですが、
どうすればいいか教えてください。

**nobodyさん** · 04/08/30 13:27

>>117
？

**nobodyさん** · 04/08/30 13:29

>>118
同意。

**nobodyさん** · 04/08/30 13:30

>>118
>>119
どこが？なのでしょうか？

**nobodyさん** · 04/08/30 13:37

すいません。
分かりました。。。

>>117の1行目が答えなんですね。(-_-;)

**nobodyさん** · 04/08/30 17:23

何が起こったんだ

**nobodyさん** · 04/08/30 17:29

すみません、３つ以上の数が等しいかどうか調べたいのですが、
以下のようにやってもエラーになります。
perl -e '$var=1; $var1=1; $var2=1; print "Ok!\n" if ($var==$var1==$var2==1);'
どうやったらいいのでしょうか。おせーてください。

**nobodyさん** · 04/08/30 17:37

>>123
and

**nobodyさん** · 04/08/30 17:41

>>124
えっと、>>123の場合は、1なので、==をandに代えればできますが、他の数の場合
まずいです。
perl -e '$var=1; $var1=1; $var2=2; print "Ok!\n" if ($var and $var1 and $var2 and 2);'
これでもOk!になってしまいます。

**123=125** · 04/08/30 17:44

あそうか、一個ずつandでやるんですね。
($var == 1 and $var1 == 1 and $var2 == 1)
もっと簡単な方法がないかと思ったものですから。
２４ケースくらいあるんで書くのたいへん(TT)

**nobodyさん** · 04/08/30 17:52

>>126
my @var1 = (3, 3, 3, 3, 3, 3);
my %tmp = (); @tmp{@var1} = ();
print "var1 ", 1 == keys %tmp ? 'ok.' : 'no.', "\n";

my @var2 = (2, 2, 2, 2, 4, 2);
%tmp = (); @tmp{@var2} = ();
print "var2 ", 1 == keys %tmp ? 'ok.' : 'no.', "\n";

**nobodyさん** · 04/08/30 17:52

>>126
ループ

**nobodyさん** · 04/08/30 17:56

よいこは1 == keys %tmpと書かずにkeys %tmp == 1と書こうね。

**nobodyさん** · 04/08/30 18:02

>>129
根拠は?

**nobodyさん** · 04/08/30 18:47

読みにくいから

**nobodyさん** · 04/08/30 19:53

>>130
比較では不確定なﾓﾉを左に書くのが一般的。
これを逆に書くと何となく気持ちが悪い。
それを何とも感じないﾔｼはｾﾝｽが悪い。

**nobodyさん** · 04/08/30 20:15

もしその人がバカだったらぶん殴ってやる
もしバカがその人だったらぶん殴ってやる

**nobodyさん** · 04/08/30 20:58

CPAN落ちてない？

**123=125** · 04/08/30 21:04

>>127
高度な技を伝授いただきありがとうございます。
@tmp{@var1} = ();
というところですが、ハッシュの配列ということでしょうか。
これは、らくだ本にも出ていますでしょうか。今手元にない
のですが。

**nobodyさん** · 04/08/30 21:07

定数を左辺に書くと==と=を間違えたときにすぐわかるけどね

**nobodyさん** · 04/08/30 21:22

>>135
ハッシュのスライスだね。ぐぐれば出てくるよ。

**nobodyさん** · 04/08/30 21:23

>>135
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html

**nobodyさん** · 04/08/30 21:33

$name2が、$name3[0]～$name3[$i]のどれかの値と一致した場合にある動作をするようにしたいのですが
どうやればよいでしょうか。

**nobodyさん** · 04/08/30 21:44

>>136
その言い訳は何年も前に死滅したはずだが？

Found = in conditional, should be == at -e line 1.

頭が化石になってますよ。

**nobodyさん** · 04/08/30 23:29

for(0..10) {
for(0..10) {
・・・・・
}
}

ネストさせると、最初のfor文は$_ですが、中のfor文は何になるのですか？

**nobodyさん** · 04/08/30 23:32

>>141
？

**nobodyさん** · 04/08/30 23:38

>>141
$_

**nobodyさん** · 04/08/30 23:50

>>139
for(@name3){
print"bingo\n" if($_ eq $name2);
}

**nobodyさん** · 04/08/30 23:59

>>141
変な質問ですみません。

>>143
ネストしてても一緒なんですか。

for(0..10) {
　　for(0..10) {
　　　　$data[$_][$__] = ・・・
　　　　・・・・・
　　}
}

だったらいいなと勝手に思ってました。
そうすると

for(0..10) {
　　for($i=0; $i<10; $i++) {
　　　　$data[$_][$i] = ・・・
　　　　・・・・・
　　}
}

とすべきなんですね。

**nobodyさん** · 04/08/31 00:56

>>145
for(0..10) {
　　for my $i (0..10) {
　　　　$data[$_][$i] = ・・・
　　　　・・・・・
　　}
}

**nobodyさん** · 04/08/31 04:35

truncateについて教えてください。
winxpにversion 5.005_03 built for MSWin32-x86-objectですが、思ったとおりにtruncateが動作しません。

open(FILE,'>aaa.txt');
print FILE "aaaaaaaa";
seek(FILE,0,0);
truncate(FILE,0);
print FILE "bbbb";
close(FILE);

これは、思ったとおりに動きます。aaa.txtは「bbbb[eof]」の４バイトになります。

$aaa='FILE';
open($aaa,'>aaa.txt');
print $aaa "aaaaaaaa";
seek($aaa,0,0);
truncate($aaa,0);
print $aaa "bbbb";
close($aaa);

これは、なぜか「bbbbaaaa[eof]」の８バイトになります。
seekは正しく機能して、truncateは機能していないからこの結果だと思うのですが、なぜ機能しないのでしょうか。
上の例を見ても、truncate機能自体はあると思うのですが・・・

**nobodyさん** · 04/08/31 05:22

>>147
お前が馬鹿だから

**nobodyさん** · 04/08/31 06:56

truncate($aaa,0) or die $!;

**nobodyさん** · 04/08/31 07:11

>>147
$aaa='FILE'; →　$aaa = *FILE;

**145** · 04/08/31 08:36

>>146
ありがとう。
もとめていたスマートなコードです。

**nobodyさん** · 04/09/01 00:24

だれか教えてください。
ダウンロードというボタンをおしたら、CSVがダウンロードできる仕組みにしたいです、

**nobodyさん** · 04/09/01 00:39

>>152
途中でやめるなよ

**nobodyさん** · 04/09/01 00:58

>>152
してください

**nobodyさん** · 04/09/01 01:15

すまん。152だ。

だれか教えてください。
ダウンロードというボタンをおしたら、CSVがダウンロードできる仕組みにしたいです。

が正解でした。といううことでおしえてください

**nobodyさん** · 04/09/01 01:23

>155
教えてやろう。
PerlもCGIも使わなくてもできる。
よって板違い。

**nobodyさん** · 04/09/01 01:47

156よ。よく考えれば単にリンクを張ればよいな。アドバイスあんがと

**Pearl** · 04/09/01 01:56

print <<"END";
...
END

と終端文字列を記述すると何も表示されないのに、

print "...";
print <<"END";
...
END

とすると表示されます。(print"...";の内容は表示されません)
これは何故なんでしょうか？？
初心者ですいません…。

**nobodyさん** · 04/09/01 02:16

そこより前のコードで"が開きっぱなしと見た。

**nobodyさん** · 04/09/01 12:01

perlでのoop時の属性についてなんですが、
hashでの実装、use fieldsでの実装
どちらがいいんでしょうか？
fieldsのが便利だと思うんですが、
内部でpseudo-hashを使ってる？らしく
pseudo-hashは今後推奨されなくなるようで
その辺り困ってます。
--------------------------------------
sub new {
my( $class, $name, $height ) = @_;
my $this = {
'name' => $name,
'height' => $height
};
bless $this, $class;
}
--------------------------------------
use fields qw( name height );

**nobodyさん** · 04/09/01 12:17

>>160
5.9.0以降ではpseudo-hash使わない実装に変更されたので
普通に使う分には問題ないんじゃなかったっけ。内部の
phash直接触るような行儀悪いプログラム書いてりゃ別だけど。

**nobodyさん** · 04/09/01 12:33

>>161
ありがとうございます！
なるほど、確かに、phashを直接使うなみたいな事は書いてありました。
perl6になったらこの辺も変わりそう？ですし、
perl5では、これでいいってことで！

**nobodyさん** · 04/09/01 18:16

sendmailを使ったプログラムを作ってるんですが、どうやらメールの件名に
日本語を使う時には特別な処理が必要なのですね。

今いろいろなサイト見てますが、皆さんのオススメの解説サイトがありましたら教えてください。
おながいしますm(_ _)m

**nobodyさん** · 04/09/01 18:28

特別な処理？？？
メール送信の基本はperlに限ったことではないが

**nobodyさん** · 04/09/01 18:41

>>163
解説サイト？

無いよ。
嘘だと思うんなら自分で探してみ？

**163** · 04/09/01 19:59

>>164
件名の分だけ他とは違うエンコードをしないといけないという意味です。
>>165
そうなのです。あまりいいところが見つからないのです。
実際のサンプルソースとかを載せながら解説してるサイトがあるといいなと思ったのですが；

**nobodyさん** · 04/09/01 21:10

RFC嫁

**nobodyさん** · 04/09/01 21:49

print "Location: http://www.yahoo.co.jp/\n\n";
上記のコードでリダイレクトさせる前に
htmlタグを読み込ませたいと思います。

<IMG SRC="http://www.hogehoge/test.cgi" width=1 height=1>
例えば上記のようなタグを読み込ませたい場合、
どのようにコードすればいいのでしょうか？

おながいします

**nobodyさん** · 04/09/01 22:00

>>166
お勧めサイトは(･∀･)ｺｺﾀﾞ!!
ttp://www.ietf.org/rfc/rfc2047.txt

>>168
うーん。
> width=1 height=1
リダイレクトした「数」をカウントできればいいというわけではないの？

**nobodyさん** · 04/09/01 22:06

$hoge = file( "http://www.hogehoge/test.cgi" );
print "Location: (p)http://www.yahoo.co.jp/\n\n";

**>>163** · 04/09/01 22:26

$subj = Jcode::convert(\$subj, 'jis');
$subj = MIME::Words::encode_mimeword($subj, 'B', 'iso-2022-jp');

**nobodyさん** · 04/09/01 22:38

>>171
今時Jcodeなんて教えるなよ

**nobodyさん** · 04/09/01 22:39

今5.8のサーバは少ないだろ。。つーか、ほとんど無いと思われ。

**168** · 04/09/01 22:51

>>169-170

レスありがとうございます。
そうですね、数をカウントできればいいというわけではないです。

$hoge = file( "http://www.hogehoge/test.cgi" );
これについてなんですが、
http://www.hogehoge/test.cgi の部分に変数を用いたい場合、
どんな感じになるでしょうか？初歩的な質問すいません。
http://$variable.com/test.cgi のようなURLにしたいのですが。
$hoge = file( "http://$variable.com/test.cgi" );
で変数として扱われるんでしょうか？

**163** · 04/09/02 01:14

>>169
英語よめません；
>>171 >>173
>$subj = MIME::Words::encode_mimeword($subj, 'B', 'iso-2022-jp');
これって5.8でないと駄目なんですか？使用サーバのperlは5.6ですが。
後、このモジュール？ライブラリ？ってRFC2047の
１．encoded-word は 75バイト以内でなければならない．
２．encoded-word を含む行は 76バイト以内でなければならない．
をクリアしてないですよね？PERLメモ読んでて、とりあえずBASE64エンコードは
なんかのモジュールでやるとしても１と２をどうしようかと迷ってます。

みなさんはちゃんと１と２に対応したサブルーチン等を作ったりしてるんでしょうか？

**nobodyさん** · 04/09/02 01:20

>>175
辞書ひけや馬鹿野郎

**nobodyさん** · 04/09/02 01:28

>>175
いいから自分で作ったというコードを晒せよ。
特別な処理とか、何を勘違いしてるのかわからん。

**163** · 04/09/02 01:50

<input type="text" name="to">
<input type="text" name="subject">
<textarea name="body"></textarea>

use MIME::Base64;
require "jcode.pl";
受け取ったフォームデータをデコード＋JIS変換して%formを作成。（コード省略）
$encode_word = encode_base64($form{subject});

open MAIL,"|sendmail -t";
print MAIL<<END;
From: from@from.com
To: $form{to}
Cc:
Bcc:
Subject: =?ISO-2022-JP?B?$encode_word?=
　
$form{body}
END

これでは
１．encoded-word は 75バイト以内でなければならない．
２．encoded-word を含む行は 76バイト以内でなければならない．
をクリアできないですので。

**>>163** · 04/09/02 02:09

何を期待しているのかよくわからんけど、文字列の長さなら、エンコードやら
バージョンやらモジュール云々じゃなくて、自分で制御すればいいだけでは？
ttp://www.hippo2000.info/perl/myfull.htm

**163** · 04/09/02 02:14

>>163
はい。エンコードは別にたいした問題はないのです。
１．encoded-word は 75バイト以内でなければならない．
２．encoded-word を含む行は 76バイト以内でなければならない．
３．encoded-word はそれぞれ独立してデコード可能でなければならない．
４．encoded-text をデコードした文字列の文字コードは，最後に ASCII が指定された状態でなければならない．
５．encoded-word が現れる出現位置に関する決まり．
　Subject や Comment のヘッダフィールドなどの， 'text' 内に出現．
　"(" と ")" で区切られた 'comment' 内に出現．
　From や To，CC ヘッダなどで，'phrase' 内に出現．
　'addr-spec' 内で出現してはならない．
　'quoted-string' 内で出現してはならない．などなど．
６．隣り合う encoded-word の間の 'linear-white-space' は無視する．

これらをクリアするのに皆さんは自分でエンコード前の準備用としてのルーチンを
自作してるんでしょうか？というのが>>175での質問です。

↑ · 04/09/02 02:30

そんなに作りたいなら
ttp://www.futomi.com/subroutine/encodesubject.html

**163** · 04/09/02 02:40

>>181
>このサブルーチンは、RFC2047に完全には準拠していません。RFC2047では、ASCII文字列は、エンコードしないことを推奨していますが、このスクリプトでは、簡略化するために、すべてをエンコードしています。

紹介のサイトでは上記以外の違反はしてないみたいですが
企業でのメーラーとして使う場合はどの程度準拠すればいいのでしょうか？

ところで>>181さんは>>180の１～６をどこまで守ってsendmailを利用されてますか？
一般的なレベルが知りたくなってきました。

**nobodyさん** · 04/09/02 03:27

>>182
おまいperlメモ読んでるなら、そこにあるソースをそのままもらえばいいのに。
あれならほぼokだろ。まあちょっと長いけどな。>>181のサイトは俺も見たが
asciiもエンコードしちゃう点を除けばかなりいい。jcode.plさえあれば誰でも
できるってのが手軽だしな。

そもそもPERLメモの方はsubject以外でも使えるし、デコードまでやれるルーチイだから
比べてもしょうがないな。ちなみに俺はフォームメールなど作ったことなし！

**nobodyさん** · 04/09/02 03:41

>>181-3
use strict環境下で動かないコードなどクソ。

**nobodyさん** · 04/09/02 11:21

#!/usr/local/bin/perl

$logfile = "./sizecount.dat";

$count = -1;

$count += (-s "$logfile");

open(OUT,">>$logfile");
print OUT "\n";
close(OUT);

print "Content-type: text/html\n\n";
print "countdate=$count\n";

参考書通りに作ったカウンターなんですけど
アップロードして動作確認したら正常に動いたので
flashMX2004でダイナミックテキスト、変数dispcountに
表示させたいんですけど、出来ません。
チェック用の一応変数checkにはloadcompleteと表示されました。
アクションスクリプト
System.useCodepage = true;

CGIfile = "sizeount.cgi";
myLoadVars = new LoadVars();
myLoadVars.onLoad = function(){
dispcount = myLoadVars.countdate;
check = "loadcomplete";
}
myLoadVars.load(CGIfile);

**185** · 04/09/02 11:25

続き
CGIの下から2行目はprint "Content-type: text/plain\n\n";
に変更してからフラッシュでやったんですけどなぜか表示されません、、、
これまで変数を受け取るだけや送るだけのサンプルは参考書通り出来てたのですが
お願いします。

**185** · 04/09/02 11:31

追加
ブラウザのキャッシュ関係ではありません。
お願いします。

**185** · 04/09/02 11:35

度々すいません
ダイナミックテキスト,変数dispcountにはundefineと表示されます。
お願いします。

**nobodyさん** · 04/09/02 11:38

ぱっと見だが、Perl のコードに問題は無いと思う。
おそらく Flash の方に何らかの問題があると思われるが、
残念ながら Flash についてはこのスレで扱う範囲ではない。

**185** · 04/09/02 11:42

>>189
わかりました。
ありがとうございました。
フラッシュ板言ってきます。

**nobodyさん** · 04/09/02 14:52

>>180
俺は１～６全部クリアしたライブラリ作ったが、たいていはそこまで必要ないので
作る奴はそういないだろうな。特に何が問題なのかも分からんような奴しか集まらん
このスレには。
ちなみに１～６を完全に満たしたままだと、そうでないアホなエンジンが５を
無視してエンコードしたものを戻せないので、X-Mailerが自身ならstrictモード、
他ならlooseモードで動くようにしてる。
商用なので公開はせんが。

**nobodyさん** · 04/09/02 18:06

>>174へのレスをキボンヌでございます

**nobodyさん** · 04/09/02 22:18

ActivePerl5.8.4を使っています。
ShiftJISのデータをDBから取得して、そのデータを使って
UTF-8のXMLファイルを作成したいのですが、うまくできません。
いろんなサイトを見てみましたが、うまくできないので
方法をご存知な方がいましたら、教えてください。

**nobodyさん** · 04/09/02 22:38

UTF-8に変換してください

**nobodyさん** · 04/09/02 23:59

普通にやるとできるみたいです。
DBからできないのはなぜでしょうか？

use Encode;

my $a = "あああ";
Encode::from_to($a, "shiftjis","utf8");

$xml =<<"EOF";
<?xml version="1.0" encoding="UTF-8" ?>
<test>$a</test>
EOF

print $xml;

**nobodyさん** · 04/09/03 02:42

@array = (1,5,8,6,2,1,3,8,6,4) #任意の数字
から、中央値、最頻値を求めるには、どうすればいいですか？
モジュールは見つかったのですが、レンタルサーバーなので使えません。

誰かわかる人いたら教えてください。
よろしくお願いします。

**nobodyさん** · 04/09/03 02:59

>>196
"中央値"，"最頻値"，"アルゴリズム"でググってみてください．

**nobodyさん** · 04/09/03 03:23

>>192
なんでやってみないわけ？

**nobodyさん** · 04/09/03 09:07

>>196
@array = (1,5,8,6,2,1,3,8,6,4); #任意の数字
# 中央値
$#array % 2 ? $m=($#array+1)/2 : $m=$#array/2;
$median=(sort @array)[$m];
print "中央値は、$median。\n";
# 最頻値
for(@array){
$hindo{$_}++;
}
foreach $key (keys %hindo){
$max=$hindo{$key} if $hindo{$key} >= $max;
}
foreach $key (keys %hindo){
push(@max, $key) if $hindo{$key} == $max;
}
print "最頻値は、@max。\n";

**nobodyさん** · 04/09/03 09:46

>>195
DBから取り出したものがそのテストプログラムで
想定してるのと同じものかは確認したか?