【Perl】初心者コーナー Part14

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

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

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

CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

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

[過去ログ]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10　http://pc.2ch.net/php/kako/1014/10145/1014556702.html
Part11　http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12　http://pc.2ch.net/test/read.cgi/php/1019917048/
Part13　http://pc.2ch.net/test/read.cgi/php/1022731565/

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

[総合]
　・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メモ: 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/

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use 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
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

[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
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・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/

【Perl】
http://pc.2ch.net/test/read.cgi/php/1026968140/l50

6get

もういいのかな？
とりあえず乙彼

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use 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
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

[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
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・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/

あー、そっか。終わったらそう書くべきだったね、ゴメン。

削除依頼提出済み

==終了==

foreachがわからなくて卒業できませんでした。
はぁ〜。/Д`)

記念カキコ

パターンマッチがうまくいってないです。
同じ文法でデータベースを変えるとちゃんと走りやがります。
つらいです。

質問

フレーム形式のホームページで
２個のフレームのうちの一つに画像型CGIを埋め込む。
正しいreferereを取りたいんだがどうしたらいいですか？

envだとフレームのURLを、javascriptの手法を使用しても
フレームの呼び出し元のindexのURLをもってきてしまう。
indexにはjavascriptが使えないみたい。

document.referrer
の代わりに
parent.document.referrer
を使う。

jsね。

超初歩的な質問ですが、
Perlでコメントを書く場合に

# 【注意】******

の様にコメント行に【】や　●▲　などの記号類を使っても問題無いでしょうか？
記号を使う目的は、後から自分が見て見やすくするというだけの理由ですが・・・。

#　以降その行はコメントです。たとえバイナリデータが含まれていようと、

>>17

じゃあ使っていいわけですね。勉強になりました。

15>
ありがと

>>17
試せばわかることまで教えない。
初心者つぶしですか？

>>20
わりぃ。
今度から気をつけるよ。

変数に入れる内容を "" でくくる場合と、'' でくくる場合はどういう違いが有りますか？

例えば、
$hoge = '<img src="hoge.jpg">';
$hoge = "<img src=\"hoge.jpg\">";
に違いはあるんでしょうか？

全く無い！
気分で使い分けるのがツウ

>>23
さんきゅ

あと聞き忘れましたが、変数に数字を入れる場合、
""で囲む場合と、何も囲まずにダイレクトに入れている場合が有りますが
その違いはありますか？

例えば
$hoge = "10";
$hoge = 10; の様に

>>24　　礼は良いからPERLDOC読めよん
気分っつーか　" は変数展開される
print 'このビールは$5です';
print "このビールは$5です";
下はあなたの思った動作をしないはず

$hoge = 10はどっちでも良い
"10"なら文字列として10なら整数型として
その時々に都合良く解釈してくれる

>>25
そうだ、変数展開だった。
何かが違うと聞いてた覚えがあったんですけど思い出せなかった。

PERLDOC？

こう言う奴な
http://www.kt.rim.or.jp/~kbk/perl5.005/perlfaq7.html#Do_I_always_never_have_to_quote_

漏れのBMだから随分古いけどな　（ｳﾋ!

,〜（（((((((〜〜､
　(　＿（（（((((((＿　)
　|/　~^^＼)／^^~ ヽ|
　 |　　＿　《　＿　 |
　(|-(_//_)-(_//_)-|）
　　|　　　厶､　　　|　　　　／￣￣￣￣￣￣￣￣￣
　　＼　||||||||||||　／　　＜　サンプルを覗くのも・・・。
　　　 ＼_~~~~_／　　　　　＼＿＿＿＿＿＿＿＿＿
http://www.traffimagic.com/WIPE7MMLZCA/comein/FSJPN
無料で今日も”どっぴゅ〜”　だっふんだぁ〜

>>27
どうも。それ読んでみます。

超おすすめ無料メールマガジン（　´,_ゝ｀）
http://www.msleep.com/sleepy_jaguar/

Msleep
http://www.msleep.com/
（　´,_ゝ｀）（　´,_ゝ｀）（　´,_ゝ｀）（　´,_ゝ｀）

こんな風にしてもフォームからPOSTで送られたデータの取得はできるの？

%hash = &form;

sub form{
read STDIN, $form, $ENV{CONTENT_LENGTH};
@datas = split /[&;=]/, $form;
return(@datas);
}

>>31
試せよ。

わーいsleepy jaguarさんだ！
数字のソートはsort関数でできるんですか？

>>33
数字だろうが数値だろうがオブジェクトだろうがソートできるよ。

Perl5.8.0ｷﾀ━━━━━━━━━(・∀・)━━━━━━━━━!?

「あわわ◆JAPH9PWAたん３４ＧＥＴおめでたですゥ〜＼(^o^)／（核爆）」




























(・∀・)ｳｾﾛ!!

>31
なんでCGI.pmを使わないのかと小一時間問いつめたいのですが、
よろしいでしょうか。

>>37
なにを使う使わないというのは個人の自由だからオマエ程度が問い詰めることでもないだろ。

初歩的なこと教えて欲しいのですが

　　　if(条件式){　test1.cgi実行　}
　　　　　　else{　test2.cgi実行　}

上のように、条件分岐してcgiを実行したいのですが、どうすればよいのでしょうか？

<form>タグでaction=****.cgiとして、submitで実行しか思いつかないのですが・・・
厨房ですいません。

Locationで検索しれ

>>40
早速レスありがとうございます。検索してきました。

print "Location : ***.cgi \n\n";

こんな感じで、いいのですね
ありがとう！

掲示板の表示される名前の部分だけ色をかえたいのですが、どうずればよいのですか?

それはHTML関係だろ。
板、いや、スレ違い。

今、CGIで掲示板を作っているのですが。
表示される名前の部分の色を変えるにはCGIのなかを書き換えないといけないといわれたので・・・。

いくらPerlで掲示板作ってるからと言って、表示する部分はHTMLだろうが。

スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/l50

つーかHTMLがわからなくてどうして掲示板作れるんだか

すいません、ご丁寧にありがとうございました。
逝ってきます。

すいません、また質問させてください。

フレーム使っていて、右のフレームでCGIを表示したい場合、

print "<form target=right>";
print "Location : ***.cgi \n\n";
print "</form>";

みたいにするしか、無いのでしょうか？
いろいろ調べたのですが分からなくて

>>48
色々と何を調べたのか問いたい
フレーム云々自体、ｽﾚ/板違い
それにLocationすら理解していないしw

>>49
レスありがとうございました。

自力で調べてみます。レス違いでしたねすいませんでした。

右のフレームでcgiを表示って、HTMLの問題では？
そういうことやってるサイトは無数にあるから、そこのソースコピーしろ。

$hoge = 'hoge'or'fuga'or'foo'or'bar'みたいな時
if $hoge eq 'hoge' or $hoge eq 'fuga' or $hoge eq 'foo' or $hoge eq 'bar'
とするのと
if $hoge =~ /^[hfb]/
とはどちらがいいのですか？

訂正
if $hoge =~ /(hoge|fuga|foo|bar)/
にしてくらさい

>>52
値によっては処理がかわるから適切に使い分ければ？

>>53
値によっては処理がかわるから適切に使い分ければ？

あい、値によって適切に使い分けたいと思います
で、こういう値だったらこっちとかいう具体例ってありますか？

>>56
$hoge= 'aaahogeaaa';
これにマッチさせたくなければ上の eq を使えば？

>>57
なるほろ、そうします。
絶対に上の例以外の変数が入ることはなかったとしたら
どっちのほうが早い、負荷が低いんでしょう。

そりゃ、eq のほうが速いだろ。
ただ、正規表現のほうをうまく書き直せばベンチマークをやらないとなんとも
言えない。

そうなのれすか。
正規表現の出来具合によってはあまり変わらないと。
ご助言ｱﾘｶﾞﾄﾝ。これから試してみるのれす

>>53
if $hoge =~ /^hoge|fuga|foo|bar$/
()もいらない。

スピードは$hogeによる。$hogeがとる値の確率の高い順に
orは連結するように。
単一のワードなら、eqのほうが、正規表現より3,4倍早い。
まあ、無視できる程度だけど何千回もまわすようなループの中だと
でかい差になるね。

誰か良いプロファイリングのしかた知らないっすか。
どこのコードが何回実行されるかを調べる奴です。


DBugモードは無しで…

>>62
Devel::Dprofというプロファイラがあるよ。

$ perl -d:Dprof script.pl
$ dprofpp

>>63
Httpd上で動かしながらプロファイルをとりたいんどす

>>64
httpd上でも同じこと。
ただしプロファイル中はパフォーマンスが劇的に下がるので
実際に動かしながら、というのはお勧めできないけど。

関係ないけど、
そんな「やれやれ、的外れなレスが来たな」とでもいいたげなレスはやめた方が言いかと。

また一人糞コテハンが。。。
コテハンうざい
消えろ

逆切れﾓﾝｷｰｷﾀ━(・∀・)━!!

>>66 激しく同意。コテハンほどウザイものは居ないと思う。

屁タレ名無しｷﾀ━(・∀・)━!!

>>69 必死だな(w

しかも粘着＆自作自演ｷﾀ━(・∀・)━!!

おまえらIDだそうぜ？ｗ

>>72
自作自演がばれるので無理ですｗ

ここで質問していいのでしょうか？
どなたかおしえてください
http://music.2ch.net/test/read.cgi/msaloon/1011182085/25-26

>>74
P554 で始まるトリップが欲しいの？

リファレンスを使うと何がいいんですか?

＞７５
いやちがいます
これってトリップ解読プログラムらしいんです

でもこれって無限ループさせてＲＮＤとかつかってランダムに６桁を選んで調べているんです
だからそれをaaaaaa-zzzzzzまで順番に一通り検索したいなとおもったんです
aaaaaaのトリップがそれなんです＞ＰＰ

一通りって、何日（何十日？）もかかるよ。

とりあえず落ち着け
解析ソフト使えばブルートも出来るだろ

>>78
半角英語２６文字だけですからそんなにかからないはずです
ためしに４文字でやってみたのですが１０分もかからかなったです
でもＲＮＤってことは重複をやっているわけで６文字aaaaaaだと解析できなかったんです
（重複の解がいくつもでてくる）

＞７９
そんなのあるんですか？＞解析ソフト

やりたいことは
Ｑ、このトリップあててみろ（ヒントは英半角４文字
って言う解をゲットしたいんです　これだったらそのプログラムに
Nb6Ma0Mっていれると１分かからず解析できます

たんじゅんに２６文字の８乗で208827064576種類になり、
だいたい秒速で１００００個解析できるとして20882706.4576秒かかる。
つまり、約５８００時間（２４１日）はかかるだろう。

・１００００個解析と書いたのは、わたしのマシンで最近Ｐｅｒｌスクリプトで
解析した時の速度です。
・ちなみに同じマシンにて解析ソフトをつかったところ、約半分の４５００個
解析でした。
・わたしのマシン スペック＝ ＣＰＵ：MMX Pentium233: メモリ６４Ｍ

>>82
そんなかかりますか。。。。。（汗
計算しました。６文字までだったら８Ｈほどなので現実的です。
実際にプログラムは６文字用です。
やり方教えてもらえませんでしょうか？

>>82
＞７９さんも書いていますが
この"解析ソフト"ってのは既にあるんですか？

Dream★こそ真の上級者

>>84
解析ソフトなら検索すればすぐにヒットするよ。
今、６文字のやつ作ってみたけど>>85が居るから見せるのに迷うな。

ぷぷっ
できないなら初めからそう言ってください。
だれも貴方に期待してませんから。

なんですかドリームってのは（＝８７）ですか？
＞８６
見知らぬ国のってやつですか？＞ソフト
それならもってます

>>88
それもってるのになんか不満なの？ 処理が遅いから？
>>87はコテハン嫌いのガラクタです。

コテハンは低スキルな馬鹿ばっか

>>89
あれはパスワードをピンポイントであてることは出来ないじゃないですか？
似たようなのはさがせますが　
（もしかしてできるのですか？）
たとえばこれなんて２文字ですがとりっぱーじゃ探せないですよね？

もういいです。
このスレッドのヒトは馬鹿ばっかりですね。

#　のあとに全角文字とかも入れられたよな。

>>91
理論上は可能。何日かかるかは知らんが。

>>94
それはわかりますが、４文字くらいまでなら即効で分かりたいのです。
今気づきましたが>>82さんってﾄﾘｯﾌﾟ違ったんですね

>>86
そろそろおねがいします
ここがだめなら例のｽﾚにかいてください

無理無理(w

ほら見ろ(ww

あらしさんが消えたらＵＰってくださいお願いします

こういうのとかはとれるの？

#全角文字

http://www.xxxx.com と　http://xxx.com
の　www　がつくかつかないの法則性ってあるのでしょうか。

質問です
@unko=(4487,8456454,4544,945452,85,754);
@manko=sort @unko;
print "@manko[0..5]";
じゃ数字のソートにならなないです教えてください
ネタじゃないです

@obakana=sort{$a <=> $b}@hennsuumei;

>>86さん　
いなくなってしまったのですか？　ﾜｰﾝ
おしえてくださいよー

トリップ解析がなぜperlなのかまず説明せよ

>>105
るせんだよ　CでもPascalでも良いから
さっさとコードだせや　このﾎﾞﾝｸﾗ糞厨が！！！

漏れがPascal知らない理由をまず説明せよ

>>106の削除依頼出してきました、、
っていうかじゃま。ここはPerlコンテストスレじゃないから、、
スレ立てれば？たぶんコテに荒らされるとは思うけど、、

procedure trip(a :String)
begin
println('解析しました');
end;

な、やっぱり86は逃げただろ？
所詮コテハンで書く奴なんてそんなもの。クズばっか

>>110
必死だなｗ

>>11 即レス必死だな。

>>112
どうでもいいが落ち着いてレスしな。
怒りで打ち震えているのはわかるが・・・。

歴代コテハンはクズばっか
クズばっか
ばかばっか
ばっか

>>114
お、壊れた壊れた♪

2chでコテハンで書く奴は自意識過剰なDQN決定
オマケに低スキルとくるから害以外の何者でもないね
救\ﾂﾏ2耐2耐2・ 8対2鎗 !打2蔵 9体2銑<替2蔵 8繕2其>唾2耐2惰2耐3唾2俗 !詑2・4対2陀<9対2陀<8・2然ichﾏ2・ PE L ｢;・ ・ P
p bｮ `
@ ﾐ WI |
ﾈ ・ : `
�

Perl文法的にみて「このスクリプトの組み方はいい」というスクリプトの配布サイトを教えてください。

俺持ってるよ
0fillと左寄せで総当りする奴
CでufcCrypt使ってるから、perlの倍近く速い

>>117
Perlは文法的に破綻していると考えるのは俺だけか？
俺だけか・・・。

>>106

$i = 1;

while(1){
kill ">>106";
if(die ">>106"){last;}

$i ++;
}

print $i, "回の殺害で、>>106は氏にました";

ホント厨房だらけだな。

86さんは私を裏切ったのですね。
恨みます。

てうｓｔ

掲示板を書いているのですが書き込んだ内容をファイルに記録すると
スクリプトのソースがファイルに記録されてしまうのですがどこが
おかしいのか教えてください。
ソースはこれです。
ttp://zor007.netfirms.com/files/159.txt

>>124
はじめ４行しか読んでないが。

$logの代わりに$reload開いてそれを$logに書き戻してないか？

＞７４です
ガーンまだ教えてもらえないのね

>>74
この板の奴は口先だけ。
偉そうな口だけ一人前だから何も期待するな。

>>106
2chで使われているトリップのコードを元にしたやつね。

$hoge = '検索したいトリップ';
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
print "◆$trip : #$i\n" if ($trip =~ /$ARGV[0]/io);
}

数字のみしか解析できないからあとは適当に改良してな。

>>128
ミスった。$ARGV[0]→$hoge な

ファイルに保存される内容はスクリプトの内容そのままではなくて
ＰＯＳＴした内容の後ろにソースが付くのですが、、、原因がさっぱり
です(´･ω･｀)

>>106
ボーランドのC++コンパイラで

#include <stdio.h>

int main(void)
{
while(1)
printf("\t\b\b");
}
をコンパイル。これCのコードね
んで.exe実行。で解析ファイルがでる。
かんばれ

>>131
確かNTのコンソール落ちるんだっけか？

http://go.iclub.to/ddiooc/
　　　　　
　　　　　i/j/ez/対応です

お役立ちリンク集
必ず役立ちます

　サイト管理者お役立ち集
　　　　1日4000ＨＩＴ以上
↓
http://kado7.ug.to/wowo/
　　　　　　
　　　　　i/j/ez/対応
　　　　
　　　コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便

　　　　　　　　　↓
　　 http://kado7.ug.to/wowo/-a.htm
　　　　
　　　　　　　i/j/ez/対応

>>132
俺がやったときは（バッチファイルで）再起動したよ。
そのあと、動作が不安定になって、再インストール。

>>65
遅れましたがレスありあり。

DProfと言葉遣いを勉強してきます。

Devel-DProfがインストールできません。
PPMで

Error installing package 'Devel-DProf': Could not locate a PPD file for package
Devel-DProf

などというエラーが出ます。
助けてください。

>>136
Perlのバージョンは？
perl5.6以上なら標準で入ってるけど、
そうでなければ自分でビルドするしかないかもね。

>>136
自己解決しました。「Devel-Profiler」って名前だったのねん。

>>124
use strict 使うか -cw でチェックしたりした？

掲示板の表示
sub Output{
my $message,$titel,$name,$mail,$reload,$color,$log,$check;
　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　ちょっとしか読んでないけどtypoﾊｹﾝ

いろいろ考えてみたんですがどうやらこの中がおかしいみたいなんですが
どこかおかしいところあるでしょうか？
sub File_write_read{
my $log,$addlog,$check_string;
my @logs;

$log = $_[0];
$check_string = $_[1];
$addlog = $_[2];

if(!open(ADD,"+<$log")){
return 0;
}
else{
flock(ADD,2);

if($check_string == 1){
@logs = <ADD>;
}
elsif($check_string == 2){
print ADD "$addlog";
@logs = <ADD>;
}
flock(ADD,8);
close(ADD);
return @logs;
}
}

exit(0);とexit(1);の違いを教えてください

>>141
0を返すか1を返すか。

返す値が違うと何が変わるんですか？

>>128
これって半角英語入れられないですよね？

$hoge = '検索したいトリップ';
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
print "◆$trip : #$i\n" if ($trip =~ /$hoge/io);
}

forのところaからzっていれても駄目だし
どうすればいいんだろう

>139
ありがとうございます
一応解決しましたが、、、
いろいろ試してみた結果windows上のapache2の上ではソースが
保存用ファイルにソースまで書き込まれてしまいおかしいなと思って
ＬＩＮＵＸ上のapache2で試してみたらちゃんと書き込みできましたこれってapacheのバグ！？

>>144
ほんとにPerl書けるんですか？

＞１４６
つい最近書き始めたばっかり
でもこのソースでLINUX上ではちゃんと動いた、、、

↑
俺へのレスじゃなかったのか間違えた鬱だ死のう

>>148
二度とくるな、
お前の頭がバグってる。
初級ネットにPerlスレあるからいってらっしゃい。

ｒｇｋｌｔぐｖｂｙｄｆｊぎｒんちｙｔｂｇｒふえいｈげｒ７８おｔｇ６７れｔｇ６７ｔれ７８ｇへれるｇれｈｒｈｔ
コテハンは糞

>>150
お前の挙げた条件はすべて満たしているが？
絶対にないとかほざくからそう言う恥ずかしいことになる。

151には何か別のものが見えるらしい。こわっ

>>146
かけません。だから聞いているんです
お願いします

>>153
それよりさ
http://music.2ch.net/test/read.cgi/msaloon/1011182085/
なんでここからあなたがとんでくるわけ？
煽ってんじゃなくて理由がしりたい。
なんでいきなりPerlコードが書かれるのよ。
Ｄｒｅａｍが何者？とかいうよりあなたが何者？

>>154
たまたま見つけたから。
知りたいんです。

>>149
お前も来るな！
何エラぶってのよ！
ｳﾞｧｰｰｰｶ

>>156が頭にエラーがある何よりの証拠だな。

>>157
頭にエラーって何でしょう？
脳の事いっているの？
プログラムより日本語勉強したら？

┌─────────┐
│ 　 　 　 　 　 　 　 　　 ｜
│ . キ違い警報発令 !　│
│ 　 　 　 　 　 　 　 　　 ｜
└―――──――――┘
　　　　ヽ(´ー｀)ﾉ
　　 　 　 (　 へ)
　 　 　 　 く

foreach (@file){
@link=split/<>/;
if($link[0] eq "hoge"){
$hoge="$link[2]";
}
foreach($hoge){
@next=split/\t/;
print "$next[0]";
.....
}
と処理したいんですが、
どうも
foreach($hoge){
だと処理ができません。
こうしたい場合はいったいどうすれば宜しいのでしょうか？

@next= split(/\t/, $hoge);

>>160
[書式]
foreach 変数(配列){
 処理
}

すみません。間に合わせで解決しました。

>>163　もう二度と来るなよ

>>164
良かったね。と言ってやるのが大人の対応です。

jjjjjjjjjj

■　全国の愛すべき諸君へ　沖縄より愛を込めてbigpapaより

★　2ちゃんねるの管理人に賠償と書き込みの削除を命令　東京地裁　
------------------------------------------------------------　
　インターネット上の人気サイト「２ちゃんねる」の掲示板をめぐり、
東京都内の動物病院が「書き込みで中傷された」として東京地裁は２６日、
４００万円の支払いと書き込みの削除を命じた。

管理人は「不当な判決だ。賠償額についても不満があり、控訴する予定」
と話している。［毎日新聞６月２６日
　

■ 東京地裁の判決の詳しい結果は下記のURLをご覧ください。
■ http://www1.ryucom.ne.jp/papa/newpage2chsaiban.htm

■　アスキーアート(AA)の定義JISアートの定義は下記URLへ
■ http://www1.ryucom.ne.jp/papa/asciiart.htm

perlでintergerなど、変数の型を指定する事は可能ですか？

あい

どうすれば良いんですか？

>>170
intな値を代入する。
$int　=　100 ;

aaa

変数の型で interger って初めて聞いたＹＯ！

googleのI'm feeling Luckyを組み込んだ
メタ検索CGI作ってるんですが、

print "Location: http://www.google.co.jp/search?q=".$in{'word'}."&ie=UTF-8&oe=UTF-8&hl=ja&btnI=I%27m+Feeling+Lucky&lr=lang_ja\n\n";

とした場合、平仮名やカタカナは問題なく即リンクできるんですけど
漢字で検索をかけた場合、見当違いなホームページに飛んでしまいます。

$in{'word'}に入ってる値のエンコードが問題かと思いましたが
普通のgoogle検索だと問題なくこのメタＣＧＩで検索できたので
エンコードの問題では無いと思うんですが、、、。
誰か教えて下さい、お願いします。

gooでやってるみたいなHPのスクリーンショットをサムネイル化したリンク集できる？
Perlで。もしくはPHPで。

geocitiesはＣＧＩつかえないの？

使えないよ。

for(my $i = "0001";$i < "0011";$i++){
　　　print "$i\n";
}

結果
0001
0002
・
・
・
0010

初めて知ったyo

どっかの本に

$prog = <<"PERL";
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
}
PROG

eval $prog;

こうすると、似たような処理を繰り返すとき早いとか書いてあったけど実際はどうなの？（記憶が曖昧でｽﾏｿ）

なんか、サブルーチンに似てるな。

open(IN,"$log");
eval { flock IN, 2; };
@line=<IN>;
eval { flock IN, 8; };
close(IN);
すみません質問です。
このロック処理の方法はミスがありますでしょうか？
私は意味が無いような気がするんですが、
どうもこれだという理由がなくて困ってます。

>>181
あっちこっち書くなよ、糞虫が
2chで外国人以下の敬語モドキ使ってる暇有ったら
検索でもしろよこの中卒塗装工が

>>182
すみませんでした。
で、答えの方はー？ﾌﾟｩ＿＿＿。

>>181
open(IN,"<$log");
eval { flock(IN, 2); };
@line=<IN>;
close(IN);

これのほうが良いかな〜?

>>184
そうですか〜。
わっかりました。
ほんとにですか？

冗談に決まってるじゃん

>>186
失礼ですが答えを知っておれますか？

>>186 = 嘘つき

ﾊ-ｹﾞｼｸﾜ-ﾗﾀ

>>181
flock(XX, 1) 読込中なので書込をロック、あとから来たら待つ。（ブロック）
flock(XX, 2) 書込中だから書込読込ロック、あとから来たら待つ。（ブロック）
flock(XX, 5) 読込中なので書込をロック、あとから来たら0を返す。
flock(XX, 6) 書込中だから書込読込ロック、あとから来たら0を返す。
flock(XX, 8) ロック解除（close(XX)すれば解除なのであまり使わない）。

残りは俺の肛門。

どなたか>>174の質問がわかる方いらっしゃいませんか？

>>192
googleAPIについて勉強するのが吉。

>>174
POST限定じゃないの？

http://www.google.co.jp/search?q=in{'$word'}&btnI=I'm+Feeling+Lucky
これならいける？

&ieとか書くと駄目だね。
わかったか厨房？ﾌﾟｩ＿＿＿。

>>Piano ◆QGZrdAAA
195の方法で出来たんだろ？
無視かよ！

るせｳﾞｧｶ

>>198
はぁ。はいはい。

>>199　煎って葦!

　　　∧　 b
　 ／●ヽ/
　(∧＿∧)　 ／￣￣￣￣￣
　（　´∀｀）＜　質問前に過去スレ検索ﾓﾅｰ。
　（　　　　） 　＼＿＿＿＿＿
　｜ ｜　|
　（_＿）＿）

>>195
行けました！
どうもありがとうございました！

KENTの掲示板弄ってて、色々エラー出るんで文法チェックのスクリプト通しながら
虫取りしてるんですが、たびたび「@〜は\@〜と書け」ってな表示に遭遇します。
これは多分配列を認識してないんだと思うんですが、原因が分からないんです。
どこか変ないじり方しちゃったんでしょうか。

なんか全部の配列について同じように警告されてる感じなんですが。

「'」とか「"」でくくっているのでは？
本当にそうなるかはわからないけど。

>>203
配列とは関係なく、
単に"[email protected]"を"foo\@mailaddress.com"にせよ、という意味だと思われ。

>>202
返事がおせぇーよ。
じゃぁな。ﾌﾟｩ＿＿＿。

えと、
In string, @lines now must be written as \@lines at yybbs.cgi line 285, near "@lines"
って書かれるんですけど、285行には@linesなんてないし、@linesが含まれる行は
ログの取り込み処理とかそういうので、どこもいじってないはずなんです。
ひょっとしてどこかでクォーテーション閉じ忘れたとか、そんなことでしょうか。
見直してますが、2600行ぐらいあるんで大変です。

すいません、>>207は俺です。

>>208
285行前後を良く見るんだ。　;　の付け忘れとか。

悪い事は言わんからその辺のFAQ読みながら
自分で50行位書いてみれ、それが出来たら解決する。
どっかで行か何か閉じるの忘れてるんだろけど…

えと、色々見直したらヒアドキュメントの閉じ方が変になってるのを発見しました。
ってか、頭の方のEOMが小文字になってました。
なんか変な置換かけちゃったみたいです。
お騒がせしました。

integerの間違いです
結局無理って事ですよね？

Cで言うところのenumerationってどうやってます?
%e = (abc => 0, xyz => 1, ... , xxxx => 99)なんてのをスマートに初期化したい。

質問があります。

例えば、$dataという変数のなかに、ABという文字列がいくつあるか
カウントすることはできますか？

>>213
ハッシュとか配列じゃ不満？

掲示板を作成中なのですが、
設定された最大記事数を越えると過去ログに行くようには出来るのですが、
管理人の任意の時に、表示されている記事を過去ログに行かせるというのがうまく出来ません。
何か良い方法はないでしょうか？お願いします。

すみません、さっきの質問取り消します。

すみません

>>216
日本語として成立してない気がします。

print $xの出力が

あいうえお
かきくけこ
さしすせそ
たちつてと
なにぬねの

だった時、最初の３行のみを表示するには、どうすればよいでしょうか？

>>215
ハッシュでやろうとしてるけど、abc => 1, xyz => 2と数値を直接書くのはださいので
かっちょいい書き方(初期化)があるかなと。

http://www.t-cnet.or.jp/~heaven/adultranking/rankem.cgi?action=in&id=yama

>>220
出力しちゃったらどうにもなりません。

ああ、UNIXなら

perl a.pl | head 3

でOKか。

>>219
掲示板に書き込みがあり、ある一つの話題で盛り上がる
↓
その話題が終わる
↓
※管理人が、その話題に関する書き込みをまとめてpast.htmlに送る
↓
各過去ログ（past1.html past2.html〜）に飛べるようにする

という風にしたいのです。分かりにくかったらすいません。

%e = (abc => 0, xyz => 1, ... , xxxx => 99)なら、

@e{qw(abc xyz)}= (0 .. 1);

>>225 それ、かっこいいですね。いただきっ。ありがとうございました。

>>226
my @symbols = qw/ foo bar baz /;
my %e;
@e{@symbols} = (0..$#symbols);

TMTOWTDI

>>227
さらにそれをuse constantで定数化しちゃうというのも・・・
BEGIN
{
my @symbols = qw/ foo bar baz /;
my %e;
@e{@symbols} = (0..$#symbols);
while( my($name,$value) = each %e ) {
eval sprintf( 'use constant ENUM_%s => %d', uc($name), $value );
die if $@;
}
}
print ENUM_FOO, "\n";

>>179
それじゃあ$iとかが全部その時の値に置換されちゃうじゃん・・・

ともかく、文字列をevalするのは遅い。そういうことをするのは例えば
AUTOLOADを使って動的に関数を作成するときとかだけだと思うよ。
そうすると2度目からはAUTOLOADを通さずに関数が呼び出されるからその分
早くなるので。

gooでやってるみたいなHPのスクリーンショットをサムネイル化したリンク集できる？
Perlで。もしくはPHPで。
教えて下さい、お願いします。
ちなみに私は17歳・女です。

>>230
うむ、死ぬ気でHTMLパーサ書いてデザインしてくれ。

>>228
そのくらいならenum.pmを使ってほしい。
use enum qw(FOO BAR BAX);

>>232
えー、enum.pm標準じゃないじゃん。いや、どっちでもいいんだけど

固定ハンドル=低スキル

>>234←それにすら劣ると。

固定ハンドルは死ね

コテハンよりお前らの方がウゼー

>>230
＞ちなみに私は17歳・女です。
誰が信じるか!(･э･)

>>230
信じる以前に、そんな意味の無いことを書く奴はうせろ

　　　　　　　∧　　　　　　　　　　　　 ∧
　　　 　　　/.::ヽ　　　　　　　　　　　/.:: ヽ
　　　　　　/.:::　ヽ　　　　　　　　　 /.::::　ヽ
　　　　　 /.:::　　ヽ　　　　　　　　 /.::::　　ヽ　　　　　このスレは一体
　　　　　/.::::::.　　ヽ,,,,,,,,,,,,,,,,,,,,,,,,,,,/.::::::::.　　ヽ
　　　　/.:::::::::::　　　　　　　　　　　　　　　　 ヽ　　　　　　　何なのですか　　　　　　　　　
　　　 /.:::::::::　　　/　　　　　　　　ヽ　　　　　ヽ
　　　/.:::::::　　 ／ ‐･‐　　　　　‐･‐＼　　　　 ヽ
　　 ヽ.::::::　　　　　　　.::::　　　　　　　　　　　 /
　　　 ヽ.:::::　　　　　 .:::::　　　　　　　　 　　　/
　　　　 ヽ.::::　　　　　＼＿＿／　　　　　　/
　　　　　 ヽ.::::　　　　　 ＼／　　　　　　 /
　　　　　　 ＼.:::::　　　　　　　　　　　 ／

>>238
信じてください。

>>239
出来るの？出来ないの？どっち？

質問する側の態度は丁寧なのに対して
答える側の態度は悪すぎですね。
絵梨悲しいです。

> 1：自分はこう言う事がしたい。
> 2：それでこんな風にやってみたが･･･
> 3：それだとこんなエラーが出て上手く行かなかった。
>
> 1と3が無いと誰も答えられないよ。
> 良い回答は良い質問から。一緒に勉強しましょう。

質問のテンプレートが>1に用意されてるのに無視か？
その癖誰も聞いちゃいねえ話を一人でしてる。
態度が丁寧だってなら、書き込み内容の要不要くらい判断しろ。

>>243 ここの厨房どもには無理

加えて、PHPの話ならスレ違いだ。
どんなに態度が丁寧でも、郵便局で牛丼頼むような奴にまともな対応が返ってくるなんて思うな。

おいコテハン野郎
こんな質問に答えてこそ存在意義を示せるってもんじゃないか。
答えてやれよ

>>230
できるかできないか聞いているならできる
教えてあげたんだからこれ以上くる必要はないから来ないでね。>>1もまともに理解できない人は。

JAPH

というのは
just another perl hacker
の略のですにゃん◆JAPH9PWA は神なのですにゃの
php板では最強なの(´ω｀)／
>>◆JAPH9PWA
ただもう出てこないでまじで
名無しで受け答えしてもなんの問題もないやん
マ板では相手にしてもらえなかったのか（泣

具体的な方法を尋ねたらダンマリを決め込むであろう248がいるスレッドはここですか？

コテハン答えろ！！！！

>>244
だって、私初心者ですよ？
書き方も考え方も分からないのに・・酷すぎます。

>>252
ﾊｧ?

ﾊｧ?

助けて頂けませんか？

皆で頑張りましょうよ！
力を合わせればきっと出来ます！

どれが本物で、どれが似非物だ？

http://team7.s8.xrea.com/contents/osietekun.htm

>>yuri
出来るよ、ImageMagickで検索してみ
ただこれのHTMLパーサは10年前の代物だから、このままだと
話にならない。
*nixならmozillaやGaleonにレンダリングして貰っても良いんだけど
普通はサーバにブラウザなんか入って無い、と言うかXさえ走って居ない
やるなら、Mozillaのソース追ってXLSだっけ? でperlから叩ける様に
してやるのが一番良さそうだが俺はやった事が無い
WINならIEコントロールかな?
http://www.nk.rim.or.jp/~t_kimata/cgi/
ここの管理人が前に色々やってたな

その部分は公開していないのが残念だな。

長文ウザイ
もっと分かり易く教えろやｳﾞｫｹが！

japu痰がいた頃はもっとまた−りしてたけどなぁ。

>>262
同意
良スレだったんだが・・・・
夏のせいか

初心者がここに質問きて
ぼろくそに言われて、荒らしになったと思われ

最近、回答者も”俺は偉いんだぞー病”にかかってるの居るからなー

>>264
Perlできてもなぁ・・・。
あのシェルスクリプトからの成り上がりっぷりがくさくて嫌い。

>264
最近の事じゃないけどな。
初期からずっとだよ。

さて、気を取り直して。


1 名前：nobodyさん 投稿日：02/07/18 16:34 ID:jemWJhH3
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

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

>>266
CGI改造したら、サーバーダウンさせっぱなし…追放されちった…
開発者向けでないテストサーバー知ってる人いますか？
出来れば無料…
知らないか…　　　　

localhost

>>267
http://www.kent-web.com/www/index.html

>>269
ネタマルチは放置しませう

掲示板で１度書き込みした後、更新する度にその書き込みが書き込まれていく原因として何が考えられます?
お願いします。

>>271
激しく仕様。

>>271
bbs.cgi?name=giko&msg=itteyoshi
こんなのがリロードされたら連続書き込みになっちまうだろ。
書き込みを受け取ったら、
Location: bbs.cgi
で飛ばすがよろし。

>>273
thanks
初心者にとっての頼みの綱であるこのスレを守っていってください。
さよなら。

>>274
ナイス他人任せ。

LWPの使い方についてです。。
ちょっと自分で調べてみて、

use strict;
use LWP::Simple;

print get('http://www.2ch.net/');

とすると、そのページが表示される、というところまで調べられました。
そのページのHTMLソースを1行ずつ配列に入れていきたいんですけど、
どうすればできるんですか？よろしくお願いします。

ふぁ〜あ、暇だなや。。。

>>276
use strict;
use LWP::Simple;

my @foo = split( /(?:(?:\r)?\n)+/, get( 'http://www.2ch.net' ) );

ちなみにその質問は「LWPの使い方」とは違いますね。 ;)

>>278
ありがとうございます。
やってみたら、正常に動きました。

http://js-web.cside.com/index.html

なんで my 宣言しなきゃいけないんですか？
外すとエラーになります。。
my宣言は都合でしたくないんですけど解決策はありますか？

>>281
なんでしたくないの？

使わない時もあるけど、そっちのほうが例外で普通はmyを使わない
スクリプトってのは酷いコードになるよ。

>>281
use strict;を外せば？

>>282

perl使ってる時点でstrict通そうがコード酷いのはいなめないと思うが。。。
つーか綺麗さより使い勝手って割切られてる言語なんだし。。。

csvを使ったデータベース顧客一覧ＣＧＩを作ったんですが、
Netscape4.7以前のバージョンで表示されないんです。
IEだと表示されたんですが・・。

Javascriptが原因かと思ったんですが消してみてもダメでした。
ちなみにソースを見るとちゃんと顧客一覧が表示されているんです。
ソースにはあるのに、どうしてブラウザには表示されないんでしょう・・。

>>285
lintにでも書けてみ？なんか間違いあるんだよ。

>>285
Perlのコーディングうんぬんじゃなくて、HTMLの間違いなんじゃないの？
tableのタグの閉じ忘れとかさ、、、

>>286
単純にタグの閉じ忘れでした。
Perlが原因では無かったです。
逝ってきます・・・・・・・・

タグを閉じ忘れても表示するIE。
まともなHTMLを厨が書かなくなるわけだ。

>>284
Perl使ってるからしょうがないなんて言い訳にすぎない。
どんな言語を使ったって同じ。

>>290
構造化言語とシェルスクリプトに無理矢理構造化を組み込んだ言語。
オブジェクト指向言語とシェルスクリプトに無理矢理オブジェクト指向を組み込んだ無理矢理構造化を埋め込んだ言語。

ノイズはどんどん増幅されている。

はいはいそうだねー。きっとコンパイラーにお守りしてもらえば
いいコードかけるのねー。

>>292
うん。便利。
まぁ、あの無駄に多いライブラリ覚えてる奴とかすごいと思うけどな。

>>293
おめでとう。自己満足できればそれでいいと思うよ。

>>294
がんばってね。

>>295
言いたいことがあるなら、メール欄に書いても伝わらないＹＯ！

>>296
なかなかおもしろいだろ？ｗ

>>297
どこがおもしろいかわからんかったよ。おもしろい部分を説明してくれ。

ＵＮＩＸ板から来ました。
http://uptime.netcraft.com/up/graph

ここにあるような、ＵＲＬを指定してそのサーバーの
ＨＴＴＰヘッダ情報を取ってくるようなスクリプトを作成したいと考えています。

自鯖の情報は取れるようになったのですが、SERVER_SOFTWARE、
イメージとしては
１．ＵＲＬ入力
２．そのＵＲＬ（鯖）に対して自鯖のＣＧＩをﾘｸｴｽﾄしてよってお願い
３．向こうの鯖の環境変数get
てなカンジかなぁ、と思っています。

つまりまぁ、上記ＵＲＬのようなことができればこんな面倒なやり方じゃなくてもいいのですが。
何かよいお知恵をお貸しください。

http://go.iclub.to/ddiooc/
　　　　　
　　　　　i/j/ez/対応です

お役立ちリンク集
必ず役立ちます

　サイト管理者お役立ち集
　　　　1日4000ＨＩＴ以上
↓
http://kado7.ug.to/wowo/
　　　　　　
　　　　　i/j/ez/対応
　　　　
　　　コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便

　　　　　　　　　↓
　　 http://kado7.ug.to/wowo/-a.htm
　　　　
　　　　　　　i/j/ez/対応

意味をちょっととりかねる。
そのサーバのHTTPヘッダ情報をとるのになんで向こうのサーバが自サーバのCGIを
リクエストする必要があんの？

Socket使って、HTTPでGETなりPOSTなりすればいいだろ。

以下のコードで、2つ目のprintが実行されません。
なぜでしょうか？

my $a = "!";
print "Test1" if $a =~ /!/g;
print "Test2" if $a =~ /!/g;

gを付けない。あと$aという変数は特殊な意味をもつので普通避けるべき。

>>304
動きました!
有難うございます。

>>301
確かに自分でもよく整理できてませんでした。（汗

>>302
今調べたらsokectのサンプルソースがあったので、
これを頼りにがんがってみます

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

http://isweb39.infoseek.co.jp/play/kouza_k/jump.cgi?http://2ch.net
ﾆﾀﾞｰ

http://isweb39.infoseek.co.jp/play/kouza_k/cgi-bin/jump.cgi?http://2ch.net
ｳﾂ｡｡

>>308をコピしてくり。たのむ

>308
iswebはCGIの外部呼出し不可。

>>310
ｼﾃﾏｼﾀｰｰﾖ ヽ(TーT)ノ

CGIファイルにアクセスするとIEでは、正常に表示されるのに
ネスケではHTMLソースで表示されてしまいます。
ネスケの全バージョンでダメでした。
Content-typeとか<HTML><BODY>等は問題なく入ってるんですが・・

>>312
信用できません。

ヘッダーの部分見せてみろ。

>>313
本当です。

Perl内は
print "Content-Type : text/html\n\n";
　　　　　　　　・
　　　　　　　　・
print "<HTML><HEAD><TITLE>投票結果</TITLE><META HTTP-EQUIV=\"PRAGMA\" CONTENT=\"NO-CACHE\">\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=Shift_JIS'></HEAD>\n";
print "<BODY BGCOLOR=#000000 TEXT=#FFFFFF>\n";
　　　　　　　　・
　　　　　　　　・
print int($count) ;
print "</table></div></BODY></HTML>";

となっています。

>>315
lintにかける。

>>312
サーバはどこ？
逆なら考えられるんだけどな・・・トクトクとかで。

>315
自分で初心者を名乗る奴は基本的に信用できん。

print "Content-Type: text/html\r\n\r\n";

にしてみろ。

>>316
lintかけてみました。
ドキュメント宣言やHTML lang="ja"を入れてみたんですけど
やっぱりダメです。
ネスケでHTMLソースがダラダラと表示されてしまいます。

>>319
そもそもスクリプト中にHTMLまるまる入れるのは何とかできんのかと。

編集、デバッグ、保守

すべてが大変だが。

>>318
オオオオ！！！
バッチリ逝きました！！！
ありがとうございます！！！

ローカルでは\n\nでうまく行ってたのに
ミクストメディアではこんなの必要なのか・・・・・

>>320
HTML外部にしたら動作重くなるから。

>>318
それってWindows以外で受け取っても大丈夫？

>>323
>>318が正しいから問題ない。
IEが悪い。

>>323
HTTP敵にはそっちが大正解。

Perlについての質問箱
http://pc3.2ch.net/test/read.cgi/tech/1017736187/
： ◆JAPH9PWA はもうそこからでんな！
みてて悲しくなったぜ。

Perlで日本語を使うときはEUC-jp。

>>327
偏見？

表\示

>>328
普通だろ。
日本語マッチとかするときに。

確かにEUC-JPの方がいい。
漏れはShift-Jisで使い続けてしまったせいでとても変更してられないと思い変えてないが。
これから始める人はEUC-JPにしておいた方がいいぞ。

正しくは　Shift_JIS　と言ってみるテスト。

>332
ｽﾏﾇ

>>282-284
ありがとうございます
いろいろと参考にさせてもらいます

>>326 いい加減やめろ。

今掲示板をつくっていてログを読みこんで表示させるところまでは出来たのですが
よくある設定されている件数を超えると自動で「次の10件」などというアンカーを出すには
どういった処理をすればよいのでしょうか？

>>336
//ボタンを表示するか決定
//引数：ページ
//返値：無し
function checkbuttonvisible($page)
{
//ファイル開く
if(file_exists($this->config->datafile))
{
$fdat = file($this->config->datafile);
$count = count($fdat);
}

//戻るボタンの制御
if($page <= 0)
$this->beforebuttonvisible = false;

//進むボタンの制御
if($count - ($page * $this->config->rescount) <= $this->config->rescount)
$this->nextbuttonvisible = false;
}


PHPだがね。

KENTさんのYY-BBSで半角カナが使えるようにするには
どこをどうすればよいのでしょうか？お願いします。

>>338
スクリプト言語の一つもまともに使えないくせによくほざく。

質問するみんな。
>>1は読んでるか？

>>340
マルチポストするなと言うのも入れてほしい・・・。

>>340
コテハンは荒れる元なので自粛ってのもいれてほしぃ。

まさに、コテハン叩きの思うつぼだな。

>>338
デコードのとこで
jcode.pl使ってる箇所をコメントアウトしてみ

perlで質問です。実行すると例えばユーザー名、パスワードを入力し、送信してくれる
ﾌﾟﾛｸﾞﾗﾑが作りたいんですけど、どんなライブラリ、関数を使えばよいでしょうか？
キーワードだけでも教えていただけないでしょうか？お願いします。

>>345
頭の中で言いたいこと整理してからもう一度来い。
＞ユーザー名、パスワードを入力し、送信してくれる
意味がわからん。何のユーザー名、パスワード。何処に送信？

scrachって何の事なんでしょうか？マジレスおなぎします。

from scratch＝ゼロから，　初めから．

サンスコ。

http://pc.2ch.net/test/read.cgi/php/1014096840/161

どなたか、Geocitiesの広告のはずし方をご存じませんか？

>>351 >>1を読め。

それにしても、このスレッドも堕ちたな...。

>>337

perlしかわからないのですが・・

>>353
そんなに大きな違いがあるのか？

>>351

if $351 == aho {
$351 = itteyoshi;
}

>>355
動かんぞ？それ。

if ($_351 == "aho") {
$_351 = "itteyoshi";
}

if ($_351 eq "aho") {
$_351 = "itteyoshi";
}

>>354

関数が違うので分かりません

renameとunlinkを使いたいのですがうまくいきません。
rename (aaa.txt, bbb.txt);
でやると実行権限がないとエラーが出ます。念のためaaa.txtのパーミッションを777に
したんですけどダメでした。
unlinkは　unlink aaa.txt;　とやるのですがファイルが無いとエラーが出ますなんででしょう。

>>360
パーミッション777のファイルがリネームもアンリンクもできないということは、
ファイルシステムが壊れています。ＯＳを再インストールしましょう。

OSというのは、サーバーのOSが壊れてるって事ですか？
たぶんそれはないと思うんですけど。

ディレクトリのオーナー、パーミッションはどうなってんのよ

>>362
起こっている現象から推測すればそういうことになります。

http://cgi.tripod.co.jp/hello_baby/cgi-bin/aiueo.cgi
中身
#!/usr/bin/perl
require 'jcode.pl';
rename aaa.txt bbb.txt;
print "Content-type: text/html\n\n";# HTML文出力宣言
print "エラー：$!";

何がダメなのかさっぱりわからないです。ちなみにここはパーミッションとかは関係ないみたいです。

http://members.tripod.co.jp/hello_baby/aaa.txt

aaa.txt, bbb.txt
じゃないの？

すいません、出来ました。
でも今度はファイルが無いとエラーが出ます。
ファイルはちゃんとありますよね・・？

まだやってたんか。。。$ENV{'PATH'}を出力してみ。

rename ("../aaa.txt","../bbb.txt");
こうしているんですが。

Tripodの特殊事情じゃないの。別鯖とか。よくしらんけど

>>370
そんなこと書かれてもそっちのディレクトリ構造知らんし。

#!/usr/bin/perl
require 'jcode.pl';
# rename ("../aaa.txt","../bbb.txt");
print "Content-type: text/html\n\n";# HTML文出力宣言
print "$ENV{'PATH'}<br>";
print "エラー：$!";

何も出ないですね。。

/cgi-bin/aiueo.cgi
/aaa.txt

こういう感じです。

>>374
ほんとにそうか？ホスト名が分かれているからＣＧＩ専用のサーバが分かれて
いるんじゃない？実際のディレクトリ構造とマウントポイント・エイリアス・
リンクなどもあるからニンともカンとも。

サーバのFAQ位読めよ
つーかローカルでテストやれや
外でするならKENTの設定変える以外触るな

renameとかってOSによって動くか動かないかわからないみたいだから
サーバー上でやらないと意味ないじゃん。

るせんだよ　ﾁﾝｶｽ夏厨
FAQ読めっつってんだろ　ああ？？
おまえ日本語の不自由な方か？

>>378
FAQ読んだけどrenameという単語は出てこなかったです。
そんなにカッカしないでヒントになるところ教えてください。

tripod.co.jpはCGIはcgi.tripod.co.jpサーバ
普通のファイルがmembers.tripod.co.jpサーバ

#!/usr/bin/perl
require 'jcode.pl';
rename ("http://members.tripod.co.jp/hello_baby/aaa.txt","http://members.tripod.co.jp/hello_baby/bbb.txt");
print "Content-type: text/html\n\n";# HTML文出力宣言
print "$ENV{'PATH'}<br>";
print "エラー：$!";

こうやったけどダメでした。

>>381
痛いな。

>>381
それだけでrenameできると勘違いしている新種の厨房(推定:中学校1年生 オナニーの覚えたて。)

痛いのはわかったんで何が違うのか教えてください。

別サーバのファイルにはLWPとか使わないとアクセスできません。
おとなしくcgi-bin/以下にファイルを置きましょう。

どうして、別サーバーなのに、一回のftpで両方つながるんでしょうか。
というか、一つのサーバーにつないでいるのにあたかも他のサーバーのディレクトリも見えるなんて不思議です。

#!/usr/bin/perl
require 'jcode.pl';
rename ("aaa.txt","bbb.txt");
print "Content-type: text/html\n\n";# HTML文出力宣言
print "$ENV{'PATH'}<br>";
print "エラー：$!";

aiueo.cgi と aaa.txt　を同じディレクトリに置きました。
エラー：No such file or directory　と出ました。
今度は何がいけないんですか？
そんなファイル無いと言われても確かに同じディレクトリにあります。
どうしてこんなに分からず屋なんでしょうか。

ftpでつながるのはftpサーバ（ftp.tripod.co.jp）です
members,cgi,ftpそれぞれ別なんです。

>>387
errorでてもファイル名は書き換わってないですか。

はれ！？
ほんとだ！
変わってる！！
なんでだ！？

そろそろ場違いだと気付いて欲しいんだけど？

じゃどこで聞けばいいんですか？

>>378
>>382
>>383
お前ら、見ていて不快だからくるな。

>392
tripodのサポート。

�@レンタルCGIでチャットをおきたいです
�APeriへのパスの指定とディレクトリをいじってみたけど
�Bわかりませんでした。パスの指定とは基本的にどういうことなのでしょうか？
借りたサーバーのQAにいってもよくわかりませんでした。もっとも外国鯖なので
翻訳したのが少々わかりづらかったかなと・・・
借りた鯖はPROHOSTINGです　パスの指定、ディレクトリの仕方をご教授ください
お願いします

>>395
Peri -> Perl

>395
惜しいな。
＞いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
「コーディング」のスレなんだ。
設置は別のところで聞いて。

>>397
あ・・・そうですね＾＾；
すいませんでした。ご親切にどうもです＾＾では

http://www.google.com/search?sourceid=navclient&q=PROHOSTING+FAQ

ここから探せばすぐ分かるよ

>>399
スレ違いの意見に答えてくれてありがとうです＞＜

俺は前スレでXSネタであらしたヤシだ（dat落ち中）
ここで適当に受け答えしてる奴らほんと全員シネヨ。（特にコテ）
今日ひさしぶりにperlxstut.txtみてやっとわかったよ。
手順言うからメモしろチンカスども。
環境はWin ActivePerlな
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
でnmake ダウソ ファイル名はnmakeとかに直しとけ

h2xs -A -n Xstest でXS用のモジュールスクリプトフォルダができる
cd Xstestして　Xstest.xsに
void
hello()
CODE:
printf("Hello. Tinkasu Boy!\n");
とかく。チンカスはそうお前の事だ。
んでperl Makefile.PL
nmake
nmake install

で確認だ。
#!/usr/bin/perl(まぁDOSならいらんがな）
use Xstest;
Xstest::hello();
でそれ実行できればOKだ。ＯＫ？糞Perler。
お前らが２０代とかだったら俺は泣くね。

シーン。。。

XSチュートも読まずに(読めずに？)スレ一本分も悩んでたのかあ
前に５．７絡みでgunzipが講釈してた様なきがするけど
やっぱり●●は想像を絶する位●●なのかなあ

CGI実行ユーザー名を獲得する事って可能でしょうか？

whoami

有難う御座いました。

>>408
use User::pwent;
my $pw = getpwuid($$);
print $pw->name;

とりあえずnmake15.exeってのはnmakeインストーラ、
というか圧縮されたプログラムなんで、実行するとnmake.exeとnmake.errってファイルが出来る（だったかな）
だからrenameの必要はないはずなんだけどなぁ。彼は実際にやってみたんだろうか。

>>401-403
低脳にして粘着とは救いようがないな。

>>411
煽りはスピードが命。

opren(file-handle, "filename") || &error("ファイルが開けません");

この || って、ダメだったらって意味ですか？

>>413
もしくは。

ifの中のと一緒だ。

前の式がtrueなら後ろの式は評価されないと言う性質を逆手に取った
他の言語ユーザに見せたらどつき倒されそうな処理です。

perlでしかやらない方がいいという書き方って事ですか。

あと、
sub auto_link {
　　$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\">$2<\/a>/g;
}
これはURL文字列を自動的にリンクにするサブルーチンですけど、
自分は正規表現が複雑なのはわかりません。
でもサブルーチンは便利で引数だけ渡せば意図する結果を返してくれます。
サブルーチンの中の正規表現をわざわざ噛み砕いて理解する必要はありますか？
まぁ、これがわからないと自分でいちから作れないという訳になってしまいますが。

>>414
括弧の多い言語では普通ですが、何か?

1：自分はこう言う事がしたい。

　script01.plをuser01で実行し、その中からsystem関数を使って
script02.plを実行させたい。
　ただし、script02.plは、user02が実行したものとしたい

2：それでこんな風にやってみたが･･･

　perl　-h で起動オプション調べてみましたが、起動ユーザーを指定
する方法がありませんでした。

　何か、スクリプトを起動するユーザーを選択する方法ってないでしょうか？　

>>417
script02.pl をsetuidモードにでもしとけ。

>>416
そうか？Cとかで


fp = fopen("m","r") || printf("error!");

なんてコード書いたら多分干される。

>>418

googleで調べたら、chmod 4755 script02.pl でsetuidモードになるようです
が、やはりだめでした。

script02.pl は、PostgreSQL への INSERT文を集めたスクリプトなんですが
database not connecti が出ますね。

いや、言わないでください。GRANTでデータベースの方に権限与えれば
っていうのは重々判ってはいるんですが、script01.plを実行するユーザは
nobodyにしたいんですよね。将来、CGIにする為。
dbにnobodyの権限を与えるのを躊躇ったものですから、script02.pl を
PostgreSQLユーザーの権限にしておいて、実行ユーザーを換えようと
思ったんです。

どうも、この方法はだめなようですから、GRANTを検討してみます。

>>420
接続時のパスワード設定すりゃいいじゃん。病院いっとく？

サブルーチンの終わりの
return $hoge;
↑ってどういう意味があるんですか？

>>422

>>1をよく読みましょう。それくらいなら検索いっとく？

サブルーチンを呼んだ側に戻り値を返す。

>>423
ｺﾞｸﾞってみましたんですがいい所があったのに僕の頭のメモリーが足りませんでした。

if(-e hoge.txt){　print "OK";　}
else{　print "NO";　}

cgiファイルと同じディレクトリにhoge.txtがあるんですけど
NOしか出てきません。なぜですかね。
他のファイル演算子も試しても全部elseになっちゃいます。

>>424
ありがとうございます。
それなんですが無くても動作する場合とかがあるんですが。
どういうことですか？

if(-e $hoge){print "f";}
else{print "b";}

>>427
Perlは一番最後に処理されたステートメントが「自動的」に
戻り値になる：

sub FOO_1 { 1 }
sub FOO_2 { return 1 } # FOO_1 と戻り値は一緒

sub BAR { FOO_1() } # 戻り値はFOO_1の戻り値

>>427
無い場合は最後に評価した値を返す

戻り値を必要としないサブルーチンだったら要らないというだけでしょ。
returnを書かなかったら最後に評価された式の値が返るんじゃないの。たしか。

>>426
サーバがIISかPWSとか？

すごいかぶったね。

http://js-web.cside.com/

>>426
それってhoge.txtを""でくくってないからとかいうオチでは？

例えばコマンドライン上から以下を実行するとOKはプリントされないけど

perl -e 'print "OK" if -e hoge.txt'

これはOKってでるみたいよ：

perl -e 'print "OK" if -e "hoge.txt"'

これまたuse strict;しないからそういうエラーがでるわけだ・・・

えっと、ftpでつないだときに表示されるディレクトリの一番上から記述したら
一応ファイルがあることは確認できました。
$a = "home/***/html/cgi-bin/hoge.txt";
if(-e $a){ print "OK"; } else { print "NO"; }
でOKでした。
で、renameしたいので、
$b = "home/***/html/cgi-bin/hoge2.txt";
rename ($a,$b);
としましたが、アクセス権が無いとエラーが出ます。
hoge.txtを777にしてもだめです。
ファイル演算子でアクセス権を確認すると全てOKでした。
なぜでしょうか。

>>429
sub BARみたいな使い方があるんですね。
初めて知ったことなので勉強になりました。
ありがとうございます。
>>430-431
最後に評価された式の値が帰るような書き方をすればreturnは別になくてもいいのですね。
>>434
そんな気がしました。

>>435
$a="hoge.txt";
$b="hoge2.txt";
rename($a,$b);

>>435
ごめんたぶん間違い。

$dir="hoge";
$dir$a
$dir$b
こうかな？

>>436
単一式のルーチンだったらreturnははしょってもいいと思うけど、
基本的には見易さとメンテの事を考えてちゃんとreturnを使用するのを
お勧めする

えっと、ディレクトリの一番上から書くというのは関係なかったみたいです。
で、
$a="hoge.txt";
$b="hoge2.txt";
rename($a,$b);
で試すんですけど、「Permission denied 」とエラーが出ちゃいます。

>>437
"home"の前にスラッシュが抜けてるとかいうオチではないだろうか・・・

間違った。>>435だった

>441
ディレクトリのパーミッション変えろ。

>>444
で、で、でで、出来ました。
755を757にしたら成功しました。
でも、勝手にパーミッション変えても平気なんでしょうか。
他の人のcgiファイルとかもあるんですけど。。。

>>440
returnは毎回使いことにしました。
ご教授ありがとうございます。

cgi-binのディレクトリのアクセス権を変えるのはなんとなく嫌なので
cgi-bin/mycgi/hoge.cgi
cgi-bin/mycgi/hoge.txt
と、cgi-binの中に専用のディレクトリを作って、mycgiのパーミッションを757にした時
cgi-binは755のままでも平気ですか？

>>447
調子にのるな！ 聞く前に自分で試せ！ 典型的なバカだなオマエは。

す、すいません！調子に乗りました！
自分で試します！！

＞典型的なバカ
ﾜﾛﾀ

>>447
何を持って平気と言うか分からんが
そんなに心配ならcgi-binディレクトリのパーミスを400にでもしとけば？

>>451
nobodyが手出し不能になる罠。

掲示板のＣＧＩで、フォーム内に改行いれると
表示も改行出来るようにしたいのですが
一行に繋がってしまいます。
問題の一行なんですが

$text =~ s/\n/<BR>/g;

間違ってますかね？

>>453
\r\nとかね。

>>453
そんな説明しかできないからいつまで経っても…

>>455
うむ。
でも、理解できてるならヒントくらい出してやりな。
まぁ、出せないか。

>456
見苦しすぎ…。
>454の言ってることを半分でも理解してみな。

夏だなぁ。

>>454
おおおおおおおおおおおおおおおおおおおおおおおおーーー！！！！！！！！！！
素晴らしい！！！！！！！！！！！！！！！！！！！！！！！！！！
有難うございます！！！！！！！！！！！！！！！！！！！！！！！！！！！

>>456
説明不足だからヒント出すにしても範囲が大きくなってしまう。
実際のスクリプトの１行だけを見せられても、前後の関係で実際に処理されて
いるかどうかさえ見当もつかないよ。
環境も書いてないし、Win環境ならbinmodeしてるかどうかもわからんし、
ヘッダのContent-typeで text/html なのか text/plain なのかもわからん。

>>457
見苦しすぎ。ｗ
ヒントだ、調べて答えてやれ。

よくあるフォームで入力した場合の改行コードをHTMLで改行するための<br>に置換したい。
しかしあの一見間違ってはいないコードでは置換できない。
なぜか？だってさ。

>>426 == >>453

rthyj54jhyjhioujhiyujitjhitjijtohjtihjtoijhiotjhiotjhoitj
ｒ８９えｙｇｐｔｍ４ｙｈｂｔｐ４５ｙ＠：ｙｈｇｈｔｐ
あえｒ、ぐｂｙｊｈｐｃｔ。ｒｌ：、え；ｃｌｖｗ０ｙ８ｇｊｌｖ
ｇｊ、０ｂ９ｙｔ４
コテハンは糞

頭大丈夫か？
仲間のとこに行って来い
http://pc3.2ch.net/test/read.cgi/tech/1012096319/39-

「「「「「さよならあああああああＲＲＲＲＲＲ
おおおおおおおお「−０：「；：

flockの質問。
lock中他の書き込みを制限しますが、
待たされる方はずっと待っているようです。

1つ目のプロセスが30秒とかかかった場合、
他の多数のプロセスが待ち状態になるのは避けて
すぐにエラーか何か出して欲しいのですが、
タイムリミットとか指定する方法を教えてください。

>>465
スレッド作って非同期IOを実現。

　　　　　∧＿＿＿∧＿
　　／　　　　＼　　　／　　＼
　│　　　　　●　　　● 　　 │　　　／￣￣￣￣￣￣￣￣￣
　│　　　　 ／＼＿／＼ 　 │ 　＜　帰ってきたぜチンカスども
　 ＼＿＿│●　　　●│_／　　　　＼＿＿＿＿＿＿＿＿＿
　 　/　　　 ＼／￣＼／　　ヽ
　　/　　　　　　　　　　　　　　ヽ
　/　　　　　　　　　　　　　　　　ヽ
　>／│　 　＿　　　　　　 │＼ <

まともに反応できたのが糞コテの生き残りJAPH9PWAだけとはな、、
どうせここは WEB製作板とム板のファイヤーウォールだろうからなしゃーねな。
まぁ中には防火壁をやぶった糞コテもいるがな 括弧笑い。
もう俺はDLLプログラマーになったぜ（ギコハハ[ここにギコが入る]）

前の.xsファイルにこれを追加する
int
wind()
CODE:
int APIENTRY WinMain(HINSTANCE hInst, HINSTANCE hPrevInst,
LPSTR lpCmdLine,int nCmdShow);
{
MessageBox(NULL, "HEY TINKASU! ", "KUSOKOTE! -_- ", MB_ICONHAND
|MB_OK|MB_SETFOREGROUND);
return 0;
}
んで先頭に
#include<stdlib.h>
#include<stdio.h>
#include<windows.h>を付けとく

nmake
nmake installだ。
でPerlスクリプトでuseして&windで呼び出したらメッサゲボックス君が
宇宙の心理を語ってくれる。
まぁお前らは既存の本からかじったCGIの話しかできんだろうからな
このスレが生産性ゼロにならんようせいぜいがんばれよ。
あばよチンカスども。もうこねーよのぉうわーんってか？

（注）チンカス＝[80%の]回答者と糞コテ
後、俺はファイルロックの話が嫌いだ。専用スレでやれ。

>>467-468
そのままコテハンで書いてくれ。その方が楽でいい。

つまりフィルターして透明あぼーんすると言う事か

>466
安定した処理を作成したいと思っています。
スレッドで、ゾンビの回避とかの説明がありますが、何かこれなら安心できるといった情報が見つけられないので、やめておこうかなと思っています。
プロセスが多数たまるよりは、symlinkロックの方がいいかなという思いになりました。

そんな貴女にノンブロッキングモード。

use Fcntl qw(:flock);

flock FILEHANDLE, LOCK_EX | LOCK_NB or die "他のプロセスがロックしてるっぽいです。";

後はコレとループとsleepを組み合わせればよし。

現在、perlでデータファイルを扱うために、flockしながら、ファイルを
オープンしてsplitして連想配列に読み込んで、データを変更したら、
print FILE"$A{$B},$A{$C}\n" って感じで書き込む、ってことをやってます。

しかし、データ量もトランザクションもうなぎ上りでファイル書き換え待ち
などで専用サーバーなのに、ロードアベレージが常時３〜５とかになって
きました・・・われながら効率の悪い・・・

で、最近知ったのですが、

use DB_File;
tie %A, "$DB_File","DBdb",0_RDWR|0_CREAT,0640,$DB_HASH;

なんてやって、

untie %A;

なんてやるとイイ！みたいなんですが（あってますか？）この、
tie（ファイル読み込み？）や、untie（ファイル書き込み？）は、排他制御
は自動で行われるんでしょうか？

>>474
DB_Fileモジュールのマニュアルを読んで幸せになりましょう。

ファイルの最終更新日を指定する事は可能でしょうか？

>>476

>>1をよく読めやVOKEGA!

>>472-475 お前ら喧嘩売ってるだろ？
今日、本屋でオライリー.jpが「Perlシステム管理」とかいう
糞な本を翻訳して出してるのみたよ。まさにチンカスが書きそうな本だ
そう、おまえらみたいな奴が書いたんだろうな。さっさと「ラクダ３版」翻訳しろってな。
今,W2kでPerl5.8R3のコンパイルの調整中だminiperlだけなんかしらんができた。
やるよ、チンカスのおかずにぴったりだ。
少なくともcygwin1.DLLが別途いる、まぁCygwinのコアだけインすコすりゃいいんだ。
以前Setup.exeがぶち壊れてたが、今はしらん。FTPからとってくるのもよし。

------------------------------------------------------------
Build->[CYGWIN_NT-5.0/1.3.7(0.51/3/2)/i686(Cele)]
http://hiero_pl.tripod.co.jp/miniperl.exe
MD5: a09c4590b276c0c75f5e8ef89176552d
------------------------------------------------------------
http://pc3.2ch.net/test/read.cgi/tech/993665608/397 [←天才]
LWPとか使えんからな。

#(ここでトリップ変える：#kusokote）
チンカスどももその低脳な脳みそでも使ってすこしは社会に貢献しろよ。
それともその脳には自分が儲けることしか入ってないのか？糞だな。
まぁおまいらが貢献できるものといったら子種ぐらいか括弧禿藁
ここで受け答えしてる奴がプログラミング歴一年以上とか言ったら
それだけで３回は抜けるね。うんこぶりぶり。#（効果音）
悔しかったらVCで俺より先にPerl5.8コンパイルして晒せや。
あとPerl=CGIとかCGI=Perlとか思ってる奴そこに一時間正座(ﾟДﾟﾒ)！
（注)チンカス= お前ら= [80%の]回答者と糞コテ

　　　　　　　　..;llll;~~~~~~~~~~~~~~~'';;;;;l;;,,
　　　　　　.;l;^^~　　　　　　　　　　　　　~~^;l;,,
　　　　..;;^^　　　　　　　　　　　　　　　　　　~^;;,,
　　　.,;;~　　　　　　　..,　..,　　,　,　　　　　　　　~;;;,　　　　　ま
　　..,;~　.;~　　　　..;　.;^　l　　l　.l　　l　,　　　　　~~;;,　　　　た
　　;~　..;;^　　　,　;~　l　..:l　　l　..l　...l　,l　,　　　　　l;,　　　　駄
　..l~　...l~　　,..;;^..;^　l~　;l　　l　..l　　l　.l　.l　.,　　　~k　　　　レ
　.;~　..;l;　　;l:..l:　;l　..l,　.;~　..~　~　　l　.;l　;l　;l　　　;~;l,　　　ス
　;~　...;l　　l;~.;l　:l　 .'　　　/　　∧　　..;l　..l:　l:,　　.;l..:;l　　　か
　l　　..l　　;l　l;　.'　　　＿ノ　＼|　＼　　..''　l~l:　　l　l;　　　・
　l　　.l;　　l　..''　　　　　　　　　　　　　　　　.;l.;l　　l　l;　　　・
　l:::::::;l::::::::l;　　　＿＿＿　　　　　＿＿＿　''..l:::::::;l::::l　　　　・
　l::::::::;l::::::::l　　　　　　　　　　　　　　　　　　　l:::::::l::::l~　　　や
　.l:::::::::;l::::::l　　　　　　　　　　　　　　　　　　　l:::::ll;:::l^　　　れ
　..l;;:::::::l;:::::;l　　○　　　　　　　　　　　　　○.;l:::::l~:::l~　　　や
　　..L:::::;L::::l　　　　　　　　　　　　　　　　　;l:::::l;::::l~　　　　れ
　　　..l,,:::::l,:::,l,　　　　　　　　　　　　　　　　;l:::l'':::l''　　　　　・
　　　　'''l;;::::l,;::l,,　　　　　[￣￣　　　　　　,;l:::l''::''　　　　　　・
　　　　　　'''';;;;;;;;;;;,,,,　　　　　　　　　,,,;;;:l:::;'''''　　　　　　　　・
　　　　　　　　　　　''''''';;;;;;;;;;;;;;;;;;;;'''''''
　　　　　　　　　　　　　　/＼　　　　　　　　　　　)
　　　　　　　　　　　..^ヽ/　　＼ノﾍ　　　　　三　　）
　　　　　　　　　　　..　/　　　　＼　　　　　　　　)
　　　　　　　　　　　　..￣|￣￣|~
　　　　　　　　　　　　　__|　　　|_

糞コテ消えてくれないかなぁ。>>478-480

コテハンを目の敵にしても、今はJAPH9PWAしかいない罠

固定ハンドル叩きたけりゃ、聞かれもしない低レベルな白痴話をぐだぐだ書くより、
コテハンのレスの技術的な間違い探しでもやった方が早いと思うよ。

糞でも何でも良いから役立ちそうな事書いてくれたら嬉しい
(３：７＝ネタ：罵倒　まで許容)
随分XSに熱心な様だけど、あれって必至になって使う価値有る？
変なXS言語使ってDynaloader使ってやっとの思いで＋＋の
関数動かしてもそれ程メリット無かったりするし
わざわざperlを起動してから関数だけネイティブにする意味の
割りに敷居が高かった。
mod_perl入れてサクッっと常駐しちゃったよ　（笑
後、6が出たらその苦労が水泡に帰しちゃうだろうから
出来たらParrotネタとかも書いてくれたら嬉しいな
ROMは結構覗いてるよん

>>479
と言うかperl5.8をVCでコンパイルしてるのは何故？　>リンク先の人
ActivePerl？
意味が全然理解出来ないんだけど
今からCygwinでやってみるけど

うわっ、良く読んだらやっぱりtar玉からWINのバイナリ作ろうとしてるんだ
この人。。。
悲惨

>>478
実際にやっていないことがすぐに分かる文だな(w
白痴なんだから無理しなくていいよ。

jcode.pl使ってます。
別ファイルのままrequireするのが嫌なので、
ソース最下にコピーしてみました。

ローカルでソース内の文字をgetcodeするとSJISになりました。
サーバーに上げてから、getcodeをするとJISになりました。
ソースはSJISです。
なぜJISになるのでしょう。というかSJISになるようにアドバイス希望します。

おお！　5.8て全OS共通なんだな、初めてしったよ
と言うわけでBCC5.5.1でやったけど
あっけない程すんなり出来たぞ
READMEWIN32読んでdmake設定して実行しただけだ
VCは持って無いから分からないや
次はCYGWINでやってみよう

VC++では、win32ディレクトリでnmakeするだけで終わります。
Perlのコンパイルもロクにできない >>478は消えてください。

>>484
XSってそんな使いにくいかな。
まぁ確かに構文は独特だし奇妙な癖はあるしPerlAPIは難しいけど、別に必死というほどでもないような。
ポインタIVに変換してをblessするとC＋ガベコレってな感じで結構面白いし。(遅いけど)
私は好きだな、XS。

Parrotネタはサッパリ分からないなぁ…_g...たん来てくれないかなぁ。

>>488
以下の文字列でJISと判断してるだけのこと。

$re_jis0208_1978 = '\e\$\@';
$re_jis0208_1983 = '\e\$B';
$re_jis0208_1990 = '\e&\@\e\$B';
$re_jis0208 = "$re_jis0208_1978|$re_jis0208_1983|$re_jis0208_1990";
$re_jis0212 = '\e\$\(D';
$re_jp = "$re_jis0208|$re_jis0212";
$re_asc = '\e\([BJ]';
$re_kana = '\e\(I';

こんしゅうのひろぽんはたいへんなのれしゅ！
ぱぁるをはじめたんでしゅがえいごばっかりでよめないれしゅよ〜！
どちたらいいんでしゅかねぇ

あびゃ

配列の長さの取得の方法を教えて下さい。
おながいします。

>>494
@manko=("tinko","kuso","onani");
$aho494=@manko;
print $aho494;

次あげたら殺す

scalar

ありが�d

リンク張るのはこれでいいですかな?

$message =~ s/(https?|ftp):([\x21\x24-\x3B\x3D\x3F-\x5A\x5F\x61-\x7A\x7E]+)/<A href="\1:\2">\1:\2<\/A>/g;

>>498
>>1をよく読め。

そんな感じ、微妙に間違えてるけど
s#(https?|ftp)://([^ ]+)#<a href="$1://$2">$1://$2</a>#g;

http://www.din.or.jp/~ohzaki/perl.htm

>500
http://openlab.ring.gr.jp/k16/htmllint/explain.html#excluded-url

ここを参考にして使ったらいけない文字以外にマッチさせるように書きますた。
あとm//内では$1は\1というふうにもかけます。

後方参照するとき \1 とかって使えたっけか。

>501
>あとm//内では$1は\1というふうにもかけます。

は？、オメーの書いてるのは s だろが糞ハゲ
第一宇宙速度で壁に激突して師ね！

スラッシュも無いからどうせリンクにならねーんだよ
糞ハゲ異臭バカが

拡張子判別で
raとrarの区別ってどうするんですか？
拡張子はにててもかなり違うんですが、、、。

>>505
ウ　　ザ　　イ 　　！　！
消　　え　　ろ　　 ！　！

やっぱり夏ですか。
できたんでもういいです。

>>507
君が　　【夏厨】　　　なの！
OK？

>>508
てめぇは夏だからって調子に乗っとんなよ

>>509
君の存在そのものが【猿】なの！
U see ？

>>510
君ういてるね。
猿は自分じゃん。

中卒塗装工は中卒らしく珍走でもやってなさいって
苦手な脳みそ運動は苦痛でしょう
right？

>>512
生ごみはとっとと処分されてね。
じゃ。

>拡張子判別で
>raとrarの区別ってどうするんですか？
>拡張子はにててもかなり違うんですが、、、。

この質問の頭の悪さはTNT火薬500万トン級の破壊力があります
そんな君は絶滅危惧種並みの、イッツ馬鹿モンキーなんですよ
OK？

>raとrarの区別ってどうするんですか？

もう見てるコッチが恥ずかしくなってしまう。
おまけに逆切れ
バカな事をバカだと指摘してあげたのに
「夏ですね」だって　　（惨
ああ、バカのココナッツパラダイス
バカのオナニーは永遠に続くのであった

>>515
痛いクソ野郎がほざくなYO!

>>513
生ゴミに失礼です、生ゴミはエネルギーも再生資源にもなり得ます
2chで
>raとrarの区別ってどうするんですか？
と聞くホームラン馬鹿には再生の余地も有りません
絶望的です

>>516
痛いクソ野郎に失礼（略

rar$
ra$

505 ：nobodyさん ：02/07/28 19:55 ID:NiNmHVdY

拡張子判別で
raとrarの区別ってどうするんですか？
拡張子はにててもかなり違うんですが、、、。

痛い質問に対しては、放置するか、やんわりたしなめる程度に抑えた方が。
いちいち煽ってレスが流れるのは勿体ない。

>503
s///でした。

>504
スラッシュは含まれています。アスキーコードを勉強してください。

>>521
うるせーっつってんの　恥さらし犬畜生が
http:www.hoge
なんてURLはアルツハイマーのお前の脳内にしか存在しないの
ここは現実世界のBBSですよ
妄想の旅に帰りなさい

クソの分際で生意気なチンポ猿だな全く
ムカつくぜ

　　　　 　　　　　 ＿＿＿
　　　　.　　　　　 |（･∀･）|
　　　　　.　 　 　 |￣￣￣　　　ｼﾞｻｸｼﾞｴﾝ共和国
　　　　　　　　　△
　　　　　　　 △ｌ　|
　　　＿＿△|_.田 |△＿＿＿＿＿
　　　　　　|__|__門_|__|＿＿＿＿＿|＿＿＿＿＿

>501
http://www.din.or.jp/~ohzaki/perl.htm
折角書いたんだからリンク先を良く読むように
もし本当に存在するURIのみを抽出したいのであれば
498では全く不完全。
どうせ不完全なのだから、500では簡単の為に書いた

あと、￥１はこの場合あなたの望んだ動作をしないと
思ったので、間違えてると書いた
分かってるなら聞くなよっつー事だ

７５５とか７７７とか言うの
これどうやって変えるの？
出来るだけくわしく頼むよ

板違い

ＰＥＲＬだっつーの（ﾜﾗ

ｷﾁｶﾞｲ。

http://js-web.cside.com/index.html

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

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

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

だから

７５５とか７７７とか言うの
これどうやって変えるの？
出来るだけくわしく頼むよ

だってのに（ﾜﾗ

http://tohoho.wakusei.ne.jp/wwwxx012.htm

念じろ

>>532
s///;使って置き換えれば？

>>535
ありがと。おかげで７７７に変えることができたよ。

掲示板をつくっているのですがどうも%FORMの中に書き込みデータが入ってないんです
原因がわからずこまっています以下がそのコードの一部です

<table border="2" cellpadding="10" bgcolor="#FFFFFF" width="100%"><tr><td>
<b>新規記事作成フォーム</b>
<form method="POST" action="$script">
<input type=hidden name=cmd value="write">
<table width="550">
<tr><td align="left" width="50">名　前</td>
<td align="left" width="100"><input size="40" type="text" name=name></td></tr>
<tr><td align="left" width="50">E-mail</td>
<td align="left" width="200"><input size="40" type="text" name=email></td></tr>
<tr><td align="left" width="50">題　名</td>
<td align="left" width="100"><input size="40" type="text" name=title></td></tr>
<tr><td align="left" width="50">U R L</td>
<td align="left" width="200"><input size="40" type="text" name=url></td></tr>
<tr><td>コメント</td><td align="left" colspan="3">
<textarea name=message rows="5" cols="61"></textarea><br>
<input type=submit value="新規投稿"></form>
</td></tr></table></td></tr></table>

そしてプログラムのトップのほうに

if($FORM{'cmd'} eq 'write') {&write;}

としてるんですが新規投稿ボタンを押しても&writeに飛んでくれないのです

ためしにprint "$FORM{'cmd'}";とやってみましたが空白でした。

何が原因なのでしょうか？

>>537
フォームから送られてくるデータはどんなふうにばらしてるのよ

顧客名簿のメールアドレスへ順番にメールを送信するスクリプトを作っています。
メール送信の方法としては、メールアドレスが入った＠MAILという配列に対して、
foreach $mail @DATA{
#$mailに対してその都度sendmailをオープンして送信
#１秒スリープ
}
という感じです。
サーバーの規定でsendmailは多くとも1秒に一通の割合で、という注意があるため、
1秒スリープしています。

流れとしてはメール本文編集画面から、送信ボタンを押すと上記のように
メール送信を始めて、全部終わったところで「送信完了しました」という画面を出すのですが、
送信件数が少ないうちはいいのですが、件数が多くなってくると別にエラーが起きているわけでもないのに、
タイムアウトになるのか、「送信完了しました」画面が出ません。
（エラーならinternal servererrorになりますが、画面はタイムアウトの時と同じ画面です。）

そこで、とりあえずFLASHで良くやるNOW LOADING...見たいな感じで、
「現在送信中」の画面を出しといて、バックで送信処理を続けて、送信が終わったら「送信完了しました」
という画面に移動したいのですが。

現在やり方が全く思いつきません。

foreach $mail @MAIL{
#$mailに対してその都度sendmailをオープンして送信
#１秒スリープ
}

配列の名前間違えました。

この処理を行うブロックにきたら、

print "Location: nowloading.html";
でとかにとばして「送信中」と書いたHTMLに飛ばして、

foreach $mail @MAIL{
#$mailに対してその都度sendmailをオープンして送信
#１秒スリープ
}
とやって、そのあとに

「送信完了」画面を出す。

でいけるかな？ちょっとやってみますが。

nowloading.html
が表示されたまま。
無理でした。

>>541
あげんな。
思うのはここへきてる人間がもしあなたにそれを教えてさ
あんたが儲かるわけでしょ？バイトか仕事かしらんけど。
露骨過ぎだよ、、アホだ。あんたが俺になんかしてくれるのか？
なら答えてやるぞ。
それともネタか？違うだろうなあげてるもんな。

Nowloadingでセッション閉じるから無理だよ
メタタグ入れて読ませたり出来るけど、共用してるだろから
ユニークIDとかトランザクション辺りでカッコ悪くなるでしょ
それがCGIの限界。
と言うわけで、Nowloading.htmlの推奨内容
どうせsendmailの先で死ぬ事も有るんだし　　（笑

メールを送信しました、上手く行くかどうかは分かりません　（＾o＾)/~~

>>540

my($name,$email,$url,$title,$message) = ($FORM{'name'},$FORM{'email'},$FORM{'url'},$FORM{'title'},$FORM{'message'},);

こんな感じですがこれ以前に

if($FORM{'cmd'} eq "write")に反応しないんです

>547
どうやって$FORM{'cmd'}に入れてるんだ？
勝手に入るとか思ってたりはしないよな？
まさかそこまで馬鹿じゃないよな？
夏とは言えそこまで馬鹿はいないと信じたいな。

perlで書いたcgiの中でファイルを作成すると、
所有者がapacheとなります。この所有者は好きなのに変えられないのですか？

>>475
マニュアルはperldocやweb等いろいろと見てみたのですが、全然ロックに関する
記述が無いんです。（Ｔ＿Ｔ
しかし、dbと名が付いているくらいだからロックくらいはしてくれるだろう、
ということでとりあえずsdbmでやってみようかな、って思ってます。
でも微妙に気になる。（ｗ

>>547

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
local(@pairs) = split(/&/,$buffer);
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Z]{2})/pack("H2", $1 )/eg;
$FORM{$name} = $value;
}

>>545
振込先でも晒しとけば

$right =~ s/</&lt;/g;
をｳﾏｰｸ変えて
□□□（文字列）→<font color="#ff0000">★</font>
な感じに出来ないでしょうか？

出来るよ。

>>554
やり方を教えて頂ければこちら側としては非常にありがたいのですが…

>>545
漏れに金くれるんならいい案提示してやるぞ！
print ".";

>>541だった。すまん。

>>555

$right =~ s/□□□/<font color="#ff0000">★</font>/g;

>558
いんたーなるさーばーえらー

>>555
ありがとうごだいます。
試してみます。

>>559
だめなんですか？

↑のは>>555じゃなくて>>558だ

Perlでプログラミングを勉強してます。
本はリャマ第2版、 Vine2.5+Bashでしゅ。
第三章の問題1ですが、要は、キーボードから
111
222
333
(C-d)←EOFを入れる。
と入力したら、
333
222
111
と表示するプログラムを書け、という主旨だと思います。
解答は、
print "Enter the list of strings\n";
@list = <STDIN>;
@reverselist = reverse @list;
print @reverselist;
となってます。オイラの答は、
@strigns = <STDIN>;
@result = reverse(@strings);
print "@result";
です。変数名と1行目は本論でないので置いとくとして、問題はこれを実行すると、
333
222
111
と2行目以下、行頭にスペースが入ってしまうことです。
違いは、print のトコで、" " で括るか、括らないかの違いなんすが、
この例では、" " はどのような役目を果たしているのでざんしょ?
それと、reverseの引数はカッコ無しでも有りでも変わらないようなのですが、
あっても無くてもいいのでしょうか?
よろしこおながいします。

>>561
わりぃ。
間違えてた。

$right =~ s/□□□/<font color="\#ff0000">★<\/font>/g;

>>563
再度ﾄｩﾗｲしてみます。

>>563
出来ました。
本当にありがとうごだいました。

>>562
と言うか、配列を　”　で囲んでprintfに投げると
デフォルトの区切り子を挿入しちゃうんですよ。
＄. と ＄”　だったかを弄って見れば分かる筈

@list = qw(hoge foo bar);
print @list;
print "\n";
print "@list";

>>562

"" は普通の文字列の書き方。変数展開とか \ のエスケープとか有りの。配列
変数も展開してくれるそうで。

3.7 配列を文字列中に展開する
「同様に、配列変数から…間にスペースをはさんで、順番に展開されます」

だそうです。実際には、特殊変数 $" の値で区切られるはず。"" で囲まずに
print する場合には、$, (デフォルトは空文字列) で区切られます。

> それと、reverseの引数はカッコ無しでも有りでも変わらないようなのですが、
> あっても無くてもいいのでしょうか?

この場合には無くてもいいけど、必要な場合もあるらしい。この辺は、漏れも
よく分らない。考えるのが面倒なので、大抵 () を付けるようにしてるけど。

>>566-567
なるほど。
$" と $, はまだ勉強していないのでよく分からないけど、
" " の有無による違いは何となく分かりました。
引数のカッコ、とりあえず付けとけば問題無し、ということで
原則かっこ付きで逝きます。
どうもありがとうございました。

記事noを取り出したいとき
@dataに

2<>名無しさん<>mail@***.com<>http://www.***.com/<>てすと<>てすと<>
1<>名無しさん<>mail@***.com<>http://www.***.com/<>てすと<>てすと<>

の2行がはいっていて1行目の「2」だけを取り出したいのですが

$no = (split(/<>/,$data[0])[0]);

とやってもできませんでした。どうやればいいのでしょうか？

http://www.ruitomo.com/~gulab/index.html
ここでスレを調べなされ

perlで書いたcgiの中でファイルを作成すると、
所有者がapacheとなります。この所有者は好きなのに変えられないのですか？

>>571
変えられない。

配列から別の配列に同じ物を一気にぶち込みたいときは、
@new = @old;
でいいですか？
試したら一応出来ましたけど。

$hoge =~ s/\Q$pair\E/<b>$pair<\/b>/g;
これの　\Q　\E　の意味が良くわからないです。

>>571
基本的に変えられませんが、mo-musu だったら変更可です。

やり方：
　　`chown mo-musu.mo-musu filename`;

全角英数字を半角英数字に変えたいので↓にあるのを引用して
www.kiwi-us.com/~mizusawa//penguin/DATA/dlcount/dlcount.cgi?file=macwwwsrch3097_fol.zip
&jcode'convert(*word, "sjis");
こうやったんですけどうまくいかないです。

>>576
&jcode'convert(*word, "sjis", "", "mo-musu");

>>576
perlメモ見れ
ttp://www.din.or.jp/~ohzaki/perl.htm#JP_Z2H

>>575=577
氏ね氏ね氏ね氏ね氏ね

perlで日本語を使う時の注意がわかってきました。
で、今は普通にSJISでperlを書いています。
＞perl スクリプトを EUC-JP で書き， 漢字コードが EUC-JP である日本語を処理するというのが、
＞perl で日本語を扱うときに一番問題が起きにくい方法です。
という事はスクリプトを保存する時のコードをEUCに変更した方がいいんでしょうか。
FORMのデコードも全部EUCに変換しなきゃいけないですよね。

>>580
調子に乗るな！　>>1を読め！

す、すいません！調子に乗ってしまいました！！

>>582

キエロ

二度と来るなよ

来たらおまえのサイト荒らすべ

掲示板で

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

と長い半角文字を入力すると記事を表示する枠が勝手に広がってしまいます。
どうすれば枠の幅はそのままで記事は改行されてきれいに収まるように出来るでしょうか？

>>584
cssつかえ

画像ファイル（*.jpg）を開くと、画像毎に見た人の数をカウント
したり、見た人のホスト名を記録するフリーのPerlを探してます。
どこかにありませんか？教えてください。

プログラムは組めませんが、設置する基本的な知識はあります。
よろしくお願いします。

>プログラムは組めませんが、設置する基本的な知識はあります。

だけど検索することはできないんだね

@INCにパスを追加する方法教えてください・・・・

#!/usr/bin/perl -I

>>586

スレ違い

>>587
検索してるんだけど、見つからないんだな。
カウントするヤシはイパーイあるんだけど、ログを残すのが無い。

>>590
どこで聞けばいいのだ？
プログラム板は初めてで、初心者の文字があったもんで・・・

my の事で質問です。

my $hoge;
my $hoge2;
と
my $hoge, $hoge2;
はどう違うんですか？
検索もして自分でも試しましたが答えを見つけることが出来ませんでした。
ご教授お願いします。

>>592
って、全然違うじゃん。
> my $hoge, $hoge2;
myが効いてるのは$hogeだけ。my( $hoge, $hoge2);で上と同じ。

>>593
ありがとうございました。
523=Perlの神！

>>523

523 名前：nobodyさん 投稿日：2002/07/28(日) 21:18 ID:???
クソの分際で生意気なチンポ猿だな全く
ムカつくぜ

>>594
感謝にギャグってくれるとはなかなか、、

お知恵を貸してください。

@X = ("A","B","C","D")

があって、BとCの間にEをつっこむ何かよい手はないでしょうか。
結果的に、

@X = ("A","B","E","C","D")

を作りたいのです。よろしくお願いいたします。

splice

>>597
@X = ("A","B","C","D");
splice(@X, 2, 0, 'mo-musu');

use LWP::Simple;
これ以外でWEBページを取得する方法はありますか？
現在借りているサーバーにはモジュールがありやがりやせん。

>>600
面倒なのでコピペ
お前これみて分るか？
use Socket;
$r1=shift(@ARGV);
$html=shift(@ARGV);
$port = 80;
$host = "$r1";
$filename = "$html";
$ipaddress = inet_aton("$host");
$address = pack_sockaddr_in($port,$ipaddress);
socket(SOCKET,2,1,0);
connect(SOCKET,$address);
select(SOCKET);
$ |= 1;
select(STDOUT);
print SOCKET "GET $filename HTTP/1.0\r\n";
print SOCKET "HOST: $host";
print SOCKET "User-Agent: Q51-A";
print SOCKET "Accept-Encoding: gzip";
print SOCKET "\r\n\n";
while(<SOCKET>){
print $_;
}

暇だしいいか、、
LWPは標準モジュールじゃないです。
ActivePerlとかLinuxのディストリには入ってるがな。
ラクダ本くらいは買え。６章にソケット例が書いてある。

引数の文字列の長さを求めたい時、PHP4では"strlen()"関数にて

$a = "abcd";
$a = strlen($a);

echo ("$a\n");

という風な記述をすると思うのですが、これをperlに置き換えたい場合はどの様にすれば宜しいのでしょうか？

現在perlで quota の設定ができるものを作成中なのですが、
通常であればシェルで

edquota ユーザー名 (Enter)

でエディタが起動して

Disk quotas for user okada (uid xxx):
Filesystem blocks soft hard inodes soft hard
/dev/hdax xxx xxxx xxxx xx x x

上記のテンプレートを編集する事になるのですが、
これを Perl のスクリプトで変更することはできないのでしょうか？

exp) perl ./edquota.pl ユーザー名 blocks値 soft値 hard値 inodes値 soft値 hard値・・

Linux Slackware8.0
Perl5.6 を使用しております。

それでは宜しくお願いいたします。

>>603
length関数

$hen="tinko";
$kuso=length $hen;
print $kuso;

>>604
マルチ近視
それでは宜しくお願いいたします。ってのがネタっぽいからなぁ〜
文章書き換えてプログラム板に逝け

>605
示して頂いた例通り(変数名は別のものですがｗ)試して、巧く機能させる事が出来ました。お蔭さまで助かりました。

何分、糞imodeに対して別途"Content-Length"値を与えなならんと聞いたものですから‥

んげ、ageたらアカンかったんでしたね‥

>>585

CSSでどうやってやるのですか？

>609
CSSスレで聞け。

http://www.afz.jp/%7En_mattun/2ch/swf/R3_temp.html

これを見れない原因として、何が考えられますか？

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

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

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

サブルーチンファイルの書き方と
本体からの呼び方の
決まりが書いてあるページが見つかりません。
教えて下さい。

補足
同じファイルにサブルーチンを書いて呼ぶ方法はわかります
別のファイルにサブルーチンを書いて呼び出したいんです

>>613
require で読み込むのだ。
読み込んだ後は、普通にサブルーチン呼び出すと。。

誰か教えてください
ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/mod_perl.ppd
でwin2000にmod_perlを組み込みたいのですが、、
Error installing package 'http://theoryx5.uwinnipeg.ca/ppmpackages/mod_perl.ppd'
: Could not locate a PPD file for package http://theoryx5.uwinnipeg.ca/ppmpackag
es/mod_perl.ppd
このようなエラーが出ます。URL移動したのでしょうか？

>616
サーバがメンテ中とかやないの？

>>613
詳細は省き、必要最低限のみ。
サブルーチンの書かれたファイルをSub.pmとする。
その中のサブルーチンをsubとする。

本体の頭に
use Sub qw(sub);
呼ぶときは単に
sub();

サブルーチンファイルの頭に
package Sub;
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(sub);

とやって、あとは普通に定義する。
sub {}

>>592
>> my $hoge, $hoge2;

ラクダ本216より
この演算子(my)はコンマよりも優先順位が高いので、2個以上の変数を指定する場合
には、変数の並びをカッコで囲まなければならない。

>>588

use lib 'pass';
で、@INCの頭にpassが入る。

>>615様
で、できますた！

test_sub.cgiの記述

sub test{print"てすと";}
1;


test.cgiの記述
#!/usr/bin/perl

require './test_sub.cgi';

&test;

>>618様
更に高度な技のご伝授で感激です。
これから解析して勉強します。

お二神様ともありがとうございます。

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

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

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

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

2重書き込みの判定で

if($tmp[2] eq $name && $tmp[6] eq $comment) {&error("二重投稿はできません");}

とやったのですが反応しないため

if(($tmp[2] == $name) && ($tmp[6] == $comment)) {&error("二重投稿はできません");}

とやったらできるようになりました。

しかし他の人のコードを見ると前者のようにしてあるのですが
なぜか自分のでは反応しませんでした。

原因がなにかわからないでしょうか？

$tmp[2]には一番最近書きこまれた記事の投稿者名が、
$tmp[6]には1番最近書きこまれた記事のコメントが格納されています。

ログファイルに書きこむ際は

my($tmp) = "$no<>$subject<>$name<>$email<>$url<>$time<>$comment\n";

open(DATA,">$logfile") || exit;

unshift(@data,$tmp); print DATA @data; close(DATA);

のようにしています。

一番最近書きこまれた記事の投稿者名やコメント情報は

open(DATA,"$logfile") || exit;
my(@data) = <DATA>; close(DATA);

my(@tmp) = split(/<>/,$data[0]);

のようにして取り出しています。

>624
\nの扱いがどうなってるかだな。
ログの保存を
my($tmp) = "$no<>$subject<>$name<>$email<>$url<>$time<>$comment<>\n";
に変えて、上の方法にしてみたら？

>>623
たとえば、$tmp[2]の値が0で、$nameの値が空だったらありえーる！

ログファイル読み込むときに末尾の改行とってないから$commentとは等しくない。

HTML::Templateのループ処理をネストするとき、

$template->param('ROW',[
　　　{ name => 'Bobby',
　　　　nicknames => [
　　　　　　　{ name => 'the big bad wolf' },
　　　　　　　{ name => 'He-Man' },
　　　　　　　　　　　　　],
　　　　},
　　],
);

みたいな処理だと、変数の数が必然的に決まってしまうんで
配列を使って、ネストしたnicknamesに入れるハッシュの数を自由に操作したいんですけど、

my @name = qw('the big bad wolf' , 'He-Man'........);
while (@name) {
　my %row_data;
　$row_data{'NAME'} = shift @name;
　push(@nicknames, \%row_data);
}

　$name = 'Bobby';
　$nickname = 'He-Man';
　my %row_data;
　$row_data{'NAME'} = $name;
　$row_data{'NICKNAME'} = $nickname;
　push(@loop_data, \%row_data);

まではいいんですが、@loop_dataに@nicknamesを入れるにはどうすればいいんですか？
push(@loop_data, \@nicknames);　などではダメですが
それとも他に配列をネストするための何らかの方法が？

if($tmp[2] eq $name && $tmp[6] eq $comment) {&error("二重投稿はできません");}

my($tmp) = "$no<>$subject<>$name<>$email<>$url<>$time<>$comment<>\n";

こうやってみたんですがだめでした。

>>630
>>627読んだ？

それは

my(@tmp) = split(/<>/,$data[0]);
$tmp[6] =~ s/\n//;
if($tmp[2] eq $name && $tmp[6] eq $comment) {&error("二重投稿はできません");}

というようにしろということでしょうか？

やってみたのですがうまくいきませんでした

もうチョイ頭使えって
あんたの財布の中身は他人には解らん
変数の中全部吐き出してみろよ

単純なところだと思うのですが、

添付ファイル付きメールををセンドメールで送るんですが、
@filesの部分に添付ファイルを入れれます
stdio::sendmail(\%header, $body, $html_body, 0, @files);

こうするとうまくいかないのですが、プログラムの別の部分で
@filesの中身を吐き出してやって、コピペしてやるとなぜかうまくいきます。
stdio::sendmail(\%header, $body, $html_body, 0, '../../aaa.txt',);

すごく単純なことだと思うのですが、なにか解決のヒントください。
おながします。

>>635
@filesだと配列の数。

$data[0]の中身は

1<>書き込みテスト<>名無しさん<>***@***.com<>http://www.***.com/<>>2002/07/31 15:14:19 (Wed)<>書きこみテスト<>

です

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

すると配列そのものを羅列させるには
stdio::sendmail(\%header, $body, $html_body, 0, "@files");
とするべきということですか？

このスレを見ようとすると

http://server.maido3.com/

へ飛ばされるんだけど俺だけ・・？

>>638
web powerのstdio.plライブラリーですか。
sendmailのパスが無いようなきがするけど。
その@fileの内容が知りたい。

http://www.afz.jp/~n_mattun/2ch/swf/R3_temp.swf?inputStr=%93c%91%E3%82%DC%82%B3%82%B5%82%A0%82%CE%82%CE%82%CE%82%CE%82%CE%82%CE%82%CE%81%5B

>>640
＞web powerのstdio.plライブラリーですか。
あ、そうです。
sendmailのパスはとうの前に記述してます。
ですから、添付されて無いメールは届きますし、
@filesの中身を吐き出してコピペするとちゃんと添付されて届くんですよ。
中身は
'../aa/1234.txt', '../aa/1235.txt', '../aa/1236.txt',
こんな感じです。

掲示板で、データをテキストファイルにしてます。
タグが禁止なので<,>は<と>に直してデータに保存しています。
で、投稿内容を表示する時は、
$naiyou =~ s/<br>/<br>/g;
こういう感じで改行部分だけ直して表示してます。
で、投稿内容を修正する機能があって<textarea>$hoge</textarea>
という感じで表示して入力してもらいます。
この時、逆に文字の中に<br>が入ってしまって変です。
なので今度は<br>を改行コードに戻して表示しなきゃいけません。
改行コードはOSによって違うので
$naiyou =~ s/<br>/\n/g; # unix
$naiyou =~ s/<br>/\r\n/g; # win
$naiyou =~ s/<br>/\r/g; # mac
という風にOSによって書き分けないといけないですよね？
OSはジャバスクリプトで分ければいいってことでしょうか。

http://www-power.net/cgi/other/library/stdio/stdio.pl

これかな、何か間違えてるんじゃ無いの？
(\%header, $body, $html_body, 0, '../aa/1234.txt','../aa/1235.txt', '../aa/1236.txt');

こうしたらどうなるの？

>>643
unixだけでいいよ。

>>643
なぜどのOSでも未知のサーバのテキストが改行して読めてるか分かる？

>>491 なんだ ◆JAPH9PWAはgunzipの弟子だったのか？
「コテハンの騎士は一人残らず皆殺しだ(´･ω･`)」（←ＳＷのみすぎ）
ム板Perl6スレでの君の活躍は見事だ。放置プレイマンセーだな（少尿
>>490
あぁ俺英語読めんからいまだにコンパイルできん。
だいたいnmakeうってもできんぞ。詳しく教えろ。

>>484のリクに答えて「よーしパパ今日はパロッチャウゾー♪」
ParrotはまえLinuxでmakeできんで泣いたがなぜかCygwinでコンパイルできたよ。
名前しか聞いたことなかったけどおもろそうだな。
とりあえず上げとく(Cygwinとgccまわり&bisonが動けば誰でもコンパイルできる）
http://hiero_pl.tripod.co.jp/parrot.exe
http://hiero_pl.tripod.co.jp/testparrot.bin　[parrotテストコード]
↑ホントはtestparrot.pbcだがなんかうまくダウソできんので拡張子はbinにした。
http://hiero_pl.tripod.co.jp/　index.
それなりに向上心があるやつなら.EXEみりゃだうそしてちょっと試すくらいする
だろうからな、、というか俺がそうだ。なんでPerl6スレの糞どもはそういうこと
（物をうぷすること）ことすらせんのかな？
ＭＬでオナ○ーが癖になると怖いな、そうだろJAPH9PWA。

::Parrotの中身-解説【２日間眺めただけなので間違ってるかもしれん】
*.p6 //perl6 のコード ->parrot/languages/perl6/perl6[perlスクリプト] 使用
*.colac //Ｃ＃っぽい ->parrot/languages/cola/colacc.exe 使用
*.imc //.,,pasmとなにが違うの？　->parrot/languages/imcc/imcc.exe　使用
*.pasm //、、、アセンブラ？　->parrot/assemble.pl 使用
*.pbc //perl byte Code　->parrot/parrot.exe 使用

[colac　の流れ]
./colacc.exe kusokote.colac =>a.imc
./imcc.exe a.imc =>a.pasm
./assemble.pl a.pasm => a.pbc
./parrot.exe a.pbc [実行]

[perl6 の流れ]
./perl6 test.p6 ->test.imc test.pasm test.pbc 生成 ->test.pbc [実行]

＊assemble.pl自体はXSとかつかったPerlスクリプトでないのでActivePerlでも実行できた（はず）
perl6もActivePerlで動きそうだけどまぁ試したときは動かんかった。
まぁassemble.plが動けばparrot.exeを試すことぐらいはできるはず。
perl6についてはム板perl6スレに行けば参考リンクが最初に貼られてたので
そっちをミテちょんまげ！。

どなたかー・・

>598,599

ありがとうございました！
出来ました！！

>>651
上にも書いてるじゃないか
$foo eq $bar
が真にならないのは$fooと$barの中身が違うからだよ
print 関数の使い方検索して出力してみろよ
もし、同じ文字列なのに偽になるんだったら
サーバの管理者に聞きなさい

http://www.afz.jp/~n_mattun/2ch/swf/R3_temp.swf?inputStr=%83_%83%81%82%C8%93z%82%CD%89%BD%82%F0%82%E2%82%C1%82%C4%82%E0%83_%83%81

>>644 さん
そそ、それです。
で、いまやってみましたら上手く行きました。
(\%header, $body, $html_body, 0, '../aa/1234.txt','../aa/1235.txt', '../aa/1236.txt');
これは上手くいくんですが、配列にしたときに上手くいかないんですよ。

>>645
本当にUNIXだけでいいんですか？
出来れば理由を教えていただきたいです。

>>646
いえ、わからないです。

>>655
ホントに試したの？
$aa = '../aa/1234.txt'; $bb = '../aa/1235.txt';
(\%header, $body, $html_body, 0, $aa,$bb);
これならどうなるの？
配列の使い方知ってる？

>>656
それはクライアントの仕事だから、その為にContent-typeがあります
HTML書く時に一々ジャバスクリプト? でクライアントのOSを判定
しますか?
そんな事しなくてもクライアントがソースを見るとちゃんと置換されて
ますね
何故ならそれはブラウザちゃんのお仕事だからです

>>657さん
試しました。こっちは必死ですから。
本気でperl始めてまだ2週間です。
配列もなんとなく使ってはいたんですが。

@files=(@files,"'../aa/$form{$my}.txt',");
こんな感じで作ってます

>>657さん
それも行けました

>>上にも書いてるじゃないか
>>$foo eq $bar
>>が真にならないのは$fooと$barの中身が違うからだよ
>>print 関数の使い方検索して出力してみろよ
>>もし、同じ文字列なのに偽になるんだったら
>>サーバの管理者に聞きなさい

出力しても同じ文字でした。ローカルでテストしてるので鯖管は自分です

コレでも同じ？
print unpack('C*', $foo), "\n";
print unpack('C*', $bar), "\n";

>>658
ネタ？どう考えてもドキュメント読んだ方が早い
http://www.ie.u-ryukyu.ac.jp/~kono/perlman/cat1/perldata.html
@files = ('../aa/1234.txt','../aa/1235.txt', '../aa/1236.txt');
(\%header, $body, $html_body, 0, @files);
それとそのライブラリ、そのまま使うと何でも通すので
多分攻撃されます($form{$my})、ファイル消されます、入力チェック必須

>>660
良く読んで無いけど同じ文字列をeqで評価して真にならないなら
PERLかOSか機械が壊れてます。

>660
改行って目に見えないんだよな・・・。

>>662
なんか間違っているということですか？

ドキュメント読んで出直します。

一応、パスワード入力+アクセス制限+外からアクセスできないディレクトリ
とか使って、セキュリティには気をつけてます。

>>662
ひらめいたぽ

おい>>630 、>>627 で解決した問題じゃないのか。

>>664 は以下の文章の意味するところを勉強しろ。

それとそのライブラリ、そのまま使うと何でも通すので
多分攻撃されます($form{$my})

やっと原因がわかりました、、

プライベート変数myをifで囲んでいたためifから出たら空になってました

1回printで出力してみたのですがそのとき運悪くifの中にコーディングしたため
ちゃんと表示されてしまったということでした。

答えてくださった方ありがとうございました。>>627さんので当たりでした。

>>662様
ありがとうございました。
@files=(@files,"../aa/$form{$my}.txt');
これでやってみようと思います。

ｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━!!!!
解決しました。
本当にありがとうございました。

お金が無いので、
りゃま本、らくだ本、その他、
初心者向けの古本探して買おうかと思っていますが
最新版でなくてもよいでしょうか？

>>657
それでは、<br>を改行コードに戻したい時は「\n」に置き換えれば
あとはどのOSで見ても勝手に改行してくれるという事ですよね？

>>670
古本屋にラクダ本がある素敵な場所があるなら教えて欲しいわ！（ｗ
すれ違いなんで↓いきなさい
http://pc.2ch.net/test/read.cgi/php/988809842/
最新版じゃなくていいだろうが、、ラクダ２版は死んでも買えよ。

>>671　　なんでそんな3分で試せる当たり前の事を聞くんだよ
改行されるに決まってるだろ。
それとも誰かにその事の補償でもさせたいのか、裁判官みたいだな

>>672さん
誘導ありがとうございます。
らくだ２版っと、メモメモ・・・

親に駄々こねて、買ってもらおうとしたら受験生なので却下されますた。
こんど、参考書を買うと騙してらくだ本買うように企んでいます（藁
お金欲しい・・・・

>>628,629
　$row_data{'NAME'} = $name;
　$row_data{'NICKNAME'} = $nickname;
　$row_data{'NICKNAMES'} = \@nicknames;
　push(@loop_data, \%row_data);
HTML::Templateのループネストって、普通でもややこしいのに、
もっと見通しの良い変数名を使ってホスィぞ。(外と内で同じ
%row_data を使ってるとか)

>>674
趣味の本くらい自分の小遣いためて買え・・・。
親にたかるなよ

>>675
ありがとうございます！！
ただ、>>629をループ処理すると、@loop_dataの中身はうまく表示されるんですが、
@nicknamesの部分は最後に入れたハッシュだけが適用されるようですね…
つまり、BobbyやHe-Manの部分をループ毎に変えても、結局最後に入れたハッシュの内容が
全てのNICKNAMESの部分に表示されると・・・。

スレ違いかもしれませんが質問です。
この意味がおわかりになる方いらっしゃいますか？
おそらく、telnet経由でread cgiにアクセスし、logから住人のアクセス情報を
出すということを言っているのだと思うのですが、実際現在そのようなことはできるのでしょうか？

http://tmp.2ch.net/test/read.cgi/mog2/1028122076/30-59

無理。
2ch全体でログ取ってすらいない。
何か起きたときだけ、緊急に取る。

>>673
windowsしかなくてunixやmacで試せないから聞いてるんだよ。
お前はプログラムしか能のない馬鹿か？
論理的に理解できてるならそれぞれの環境で試さなくてもわかるんだろうが
俺はお前のように論理的にわからないからいちいち自分で試せないことは聞いてるんだよ。
こんなことわざわざ説明しなきゃいけないなんて、だからプログラマー同士って良く対立してるんだね。
わかったら、KENTのlight.cgiはなぜ\rで置き換えているか説明しろ。

>>680
Windowsで試せばいいと思うが。
\nがUNIXでちゃんと表示されるのは当たり前。
\nがWinでOKならMacでもOKだろうと推測する頭を持て。
>KENTのlight.cgiはなぜ\rで置き換えているか説明しろ。
KENTがマカーだからだよ。

改行コードはどれにしてもIEやネスケではちゃんと表示される。
サーバがUNIX系ならUNIXの改行コードを使うのがいいんじゃないかということだな。

>俺はお前のように論理的にわからないからいちいち自分で試せないことは聞いてるんだよ。
まず、論理的にわかるように努力しる! 個別に試してうんぬんなんて
無駄なこと。KENTがどうのなんて気にするな。人気があるのはイイ
スクリプトを書いているからじゃない。

>>643>>680

まぁまぁ。マターリしようYO。
そのテキスト形式のログを<pre>で囲んじゃ駄目なのか?
まともなブラウザなら改行コードにかかわらず表示できるYO。

>>680
やっぱり夏●だったんですね、謝ります。
改行コードの話はスレ違い、板違いなんで
超宇宙真理板にでも逝って下さい

>>680
ああ、妄想ファンタジーに突入してるんか

>KENTのlight.cgiはなぜ\rで置き換えているか説明しろ。
教えて欲しいならコード書け、KENTて誰だ？
まあ推測して書くと、そいつが馬鹿だからだな
perlの改行コードは\nなの、OSがUNIXだろうがマクだろうが
朝鮮人参だろうが関係無い
馬鹿以外の人間はんな事使って3日で気付くんだよな

馬鹿が馬鹿を見本に馬鹿なやり方で馬鹿妄想するから
普通の人間からドンドン遠ざかって行くんだよ
http://natto.2ch.net/denpa/

>俺はお前のように論理的にわからないから
お前は根本的に社会生活に問題が有ると思うね

復帰文字を使って改行するようなOSも、それを使うDQNも逝ってヨシだ。
>>680よこれを読め！！！
http://www2.gol.com/users/slowhand/kilmac/kilmac_i97.htm

なんか議論中のようなのですがﾁｮﾄ失礼シマスです
厨な質問なのですが、よろしければ答えてくださいです

SSIでデータをちょこちょこと処理させようとしたりしたときに
１HTML(？)中に２〜３回SSIを使ってたりすると処理の順番はどうなるのでしょうか？

↑から順に実行＞完了されるのでしょうか
それとも↑から実行されて、完了しないうちに２番目のが実行されたりするのでしょうか

どうかご教授ください、宜しくお願いします

>>685
http://www.sankeipro.co.jp/male/kent_.htm
世界丸みえとかに良く出てるけど知らない？
プログラムやるのもいいけどたまにはテレビも見ようよ。

KENTがいっぱい

http://images.google.co.jp/images?q=KENT&hl=ja&lr=lang_ja&ie=UTF-8&inlang=ja&sa=N&tab=wi

こんばんは。行き詰まっていますのでどなたか教えて下さい。
jpeg画像をCGI_Lite.pmを利用してアップロードするCGIをperlで作成しているのですが、
アップする際に、アップされるファイルがjpegファイルかどうかを確認する方法が
わかりません。
拡張子で確認する以外の方法があれば教えて下さい。よろしくお願いします。

お邪魔します。質問させてください。
port5.comにアクセスログ取得スクリプト設置したんだけど
htmlのソースにSSIのコメント<!--#exec cmd="..."-->ってやつが
ばっちり表示されてる。でもCGI/SSIは動いている模様。
これは普通のことなのですか？
ちなみにhypermartにも同じスクリプト置いてるけど、
こっちは表示されてないです。

>>691
バイナリで送られてきたデータ先頭を確認する。

>>692
表示されているのはおかしいぞ、と。

\xFF \xD8 \xFF \xE0 \x00 \x10 \x4A \x46 \x49 \x46 \x00
がJPEGの先頭のバイナリ。（たぶん。バイナリエディタで自分の持ってるJPEG画像開いて確認してくれ）
これが先頭にあるかを見る。

>>693
ですよね〜
やっぱりSSIは動作してないかも、です。
でもCGI自体は動いているみたいで自分のアクセスしたログが
記録されてた。SSIが 使えないとダメなスクリプトのはずなのに、
なんでだろう・・・なんか混乱しちゃってます・・

>692
port5.comがどういうところか知らないけど、そこのSSIではexecは許可されてるの？

>>695
拡張子を確認！！

>>696
あ、多分解決しました。
port5.comはよく落ちるってことでレンタル鯖板ではすこぶる評判が
良いです。FAQのCGIのセクションばかりみていたんですけど、
他のところにSSIの説明ありました。回答して下さった方ありがとうございました。

>>692
多分.htaccess

>>695

拡張子なんてアテになんないから、691は拡張子以外で、って書いてるんだろ

>>697
>>700
落ち着け。

>>677
スマソ、いまいち元データと完成後の画面イメージが掴めんので、
事情が理解出来ないのだが、原理的にはこんなんで行くはずだが。
実際には@name0と、@name1は、リファレンスを使用したレコード
構造とかにする必要が有るだろうけど。
foreach my $name (@name0){
　foreach my $nickname (@name1) {
　　my %nickname;
　　$nickname{NICKNAME} = $nickname;
　　push(@nicknames, \%nickname);
　}

　my %name;
　$name{NAME} = $name;
　$name{NICKNAMES} = \@nicknames;
　push(@loop_data, \%name);
}
$tpl->param(ROW => \@loop_data);

<TMPL_LOOP NAME=ROW>
　<tr><td><TMPL_VAR NAME=NAME></td><td>
　<TMPL_LOOP NAME=NICKNAMES>
　　<TMPL_VAR NAME=NICKNAME>
　</TMPL_LOOP>
　</td></tr>
</TMPL_LOOP>

execでもsystemでも,実行させた外部プログラムが終わるまで
処理がこっちに帰って来ないのが不便でかないません．

外部プログラムを別プロセスで起動させることは出来ますか?

>>703

チャットで、全員他の人を落とす方法教えてもらえませんか？

CGIファイルを消す。

>703
exec ですと、perl スクリプトが終わるので処理は返ってきません。
system ですと、forkしますから、別プロセスになります。

私は、
外部プログラムをperlの中から呼ばない
どうしても外部プログラムを使わないとダメな時は、そのためのシェルスクリプト
をperlに吐かせ、それを実行
するようにしてます。

>>699
正解です・・勉強してきますー

画像アップ掲示板で、画像のサムネイルを自動的に作るものがありますが、
あれってどうやってるんでしょうか？
（アップした画像を縮小してるんじゃなくて、小さな画像を自動的につくる）

>>709
ここは【Perl】初心者コーナー ですが、読めませんか？

html---------
<input type="checkbox" name="hoge" value="A">A
<input type="checkbox" name="hoge" value="B">B
cgi----------
@hoge = $FORM{'hoge'};
foreach $value (@hoge){
print "$value";
}

チェックボックスの値を受け取りたいんですけど、AとB両方チェックしても
Aしか受け取れません。やり方間違ってますか？

>711
間違ってる。

nameを変えないとどちらかが上書きされる。

配列として、返ってくると予想していたんですけどこの考えは間違いですか？
チェックボックスの数は変動するんでnameを別にするとしたら
わざわざ適当な名前+連番とかで付けなきゃいけないって事ですかね。

配列としては取れない。

<input type="checkbox" name="hoge1" value="A">A
<input type="checkbox" name="hoge2" value="B">B
....

仮に連番でチェックボックスを生成しても、今度値を受け取る時
その数だけ
$hoge1 = $FORM{'hoge1'};
$hoge2 = $FORM{'hoge2'};
...
ってあらかじめ何個も用意しておかなきゃいけないんでしょうか。
（掲示板の投稿削除で管理者は一気チェックして消せるみたいな感じにしたいんです）

$FORM{'hogeN'};　　を　　$hogeN　に代入する必要は無いんじゃないか？

>715
頭固い？
for(my$i=1;$i<=$last_number;$i++){
  push(@hoge,$FORM{"hoge$i"});
}

とかで回せば楽だろう。

基本的なことがわかってないヤツは何をやってもダメ

>>715

頭硬い
要領悪い
プログラマーに向いてません

バカだって、バカなりに生きていかなきゃならんし…。

>>711
hoge=A&hoge=B&hoge=C・・・・
上書きはされないで送られる。
読み込むときに
$count = 0;
my @pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
　　my($name,$value) = split(/=/,$pair);
　　if($name eq 'hoge') {
　　　　$hoge[$count] = $value;
　　　　$count++;
　　}
}
と配列に読み込むようにする。

>>712

ﾊｽﾞｶｼｰ！

けど指摘できたの721だけだな。

>722
取得する時に変える方法は思いつかなかった。
どうせcgi-lib.plかなにかで取得させてるんだろうと思ったし
言っても分からないだろうから、下手に混乱させる必要もないかなと。
>721の発想出ないなんて、確かに頭固くなってて恥ずかしいね。

>>724
言い訳ﾊｽﾞｶｼｰ!!

1 FORM から送信されたデータをデコードしたり、エンコードしたい。


2 こんな風にやってみた。

s/(\W)/'%'. (unpack(H2, $1))/eg;
s/%([a-fA-F0-9]{2})/pack(H2, $1)/eg;


3 いや、ふつうに動きますが、いくつか CGI の掲示板
Perl のスクリプトを公開しているサイトを拝見させて
頂きましたが、圧倒的に以下の様なスクリプトが幅を
利かせています。

s/(\W)/sprintf('%%%02X', unpack(C, $1))/eg;
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

"C" で pack or unpack するメリットと、
"H2" で pack or unpack するデメリットを伺いたいのですが。

てゆーか "H2" のが効率良さそうな気がするのですが。

H2の方が効率がいい。
RFCでCの方が書かれて
Cの方を使う人が多い。しまっていたから

>727
ｱﾘｶﾞﾄｺﾞｻﾞｲﾏｽ

RFC が解りません。
今調べてますが、差し支えなければ教えて下さい。

RFCの日本語訳ならこの辺。
http://www.se.hiroshima-u.ac.jp/~isaki/rfc/list.html

インターネットの標準を定めている文書、といっても過言ではない。
たしかURIエンコードの項目に pack("C", hex($1)) が書かれてた。

>729
ありがとうございますです。
非常に参考になりました。

叩かれ覚悟で質問します。htmlもロクにわかってません。
FORMで打ち込んだ内容をテキストに保存するCGIを作ってます。
#!/usr/local/bin/perl
print<<"EOM";
<form action="./test.cgi" method="POST">
<input type=text name=sub size=50 value="$naiyou">
<input type=submit value="送信する">
</form>
EOM
open(OUT,">> log.txt");
print OUT "$naiyou";
close(OUT);

すいませんアドバイスお願いします。

とりあえず、送られてきたデータを受け取れ。
話はそれからだ。


#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair(@pairs){
$value =~ tr/+/ /;
$value =~ s/%([0-9a-zA-Z]{2})/pack("H2", $1 )/eg;
$FORM{$name} = $value;
}

print<<"EOM";
<html>
<form action="./test.cgi" method="POST">
<input type=text name=sub size=50 value="naiyou">
<input type=submit value="送信する">
</form>
</html>
EOM
open(OUT,">>log.txt");
print OUT "$FORM{'sub'}";
close(OUT);
exit;
__END__

1 CGI 掲示板のログを、なるべく安全に保存したい。
2 "$/" INPUT_RECORD_SEPARATOR に "\n" を代入（する必要は多分無い）
"\r\n" を <br> に変換し "\r" "\n" を削除する。
"\r" をセパレータにしてデータを書き込む。
だいたいこんな感じ。
while($i < $log_countmax}){
　foreach(keys(%TMP)){$line .= "$_=$TMP{$_}\r";}
　push(@lines, $line);}

