【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/10/24 14:12

[過去ログ]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
Part5　http://corn.2ch.net/test/read.cgi?bbs=php&key=988728069
Part6　http://corn.2ch.net/test/read.cgi?bbs=php&key=996075607
Part7　http://ebi.2ch.net/test/read.cgi/php/1000267444/

[ひまぢん氏のミラー]
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

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

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/
[お薦め]
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・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/
[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html
　・use Perl All The Perl: http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Perl for Newbie: http://www.harukaze.net/~mishima/perl/index.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/

**いい所あったら10までに貼ってちょ** · 01/10/24 14:14

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm
[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・CGI and Security http://www.japu.org/cgi/security/
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt
[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

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

>>2
過去ログが全部見れたのは俺だけでしょうか？

> Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能 # 見れました。
> Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能 # 見れました。
> Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能 # 見れました。
> Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能 # 見れました。

5 · 01/10/24 14:20

ていうか、これを最初に言うべきでした…。

「お疲れさまです。」

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

えウソ?、datは有るけどhtmlは見れます?
http://tako.2ch.net/perl/dat/957208980.dat　←これは有る
http://tako.2ch.net/perl/kako/957208980.html←これは無い
read.cgiは止まってるですよね・・・

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

そーか、>>5　了解っす
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
tako鯖はdatが生きてるんで、かちゅーしゃだと見れるです

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

前スレで CGI.pm の使い方について
%FORM = $cgi->Vars;
の替わりに
%FORM = map{ $_, $cgi->param($_) } $cgi->param();
を教えていただきました。

同じ nameが複数あった場合、前者では

@items = split( "\0", $FORM{item} );

で取り出せましたが、後者ではうまくいきません。
$FORM{item}->[0]
のようにしてもダメでした。どのように格納されているのでしょう？

$cgi->param_fetch('item');
しかないのでしょうか？

9 · 01/10/24 15:56

>>9
自己レス
%FORM = map{ $_, join("\0",$cgi->param($_)) } $cgi->param();
とすることで解決しました。

9 · 01/10/24 16:49

またまた CGI.pm絡みで質問です。
ファイルアップローダを作るとき 2.47以降の CGI.pmなら

$handle = $cgi->upload('file');
while( <$handle> )

とできますが、プロバイダの CGI.pm が古いため

while( <$cg->param('file')> )

という方法になってしまいます。
しかしこれだと「c:\hoehoe.txt」のようなハンドル名になって
受け付けてくれません。

なにか対処方法はないものでしょうか？

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

前スレ963(http://ebi.2ch.net/test/read.cgi/php/1000267444/963)さん
おっしゃる通りです！、例え話も良く解りました　(^ ^ )

；他に嵌るパターンて言うと、ループ、再帰、mod_perl環境、undumpした
最後の2つが勉強不足で分からないですが、この辺は他の言語と同じですね

；**もし**宣言の事言ってるんだったら、こっちはちゃんとしよう。
了解しました、strictプラグマを常用してます。
でも、宣言さえしなくても動いてしまうのは凄いですね。
少しのステップで色々出来ちゃうんで、戸惑ってたんです　(^ ^ )
何気にソケットを叩けたりと色々楽しそうです。
今からログを漁ろうと思います。

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

その代わりPerlで一行コード満載コーディングしてると
Cに帰った時酷く冗長に見えて鬱になるぞ　っと
# 頭の切り替えなんだよなあ

**野獣牛兵衛** ◆n.Nd.2Co · 01/10/24 22:45

こんにちは
オフ板に perlオフの企画スレ立てました
よろしければ来てください
http://natto.2ch.net/test/read.cgi?bbs=off&key=1003929930

**名無しさん＠ほっとぞぬ** · 01/10/24 23:48

自己レス

>@fff[0..1][2]
>のようなスライスをすることは出来ますか？
>（スライスとは言わないのかも）

一応下記のような方法を考えてみました

@kkk = map { @$_[2] } @fff[0..1];

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

perlcc.batが使えません。
一応、vc++6.0 sp5は入れてあるんですが、出来上がったexeが実行できません。
どこかにいいドキュメントは無いでしょうか？
#!D:\perl\bin\perl.exe
print "Hello perlcc\n";

たったのこれだけをコンパイルしたいんですが。。

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

my $name = 'tinko pinpin';
1)
if($name eq 'tinko pinpin') {
　cnt++;
}
--------と
2)
cnt++ if($name eq 'tinko pinpin');

をループさせて速度を測ったら
1)21 wallclock secs (20.95 usr + 0.01 sys = 20.96 CPU)
2)10 wallclock secs (10.23 usr + 0.00 sys = 10.23 CPU)
くらい違いますが、内部ではどのような処理の違いがあるんですか？
教えてください！！！！！！！！！！！！！！！１

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

>17
なぜにマルチしますか？
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=991994996&st=520&nofirst=true

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

答えられないなら初めからそう言ってください（ぷぷぷ

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

>>17
気になるならソース嫁。
http://www.perl.com/CPAN/src/stable.tar.gz

perl-5.6.1/perly.y の sideff と cond を見て、それぞれの構文のコストを見積もれ。
内部命令の実装は perl-5.6.1/op.c にある。

**_gunzip** · 01/10/25 04:37

後者が遅くなるのは、{}ブロック内のmy変数padlistを作成したり、
脱出時のlocal変数のsavestackからのrestoreなどを処理する
クリーンアップコードが必要になるからです。

...とは言え、気にする程のオーバーへッドではありません。

**_gunzip** · 01/10/25 04:39

後者->前者

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

ぱ、ぱ、ぱ、ぱーるの大爆笑
こりゃこりゃこりゃこりゃこりゃこりゃ

**前スレの911** · 01/10/25 09:25

passはそういう渡しかた。
urlもdiary.cgiのままです。

**名無しさん＠お腹いっぱい。** · 01/10/25 09:47