読み込み時には split にリミットを指定する事で文中の "=" は無視できる。
($key, $value) = split(/=/, $_, 2);

3 少ない環境での動作チェックはしましたが、同様の処理をしている
スクリプトを見かけないので、なんとなく不安が残ります。
何か問題点が有りそうでしたら、ご指摘下さい。
もちろん上記スクリプトは、意味が分かる程度に簡略化した物で動きませんよ？

>>732
ありがとうございます！
でもサーバーエラーがでます。
なぜだろう・・ちゃんとパスやパーミッションも合ってるのに。

適当に書いたから（＾＾；
一応、データの受け取りはよく使われる。
↓こんなのが。

sub read_form {
local($pair,$buffer);
if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}elsif($ENV{'REQUEST_METHOD'} eq 'GET'){
$buffer = $ENV{'QUERY_STRING'};
}
local(@pairs) = split(/&/,$buffer);
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-zA-Z]{2})/pack("H2", $1 )/eg;
$FORM{$name} = $value;
}

Content-Type: text/html
を忘れてたからだ。

print<<"EOM";
のあとに
Content-Type: text/html<改行>
<改行>
入れてみて。

foreach $pair(@pairs){
の直後に
local($name,$value) = split(/=/,$pair);
も忘れてた。
回線切って首（略

>>731
表示できました。
でも送信してもlog.txtに書き込まれないみたいです。
もうちょっとからかってみます。

＞もうちょっとからかってみます。
漏れはからかわれていたのかΣ（ﾟдﾟlll）

>>739
いやそういう意味じゃないです！すいません。
自分でcgiをからかうという意味です。
変な言い方ですいません。

ローカルでテストしてみたけど、ちゃんと書き込まれてる。

#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-zA-Z]{2})/pack("H2", $1 )/eg;
$FORM{$name} = $value;
}