おまえさ、その聞き方じゃ前スレ読み返さなきゃ訳わかんねぇよ。

せめて前スレの該当記事のトコのURL書いとけよ。

エラー処理のトコで入力されたパスワードと正確なパスワードを表示するようにして
ちゃんと同じパスワードが渡ってるか確認しろ。

てゆーか
http://ebi.2ch.net/test/read.cgi/php/1000267444/937

で既に指摘されてるだろ？

結果はどうなったんだよ。

25 · 01/10/25 09:48

25は>>24宛て

**今日からPerlさん** · 01/10/25 10:50

超初心者のファイル移動に関する質問です

----------
$Old_Dir = './old';
$New_Dir = './new';
$File_Name = 'sample.html';

$Old_File = $Old_Dir + $File_Name;
$New_File = $New_Dir + $File_Name;

rename($Old_File,$New_File);
----------

これでは./old/sample.htmlが./new/sample.htmlに移動してくれません
どうしたらよいのでしょうか

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

> $Old_File = $Old_Dir + $File_Name;
まず、+ では文字列の連結は出来ないよ。
文字列の連結はピリオドなので、やるなら
$Old_File = $Old_Dir . $File_Name;
でも、これじゃ出来ない。
$Old_File がどういう値になるか考えてみて。

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

ヤダねったら、ヤダね。

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

rename($Old_File,$New_File) or die "$Old_File:$New_File:$!";

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

>27
あと、その場合 $Old_Dir と $New_Dir がそれぞれ
'./old/' './new/' でなくてはなりませんね。
そのままでは './oldsample.html' みたいになってしまいます。

28 · 01/10/25 11:49

>>31 萎え。
言わずにちょっとだけ考える余地を残しておいたのに・・・

31 · 01/10/25 12:22

>>32
そりゃ失礼。
っていうかそのスタイルいいですね。今後はそういう風にします。

**>>17 こちらのほうが…** · 01/10/25 13:02

http://piza2.2ch.net/test/read.cgi/tech/991994996/522
$name eq 'tinko pinpin' and ++$cnt

**煽ってるわけじゃないですが** · 01/10/25 14:26

コンパイラによる最適化とかって、無いんですか？

**名無しさん＠お腹いっぱい。** · 01/10/25 15:09

最適化のｵﾊﾞﾍｯﾄﾞのが無駄じゃんかよ
漢ならそんな事気にすんなよ　な！
コンパイラ如きで最適化されてるうちは素人って事よ
がはははは！！！！　　　　はぁ....

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

>>35
何を指して言っているのかわからん。

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

op.cのpeep()を見ろ、と昔誰かが書いてた。

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

（ ´∀｀）＜おまえもぬー

**名無しさん＠お腹いっぱい。** · 01/10/25 18:32

DBMの質問です。

DBMってレコードの数が多いと、オープンしたときにそれなりのメモリを消費するのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/10/25 18:56

DBMの場合はハッシュに全てデータを入れてるように見えるけど、
実際はデータが全てメモリに展開されることは無かったかと。

使い方によってはメモリ食うだろうし、データが多くなればなるほど
重くなるのはどんなシステムでも同じですが。

**今日からPerlさん** · 01/10/25 19:50

結局わかんないので正解ください

**名無しさん＠お腹いっぱい。** · 01/10/25 19:58

>>42
答え出てます。
>>28、>>31

**JAPU** ◆JAPUTeX. · 01/10/25 20:08

>>42
何が分からないの?
単に正解だけを求めるのは良くないよ。

----
ちなみに、http://www.japu.org/cgi/security/ は既に移転しています。
(ジャンプするようにしてあるけど。)

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

(^∀^) ｵﾏｴﾆﾊﾑｲﾃﾅｲｶﾗﾔﾒﾄｹ　　ﾏｳｽﾃﾞｺﾋﾟｰｼﾛ
ｱﾊﾊﾊh　ｱﾎｶ

**名無しさん＠お腹いっぱい。** · 01/10/25 21:06

45 = japu

**名無しさん＠お腹いっぱい。** · 01/10/25 21:18

45=46

**27の母** · 01/10/25 21:23

初心者を指導して気持ちよくなるのは自慰行為
本当に２７＝４２だか知らんが、オナニスト先生は正解も書いてちょんまげ～

40 · 01/10/25 21:36

>>41
ハッシュに入れてるのでメモリを食ってるのかと思ってました。
ありがとうございました。

27 · 01/10/26 00:07

>>48 当然。
ボランティアで質問に答えるのが自慰行為以外の何者であるか。

**名無しさん＠お腹いっぱい。** · 01/10/26 05:34

掲示板を作ろうとしています。
.htmlファイルにあるフォームに内容を書いて投稿すると.cgiファイルに渡して
処理をし、表示させるというものはどうにか作ることが出来ました。
しかし色々な方が作っている掲示板の中には投稿フォームの表示から書き込まれ
た内容の処理、それらの表示までを.cgiファイルだけでほとんど全ての処理を行
うものがあります。次はこういうスクリプトを作りたいのですが、どうしてもう
まく行きません。

既にログファイルに書き込まれている内容を投稿フォームの下に表示することと
投稿した内容をログファイルに書き込むことはできるのですが、書き込み→処理
→表示ができません。つまり、投稿した内容はリロードしないと読むことが出来
ないのです。

ただ上の動作をさせたいためだけに作ろうとしたスクリプトとはいえ、仕上って
みるとやたらに『</body></html>』の多いものになってしまいました。今までは
どんなに頑張ってもできなかったのに、ここに載せるために書いたものが偶然そ
ういうものになったという棚ボタスクリプトのため、効率も何もあったものでは
なく・・・。

ここに載せるにはあまりにも長いため、別サイトに置くことにしました。
http://www.geocities.co.jp/Outdoors-River/5665/sample.txt

よろしくお願いします。

01/10/26 07:00

http://www.kent-web.com/
ここにある簡単なBBSのスクリプトをダウンロードしてから処理の流れ見て
みましょう。
デバッグの方法がわからないなら、
sub debug_print {
print "Content-Type: text/plain\n\n";
foreach (@_) { print "$_," }
exit;
}
でも使って1行ずつわからない変数があれば目で見て調べましょう

**名無しさん＠お腹いっぱい。** · 01/10/26 07:36

>>51
そのソースのまま順番を変えたら表示出来たよ。
$ENV{"CONTENT_LENGTH"}空なら書き込み処理はいらないよね。

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

⊤ # 投稿フォームを表示して
&log_viewer; # ログ展開して記事表示
&get_time; # 日時取得して
&decord; # フォームデコードして
&data_write; # ログに書き込み。

>>52さんの言うように
他の配布スクリプトの処理の流れを見て、
BBSがどういう処理をすれば動くのか考えてみるといいかも。

&decord; # フォームデコードして
&get_time; # 日時取得して
&data_write; # ログに書き込み。
⊤ # 投稿フォームを表示して
&log_viewer; # ログ展開して記事表示

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

cronを制御するプログラムを書こうと思っています。
Schedule::Cronを使おうかと考えていますが、実行プログラムをエントリーすることは
できても削除することはできません。
(全部削除することはできる)

cronを自由自在に操るライブラリもしくはcron likeなプログラムってありませんか？

**名無しさん＠お腹いっぱい。** · 01/10/26 18:06

はじめまして。
PerlでCGIを書いてるプログラミング初心者です。
いきなりですが、
ローカルで動いたCGIがアップすると動かない場合、
どんなミスが考えられるでしょうか。
パスはあってます。
パーミッションもあってます。
これ意外でなにか思い当たることがあれば教えていただけませんか？
よろしくお願いします。

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

>>56
エラーになる原因はいくらでもあります・・
httpdのエラーログ見ましょう。

56 · 01/10/26 19:14

>>57
すみません、httpdって何ですか？

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

（＾∀＾）すみません、ｱﾅﾀﾊﾞｶﾃﾞｽｶ？

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

>>59
貴様が馬鹿だ。

56 · 01/10/26 20:22

>>59
馬鹿かどうかはともかく、知識がないことは認めます。

質問の仕方が悪かったようなのでまとめます。。

自分用に日記スクリプトを組んで、
ローカルでは正常に動きました。
環境はMacJPerlとWEB共有でした。
MacJPerlでの構文チェックはOKが出ました。

このあと、借りているサーバにアップして
パーミッション設定をして動かしてみました

そしたら、一部の機能は動いたんですが
サーバがエラーを返す時もありました

なぜかわからないので、
もしかしたら・・と思うところがあったら
教えていただけませんか？

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

詳しくないけどシステムに依存したコマンドがあるんじゃないの？

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

ふむ、初めからそう書けば良いのに、httpdは検索してくれ、サーバの事
で、残念だけど、自分で書いたコードならその「エラーを返す時」がどんな
コードなのかを書かないと答えられない
これを使ってエラーを捕捉してみてくれ
http://www.kawa.net/works/perl/catch/news.html

Unixlike<=>Mac<=>WIN、環境で結構引っ掛かるので俺が知ってるのは
ディレクトリ区切り子　\とか/とか:とか
ディレクトリ相対パスの問題　IIS3とか
スクリプト起動時のカレントディレクトリの問題
OSに依存したシステムコール
OSに依存した関数の使用

多分まだまだネタはあるはず

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

find関数（File::Find）ではファイルがアルファベット順に
出てくるようなのですが、これをタイムスタンプ順にすることは
可能でしょうか？

51 · 01/10/27 00:19

>>52
>>53
>>54
ありがとうございます。
確かに・・・。
流れを読んだ上で組み合わせれば何と言うことのないことでした。

>>52さんが紹介してくれたサイトのスクリプトをじっくり眺めてみることにします。

ありがとうございました。

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

>>64
ディレクトリ単位でソートするなら可能だよ。

find( {wanted => \&wanted, preprocess => \&preprocess }, $dir );

sub preprocess {
@_に入ってくるファイル名をタイムスタンプでソートした結果を返す
}

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

>>66 わぁ。ありがとうございます。
ディレクトリ単位で良いです。っていうかディレクトリ単位が良いです。
助かりました！

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

俺ってまだよく理解できてないからフローチャートとか書いて
から組んでるんだけど知り合いとかはさくさく組んじゃうんだよね。
フローチャート作ってる俺って厨房ですか？

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

なんでもそうだろけど使い方による。
グチャグチャと絡まった概念を解く事が出来るから漏れは良く書いてる
(覚え書き程度のもんだが・・・)
Keyboardばっかり叩いてると、紙に書いた事は結構クッキリと頭に残ったりとかね

*死ぬ程忙しい時は、するべき事を紙に書いてみよう、意外と大事な用は一つだったりして

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

ageageage

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

$var /= 32;
$var >>= 5;

ではどっちが速いですか？？

**Perl上級者** · 01/10/27 20:32

くだらん。そんなことを気にするぐらいならPerlで書くな。

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

>>71
自分でベンチマークとれ。

71 · 01/10/27 20:34