print<<"EOM";
Content-Type: text/html

<html>
<form action="./test.cgi" method="POST">
<input type=text name=sub size=50 value="naiyou">
<input type=submit value="送信する">
</form>
</html>
EOM
open(OUT,">>log.txt");
print OUT "$FORM{'sub'}";
close(OUT);
exit;
__END__

>>741
できました。
すごい勉強になりました。
感謝！

すいません

$value =~ s/%([0-9a-zA-Z]{2})/pack("H2", $1 )/eg;

これはいったいどういう処理をしているのでしょうか？

携帯からファイルをアップロードできるCGIを作っているんですが、
自分の所に携帯が無いのでどこを気をつけていいのか教えて頂けませんでしょうか？

Googleで6時間以上探し回っているんですがヒントすら見つかりません。
どなあたかご教授お願いします。

s/%([0-9-zA-Z]{2})/pack("H2", $1 )/eg;

というのは %12　や %a7 などにマッチさせて
pack("H2",$1)というのに変換するということはなんとなくわかるんですが
このpack("H2",$1)というのは具体的に何をしているのか解説しているサイト
ないでしょうか？もしくはどなたか答えてくれる方いましたらよろしくお願いします。

>>744
携帯電話のローカルな情報をアップロードするって話なの？
どこに気をつけるとかいう以前にできるか否かは検討したのか。