ベンチマークってどう取ればいいのですか？それがわからないのか(＾＾；；；＞俺

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

Perl上級者は真性、相手すると感嘆符使いまくってウザイので完全無視でお願いします　

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

>>74
perldoc -u Benchmark
これで大体分からないかな、要はかっこでくくるだけだよ

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

>>71
後者は小数点以下切り捨ててないかい？

**名無しさん** · 01/10/27 20:50

Perl上級者＝高卒　ﾌﾟ

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

Perl上級者＝jaﾌﾟ

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

>>78-79
煽り止めれ。Perl上級者と同レベル。

**Perl上級車** · 01/10/27 21:16

この板で一番レベルの高いスレッドはどこだ？
こんな程度の低いところは嫌だからな。

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

車だってさ(w

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

>>81　eq　ﾀｰﾐﾈｰﾀ

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

>車
過疎地うろついてないでマ板いきなよ
Perlスレもぽこぽこ建ってるし

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

ログ移転前に書いてみる。

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

移転上げ

**名無しさん＠お腹いっぱい。** · 01/10/28 21:53

age

**名無しさん＠お腹いっぱい。** · 01/10/29 03:25

(aa..zz,aA..zz,Aa..zz,AA..zz)
みたいなアルファベット大・小文字全部並べるスライスの，簡単な書き方ってありますか？

関数に文字数指定して，文字列として書かせたのを，evalして使ってるんですが
無駄なことしてるかもと思ったので。

**名無しさん＠お腹いっぱい。** · 01/10/29 03:30

もっと具体的に説明きぼん

88 · 01/10/29 03:50

>>89
普通に手で書くと，文字数増えるごとに書くのもどんどん増えていっちゃうので，
(aa..ZZ)とか(\w{3})みたいな書き方はできないかなぁと。

88の関数はこんなのです。
@arry = eval getArry(1);
sub getArry {
　my $nest = shift;
　my $word = shift || '';
　my $i = 0;
　my $ret = '';
　foreach (a,A) {
　　my $word = $word.$_;
　　if ($nest>0) {
　　　$ret .= getArry($nest-1, $word);
　　} else {
　　　$i++;
　　　$ret .= "$word..";
　　　$ret .= 'z'x length $word;
　　　$ret .= ',';
　　}
　}
　return $ret;
}

**名無しさん＠お腹いっぱい。** · 01/10/29 07:15

それ異常の書き方は無いと思うなあ。
つーかむしろ(a..z)だけにして、文字列長投げるような関数に
した方が良いんじゃないの?
呼び出しのコストを嫌ってるのか･・・・
漏れはデカイ配列の方が嫌いだけどなあ

**名無しさん＠お腹いっぱい。** · 01/10/29 07:19

あ、すまん、そうしてるんだね。
再帰しなくても良さそうだな、、
帰ったら書くわ

**名無しさん＠お腹いっぱい。** · 01/10/29 17:18

>>91
>漏れはデカイ配列の方が嫌いだけどなあ
俺もおなじくです。2文字(aa～ZZ)ぐらいならいいんですが、
4文字(aaaa～ZZZZ)なんかはちょっと配列に入れるのがつらい。

用途にもよるけど、呼び出すごとに「次の文字列」を返す関数を
作って、STLのnext_permutationみたいな使い方をするのが
いいと思う。

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

あるファイルの行数を調べたいのですが、
一番メモリを使わずに調べる方法は何ですか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:04

my宣言した変数は出来るだけ早くundefした方が良いのでしょうか？

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

>>94
nバイトずつreadして"\n"の個数を数える。

**名無しさん＠お腹いっぱい。** · 01/10/29 21:15

>>94
my ($lineNum,$fileName,$buf);
open (FH,"fileName");
while (1){
read(FH,$buf,1);
last if $buf eq '';
$lineNum++ if $buf eq "\n";
}
print "行数は$lineNumです\n";

**名無しさん＠お腹いっぱい。** · 01/10/29 21:45

>>94
open(FH, $file) or die "Can't open $file";
my $count;
$count = $. while (<FH>);
close(FH);

**名無しさん＠お腹いっぱい。** · 01/10/29 21:54

>>95
大量のデータを長期間無駄に保持するのは避けたいけど、
ほとんどの場合、あえて明示的にundefするまでもないと思う。
まあ具体的なコードを見ないと判断つかないっすね。

**始めて数日なんですが** · 01/10/29 22:08

検索したり本を見ても、書いてなかったり、さっぱり意味不明だったりと自分ではなかなか判断がつかないとき、「内では～となっているので～とした方がいい」って明解に断言してくれる人がいると役に立つんだけど、みなさんはどうしてるんですか？

**Perl上級車** · 01/10/29 22:11

>>100
首吊って氏ね。

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

>>100
> 始めて数日なんですが
日本語を？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
perldocの該当個所を4～5回読み直し、それでも理解できなければ
いまは知る必要がないのだとあきらめて後回しにした。
すくなくとも他人の言葉には頼らなかった。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
とにかく、首をくくるのがいいと思われ

**マジレス** · 01/10/29 22:23

>>100
始めて数日の人がそんな壁にぶつかる訳がありません。
Googleで検索したりリンク辿ったりすれば、参考になるものが
見つかるはずです。
少なくとも初心者の内は検索などで十分です。
（分不相応な事をしなければ）

そして初心者を抜ければ殆ど自分で判断できるようになる筈です。

**Perl上級者** · 01/10/29 22:27

とにかく邪魔だから二度と出てこなくていいよ。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:28

>>106
お前も一々煽るな。邪魔臭い。

**Perl上級者** · 01/10/29 22:29

ﾊｧ？ココは気持ち悪い馴れ合いスレですか(わら

**名無しさん＠お腹いっぱい。** · 01/10/29 22:32

>>108
馴れ合いの逆は煽りかよ。馬鹿丸出し。
いいからとっとと失せろ。

01/10/29 22:34

Perl上級者は無視の方向で。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:37

CGI.pmってどうなの？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:43

>>111
「どうなの？」って聞かれても何と答えれば良いのやら。

**名無しさん＠お腹いっぱい。：** · 01/10/29 22:59

つーかPerlの上級者って、、、なんかショボイなあ　(ﾟεﾟ)

**Perl上級者** · 01/10/29 23:09

・・・と、初心者以下の素人が言いました、とさ（大爆笑）

**Perl上級者** · 01/10/29 23:12

これこの板の名無しにどうよ？
あとtinkopinpinとか　　ｹﾞﾗｹﾞﾗ～

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

shigeより馬鹿っぽい所が悲しいよな、（大爆笑）だって･・・・
この板の哀愁が漂ってくるね
もっと勉強しよ･･･

**名無しさん＠お腹いっぱい。** · 01/10/30 01:03

未熟ながら、初心者スレッドと言う事でお許しください。

あるログインCGIを作っていて
ログイン（ID/Pass）→　メニューとメイン画面をフレームで表示
と言う処理を行っています。
このときメニューとメイン画面もログイン用のファイルと一緒にしているのですが、
別々の物に分けたほうが良いのでしょうか？

//サンプル
if{
　&ログインパスチェック
}elsif{
　&左フレーム（メニュー）表示
}else{
　&右フレーム（メイン画面）表示
}
#それぞれ引数を変更してやって判定

sub ログインパスチェック{
if(パスチェックが成功したら){
print <<EOM;
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=01 NAME="menu">
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=02 NAME="main">
EOM
}else{
print <<EOM;
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=01 NAME="menu">
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=03 NAME="main">
EOM
}

瞬間的に3度同じファイルを実行する事になり、そのたびにデータを読み出しているので心配です。
また、他のファイルに分けて処理した方が動作がスムーズになる、とも聞きました。
どうでしょうか。
足りない部分があれば随時補足させて頂きます。
根本的にこんなロジックにした方が良い、と言う意見もあれば是非お聞かせください。

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

>>117
この場合、認証をすべてlogin.cgiでまかなうのも、
login.cgi、frame.cgi、main.cgi、menu.cgi等に分割するのも、
さして変わりはないと思う。
どちらにしても認証後に3つのCGIがほぼ同時に起動するわけだし。

なにか改善策があるとすれば、
＞根本的にこんなロジックにした方が良い、と言う意見
ここだろうけど、おれには考えつかない。
CGIで認証する限り、「１ページ表示するごとにパスワードファイルの読み書きが必要」と
いう問題は避けられないのでは。

**名無しさん＠お腹いっぱい。** · 01/10/30 03:48

>>118
なるほど、貴重なご意見有難うございます。
やはり逐一パスワードファイルにアクセスしないといけないのは
宿命ですかね。

**名無しさん＠お腹いっぱい。** · 01/10/30 09:32

>>117&119
どっちかってーとCGIだけどなんか質問ある？向きだけど・・・
とりあえず「セッション」とかって言葉を調べると幸せになれるかもしれません。。。えいめん。

ぽ · 01/10/30 14:05

cron でフルパス起動されるコマンドなんだけど
ライブラリの場所は相対で ../lib にあります。
エレガントな指定方法を教えてください。
今は
{
my $base;
BEGIN{
$libPath = $0;
$libPath =~ s|/[^/]+$|/lib|;
}
use lib ($libPath);
}

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

素直にフルパスで書くのが一番だと思うが。

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

>>121
フルパス指定がいやならFindBinモジュールを利用。

**121** · 01/10/30 17:03

>>123
ありがと（＾－＾）
まだまだ知らないモジュールがいっぱい．．．
精進せねば．．．

**名無しさん＠お腹いっぱい。** · 01/10/30 17:04

>>121
cronで起動するときにchdirする方法を愛用してます。
スクリプトのほうで小細工する必要なし！

**121** · 01/10/30 17:12

>>125
あと /etc/aliases から "| /foo/bar/hogehoge" でも起動されるやつも
あるんで FindBin でいくことにします

はっ /etc/aliases のやつも "| (cd /foo/bar ; ./hogehoge)" すると
いけるのかな？

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

すいません、perl全くの初心者なんですが
Mac OS 9.02から、Mac OS 10.1にして勉強を始めようと思っています
しかし、Mac OS 10.1に入ってるperlは日本語関連でかなり問題がある、
というのを聞いて驚きました。
ビギナーではMac OS 10.1はやめておいた方がいいのでしょうか？
参考書みてもそもそも正常に動作しなかったら挫折しやすい、というか。
どのような問題があるかはgoogleなどで引っかけても上手くかからなかったので
わからないんですが、よろしければアドバイスお願いします。

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

ここはマック使う人少ないみたいだよ。
マックのことはマック使ってる人に聞くのがよろし。

マックでプログラムやるなら
http://pc.2ch.net/test/read.cgi/mac/1003548817/
ＭＡＣの開発ソフト
http://pc.2ch.net/test/read.cgi/tech/978844038/

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

あの＝。jcode.plとcgi-lib.plって再配布して
いいんですか？

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

>>128
あ、ありがとうございます

**あげてみる** · 01/11/02 13:01

seekの説明にある、「行番号をバイトオフセットに変更するインデックス」を作成してくれるモジュールないっすかねえ

**名無しさん＠お腹いっぱい。** · 01/11/02 19:40

質問なんですが
ハッシュをサブルーティンに渡して、サブルーティンの中でも同じように
ハッシュとして参照したいのですが、どうもうまくいきません。
下のように書いたのですが、値が表示できません。
どのようにすればうまくいくか教えていただけないでしょうか？

my %jjj ;
$jjj{'aaa'} = "111";
$jjj{'bbb'} = "222";
$jjj{'ccc'} = "333";
&test( %jjj ) ;

sub test {
my $jjj_ref = @_ ;
print("####　$jjj_ref->{'aaa'}") ;
}

Ks · 01/11/02 20:11

掲示内容が不適格であったらごめんなさい。
httpヘッダで困っています。

・httpの拡張ヘッダって編集できるものなの？
・どうやって編集するの？
・拡張ヘッダの設定内容を見て処理をするって可能なの？どうやって
　するの？

誰か教えて頂けませんか？
もしくはわかるサイトを教えて頂けませんか？宜しくお願いします。

**名無しさん＠お腹いっぱい。** · 01/11/02 20:17

&test( \%jjj ) ;
sub test {
my $jjj_ref = $_[0] ;
print("####　"."$jjj_ref->{'aaa'}") ;
}
ハッシュの前に引数の受け取り方を調べよう　：-）

**名無しさん＠お腹いっぱい。** · 01/11/02 20:18

どうやってするのか分からないけど全て可能です。
詳しくはここ
http://www.w3.org/Protocols/rfc2616/rfc2616.html

**名無しさん＠お腹いっぱい。** · 01/11/02 20:34

冷たいんだね

**名無しさん＠お腹いっぱい。** · 01/11/02 20:37

プロトタイプって手もある
sub test(\%);

test(%jjj);

sub test(\%){
my $href = shift;
print $href->{aaa};
}

**名無しさん＠お腹いっぱい。** · 01/11/02 20:41

変数に例えば
$hoge ='aa,bbb,cc,ddd,nn,nn,yy,zzz';
のように格納されていた場合後ろから2つ目の「,」
の位置を調べたいのですがどうすれば良いのでしょうか？
お願いします。

**名無しさん＠お腹いっぱい。** · 01/11/02 21:38

(length join ',,',(split /,/,reverse $test)[0,1])

**名無しさん＠お腹いっぱい。** · 01/11/02 21:43

>139
レスありがとうございます。
早速使わせていただきます。
どうもでしたm(_ _)m

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

rindexを２回使うという手も。

**名無しさん＠お腹いっぱい。** · 01/11/02 21:49

>141
それはどういうものでしょうか？
POSを使うのですか？

**141** · 01/11/02 22:01

>142
文字を後ろ向きに検索して，見つかった位置を返す。
perldoc -f rindexあたりで説明見られると思う。

**名無しさん＠お腹いっぱい。** · 01/11/02 22:03

試してみます。
親切にどうもありがとうございますです。

**132** · 01/11/02 23:28

>>134
>>137
ありがとうございます。勉強し直します。

&test( \%jjj ) ;こう書いてました。
根本的に勉強不足だったようです。

**ｃｇｉビギナー** · 01/11/03 01:03

掲示板を作っています。ベテランには痛い質問かもしれませんが
今ｅａｌｉｓという掲示板で奮闘しています。
関連サイト→http://kano.vis.ne.jp/erial/
そこの設置開設のところでｐａｒｌパスを書き込むのですが
最初の行に#!/usr/local/bin/perlと書き込めばよろしいのでしょうか？
まだ質問がありますがひとまずお願いいたします。

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

>>146
何を言いたいのか全く解りません。
普通、CGIを設置する上で"Perlのパス"といった場合は
#!/usr/local/bin/perl
などの1行を指す場合は多いです。
この1行はサーバ上のPerlというプログラムの位置
（WinでいうならC:\Program Files\perl\perl.exeという感じ）
を表します。
そのため、サーバによってインストールされた場所も異なり、
サーバごとに記述するべき内容異なります。

そもそも、ここに書き込む前にしかるべきサイトで
CGIについて勉強してくるべきだと思われます。

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

>146
KENT氏のページへ行かれたほうがよろしいかと思います。
http://www.kent-web.com/

氏のサイトは，初心者にも優しいと定評があります。

**148** · 01/11/03 01:19

誤字
優しい->易しい

**ｃｇｉビギナー** · 01/11/03 01:18

>>147
ご忠告感謝いたします。>>148氏が書き込まれたサイトにて学んできます。

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

他のサイトからのアクセスを制限したいのですが、
（チャットのよそからの発言を禁止するような感じです。）
referer調べる以外で良い方法は無いものでしょうか？

**名無しさん＠お腹いっぱい。** · 01/11/03 02:55

>>151
IDを発行するとか。

**名無しさん＠お腹いっぱい。** · 01/11/03 13:58

再帰の深さってどれ位まで許されてるんでしょうか？
処理系依存ですかね
スタック食い尽くす前にヲーニングくれたりしないかな・・・

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

$_
ってなんですか？
厨房でスイマセン…。

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

@_ = ($_[0], $_[1], $_[2]);

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

ﾊｧ(゜Д゜）?

**ｃｇｉビギナー=146** · 01/11/03 16:31

何とか掲示板が設置いたしましたがその掲示板で書き込みをしたとき
あとページエラーが出てしまいます。
原因は$INI{'locate'} = 'http://www.hogefoo.ne.jp/~bar/cgi-bin/ealis/';
という所で「eliasをインストールするDIRのhttpパスを書く」という単語の意味がわからず
間違っている書き込みをしていると思います。
お手数なのですが改善できる術は無いでしょうか？
関連サイト→http://kano.vis.ne.jp/erial/ealis/setup.html
そのealisを置いている場所は
ttp;//トップ/cgi-bin/test
のテスト言うディレクトリに入れてあります。よろしくお願いいたします。

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

eliasをインストールするDIRのhttpパスを書く
　　↓
eliasをインストールするディレクトリのアドレスを書く
　　↓
分からない単語は検索しろ
ディレクトリ、アドレス、パス、http://www.google.com/

**ｃｇｉビギナー=146** · 01/11/03 17:02

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

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

$_ は省略時に暗黙の内に使われる変数。
たとえば、
while(<>) { print }
は
while($_ = <>) { print $_ }
と等価。
length の引数を省略したときは length $_ を返す、とかいろいろあるので、「プログラミングPerl改訂版」を読みましょう。
(perldoc でもよいが)

**名無しさん＠お腹いっぱい。** · 01/11/03 18:59

$_を介すると、ほんのちょっとだけ処理が早くなる傾向がある（ようだ）。
常時、積極的に使用するほどメリットがあるとは思わないが、
何万回といったループの中で使うと結構でかい差になるかもしれない。

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

>>157 初心者は使うなって書いてあるやん・・・

**_gunzip@鬱だ詩嚢** · 01/11/03 20:33

>>153
my()で確保しているpadlist内の変数の数/大きさにも依りますから
一概に何回、とは言いきれません。

ただ、-w オプションを付ける、ないしwarningsプラグマで
"recursion"カテゴリの警告を行うよう設定していれば、
サブルーチンの100回以上の再帰呼び出しがなされた時点で警告が出ます。
(中止するわけではないので、あまり意味はありませんが)

各CVは、おのおの自分自身の再帰呼び出し回数をxcv_depth
メンバに保持していますから、内部APIのCvDEPTHマクロを利用して、
規定回数以上になれば強制的にreturnさせるコードを挿入する
ぐらいしか対策がないような気がします。

I32 get_depth(SV *sv)
{
    if(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV)
        return CvDEPTH(SvRV(sv));
    else
        return -1;
}

**_gunzip@鬱だ詩嚢** · 01/11/03 20:43

っていうか、数えた方が早いね。

**名無しさん＠お腹いっぱい。** · 01/11/03 23:48

>>159 ｃｇｉビギナー=146
ここは1に書いてあるように「perlのコーディングで困ってる人のスレ」
だから、こっちで聞く方が良いと思いますよ。

ＣＧＩだけど、なんか質問ある？part４
http://pc.2ch.net/test/read.cgi/php/1000804655/l50

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

>>151
手続きなど無しで制限したいのですがやはり無理でしょうか？
お願いします。

**名無しさん＠お腹いっぱい。** · 01/11/04 00:06

>151 自鯖なら .htaccess。

**名無しさん＠お腹いっぱい。** · 01/11/04 00:22

>167
.haccessで制限できますか？
↑関連スレで質問した方が良いかな？

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

>>168
167は.htaccessでユーザ認証しなさいってことじゃないすか。
いちおう.htaccessのRewriteRule/RewriteCondを使うと
リファラを見て外部からのアクセスを拒絶することはできるけど、
151でリファラ以外の方法って書いてあるしね。

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

バイナリコードを含む文字列を特定の長さに切りたいのですが
どうすれば良いでしょうか？

$str='a壱弐参四五'; # length:11
$str=~s/^(.{10}).*/$1/;

例えばこんな感じで長さを10にする事はできるのですが、
バイナリデータをぶった切ってしまってバイナリの片割れが出てきてしまいます。
切る所がバイナリデータだった場合は回避して、この場合は長さ9にしたいです。
バイナリデータの判別方がわかれば何とかできると思いますがわかりません。
どうすれば実現できるでしょうか？

**ｃｇｉビギナー=146** · 01/11/04 03:44

>>165
無事に掲示板を設置することが出来ました。
どうやらＤＩＲ＝ディレクトリのことらしいでここら辺がわからなかったのですよ。
色々お手数をおかけしました。今度β版と言う難しいのに挑戦しようと思っているので
そちらの方に質問をさせていただくかもしれません。
とりあえず今はトホホのサイトにて勉強しながらやっていきます。

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

>>170
いろいろあると思うが、おれはこうしてる。
(1)最初に10バイトで切る。
(2)先頭から「正しいバイナリ」が続く部分だけ残して、その後ろを削除。

たとえば「Shift_JISまたはASCII」を切り出す場合は、
$str = substr($str, 0, 10);
$str =~ s/^((?:[\x81-\x9F\xE0-\xEC][\x40-\x7E\x80-\xFC]|[\xA1-\xDF]|[\x20-\x7E])*).*/$1/;

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

>>172
正しいバイナリというのがそう言う感じで記述できるんですね。
扱おうとしてるのはSjisだし、なんなら文字コード変換もできるので、
そのまま使えそうです。
漠然とわかったので、自分の中でちょっと煮詰めてみます。
ありがとうございましたー。

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

>>173
>正しいバイナリというのがそう言う感じで記述できるんですね。
いや「Shift_JISまたはASCII」というのは、
正規表現であらわせる素直なデータだからね。

「正しいバイナリ」の定義によっては、１バイトずつ切り出して
逐一判定しなければならない場合もたぶんあるでしょう。
いつでも正規表現が使えるとは思わないほうがいい。

**173** · 01/11/04 14:35

>>174
メタキャラを含んだ文字列の正規表現でエラーというのは
既に実感を伴って経験済みです。

ともあれ、無事に実現できました。ありがとうございます。
しばらく様子を見てみて、エラーが生じたりするようならまた考えてみます。

**153** · 01/11/04 17:36

_gunzipたんｱﾘｶﾞﾄｰ（・∀・）&& お久しぶり
ちょっと聞き方がタコでしたね、perlマンセーな処理が有ったんですけど
家では問題無かったのに、会社のプアﾏｼｰﾝだとあぼーんしたんで
少し気になったんです、流石にそこまでは面倒見てくれないですか。。。
取り合えず50回位潜ったら、一旦全部抜けて、
続きからやり直し、って言う風にしてみましたです。

**名無しさん＠お腹いっぱい。** · 01/11/04 17:57

ちょっとお聞きしたいのですが
いま、ちょっとはまってしまっています。
状態は、５００文字から１０００文字くらいの文字列をいくつか作って
print文で表示させたいのですが、文字列を３個作って、３カ所print文を
文字列作成後に表示させようとすると、最後のprint文の途中まで表示して
そのまま待ち状態に、一回プログラム止めて今度は５個作って表示させると
さっき止まった３個目はきちんと表示されて、今度は５個目の途中で表示が
止まってしまいます。何回か実行させてみても同じところで表示が止まって
しまいます。どうも長い文字列のprint文（いくつかある時の）最後のprint
文で起こるようなのですが
出力先はブラウザです。print文の後には文字列を使う処理がありますが
そこまで進めません。print文で止まってしまって
どなたか同じような状態になったことある方いらっしゃられませんか？
どのようにしたら正常に表示できるのでしょうか？
わかりにくい説明ですみませんが、どうぞよろしくお願いします

**名無しさん＠お腹いっぱい。** · 01/11/04 18:05

$| = 1;

ぽ · 01/11/04 18:49

>>170
Jcode.pm に　jfold ってのがあるよ

**177** · 01/11/04 20:39

もう一つお聞きしたいのですが
perlで、C言語とかでいうデバッガみたいなものは、ないのでしょうか？
上で書いたような状態でもう２，３日苦しんでいる状態で
できれば、１行ずつとかで、実行して原因がわかればと考えたのですが
わかる方、どうかご回答よろしくお願いします

**名無しさん＠お腹いっぱい。** · 01/11/04 20:51

当方，Ｃ言語のプログラマです．
ある特定の定義を一気にコメント化したりするのに，
sed等のコマンドを使って，シェルスクリプトを書いてました．
こんどperl を使ってこういう処理を使用と思ってるのですが，
あなたの使っているいいソースありませんか？（笑）

**名無しさん＠お腹いっぱい。** · 01/11/04 21:59

>>181
s2p とか a2p を使うと吉かと。

**177** · 01/11/04 22:19

書き忘れたのですが
いくつかのcgiを経由して、情報を集めて処理するcgiで現象が起きています
引き継いでいるデータがかなりあるので、困っています
一個のモジュールでのデバックはやったことあるのですが、
画面表示(html)->入力データ処理・検索・画面表示(cgi)->入力データ処理・画面表示(cgi)->
のような感じで、最終的に現象の起こっているcgiに行く頃にはかなりの情報があります
こういう場合コマンドラインでのデバックって可能なのでしょうか？
htmlもそのまま表示されてボタンとか押せないですよね
何かいい方法ありませんでしょうか？
よろしくお願いします

**名無しさん＠お腹いっぱい。** · 01/11/04 22:46

CGIほとんど書いたことないんで詳しいことは他の方に譲りますが
#っていうか間違ってるかも知れない
180>
perl -d script_name

183>
use CGI::Carp;
HTMLのコメント文としてデバッグ情報を出力
perl -d -MModule -e '1;' してmoduleをテスト
スクリプトそのものを少し書き換えてコマンドラインで動くようにする
とかいうのを思い付きます。

**177** · 01/11/04 22:57

>>184さん
ありがとうございます。
調べて試してみます

**151** · 01/11/05 01:45

>>169
やはりrefererを使ってはじくしか無いのですね。
レスありがとうございました。

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

>>181
ある特定の定義って何よ？
そこんとこ、もう少し聞かせてくれない？ C言語だよね？

**名無しさん＠お腹いっぱい。** · 01/11/05 18:02

http://natto.2ch.net/test/read.cgi?bbs=off&key=1003929930
これ逝く人いないの？

**名無しさん＠お腹いっぱい。** · 01/11/05 18:04

sub func() {
#...
}

sub func()
{
#...
}

みなさんはどっちが好みですか？

**名無しさん＠お腹いっぱい。** · 01/11/05 18:41

>>189
前者。

**名無しさん＠お腹いっぱい。** · 01/11/05 18:57

>>181
同じく、関数定義の事言ってるのか、だったら呼んでる所も
一緒に殺すって事?　どうもperl万歳っぽい気はするが意味が解らん　ｗ
俺は関数改造した時とか一気に名前入れ替えるのに使ってる

**名無しさん＠お腹いっぱい。** · 01/11/05 21:48

関数の処理の負荷に関するスレ立てるのってどう？
同じ処理でもこっちの方が良いとか。
あと前誰かだしてたけど、処理の負荷に関するページの紹介とか。
同じ変数使いまわすなら最初に変数の領域を確保しといた方が
良いとかそんなの。

**名無しさん＠お腹いっぱい。** · 01/11/05 22:30

こっちではどうでしゃっろ
http://pc.2ch.net/test/read.cgi/php/991313362/

**192** · 01/11/05 22:35

スレ立てるまでも無いですね。
というかスレ立ててもすぐ下がっちゃうか…。
どこかこんなページあれば教えて欲しいです。

**名無しさん＠お腹いっぱい。** · 01/11/05 23:18

>>181
ちゅうかsedもCも知ってるならそん位1日で出来る様になるよ！
perldocの、「sedの洗練されたPGが～～」「Cに洗脳されたPGが～～」
辺り読めばバッチシ、正規表現なんかは後方互換性有るから結構そのまま使えるしね
その手のはビックリする位サクサク出来ちゃうぞっと♪
そしてダメな人間になって行くのじゃ　　ふふふ

**名無しさん＠お腹いっぱい。** · 01/11/06 03:08

>>195
そそ。で、Perlないと仕事する気にもならないと。（ｗ
実際、Unix -> Winに移ってきて、シェルやコマンド群の貧弱さには
閉口したけど、Perlが使えるんで何とか工夫してやってる。
ただ、Winで真っ黒な背景のDOS窓開いて、パイプやリダイレクト組み合わせて
コマンド打ち込んでいると、確実に異端視される。
素人にはお勧めできない。(縛

**名無しさん＠お腹いっぱい。** · 01/11/06 04:54

Macperlの初心者なのですが、もしご存じの方がいらっしゃいましたら
教えてください。webページのフォームからpostメソッドでファイルを
cgiにアップロードしようとしているのですが、32KB以上のデータって
macperlだと受けとれないんでしょうか。32KB以下のサイズのファイル
だとうまくいっているのですが・・・。

**名無しさん＠お腹いっぱい。** · 01/11/06 16:49

>>197　サーバは何使ってるの?
少なくともMacperlにはそんな機能は無いしバグも上がっていない(筈)

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

>197
cgi-lib.plを利用していますか？
＞$cgi_lib'maxdata = *****; # maximum bytes to accept via POST - 2^17
この行を確認してみてください。

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

自分のいえの鯖にcgiファイル置いてみてみようと思ったんだけど
「Internal Server Error」が出ます。
パーミッションもあってると思うし原因が不明です。
Apacheでcgiの許可のあるディレクトリに置いてます。
test1.cgiって言うファイルです。

perlの場所も確かめました。