>>745
perldoc -f pack すると
H A hex string (high nybble first).
とあるよ。

>745
http://www.goo.ne.jp/default.asp?MT=perl+pack&act.search=%A1%A1%B8%A1%BA%F7%A1%A1&top=gtop&_v=2

>>702
こちらの作ってるスクリプトもそれと同じような構造なのですが、
どうも自分のやろうとしている事はレコードを使わないといけないようですね。
ただ、検索してもレコードやリファレンスの構造がいまいちよく分からないんで、
HTML::Template以外の方法を使うことにします。
それほどこのモジュールにこだわる必要もないんで・・・もうしわけない。

Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

このようなエージェントを利用して使用ブラウザと使用OSを取得したいと考えています。
例えば上の場合だと

$browser = "IE 5.5";
$os = "Windows XP";

というような感じに代入させたいのですが。。

>>749
上の例だと、IEは5.01じゃないのか？
しかもOSも2000。

>>750

そうでした。
どうすればいいのでしょうか？

ここでも見たらどうかね？

http://www.futomi.com/subroutine/ua.html

始めまして。質問させていただきます。
フォームメールでローカルに有るファイルを添付させたいのですが、上手く出来ません。
送信したときにローカルファイルをサーバー上に一時ファイルでローカルファイルの
コピーを作成できないみたいなのです。
名前だけの空っぽのファイルができてそれが添付されてメールが届きます。
どうしたらファイルのコピーが作れるのでしょうか。
どなたかよろしくご教示ください。

Cで言うところのfscanfってPerlではなんて関数なんですか？

>>753
そのソースを見ないことには改善できないよ。

デコード処理を行ってるつもりなのですが、
まったく反映されず、どこが悪いのかも分かりません。
ご指摘お願いします。

sub decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}

$i = 0;
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

&jcode'convert(*value,'sjis');
&jcode'convert(*name,'sjis');

$value =~ s/</</g;
$value =~ s/>/>/g;

$value =~ s/\r\n/<br>/g;
$value =~ s/\r/<br>/g;
$value =~ s/\n/<br>/g;

$value = $form{$name};

$name = $form{'name'};
$comment = $form{'comment'};

@num[$i]=$value;
$i=$i++;
}

あーぁ、やっちゃったな。CGIスレにリンク張ってやりたい処理と現状を書くべきなのに。

>>759
知りませんでした。
ｽｲﾏｾﾝ

すみませんでした。
下に書いてあるふうに、ファイル名を取得して空の同名のファイルをサーバ上の
指定したフォルダに作成してるんですが、その作ったファイルの中にデータを書き
こめないんです。
どうしたら良いかご教示いただけないでしょうか。

$filename = $FORM{$tenpu};
$c_type = 'Content-Type';
@tmp = split(/\\/, $filename);
$tmpfile = pop(@tmp);

$file_path = "./mail_tmp/$tmpfile";
open(OUT, ">$file_path");
while($tmp_byte=read($filename, $buffer, 1024)) {
print OUT $buffer;
}
close(OUT);

>>756
&jcode'convert(*value,'sjis');
&jcode'convert(*name,'sjis');

これは必要か？ サーバ環境は？

>>761
$file_path = "./mail_tmp/$tmpfile";

$tmpfile に値ある？
mail_tmp のパーミッションは？

763さん
すみません、値というと・・・？
mail_tmpのパーミッションは７７７です。

>>763
値というと、つまり、ファイル名がちゃんと入っているの？ ってこと。

あ、はい。ちゃんと名前は入ってきています。
この空っぽのファイルが添付されて送られてきてしまいます。

>>766
>>761以前の処理ってどうなってる？

761より前の処理は
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN,$buffer,$ENV{"CONTENT_LENGTH"});
}else{
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/&/&/g;$value =~ s/"/"/g;$value =~ s/\,/,\;/g;
$FORM{$name} = $value;
}
です。
それで７６１の処理以降はsendmailの処理になってます。
サブジェクトや添付ファイルのエンコードとかもそこでやってます。

>>768
だったら、もうすでに標準入力からすべて読み込んでるわけだから当然ファイルは
空になります。

そうなんですか！読んでても残ってるのかと思ってました。
もう１回やりなおしてみます。本当にありがとうございました。

>>752

いいもの教えてくれてありがとうございました

質問失礼します。
ユーザー環境でクッキーのオンオフを確認し、
クッキーオフならhidden属性を表示しないようにしたいのですが、
クッキーのオンオフをその場で見極める方法などはありますでしょうか？

自分ではヘッダ情報でクッキーを書き出してから、$ENV{'HTTP_COOKIE'}で
再取得できればクッキーオンだと確認できると思っていたのですが、
クッキーを記録したその場では$ENV{'HTTP_COOKIE'}が更新されないようで
上手くいきませんでした。

クッキー保存と読み込みを別スクリプトで行なえばいいのですが、
それだとサーバーへのアクセスも増えますし、訪問者の人の
手間も増えてしまいます。

クッキーのオンオフをその場で確認する方法、
もしくは$ENV{'HTTP_COOKIE'}の再読み込みをする方法を
ご存知な方がいらっしゃいましたら、どうかご教授ください。
よろしくお願いします。

ActivePerl、Apache2.039でCGI動かしてるんですけど
いくつかのCGIで初期表示のあと、更新しようとすると

couldn't create child process: 22:
couldn't spawn child process:

というようなエラーが表示されます。何が原因だと
考えられますか？

子プロセスを作れませんでした？

UNIX専用の関数とか使ってない？

>>774
あるかも。調べる方法ってあります？

とりあえあう、Flockと、symlinkは外しました。
他にもありますか？
なかなかまとまったページがないっす。

fork　とかも。
どのプラットフォームでも動くようなCGI使えや。

>>777
難しいこと言うなぁ。簡単なことなのか？
どのプラットフォームでもっていうと、
チャット、掲示板、カウンターなどほとんどWinでは
難しいような気がするんだけど。
まあ、Winで作られたものならWinで動くんだろうけど。

とりあえず、forkチェックしてみます。
「とか」って言ってるけどなんで知ってるの？常識？

スマソ。perlのドキュメントにありますた。

Some functions that work on Windows NT/2000 reportedly do not work or are buggy on Windows 95. An example is flock().

Certain functions don't seem to work on ActivePerl.
There are several functions that are unimplemented in the ActivePerl system. Here is a complete list of unimplemented functions:

Functions for processes and process groups
alarm(), getpgrp(), getppid(), getpriority(), setpgrp(), setpriority()

Fetching user and group info
endgrent(), endpwent(), getgrent(), getgrgid(), getgrnam(), getpwent(), getpwnam(), getpwuid(), setgrent(), setpwent()

System V interprocess communication functions
msgctl(), msgget(), msgrcv(), msgsnd(), semctl(), semget(), semop(), shmctl(), shmget(), shmread(), shmwrite()

Functions for filehandles, files, or directories
link(), symlink(), chroot()

Input and output functions
syscall()

Fetching network info
getnetbyname(), getnetbyaddr(), getnetent(), getprotoent(), getservent(), sethostent(), setnetent(), setprotoent(), setservent(), endhostent(), endnetent(), endprotoent(), endservent(), socketpair()

See the perlport and Win32 documentation pages for more information on the portability of builtin functions in ActivePerl.

だって。コピペしないほうがよかったか？

うぉー全部チェックしたがまだ同じエラーだ…。

>>780
その前に、ごく簡単なCGIでもそうなるか試した？

>>781
ごく簡単なCGIなら動きます。
掲示板も普通の？は動いたけど、megabbsスクリプトで
スレ立て後、レスを書き込もうとすると同じエラー。

NGワード！NGワード！ｗ

>>782
じゃあ、そのmegabbsスクリプトってのがしょぼいんだろう。

Ｃ言語
ファイルポインタを使って円の面積を計算するプログラム、教えてください。
ファイルポインタには半径１から１０の数値があります。
出力結果は次のようになるようにして下さい
半径　面積
１
２
３
・
・
１０

>>783
え？ヤヴァイ？

>>785
ネタ？厨？For文使うか一つずつ円周率３で計算すればいいんじゃない。

>>785
マルチはうせろ！　　　　　

http://pc3.2ch.net/test/read.cgi/tech/1028474590/
>>785 おめー殴らせろ

>785
マルチだったのか。Perlとか言語の区別もつかんとは
あわれな厨だな。俺よりアフォだ。

とりあえず、うごきますた。Apache2.039が悪かったみたい。
1.326にしたら動いた。
人柱になるのはもっとスキルみがいてからにします。

ご協力感謝。

アンダーバーを含む行の先頭に
hogeという文字列を追加したい場合
どう書けばいいですか

>>791
キーワード
正規表現 or index

>>791
s/(.*_.*[\x0d\x0a]*)/hoge$1/g;

>>772
遅レスだけど、ありません。

>>792 >>793
マッチさせる文字列全体をカッコでかこめば
よかったんですね。
勉強になりました。

>>758
$i=$i++;
はいかんよ
$a=0;
$b=$a++;
の場合は$a=1,$b=0.
$i=0;
$i=$i++;
なら$i=1,$i=0.どっちか分からん。

>>791
while(<>) {
next if !/_/;
s/^/hoge/;
}

ひとつの小難しい正規表現でやるのは嫌な人用。

このスレを見ていると、localだとかcgi-lib.plだとかjcode.plといった記述を
よく見かけまずが、未だにperl4しか入ってないサーバばかりなんですか?

軽い方がいいから。

以前こちらで教えていただいた者です。その節は大変お世話になりました。
フォームメールでローカル上のファイルを添付して送信するスクリプトを作ったのですが、
パソコンのアウトルックではちゃんと添付ファイル付きのメールが受信できるのに
gooとかのウェブメールや、シグマリオンに付いているＭＰメールでは上手くいきません。
なにか違いでもあるんでしょうか。
どなたかご教示いただけないでしょうか。

添付ファイルの扱いを間違えてるとか。

扱いといいますと・・・？
gooでは件名、本文は正常に受信できて、添付の部分は本文にコードが書かれている状態です。
ＭＰメールのほうは件名もiso-2022-jpと書かれていて、本文もcontent-type云々になってます。

パソコンのアウトルックで使うより、シグマリオンのＭＰメールで使う方が多いので困っています。

Content-Type: Multipart/Mixed;
となってますか。

一つの動作の中で2回デコード作業をしてはいけないんでしょうか。

$ENV{'QUERY_STRING'}
の内容は１回目で無くなっちゃうんでしょうか。
うまくいかないんです。

>>804
そんなこたーないよ。コード見せてみ。

うまく行くといいですね　　　ﾋﾟｭｱ

>>805
全体と載せるのは無理なんで説明します。
で、実は>721でやっているのをやりたいんです。
チェックボックスの値を配列で受け取るとういのを。
#usr/bin/なんたら
$FORM = &getparam; # パラメータ取得
$mode = $FORM{ mode };
if($mode eq "") { &main; }
〜モード判定〜
else { &error("不正なアクセスです。"); }

sub getparam{ # デコードサブルーチン
　read( STDIN, $post, $ENV{ 'CONTENT_LENGTH' } );
　@data = split(/&/,$post);
　foreach $all (@data) {
　($name,$value) = split(/=/,$all);
　$value =~ tr/+/ /;
　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
　$value =~ s/,/,/g;
　$value =~ s/"/"/g;
　$value =~ s/</</g;
　$value =~ s/>/>/g;
　$value =~ s/\r\n|\r|\n/<br>/g;
　$value =~ s/<br</<br>/g;
　$FORM{$name} = $value;
　if($name eq "no"){
　　push(@nos,$value);
　}
}
@FORM

続き

sub main{
foreach $hoge (@nos){
　print "$hoge";
}
}

こうやるんですけど、何も表示されないんですね。
@FORMの配列しか受け取れていないんでしょうか。
最後の値を返り値にするから。
なんで
　if($name eq "no"){
　　push(@nos,$value);
　}
@nosの値を受け取るためだけのデコードルーチン作ったんですけど
それでもうまく値が返ってこないんですよね。

>>807>>808
で、$ENV{'QUERY_STRING'} は どこ？

postなんで$ENV{ 'CONTENT_LENGTH' } でした。

>>810
$ENV{ 'CONTENT_LENGTH' } でも値がなくなるこたーないよ。出力させてみ。

でも標準入力からは１度しか読み込めない。

POSTの場合ははSTDINから受け取るので１回受け取ったらなくなります。

>>807
$postの中に残っていると思われます。

>>807
そのソースは、記念に以下のスレにカキコしといてよ。

http://pc.2ch.net/test/read.cgi/php/1028052835/l50

>>814
載せておきました。

　　　　　　　　　　　　　　　　　 　＿　＿　　　　　.'　　，　．. 　　.．　　　.'　　　　　∧＿∧
　　　　　　　　　　∧　　_　- ― ＝￣　￣`:,　.∴　'　　　　　　・,‘∴　　，　．　　 （ 　　　） ←>>814
　　　　　　　　　,　-''￣　　　　＿＿――＝',　・,‘　ｒ⌒>　 _／ ／
　　　　　　　　／　　　-―　￣￣　　￣"'"　. 　　’ |　ｙ'⌒　　⌒i
　　　　　　　/　　　ノ　　　　　　　　　　　　　　　　　|　　／　　ノ ｜
　　　　　　/　　, ｲ ）　　　　　　　　　　　　　　　　　, ー' 　／´ヾ_ﾉ
　　　　 　/　 　_,　＼　　　　　　　　　　　　　　　／　,　　ノ
　　　　 　|　　/ ＼　 `､　　　　　　　　　　　　／　／ ／
　　　　 　ｊ　 /　　ヽ 　|　　　　　　　　　　　／　／　,'
　　　　／　ノ　　　｛ 　|　　　　　　 　　　／　 ／| 　|
　　 ／　／　　　 　|　（_　　　　　　　 　!､＿／ / 　 〉
　　`､＿〉　　　　 　ー‐‐`　　　　　　　　　　　　|_／

　　　　　　氏ね
　　　　 　∧＿∧ 　　　　　　 　 ＿　＿　　　　　.'　　，　．. .∧＿∧
　　　　　（　´_ゝ`） 　　_　.- ― .＝￣　￣`:,　.∴　'　　　　　（ >>815）
　　　　／　　　　 ''￣　　　　　　＿＿　ヽ´＝',　・,'　ｒ⌒>　_／ ／
　　　/ /＼　　　/￣＼-― ￣￣　　￣"'"　. 　　' |　ｙ'⌒　　⌒＼
　＿|￣￣ ＼　/　 ヽ　＼＿　 　　　　　　　　　　　　|　　／　　ノ ｜
　＼￣￣￣￣￣￣ ＼＿_）　　　　　　　　　　　 　　, ー' 　／´ヾ_ﾉ
　　||＼　　　　　　　　　　　　＼　　　　　　　　　　／　,　　ノ
　　||＼||￣￣￣￣￣￣￣||￣ 　　　 　　　　　／　／ ／
　　||　 ||￣￣￣￣￣￣￣|| 　　　　　　　　 ／　／　,'
　　||　 ||　　　　　　　　　　.||　　　　　　　／　 ／| 　|
　　　　　　　　　　　　　　　　　　　　　　 !､＿／ / 　 〉

803さん、遅くなって申し訳ありませんでした。
Content-Type: Multipart/Mixed;になっています。
もしかしてアウトルックはＩＥみたいに多少の間違いがあっても
上手いこと動いてくれてしまうんでしょうか・・・。

あれ？いつからここは格闘技板になったのだ？

2chのように上から下へ流れていく掲示板を作っているのですが
書き込んでＣＧＩ上でリロードする際に、ページの下の方を表示したいんです。

表示と書き込みのＣＧＩを分けて
書き込み側から
<META content=0;URL="read.cgi#sita" http-equiv=refresh>
こんな感じで飛ばしてみたんですが何故か#sitaが反映されません。

何かいい方法はないでしょうか。

>820
書き込み後にLocationで飛ばせば？

すいませんが、教えてほしいことがあります。

掲示板のログファイルを閲覧者からは見えなくしてCGIからだけ
読み込めるようにするにはどんなパーミッションにすればいいですか？
掲示板の削除キーが書き込んであるのが閲覧可能というのは、
やはりまずいかなと思いましてね。
いろいろ探したけどわからなかったので、知ってる方いたらお願いします。

まあ、ファイル名をわかりにくいものにする、などの方法はありますがね。

>>821
やってみました。

print "Location:read.cgi\#sita\n\n";

こうですよね。
でもやっぱり#sitaは反映されないようです。
他に何か無いでしょうか…。

>822
パーミッション変えるより、拡張子を.cgiにすれば？

>823
ページの読み込みが終わるまで待ってる？
その前にどこかクリックしたりすると移動しないことがあるよ？

あと、念の為に聞いておくけど、<a name=sita></a>で失敗していたりしないよね？

>>824

＞あと、念の為に聞いておくけど、<a name=sita></a>で失敗していたりしないよね？

そのとおりでした。穴があったら入れたいです。

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

ここ、夜になると一気に寂れるな。
みんな仕事でやってるのか。
に、してはレベルが・・・。

こういうCGIないでしょうか。

コミュニティサイトをしようかと思っているのですが、
メンバー表に登録するとクッキーが焼かれ、
掲示板などに書き込む時偽りができないようにできるスクリプトありませんか？

例を出すと、
http://daichanchi.com/
で利用しているようなものです。

よろしくお願いいたします。

>>827
作れ。簡単だ。

>>828が作る頭がないに１０００チョン
>>827がたたかれるに1マルク
　http://pc.2ch.net/test/read.cgi/php/1021897804/

次のソースで動かしたところ、
「writing」と表示されたのにかかわらず
if文の中が実行されません。
超初心者的なミスを犯していると思いますが、なにとぞご指摘ください。

ActivePerl: 5.6.0.620
Apache 1.3.24
Windows2000 +SP2

/* 以下 プログラム */

print "「$In{mode}」";
if ($in{mode} eq 'writing'){
print "hoge";
exit;
}

>>830
ネタもほどほどにね。

プログラムが見にくいのでインデントしますた。

print "「$In{mode}」";
if ($in{mode} eq 'writing'){
　　　print "hoge";
　　　exit;
}
本当は 「writing」hoge と表示して欲しいのに・・・

>>831
ネタだと思われるようなミスなのですか(鬱)
どこがおかしいのか教えてください。

$In{mode} と $in{mode} はそれぞれ別の連想配列というネタ？

うぎゃ〜、本当だ(鬱)
失礼しました〜っ

どこで　writing　が定義されてるんだろう。

>836
writingはHTMLのフォームから渡されてきた物です。
mode=writing の時に書き込み処理をするようなBBSを
作っているのでした(笑)
こんな単純なことで3時間を費やした俺って一体(鬱)

>>10
氏ね

>>837
そんなキミに-wスイッチとuse strict;をお勧めするよ。
慣れるまでちょっと時間は掛かるけど、
タイポによるつまらないバグが激減すること間違いなし！

投稿ごとにファイルが生成される掲示板を作っています。
1.txt、2.txt・・という具合にファイルを生成したいんですが、

(1)テキストが保存されているディレクトリ内のファイルの数を調べ$prev内に代入
(2)*.txtの*をファイル数を$prev + 1にする。
(3)「($prev+1).dat」という名のファイルにする

という考え方でいいのでしょうか？
もし合っていればどういう風に書くかアドバイスして頂きたいのですが・・。

>840
ナンバーを保存する別ファイルを作る。

よけいなお世話だけど、投稿削除とか前の方からどんどん削除したいとき大変よ？

サブルーチンの返り値が複数欲しい時はどうすればいいんですか。

配列が二つ欲しいです.
@hogeと@hage
これをさらに一つの配列にするしかないですか？

>>843
普通にリストで。　
return ($a,$b);

($x,$y) = &hoge();


>>844
リファレンス