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

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

［過去ログ] 1 of 2

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/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html

[過去ログ] 2 of 2

Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)
part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/test/read.cgi/php/1053051519/
part24 http://pc2.2ch.net/test/read.cgi/php/1054992610/
part25 http://pc2.2ch.net/test/read.cgi/php/1056730690/

[ひまぢん氏のミラー]
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]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・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_/ (404)
　・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/

あぼーん

>>1
乙です。

srand は rand が正確になったもんなんですか？
rand の変わりに srand を使えば良いんですか？

いや違いますね。

>>9
Perl4までは、srandで一旦初期化する必要があったのだ
しかし5からはsrandはいらない

変数の名前を取得するにはどうすればいいですか？
$xxxx="test";
$nameに"test"なく"xxxx"を代入したいんですが・・・。

>>11
有難うございました。
ところで、そのPerl4かPerl5かは、
どこで分かりますか？

>>13
perl -vって打つと分かるよ

>>13
perlのバージョンもわからずにコード書いてるのかい？
もう4は少ないだろうが、もしそうだったら大きな影響があるのだから
先にそういうことは知っておくこと

>>12
どういう場面でそれが必要になるのか分からん……

>>16
たぶん釣りでしょ

プログラム全体でなく、あるディレクトリ
だけロック処理をしたいんですが、
その場合にはどうしたら良いのでしょうか？

>18
ttp://pc2.2ch.net/test/read.cgi/php/1024795138/
↑で聞いた方がいいかもしれない。

あぼーん

>>17
釣りではないんですが。

>>21
それならどういうケースでそんなことしたいか説明してくれ
サンプルのソースを添えてな

>>9
http://flex.ee.uec.ac.jp/texi/perl/perl_31.html

>>11
http://pc2.2ch.net/test/read.cgi/php/1056730690/984n

>>12
local $xxxx = 'test';
my $name;
while ((my $key, local $value) = each %::) {
　　${$value} eq 'test' or next;
　　$name = $key;
　　last;
}
print $name;

>>12
変数の名前はプログラムを書いた人が知ってるから、調べなくてよい。

乱数の話しもう終わったかな。
おれはいつも、
rand(time*$$)ってやってるけど。。。

あぼーん

>>25
それは意味のあるものが返ってくるのか?

じゃなくて、、、コンピューターが出せる乱数は(rand())、擬似乱数なんだ、
ということを認識していないと、おもしろいことをされる可能性がある。

要約すると、srand()で/dev/randomを使おう!

URLで情報を渡して(http://xxxx.com/**.cgi?=名前.メールアドレス)
Cgiで認証させるにはどうやったらいいんでしょうか？

前スレで既出だった模様…

>>29
セッション管理

>>30はsrandの話に関して

539 名前： 窓板住人 ◆winDOwS0aE ：sage 投稿日：03/07/24 (木) 19:17 ID:???
WIndowsとはそんなに関係ないですが、CGIでよく使われるらしい
スクリプト、CGI.pmにクロスサイトスクリプティング脆弱性があるようです。
CGI 職人、あるいはCGI使われている方々は最新のバージョンに
アップデートすることを推奨します。

http://archives.neohapsis.com/archives/bugtraq/2003-07/0267.html

みなさん、大丈夫ですか

>>23
12にそういうコードを教えるのはよくないと思うぞ

CGI.pm なんて使ってねーしぃ

>>32
start_form()使ってないですね。
フォーム生成にCGI.pm使います？

>>12
意図がつかめない…。
具体的に何をしたいかを書くと答えが得られるかもね。
多分、ハッシュを使うと解決しそうな問題な気がする。。

>>28
既にデフォルトのseedは/dev/randomがあれば/dev/randomを使うようになってる。
Windowsとかだとどうしようもないけどね。

CGI.pm
はフォームのデータをひらったり、クッキーを作ったりするのに
使ってたりする。
HTMLを生成するのには使ってない。。。だって
手で直接打った方が早いし、外部テンプレにしたら
もっと楽だし

>>12って超初心者でプログラムの流れをうまく書けなくて
あんなこと思いついただけのような気がする

>>38も超初心者

>>39
38の言ってることが当たりなのか？12よ

>>40
そうだよ！ﾌﾟﾝｽｶﾌﾟﾝｽｶ

>>39
>>40
>>41

ｼﾞｻｸｼﾞｴｰﾝ

すみません、教えてください。

<FILEHANDLE> while ( $count-- < 0 );

ってやったあと、tellしたら、データのバイト数分の値がでたんです。
これはFILEHANDLEで指定しているファイルを1行ずつ読んでるんだと思うんですが、
$_には入ってないみたいなんです。

いったい読み込んだデータはどこいっちゃったんでしょう。

すいません>>12=>>38です。

それ、ほんとに１行ずつ読んでると思うか？

>>43
いや、読んでない。
（正確には、読んでるけど全部捨ててるようなもの）

基本的なファイルの読み方をもう一度おさらいしてみよう。

はい、なんとなく思います。

なんとなく読みこんでるとおもったんですが、、、

>>43=12かよ

どひゃー

43 ne 12 です。

>>45>>46
ファイルは、$/をセパレータに、なんというか、セパレータまでのデータを
1行として、そこまでを評価していくんだと思います。

その、全部捨ててるっていうのがなんというか、腑に落ちないんです。

あの、ダンプでしたっけ？PERLがなにやってるかを逐一ログに残すやつ。
それを見たら少しは理解できるとおもうんですが、
abnormal program termination
ってでちゃうんです。

困ったなあ

あぼーん

すまん。俺も超初心者なんだ・・・。

>>51
単に１行読むたびに$_に代入されるから、直前に読んだデータが上書きされてるだけ。
それが見かけ上「捨ててる」ってこと。
んでEOFまで逝っちゃうと、あとは何度読んでもundefが返ってくる。
それと、普通はwhileの条件式に<FILEHANDLE>を書いてループをまわすものだけど、
謎の変数$countでまわしてる。これは一体どこから出てきて何が入ってるのか。

腑に落ちないって、どういう結果を期待してるの？まずそれを教えてよ。

>>43
そのコードに入る前の $count の値が 0 以上ならば $count-- < 0 は偽。
よって <FILEHANDLE> は一度も評価されないまま while から抜けるから、
これ以前に読み込んでいないなら tell は -1 を返す筈。
$count の値が 0 未満なら無限ループ。
あと行入力演算子が $_ に自動で代入してくれるのは while の条件部に
書いた時のみ。

すみませんでした。
なんとなくで、分かりにくい説明ありがとうございました。

＞あと行入力演算子が $_ に自動で代入してくれるのは while の条件部に
＞書いた時のみ。

あ、ほんとだ。リファレンス本見たらそう書いてあった……
おいらも適当なこと言ってすまんかった。反省。そしてありがとう。

質問に混じって茶々入れまでしてるのかよ
まじめにやれや

すみませんでした。

祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り

ニーノさんのホームページ作り２
http://ex.2ch.net/test/read.cgi/entrance/1059029010/
ニーノ ◆p9GipySMGk によってラウンジにたてられたこのスレで、

http://page.freett.com/ninogumi/
【ニーノさんのホームページ】
というサイトが作られた。（現在もコンテンツは爆発的に増えてるよ。）

さぁ、君もアイディアを出して、２CHネラーだけの最強サイトをつくろう！

祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り祭り

要は…

$lolita = <FILE>;

こういうコードがどういう動きをするか理解しないとだめだ

"12<>34"という形のデータを左側優先で大きい順に並べ、
左の値が同じなら、右の値の大きさの順に並べるプログラムを作ろうと思うのですが
ヒントをください。
"1<>9"
"2<>3"
"8<>4"
"2<>8"
"8<>8"
を
"8<>8"
"8<>4"
"2<>8"
"2<>3"
"1<>9"
と並び替えるようなものです。

>>62
http://m-factory.zone.ne.jp/perl/SchwartzianTransform.html
http://www.cc.rim.or.jp/~midorin/mad-p/perl/benkyou/199909/mgp00039.html

@sorted_data = map $_->[0],
sort { $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2] }
map [ $_, split /<>/ ],
@data;

>>54-57

すみません。説明不足でした。
やりたいのは、ファイルの読み飛ばしです。
$count=10だとすると、
11行目以降のファイル内容を取得することなんです・

<FILEHANDLE> while ( $count-- < 0 );
としたあとで、
push(@line,scalar(<DAT>)) while($line-- > 0);　#$lineは$count以降の取得したい行数
ってやると、ちゃんと11行目以降の内容が@lineにはいるんです。
つまり<FILEHANDLE>に対するファイルポインタは、巻き戻ってないから、それを
逆に利用してるんだそうです。

で、腑に落ちないのは
＞あと行入力演算子が $_ に自動で代入してくれるのは while の条件部に
＞書いた時のみ。
ってところで、$_に代入しなきゃどこに入れてるんだ、っていうことです。
PERLの、なんというか一時記憶領域みたいなものに入れてるんでしょうか。
あと、$_に代入しない場合でも、やっぱり1行ずつ読んでるんですよね？？？

結果はいいけと、PERLがやってることがなんとなくでも理解できないと、
応用できないんかなって。

あぼーん

あぼーん

| <FILEHANDLE> while ( $count-- < 0 );

…これで動いてるって？
既に>>55で指摘されてるけど、比較演算子が逆じゃない？

| ってところで、$_に代入しなきゃどこに入れてるんだ、っていうことです。
| Perlの、なんというか一時記憶領域みたいなものに入れてるんでしょうか。

そうだよ。
<FILEHANDLE>ではなく、readline(FILEHANDLE)と関数呼び出しとして書くと分かるかな？
ついでに言うと、print()とかも成功/失敗を知らせる値を返してる。
大抵は必要ないから即座に捨ててるだけで。

>>64
最初からその2行のコードと説明してくれれば早かったのに。
$_ を気にしてるようだが、$_ には読み込まれないから考える必要はない。

scalar(<DAT>)　←　これがミソで、リストである<DAT>を強制的に
スカラとして評価することによって<DAT>の1行だけを取得しているので
ここでは1行読み込みみたいな動きになる。

リストと配列って同じ意味ですか？

そんな事より、リファンレンスが解らない…（´д⊂ヾ

犯罪予告ｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━!!!!
【犯行】明日入殺します【予告】
ttp://ex.2ch.net/test/read.cgi/entrance/1059109904/l50

ああ、いけね
なんでリストなんて書いちゃったんだろ

ソースをSJISで書けといわれたのですが、「表」等の文字化け
対象文字列の扱いに困っております。
$htmlの中に「表」等の文字が入っている場合、
$html =~ s/5C/5C5C/sig;
これで回避できるかと思ったのですが、どうもうまくいきません。

教えていただけたら幸いです。

\x5c

>>74
お返事有難うございます。
早速下記のようにやってみましたが、まだいかないようです。
$html =~ s/\x5c/\x5c\x5c/sig;

初心者で申し訳ないです、、、

>>75
$html = "表示";

この時点で、$html内には0x5cが含まれないことに注意。
あとは自分で考えてみて。

$html = '表示';

うーん、素で分かりません、、、

$htmlは、ヒアドキュメントを使って内部に変数が含まれて
いるため、シングルクォーと等は使えません、、、

再度しばらく考えてみます、、、

ヒアドキュメントでソースに直で書いてるんなら、

　　表\示

でいいじゃん。

メンテナンスはプログラムが分からない人がやるので、
「表」や「能」等を平気で普通に使ってしまう可能性が
あるため、最後にまとめて変換してしまおうと考えました。

出力形式は要望であるため、変えられないのが痛い
です、、、

>>80
HTMLをヒアドキュメントではなく、外部ファイルにする。
これで解決。メンテナンス性もよくなって一石二鳥。

>>81
それが許されないからヒアドキュメントなのです。
できればそうしたいのですが、ロードバランサーを使用した
サーバ3台体勢なため、どんなに説明しても1ファイルで
完結してくれと、、、

すみません、無駄にｽﾚ消費させているので書き込み自粛
します。

>>82
__DATA__ トークン以下に HTML データを書いて <DATA> で読む。

>>73
シングルクォートで囲んでおいて、変数部分を置換する。

あるcgiでは<img src="$imgs/seee.png">できちんと画像が
表示されるのに、これでは画像が×印になってしまい
表示されません。何が抜けているのか何でも良いので
気付いた所を教えて欲しい。
sub wedd{
if(!$tpre){
$log .= "<img src=''$imgs/seee.png''><br>\n";
$tm=0;
$trpe='';
}
です。

>>85
サブルーチンだけでわかるわけないだろう
このサブルーチンを呼び出す前、あるいは呼び出した後のどこかが
おかしいだけ

$log .= "<img src=\''$imgs/seee.png\''><br>\n";

>>86
ﾊｽﾞｶｼｲﾈェ

みんな釣られたんじゃないの？
>>87は当然としても、エスケープしないと500エラーで
画像が×どころじゃないだろ

釣りで処理する回答者はいらね。

第1問はここまで

>>86さん　2点
>>87さん　5点
>>88さん　0点
>>89さん　10点

もうちょっとがんばりましょうね

>87,>89
ダブルクォーテーション内のシングルクォーテーションを、しかも２個の内一つだけエスケープして意味あるのか？
>85はただの間違い探しだろ。

$log .= qq{<img src="$imgs/seee.png"><br>\n};

これで何点貰えるのかなぁ。

どこにシングルクウォーテーションがあるのかぜひ教えてもらいたいものだ

クォー
の間違いだ。ｽﾏｿ

ここはクイズスレになったのか？

>>94
>>85をよく見ればわかる。一見ダブルに見えるシングル2個連続。

>>93
おお！
とりあえず、それで出来ました。
これで道は開けます。
どうも有り難うございました。

>>67-68
ありがとうございました。そうかreadlineか。PERLFUNCを読み直して
すっきりしました。

比較演算子は逆ですね。($count-- >　0)ですよね。

>>98
お前>>85のソースはコピペしたのか？
あと出力結果のHTMLソースは眺めたのか？

perl5.005からしか使ったことがなかったのですが、
perl5.003の環境で使う状況になってしまいました、
5.003で使えない表現を纏めるにはどこをみれば良い
でしょうか？
また、HTML::Templateをつかいたいのですが、
対応していない表現が多いようで使えません。
書き換えることでつかえるようになるでしょうか？

あぼーん

>>101
perl -D

なんちて。

あぼーん

あぼーん

perlのインデントとhtmlのインデントについて皆様の意見を聞かせて頂きたいと
思っております。

昔C言語を少しだけ使っておりまして、その習性に引きずられてか、htmlを作るときは
何となくインデントさせていました。例えば
<HEAD>
　<META HTTP-EQUIV="content-type" CONTENT="text/HTML;charset=euc-jp">
　<TITLE>title</TITLE>
</HEAD>
の様にですね(無駄といえば無駄なんでしょうけど…)。

そして上記のhtmlをperlで出力させる際には、
#!/usr/bin/perl
print "　<HEAD>";
print "　　<META HTTP-EQUIV=\"content-type\" CONTENT=\"text/HTML;charset=euc-jp\">";
print "　　<TITLE>title</TITLE>";
print "　</HEAD>";
等と書いてインデントされた状態のhtmlが出力されるようにしていました。

しかしif文やfor文内にてhtmlを出力する処理となった場合等、perlのソースを
インデントさせて、そこでまたさらにインデントされたhtmlを出力するために
文字列を記述していくと、なんだか非常に見づらいソースになってしまうように
感じてしまいます(ソース内でhtml部分のインデントが一致しない等)。

今後メンテするのはperlのソースなので、perlのソースとして読みやすいものにすれば
よいと思うのですが、かといって出力であるhtmlが読みづらいとメンテが大変であるとも
思います。皆様どのように考えて作られてますでしょうか?

すみません、自己レスで一部修正します。
> print "　<HEAD>";
print "<HEAD>";
ですね。
ソースからコピペして、インデントを全角スペースにする時に間違えました…

print でスタティックに html を出力するよりは別ファイルにしたほうがよくないか？

俺はperl自体の記述がもっとも見やすいようにしてる。
ループとかでテーブル生成、とかそーゆー時は、出力したところが見やすいようにする。

で、最終的にプログラムが完成し、出力するHTMLが意図した通りになったのを確認したら、
出力時のタブや改行などは全部消す（出力直前に正規表現で）。
文字のスペースは全て＆nbsp；を使ってるからスペースも消す。

別ファイルにすれば見た目に悩まなくてすむと思うけど
行数も減って処理の流れが読みやすくなるし

>>108
>>110
別ファイルということは、やっぱりrequire文でhtmlを出力するためのスクリプトを
呼び出すということでしょうか?

いろいろとあたっている時に、>>106で例に挙げているようなスクリプトで
TITLEタグの内容を変数で与えてあげられるようにしているのをよく見てまして、
やっぱり処理部分と出力部分は分けたほうがいいのでしょうねぇ、と思っては
います。
ちなみに別ファイル内でのhtml部分のインデントはどうされていますか?

ﾋｱﾄﾞｷｭﾒﾝﾄは？
またはprintの部分だけｲﾝﾃﾞﾝﾄしないとか。

>>109
デバッグ終了時に、出力時に不要な文字を消す処理を有効にする、という事ですか?
ちなみにそうなると、完成版が出力するHTMLはインデント無しですか?

>>112
そうですね。ヒアドキュメントも考えてみたのですが、bash等で使えるような
空白+終端文字列(<<-でしたっけ?)等が無さそうで、難儀しています…

>>111
ファイルオープン→読む→出力→ファイルクローズだと思うけど。

>>114
bashでシェルスクリプト組んでるの？
ちょっと良くわからない。。

>>115
> ファイルオープン→読む→出力→ファイルクローズだと思うけど。
それだと、外部ファイルをそのまま出力という形になって、例えばファイル中に
変数を仕込んでおいて、その変数の値を表示させる…等という事をしたい場合、
何か上手い方法はありますか?sed的な置換を駆使でしょうか?

> >>114
> bashでシェルスクリプト組んでるの？
実はOSがVineLinux2.6R1でして、/bin/sh -> bashとなっているので…

俺の場合、単純なのなら
＞ファイルオープン→読む→出力→ファイルクローズだと思うけど。
これと同じようにしてる。
ただ、やや複雑になってきたりするとやっぱプログラム内で生成する。
ループでテーブル生成、ってのを多用するから。

ヒアドキュメントは、絶対左側に書くって規則があるから使わない。
しかもヒアドキュメントだと状況によって細かく出力を変えれないからあんま使い道ない気が…。
ヒアドキュメント使うなら外部にHTMLを書いたtxtを置くかな。

＞別ファイルということは、やっぱりrequire文でhtmlを出力するためのスクリプトを
＞呼び出すということでしょうか?
プログラム内でHTMLを生成する必要がある上、あまりに縦長で邪魔になった時は、
こーゆーのも作った事あるよ。俺は。

requireのほうが簡単でしょ
変数だってリファレンス使えばいいし

あぼーん

>>116
独自なタグとか作って置換、splitで切り張りとか。
書き換える部分が一点に集中してる(単一テーブルなど)の場合、
二つのファイル(ヘッダ部とフッタ部)を作ったり。

>>117
>ヒアドキュメントは、絶対左側に書くって規則があるから使わない。
変数に入れれば、思いのままに整形できるよ。
クックブックのレシピ1.11

外部ファイルを使うなら、HTML::Templateモジュールを使うと便利になるかも。

連続カキコ失礼。

>>101
perldelta

http://www.att.or.jp/perl/change/5004pre.html
http://www.kt.rim.or.jp/~kbk/perl5.005/perldelta.html

確か、perldocをWindows help形式に変換したものを、どこかで配ってたと思うのですが、
どこで配ってたか忘れてしまいました。
ぐぐったものの見つからず。

どなたかご存じだったら教えてください。

}if($yh > 250 && $yh <= 280 && $gt < 51 && $iu < 71
&& $gg < 71 && $fd < 71 && $ar < 71 && $ss < 2500 ){

を書きました。
ちょっと長いから難しいかなあと思って一通りテスト
したんですが、なんと全部正しかったです。
しかし、やはりプログラム処理も間違える事
はあるんでしょうか？

Perlの場合って、変数名や関数名の付け方で、
ある程度、グローバルスタンダードというか、
おきまりの付け方って存在するんでしょうか？

>>123
ActivePerl ならインストールしたディレクトリ以下に入っているかも知れない。

>>125
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlstyle.html

<!HOGEHOGE>
これはHTMLだとコメントになりむしされる。
これを利用して、このように。

$hoge = "seiseishitai html no naiyou";
$hogehoge = "mouhitotsu seisei shitai html no naiyou";
open TEMP,"/path/to/template.html">
while(<TEMP>){
s/<!HOGEHOGE>/$hoge/g;
s/<!HOGE>/$hogehoge/g;
print;
}

>>127
> <!HOGEHOGE>
> これはHTMLだとコメントになりむしされる。
初めて知ったよ。

<!--HOGEHOGE-->
だった。

>>125
ない。「それにはいくとおりもやりかたがある」から。
C言語出身のやつはC言語での命名規則を、
Java出身のやつはJavaでの命名規則を、
使えばそれでいい。

"use 全部小文字"は予約されてるからパッケージ名に全部小文字は使わない。
全部大文字のsubも使わないほうが良かったような。

フォームから送られてきたデータを切り分ける処理を

foreach(split(/&/,$query)){略}

とした場合、splitは1回だけ実行されるのでしょうか。
ループのたびに実行されてたら馬鹿みたいなので。

ループのたびにsplitされたら、永久にまわり続けるだろう。

…そうか。少しは考えろよ俺。
くだらない質問失礼しました。

あぼーん

あぼーん

>>132
なんで最近こんな奴ばっかなんだよ。
＞splitは1回だけ実行されるのでしょうか。
他人に聞くよりPerlに聞いた方が正確だし早い。やればわかるだろ。

テキストから、条件にあてはまるものの件数、文字、を出力します。
件数を先に出力したいから、
$n=0;
open(DATA,"data.txt");
foreach(<DATA>){
if($_ =~ m/$keyword/){ $n+=1; }
}

print "$n件見つかりました。<br><br>";
close(DATA);
open(DATA,"data.txt");

foreach(<DATA>){
if($_ =~ m/$keyword/){ print "$_<br>"; }
}

こうやってるんですが、2回データ開くってのが、ソースが変だし、効率が悪いと思うんですが、効率いい方法ありませんか？
「件数」を先に出力するので、この方法以外考えられません。
条件に当てはまったものを、配列に入れて、後で出力ってのも考えましたが、
配列は効率わるそうで・・・
ご教授お願いします

無限ループが心配な場合は$f++>=100 last;
とかストッパーかけておくと良い。

while (??) {
if ( 表示する条件 ) { continue; }
$n++;
if (??) { contine; }
if(??) { contine; }
print $_; or $xx = $_;
}

$n件見つかりました
結果$xx

if (??) { contine; }
if(??) { contine; }
↑ｺﾞﾒﾝ s/contine/last/g
ついでに、ここは表示するページのはじめの数から後の行数を先に求めておく。

>>140
ｺﾞﾒﾝ。難しくて理解できない・・・
ちょっと解説お願いできますか？

配列は効率が悪いの？

同じファイルを２回読むよりは効率いいんでない？
メモリは食うだろうが。

$n=0;
open(DATA,"data.txt");
while(<DATA>){
if($_ =~ m/$keyword/){ $n+=1; $str .= "$_<br>"; }
}
close(DATA);
print "$n件見つかりました。<br><br>$str";


これじゃだめなのん？
オープン２回が気になるなら、seekで戻せば開きなおす必要はなし。

@hit = ();
$n=0;
open(DATA,"data.txt");
while(<DATA>){
if(/$keyword/o){
push(@hit, $_);
$n++;
}
}

print $n. '件見つかりました。<br><br>';

foreach(@hit){
print $_. '<br>';
}
close(DATA);

んじゃ、配列使うやつ。
DATAファイルハンドルは避けたほうがいいよ。
改行もしっかり処理しよー。

Aというサーバーで動くperlスクリプトが
Bというサーバーでは動きません。
原因として考えられるのって何があるでしょうか？

>>147
スレ違い

http://pc2.2ch.net/test/read.cgi/php/1056078605/820

>>143
効率は悪くないんですかね・

>>145>>146
ありがとうございます。
ソートもできたらなぁ、と今思っていたので配列にすることにします。

どうもありがとうございました

あぼーん

あぼーん

配列につっこんでまた回すよりも
文字列として $str .= $_;
ってやったほうが良いでしょう。

>>150
読んでなかった。ごめんにぇ。

>>154は引き篭もり板のコテハン「chan」か？？

>>155
(*ﾟpﾟ)σ違うにゃりよ！！！
　　　　　　　　　　　　　　ε=ε=ε=┌(*ﾟpﾟ)ﾉ　ｻｻｻｯ

(´-`).｡ｏＯ(どこにもバカコテっているもんだなぁ。。。)

コテハンはデフォルトでバカ。バカじゃないコテのほうが珍しい。

アクセスログをopen(FH,">>log.dat")で書き込みして生ログがどんどんかさばってく
スクリプトなのですが、どのへんまでたまったら古いログを消していくべきか
こまっています。

たとえば1MBのログファイルを開け閉めするのと10KBのログファイルを開け閉めするので
処理時間に差が出たりするのでしょうか？

>>159
＞たとえば1MBのログファイルを開け閉めするのと10KBのログファイルを開け閉めするので
＞処理時間に差が出たりするのでしょうか？
聞く前に試せよ。その試した結果に疑問があるなら質問しに来い。

>>159
あるんじゃないの？

何のアクセスログか知らないけれど、
ログを切る方法なんていろいろあるでしょ。

apacheのログ？
rotatelogs。。
logrotate。。。
あるいはシェルとか。

>>159
アペンドなら有意な差(特に1Mと10Kなら)はないと思う。実測した事ないので>>160が言ってるように
測定して報告してくれ。

>>161
いえ、apacheのじゃなくてよくある画像を用いたアクセスログです。
あくまで一般的な知識としてどうなのか、と思って訊いてみたんですが。
測定する方法を考えて出なおしてきます。

効率が気になる奴は自分でプロファイリングでもしてみろっつの。
DProfとかあんだろ。

>>163
use Benchmark;

なるほ。

やってみた。
空のファイルに対してopen(FH,">>$file")でlocaltimeを書き込んでいくループを
やらせてみたら、ファイルサイズが100KBだろうか1MBだろうが10MBになろうが
処理のスピードは変化無しでした。
まあ考えてみたら>>で書き込むのってファイルを開いてポインタを末尾に移動して
書き込むだけだから、そのファイルが小さかろうが大きかろうが関係無いっぽいけど。

ちなみに同じことを毎回行を配列化→pushで追加→>で新規書き込みっていう
ループでやってみたら、当然処理はだんだん遅くなりました。

16[4-5]のモジュールは使い方よくわかりませんでした。

教えてください。

サーバー上に掲示板のログが大量にあります。
これらを小さくまとめる&転送速度を上げるために、gzipで圧縮して閲覧可能にしたいと思っています。

gzipの圧縮は１度行えばいいので、Windows上かシェルで行い、サーバー上に置いておくことになりますが、
そのファイル名が、$FORM{url} だとすれば、

print "Content-type: text/html;charset=Shift_JIS\n";
unless($ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/){&error($FORM{url}); exit; }
if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /x-gzip/){ print "Content-encoding: x-gzip\n\n"; }
elsif ($ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/){ print "Content-encoding: gzip\n\n"; }

if (!open(GURL,"<$FORM{url}")){ &error(1); exit; }
binmode GURL;
@gzipdata = <GURL>;
close(GURL);

print @gzipdata;
exit;
#エラーの場合はURLをリンクで示してダウンロードしてローカルで解凍してもらうよう表示する。

こうなるのかと、とりあえず書いてはみたものの、一度メモりに読むのは避けられないのか、
バイナリ扱うPerl書いたことないからこれでいいのか。

あるいはもっと効率的な方法をご存じの方は教えてください。

下のようにファイルの内容を処理しているのですが、一行ずつ処理する場合
後ろから処理するということはできないでしょうか？

while( <FILE> )　{　処理　}

配列などに入れてしまえばできるのですが、メモリとしてはこちらの方がよいと
思いまして、どうかよろしくお願い致します。

>169
逆順は難しいと思われ。
一行のバイト数が固定なら色々とやりようもあるだろうが。
可変行の場合、俺はやり方を知らない。

配列でやるんだったら配列の入れ方を工夫するといいかも。
@data = <FILE>;
@data = reverse(@data);
とやるよりも
@data = ();
while(<FILE>){unshift(@data);}
とした方がいいかもしれない。

>170 =~ s/可変行の場合/一行のバイト数が可変の場合/;

>>168
試してないけど。

binmode STDOUT;
my $CRLF = "\x0d\x0a";
my $encoding = $ENV{'HTTP_ACCEPT_ENCODING'};

print 'Content-Type: text/html; charset=Shift_JIS', $CRLF;

$encoding =~ /gzip/ or &error($FORM{url}, exit;
open GURL, '<' . $FORM{url} or &error(1), exit;

if ($encoding =~ /x-gzip/) { print 'Content-Encoding: x-gzip', $CRLF }
elsif ($encoding =~ /gzip/) { print 'Content-Encoding: gzip', $CRLF }

print $CRLF;
print while read GURL $_, 1024; # LENGTH は適宜調整
close GURL;

>>169
http://www.din.or.jp/~ohzaki/perl.htm#File_Reverse

>>169
File::ReadBackwards

>>168
Content Negotiationに任せればいいのでは?

変数はmyで局所化するのが基本みたいなんでそうしていますが、
例えば同じ変数をどこのサブルーチンで使いたい場合はどうするんでしょうか。
いちいち変数の受け渡しをしないといけないんでしょうか。

>>175
局所化しなきゃいい。

>>168
174が言ってるように、ファイル名に.gz追加
logfile1.html.gz
HTTP_ACCEPT_ENCODING見てサーバがファイルを選んでくれる。

>>175
our。バージョン古くて使えなければuse vars。

>>175
妙な静的変数

{
my $static;
sub hoge {
}
sub hogehoge {
}
sub hagehage {
}
}

画像掲示板をつくっています。参照ボタンでローカルパソコン内の画像を選んだあと、
確認ボタンでその画像がブラウザで確認出来るようにしたいのですが、
良い方法ないでしょうか？

>>180
帰れ。

>>167
> 16[4-5]のモジュールは使い方よくわかりませんでした。

使えるようになると便利だぞ。
面倒かもしれんけど、ぐぐってみるなりして使いこなせ。


>>180
送信する前にプレビューってことか？
JavaScriptでフォームからファイルパス取って、IMGに埋め込むとか。
できるかわからんけど。
とりあえずスレ違いなので詳細はそれ系スレで。

ｽ…ｽﾏﾝ。大学のperlの課題で四苦八苦している者です。
「じゃんけん」ができるプログラムを作りたいんだけど
何かいい方法ありますか？
当方かなり初心者なんで
print"〜";#って文字を出力することしかできないんですけど。
えーと質問の意味がわからなかったらスルーしてもらってもかまいません。

あぼーん

>183
まずフローチャートを書け。
それ以降は大学で聞け。

>>183
宿題は自分でやろうね。

print "じゃんけん\n";
sleep(1);
print "ぽん\n";

あぼーん

じゃんけん・・・
ランダムに3つの中から選ぶプログラムを作って
自分で入力した文字と比較。
結果を出力。でいいんじゃない？

あぼーん

>>183

print "じゃんけん（１＝ぐー、２＝ぱー、３＝ちょき）\n";
<>;chop;
$a = int rand(3)+1;
$hoge = (($a == 1 && $_ == 2) || ($a == 2 && $_ == 3) || ($a == 3 && $_ == 1)) ? '勝ち' : '負け';
print $hoge,"\n";

# お粗末

183は課題がでるたびにここで聞くのかね。

print "じゃんけん（１＝ぐー、２＝ぱー、３＝ちょき）\n";
<>;
print ('勝ち', '負け')[int rand 2];

>>193

　　　／⌒ヽ
　　/　´_ゝ`）時間的に、ここ笑わないといけないので、笑いますよ・・・
　　|　 　　/
　　| /|　|
　 //　| |
　Ｕ　 .Ｕ

課題今日中にメールで提出ということだったんで…出しました。
みなさんいろいろ案出していただいてありがとうございます。
結局自分の力不足で課題内容変えちゃいましたけど。
(みなさんの案は今後参考にさせてもらいます)
>192
今日始めてここに来たんですけど
まぁ課題が出るたびにここで聞くのと同じような根性の持ち主です。

とにかく…評価はCにｹﾃｰｲぽ(つД｀)

あぼーん

>>183 っていうか、おまえ。答え丸写しじゃねぇかｗ

あいこが出ないコードを提出。-10点

あぼーん

>197
いやしてないし。むしろじゃんけんにしなかったし。
ウザイのでそろそろ逝きます。

まあ、はじめから丸写しするつもりで聞いたんだろう。
自分の期待する答えがなかったからしなかった（というかできなかった）だけで。

そういうやつのためにも時々ウソを教えないとね
試したらわかる程度に軽いやつで

それにしても 183 よ。そんな事を２ちゃんねるで聞くのもどうかと思うぞｗ

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

Content Negotiationというのがあるとは全く知らず、そのまま表示できたのでびっくりです。
板違いでしたね(汗)
全部圧縮して、リンク先のアドレス変えるだけで問題はすべて解決しました。

大変感謝しております。

crontabで、AM6:00,AM7:00に１回起動設定しているとして、
cgiの中でlocaltimeで、6:00と7:00で処理を分けているんですけど、
crontabの時計とlocaltimeの時計は完全に一致しているんでしょうか？
スクリプトの中で6:00丁度だったらＡ、7:00丁度だったらＢとやっても
crontabが起動した時間が5:58とかだったらＡの処理が行われないと思うんです。

cgiがperlで書かれているとすれば。
perldoc を調べなさい。
それから
man crontab。

ちがう。
crontabはcrontableのことだ。
要するにcronの設定ファイル（といっていいかどうかわからんが）

man cron
をすべき。

ついでにいうと、localtimeじゃなくてtimeだよな。

>>205
6:00丁度に起動されたとしてもlocaltimeとるまでにタイムラグがある。
ちょっと考えればわかりそうなもんだが。

man cron ってﾔﾗｽｨ〜響き

(*´Д`*)　ﾏﾝｺﾛﾝ・・・

あぼーん

man cronってなんざんすか？

一定時間ごとにある処理をさせますが、特定のキー入力で抜けます。
<STDIN>; ではうまくいかないので下のコードのようにしましたが、
2つ目のwhileを無駄に回さなくてもいいようにする方法はありますかね？
今のところsleepを入れるくらいしか思いつかないです。

sub {
  my $sig = 0;
  local $SIG{INT} = sub {$sig = 1;};
  while (1) {
    # ここに$interval(分)ごとにする処理
    while (time() % ($interval * 60)) {
      sleep (1);
      return 1 if($sig);
    }
  }
}

あぼーん

>>213
1 TTYをnon-canonicalモードにする。
プラットフォーム依存。モジュールあるかも。
2 特定のキーでシグナル発生させる。

>>213
getc じゃ駄目なの？

今 ttp://x68000.startshop.co.jp/~68user/net/http-2.html
を参考にｈｔｔｐクライアントを作ってみたんですが
どうも４０４が返ってくるところが多くて不思議なのですが
どういうことなのでしょう？
例えば参考にした上のページは見れるんですが
自分のＩＳＰのページは
Http://host/~user/index.html でリクエストすると404で
Http://host/~user/　なら大丈夫なんです。
（勿論ブラウザなら両方ＯＫです。）

ソースへ
print SOCKET "Host:$host:$port\r\n";
を追加したら大抵取得できる様になったんですが
それでも１００％でないので納得できないのです。
何が不足しているのでしょうか？
サッパリ意味が解らないのでご教授お願いします。

>>217
ﾊﾞｰﾁｬﾙﾎｽﾄ

>>218
ﾊﾞｰﾁｬﾙﾎｽﾄへは
print SOCKET "Host:$host:$port\r\n";
で対応できているんですよね？

何だか原因はスペルミスだけだった気がしてきました。

>>218 (ﾟДﾟ)ﾊｧ?

>>217 サーバーの DirectoryIndex （クライアントがディレクトリをリクエストしたときに調べるリソースのリスト）確認しろ。

>>220 (ﾟДﾟ)ﾊｧ?
＞（勿論ブラウザなら両方ＯＫです。）

>>220
(ﾟДﾟ )ﾊｧ?
それで返ってくるのは403だろ。氏ねや

あぼーん

connect の後に SELECT してるけど、代わりに autoflush SOCKET (1); は？

>>213
alarm使って、キー待ちにしたらどう？
time値の0秒ジャストで動かせないけど。

local $SIG{ALRM} = sub { die 'timeout' };

...
my $c = &keywait(1);
...

sub keywait
{
my $interval = shift;

eval{
alarm($interval*60);
<>;
alarm(0);
};
if ($@){
alarm(0);
($@ =~ /timeout/) or die;
return(0);
}

return(1);
}

>>217
プロトコルをHTTP/1.1にしたら？

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
#$buffer = $ENV{'QUERY_STRING'};

@pairs = split(/&/, $buffer);
foreach (@pairs) {
($key, $val) = split(/=/);
$in{$key} = $val;
}

ここまでやった後で連想配列の中身を見る方法を教えてください。
どんなkeyが入ってるか知りたいのです。それによって処理を分岐するので。
初歩的な質問ですみません。

>>227
そのままだけど、keys。

keys

>>227
foreach $key ( sort( keys %ENV ) ) {
print "$key = $ENV{$key}\n";
}

>>230
ENV???

>>227
print map { "$_ : $in{$_}\n" } keys %in;

あぼーん

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

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

$i = 0;

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

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

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

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

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

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

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

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

>>234

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

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

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

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

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

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

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

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

あぼーん

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

perl -d

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


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

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

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

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

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


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

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

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

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

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

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

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

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

>>234

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

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

もう飽きた。

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

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

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

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

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

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

>>260
おまい、どんどん頭よくなっていくなぁ・・。

すいません。
初めの一行に「フォームからの文字列(c:\windows\system32)、分解の基準の文字(\)の場合の例」
と、一言かいておければよかったです。
無駄なレスさしてほんとに申し訳ないです。。

>>256
その台詞で貴様の技能がどの程度かよくわかった。
標準入力からだろうがブラウザからだろうが入力は入力だろうが。応用の利かない阿呆が。

>>263
はぁ、ｱﾌｫだ。STDINなんかcgiで使えるわけないだろ、氏ね

>>263
え？STDINって、DOS窓じゃなかったんですか？
フォームのデータは、ReadParse使って、変数に格納してる状態なんですけど・・・

もしかして、POSTの場合の、フォームの受け取りのことを言っていたんでしょうか？

264nobodyさんsage03/07/30 00:36 ID:???
>>263
はぁ、ｱﾌｫだ。STDINなんかcgiで使えるわけないだろ、氏ね

234 の混乱ぶりが面白いｗ

253の言いたいことがようやくわかりました。
標準入力、GETの場合は？以降を、分割するってことを言っていたんですね。
そういうことではないんです。
フォームから、好きな文字列とキーの文字を送ってもらって、
そのキーで「文字列」を分解するってことです。
GETの場合でいうと、
?moji=c:\windows\system32&key=\
それで、この「\」で「c:\windows\system32」を分解したいんです。
?moji=aiueo,kakikukeko,sasisuseso&key=,
こんなことです。

>>269
だから応用できるだろって言ってるだろ。

俺、未だに 234 が何をしたいのか良く解らないんだけど…

> 初めの一行に「フォームからの文字列(c:\windows\system32)、分解の基準の文字(\)の場合の例」

要は、ある文字列を分解の基準の文字で分解してリストにしたいって事？
split でいいんじゃねーの？って思うが、肝心な「期待しているリストにはこう入って欲しい」
みたいなこと書いてねーからさっぱり解らん

234のしゃべりとスクリプトがそっくりでおもしろい。

>>271
そういうことです。
それで、「ある文字列」も、「基準の文字」も、「何分割される」かも、分からない、という状況で、
どういうスクリプトで処理したらいいかといろいろ試行錯誤して、上のスクリプトができました。
それで、このスクリプトは正しいのか？、もっと簡単にできるんではないか？と思いまして、聞いてみました。

で、@match にはどう入って欲しい訳？
君はその事について未だ何も記述してないね

>>274
@match = split(/$kijun/,"$data")って処理されるわけですから、
基準の文字の数＋1が必要な値になりますよね？
たとえば、\で切る、データが「a\b」だったら、2個という具合で。

だから、
@match = ();
for($n=1; $n<=$i+1; $n++){
push(@match,"$n");
}
ここで、その数だけ、配列の値を・・・・・・・・・・
あら、もしやこれ不要なんでは・・・
まさか、いらない・・・
あぁ、いらないんだ。。。
そーだったのか、ｱﾌｫなことをした・・・・

あっはっは


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


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

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

これでいけたわ
すまんな、

>>276
それ俺が書いたまんま…

いやぁ、@matchってのは、splitで分割する数だけ値をいれてやらないかんと思っとったんよ。
でも、良く考えると、
push(@match,"$n")って、値がはいってるのに、
なんでc:とか変わってるのかと思ったら

あっはっは

>>277
ご愁傷様……(;´Д｀)

よーするにだ、
@aaa = split(/$aa/,$bb)
ってすりゃぁ、
勝手に@aaaの値の数が調節されるんだな

あっはっは
すごいな、パールって

あっはっは

ほんとにすまんな、みんな
あっはっは

えらい迷惑かけちまってあっはっは

パールってのはすごい言語だ
あっはっは

俺としたことが・・

みんなこれ知っててだまってたんだろ？

まったく、恥かくぜあっはっは

しかも>>254のって
foreach (split(/\\/,$name)) {
だったんだな
なんかほかの物に見えたよ。

この時点で答えでてんじゃん
あっはっは
俺ってどんくさいな

次の方お待たせ。

↓

アハハ吊られたね。

では次の質問どーぞ！

>>282
おまい、Ｃのやりすぎだ。

確かにそうかも、
授業でCあるからな・・

>>286
配列の大きさとか初めに宣言しなくていいのばペールですよ＾＾；

すみません、「<>;」ってどういう意味なんですか？

<ARGV>

<^ ^;>

>>290
おぉ、コンパイルとおるぞ。

>>215 ぐぐったけど敷居が高そう。今後の課題にします。
>>225 <>で入力完了を待ってシグナルを発生させるみたいです。

>>288
@ARGVがあれば、@ARGVが行入力演算子に割り当てられ、
@ARGVが空ならSTDINが割り当られる。

代入先がないので、読み出して捨ててる。
STDINが割り当てられたのなら、STDINを一行読み飛ばしている。
STDINにターミナルデバイスが割り当てていれば、一行待って、中身を捨てるということに。
(単なる改行待ち)

>>292
キーボードに関してはperldoc -q keyで、faq5辺りに情報が載ってますよ。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#How_can_I_read_a_single_characte

>>293 謝謝　ちと勉強してみます

cgiproxyの動作は
アクセスがあったらその間だけ
proxyサーバとして動作させ、目的のページを吐き出したら
proxyサーバを終了させる。といった感じですか？
それともproxyサーバとcgiproxyは別の原理ですか？

すいません。
Perlのことで質問したいのですが。
変数名の一部に変数の中の数字を埋め込んで
その変数名を代入したいのですが
どのようにいくのでしょうか？
ちょっと、言葉では分かりにくいので例を挙げると
例えば、$a1 $a2 $a3という変数があって
$bの中に１〜３のいずれかの数字が含まれているとし
この$bの中の数字を変数名として使いたいのです。
これを
$c = '$a' . "$b";
といった感じでやれば$aの方はそのまま文字列として出て
$bの方は変数の中身が展開されて出ると思ってやってみたのですが
エラーが出てしまいます。

どなたかお助けください。
よろしくお願いいたします。

あぼーん

print ${'a'.$b};

>>296
ハッシュか配列を使う。

↑答えもう出てるだろ(　´,_ゝ`)ﾌﾟｯ

300 GET ⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡

こういう、変数名自体を動的に云々っていう質問よく見かけるけど、
なんでそういう発想になるんかね。
他の言語じゃそういう質問見かけないんだが（ないことはないと思う）。
やっぱソフトリファレンスのせいなんだろうか。

>>296
> すいません。
> Perlのことで質問したいのですが。
> どのようにいくのでしょうか？
> ちょっと、言葉では分かりにくいので例を挙げると
> どなたかお助けください。
> よろしくお願いいたします。

読みにくくなるだけだから無駄に6行も余計なことを書くな

>>301
リファレンスとかじゃなく、単に発想がおかしいだけなんじゃない？

ソフトリファレンスは悪です・・・

まぁ、ちゃんと変数の整理が出来てないつーのと、変数のスコープを理解してないってことじゃないだろうか・・・

Perlはその辺を逐一理解してなくても扱える言語だからな。
それはPerlの優秀な点である。
その分ユーザーのレベルが下がるのは仕方がない。

下手にソフトリファレンスなんてもんがあるせいで、配列やハッシュの有効な使い方を
理解しないまま進んでしまうんじゃないかな。

質問にお答えくださってありがとうございます。

print ${'a'.$b};
だとスカラ変数だとうまくいったのですが
配列の変数だとうまくいかないようです。

$sen1[] $sen2[] $sen3[]という変数があって
$randaに1〜3という値が入ていて
print("{${sen$randa}[$i]}");
のように書いたのですが、どうもうまくいかないみたいです。

＞"{${sen$randa}[$i]}"
ヽ(*｀Д´)ノ　むちゃくちゃやんけー！

>>304
モジュールまたがってソフトリファレンス使ってるソースを見たことがある。
最初どこから変数が湧いてくるのか理解できなくて気絶するかと思った。
……って、これはマ板ネタか。

>>307
勉強しなおした方が良いと思われる。

>>308-309
Perlは今回初めての仕様で、まだ慣れてないんで
お許しください。
外の括弧で囲めば、配列の[]が文字列として認識されずに済むと
聞いてやってみたのですが
もしかして、これはPHPの文法でしょうか？

仕様→使用でした

あぼーん

ほれ、
print ${'sen'.$b}[$i];

あと >>299 >>304 >>306 >>309 を１０回ずつ声を出して読んで！！
お帰りはこちら　↓
http://www.google.co.jp/

>>307
> $sen1[] $sen2[] $sen3[]という変数があって

ってのは@sen1, @sen2, @sen3ってことか？
perlの配列がわかってれば、こんな書き方にはならないと思うのだが。

${'a'.$b}という回答を貰っておいて${sen$randa}[$i]はないだろ……。

print ${'sen' . $randa}[$i];

初心者質問失礼致します。

if(!open(FH, ">>file")){ print 'file open error'; }
else{
　　flock(FH, 2);
　　print FH 'abcde';
　　close(FH);
}

このように追記モードの場合、flockは必要になるの
でしょうか。

うん

あぼーん

>>315
モードに関係なく必要なときは必要だと思うが。

>>318
お返事有難うございます。
ロック使うことにしました。
有難うございました。

readline,<FH>を使ってデータを取り込みたいのですが、
上（最初）から順ではなく、下（最後）から読ませることは出来ませんか？

>>320
無理ぽ
あとはPerlメモ嫁

了解　seekで頑張ります
有難うございました。

unshiftしたらえんちゃうんかと

>>323βακα..._〆(ﾟ▽ﾟ*)

あぼーん

あぼーん

あぼーん

あぼーん

use Time::Local;

$t = time;
print "UTC =", timegm( gmtime( $t ) ), "\n";
print "UTC =", timelocal( localtime( $t ) ), "\n";

gmtime とか localtime で返してくる値を time で
返す値の形式に戻すコードってこんなんでいい？

テストしたら一応２つとも同じ値返す様になったけど…。

希望通り動いてんのならここで聞かなくてもいいでしょ。
誰かのお墨付きが欲しいの？

いや、ちょっと自信が無かっただけ…。
UTC の解釈もチョット間違ってたし＜自分

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

あぼーん

$t = 10.2 - 10.0
のような小数計算で$tに正しく答が代入されないのはなぜですか？

↑確認の方法どうやってるの？それが、間違ってるような気がするが

>>334
不動小数点数の精度の問題ですね。
一般に小数の最後の桁は信用できません。

浮動小数点です。

>335
代入して、htmlに書き出すだけです。

>336
そうなのですか…
遠回りですが整数でやることにします。ありがとうございました。

cgi内部で外部cgiファイルを起動する方法を教えてください。

HTMLだと、<img>タグを使ってたのですが、
<img src="./hoge.cgi">

CGIファイルだと、これがうまく起動されないわけです。
print "<img src=\"./hoge.cgi\">";

どうしたら良いでしょうか？ご教授お願いします。

>>339 さま、>>1 をお読みください

>>340
当たり前ですがエラーはでません。
起動したいファイルから吐き出しファイルが更新ができないだけなので、
どう質問したらいいでしょうか？よろしくお願いします。

って340じゃ無理か。(w

>>339
CGIから別のCGIを呼び出して、その出力を利用したいという事か?
お前の質問からそれを読み取るのは著しく困難だし、態度悪いから教えない。

>>339
ﾊﾞｶだね〜

おちえない

>>341 さま、>>1を1200回ほどお読みください

>>339
いやもう見てて哀れだよ。
自分がたたかれてる理由がわからない奴ってのは。
しかしここで教えるとためにならんしなあ。
辛いところだ。

だいたいそのCGI、直接叩いてちゃんと出力するんかい。
んでエラー吐かんのは当たり前なんかい。
ちゃんと動かんかったらエラー吐くようにしとらんだけやんか。
それがあんたにとって当たり前なら、あんたの書いたコードは書いた通り
正常にうごいとるわけで、プログラムはなんも悪くないとオモーヨ。
はぁ

おもろい

自演ウザ。(*^｡^*)

ちょっとした煽りにいちいちキレてるような奴は、真面目に回答してくれた人に対しても
そういう態度を取る可能性があるからね。
思い通りに動作しなかったり、質疑応答が長引いて耐え切れなくなったときに。

お互いがイヤな気持ちにならないためにも、そしてスレのためにもそういうアフォな質問者は
さっくりと無視しましょう。

if ($a>1)
　　if ($a<10)

これを

if ($a>1 && $a<10)

と書くような技法を何ていうんでしたっけ？知ってる人教えてください。

あぼーん

あぼーん

自演うぜー。まじで。
いやなら無視すりゃいいのに。

結合演算子を使う技法ｗ

ていうか名前なんてあるのか

２行を１行にする技法

>>354
自演？
心配すな。
おまいも端役のひとりじゃ

>>354
>>339必死だな。

>>351
トリビア技法

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

ここって初心者スレのワリにレベル高いんですけど。

本漁ったりググって分かる疑問は質問するまでもないからでしょ

人に聞いているうちは初心者。
たいていのことを自分で解決できるようになれば、まずは初心者脱出ってこと。

364に勝手に追加

自分で調べる前に聞いているうちは一生初心者にすらなれない。

馬鹿高い本を買って自己解決する
安めの本を買って、足りない部分は周りを利用する

どっちが初心者だろうね

付属ドキュメントで自己解決する

初心者は「初心者の質問板」or「PC初心者板」へGo!!

安い本で慣れて高い本で補う。

先人たちの築いた知識を上手に利用して上達への近道を選ぶのは初心者でつか？

> 安めの本を買って、足りない部分は周りを利用する

「周り」が正規のマニュアルを指しているなら賛成だけど、
そうじゃないなら、たとえ馬鹿高くてもちゃんとした本を買うべきだと思う。

こんなところで質問するようなやつは上達しないってことだ

このスレ腐ったな

夏は腐りやすいのでご用心

>>364
>>365
だったら初心者は自分で調べるのにわからない香具師ですね

>先人たちの築いた知識を上手に利用して上達への近道を選ぶのは初心者でつか？
ヒントを乞う位なら構わんけどさ、自助努力の前にしつこく説明してクレクレ言う椰子は嫌だな。
一々誰かの時間を奪ってまで問答を求めるのは「上手な利用」とは言わない。
先人の知識ってのは先に書籍とかを当たった方がはやい。
それでも詰まったときに質問するのはアリ。
試行錯誤をめんどくさがり過ぎてるのがミエミエな奴はムカツク。

>>370
＞上手に利用
もちろんまず初めにGoogleだよな？？？

もちろんはじめに燃料投下

テンプレに(･∀･)ｲｲ!!質問者の例とｲｸ(･A･)ﾅｲ質問者の例を載せれよ

>>379

>>1 に書いてあるじゃん

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。

これに反するような質問が悪い例

「例」という日本語が理解できてない香具師はけん

1. >>1嫁。
2. 過去ログ嫁。
3. ググるれ。

>>379
そんな事言う様なら質問以前の問題だと思う

このスレ、ちょっとPerl覚えた厨に汚染されて臭いね。
質問を乞うぐらいにならんと上達せんよ。
まあ、中途半端な奴に言ってもわからかな。はは。

Perl覚えたばかりでもいいからさ。
常識や礼儀を覚えてない奴は勘弁してくれ。

（　´∀｀）ここ２ちゃん

>質問を乞うぐらいにならんと上達せんよ。
マトモな質問者なら大歓迎なのれす。

>386みたいに思ってる奴は当然、２ちゃんだから嘘を教えられても文句言わないよな？

そんなアフォはほっとけや。イチイチ相手にしてるだけ無駄

正直、昔のほうが質問者叩きはひどかったわけだが。
普通に質問しても「氏ね」とか言われたもんだ。
ここまで丸くなった２ちゃんでまだ叩かれてるような奴って……

>>390
うれしげに・・・とかするなﾄﾞｱﾌｫ
言いたいことあるなら最後まで言ってくれ

アフォだらけ

>良い回答は良い質問から。
これが見事に実践されてるわけだな。
アフォな質問にはアフォな回答が。

初心者だらけだから仕方ないよ
質問するときは内容をよく吟味してから投稿してください。

以上、>>339=341の自作自演でした。

perl5ですけど
srand(time|$$);
を付けないと、rand が時間で決まってしまいます。
そんなもんなんですか？

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

>>396
>>1嫁

>>396
試してないけど

srand($$|time);

これじゃ、駄目か？ｗ

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

(´･ω･｀)＜俺、日本語が不自由なんだよ。

あげ

>>401
ならば、お前が得意な言語でもいいぞ。

トッカロピ

>>396
while(time%60){
# wait..
}

print rand(), "\n";

をf複数のプロセスで動かしてみたけど、全部違う値になったよ。
WindowsXpHome ActivePerl 5.6.1/FreeBSD Perl 5.8.0/Linux Perl 5.6.1
実行環境と同じ値になる根拠をしめしてください。

>>396 の PC は時計が動いていないという罠

$tmp = $log[$i];
@dat = split(/<>/, chomp $tmp);

$log[$i] の改行コードを省いたものをカットして @dat に格納して処理したいんですが、
$log[$i] そのものの改行コードは残しておきたく、$tmp を使っています。
これを一発で表現する方法を教えてもらえませんか？

一発じゃないが
@dat = split(/<>/, $log[$i]);
chomp $dat[-1];

>>408
thx
そちらの方がスマートですね。参考になりました

**************************************************
***　　　Hello! Welcome to the 2ch World!　　　***
**************************************************

と表示しようとして、

#!/usr/bin/perl

print "content-type: text/html\n\n";

print "**************************************************\n";
print "***　　　Hello! Welcome to the 2ch World!　　　***\n";
print "**************************************************\n";

とメモ帳に入力してmona.cgiという名前で保存し、tok2.comにffftpを使ってうｐしたのですが、
いざ結果を見てみると、

************************************************* *** Hello! Welcome to the 2ch World! ***
*************************************************

と言う風に表示されてしまいます。
どうしたら一番上のような結果にすることができるのでしょうか？
OSはWindowsです。どうかよろしくお願いします<(_ _)>

>>410
print "content-type: text/plain\n\n";

>>411
レスありがとうございます。
早速、　print "content-type: text/html\n\n";を print "content-type: text/plain\n\n";
に直して再度うｐしてみたのですが、結果は同じでした(´･ω･`)ｼｮﾎﾞｰﾝ

誠にあつかましいのですが、他に良い方法は無いでしょうか？
どうかよろしくお願いします。

トクトクは勝手にヘッダ情報変えなかったっけ？

>>410
HTMLで出力。

<a href="http://i.2ch.net/">2ちゃんねる(巨大掲示板)</a>の<a href="http://book.2ch.net/poem/i/">詩・ﾎﾟｴﾑ板</a>
を、
2ちゃんねる(巨大掲示板)の詩・ﾎﾟｴﾑ板
としたい（ようは、リンクを取り除きたい）のですが、
どうすればいいのでしょうか・・・？

わからないながらに、やってみましたが、
$HTMLContents =~ s/<a href="http:\/\/(.*)">(.*)<\/a>/$2/g;
とすると、「詩・ﾎﾟｴﾑ板」しか$2に入りません。。。

>415
最小マッチングでぐぐれ。

>>416
さんくすです。
ぐぐりました。

$HTMLContents =~ s/<a href="http:\/\/(.*?)">(.*?)<\/a>/$2/g;

で解決しますた。

CGIとは関係ないんだけど
@INCをコマンドラインで指定して実行する方法ってありましたっけ？

すみません。
-Iオプションですね。。。

>>418
何故ヘルプを見ない？
-Idirectory specify @INC/#include directory (several -I's allowed)

>>418=>>419
おっと失礼。>>420は無視しといて。

>>418
どうでもいいが、ここはCGIスレじゃないので一行目は余計。

>>412
print "**************************************************<BR>\n";
print "***　　　Hello! Welcome to the 2ch World!　　　***<BR>\n";
print "**************************************************<BR>\n";

\nはプロンプトでの改行
htmlの場合はソース内の改行
当然見た目を改行させるには<br>がいる

>>411
>>413
>>414
>>423
>>424
できました！　こんなくだらない質問に答えてくれて皆さんどうもありがとう
ございました<(_ _)>

>>425
くだらないつーか。text/plainを勝手にtext/htmlと解釈することがあるという
IEの仕様にからむ、とても難儀な問題なのだよ。

text/plainにかぎらず、例えばimage/jpegでも中身がHTMLらしければ。

あるブラウザは Content-Type: を無視して送られてきたコンテントの
内容を走査して、勝手に振る舞ってるってことかな

>>428
そういう糞ブラウザは、image/png でハードディスクの内容を消去するバイナリが埋め込まれていると、
実行しちゃうんだろうなぁ。。。

&foo( %ENV, "sample", 123456 );

sub foo
{
my (%a, $b, $c ) = @_;
}

こうやっても、%a $b $c に何も入ってこないよ〜
解らないよ〜ヽ(´Д`；)ﾉ

return

リファレンス

初心者スレなんだからそんな答え方じゃ解らんだろう

&foo( \%ENV, "sample", 123456 );

sub foo
{
my ($a, $b, $c ) = @_;
my %a = %$a;
}

リファレンスについては http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html

>>433
先越された(´･ω･`)

んじゃ一応補足……$a->{HOGE} とやればハッシュをコピーしなくてもそのまま参照可能。
配列の場合も同じように。

>>430
ハッシュは(key1,value1,key2,value2・・・)となってるただの配列。
で、配列は展開されちゃうから、
my %hoge = (1=>'a', 2=>'b');
&foo(%hoge, "sample", 123456);

sub foo {
my (%a, $b, $c ) = @_;
}
と書くと、%aには(1,'a',2,'b',"sample",123456)が入り、$b,$cはからになる。
ちなみにリファレンスを使うのが普通だが、使わないでやりたいなら

my %hoge = (1=>'a', 2=>'b');
&foo("sample", 123456, %hoge);

sub foo {
my ($b, $c,%a) = @_;
}

とすることもできる。

>434に補足してみる。
$a->{HOGE}とやると参照渡しになるので、その中身を変更しようとすると実引数の中身も書き変わる。


$ENV{HOGE} = 'hage';
&foo( \%ENV, "sample", 123456 );
print $ENV{HOGE};  # higeが表示される

sub foo
{
my ($a, $b, $c ) = @_;
$a->{HOGE} = 'hige'
}

大きいハッシュや配列にリファレンスを使わないと
値を@_へコピーするのに時間がかかる(メモリも喰う)から、
なるべくリファレンスを使うのをお勧めします。

>>435
> ハッシュは(key1,value1,key2,value2・・・)となってるただの配列
ソースキボンヌ
つーか、ただの配列だったらでかいハッシュに対して$foo{bar}なんてことは気軽に出来ないから、間違いじゃねーの。

配列型(AV)とハッシュ型(HV)は別物。ただし代入はできます。

レスどうもです。リファレンス…奥が深そうですね。

Cで言うと、アドレス（orポインター）渡しみたいなもんですか？
なんか、少し混乱気味ヽ(´Д`；)ﾉ

>>433-435 さんのレスを参考にコーディングしてみます。

>>440
ポインタを理解してるんなら、覚えるのは早いと思うよ。

リファレンスを使えるようになったら脱初心者といえますか？

>>438
ﾊｧ?
＞ただの配列だったらでかいハッシュに対して$foo{bar}なんてことは気軽に出来ないから
何をおっしゃってますか？
内部でハッシュ関数を呼び出して、得られた値をインデックスとして使っているのですよ。
配列はランダムアクセスできるからO(1)じゃん。

>>438
ああ、もしかしてC++で言うこところのlist<string>だと思ってるわけ？間違いじゃねーの。

>>438
%hogeは配列に見えるし、配列で代入できる。
けれど内部的にはハッシュ。何も問題なし。

>>443
「ハッシュは...となってるただの配列」は>>435の発言なのでお間違いなきよう。

html.gzファイルをopenして書き出してもブラウザにうまく表示されません。
Content-typeの表示が問題と思い、
なんとかEncoding:gzipかなんか書いたんですがだめでした。
何が問題と考えられるでしょう。

Content-Encoding

>>447
>>1を読まないのが問題。
2度と来るなとは言わんが、>>1を1日10回読んで1週間後にまた質問しに来い。
今日はもう書き込むな。

>>449
そういうの辞めて無視し。いい加減バカかと。

>>450
なら、文句をいわずに、お前が回答しろ。

そういうの辞めて無視し。いい加減バカかと。

なら、文句をいわずに、お前が回答しろ。

コピペやめれ。無視しとき。

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
また過去ログも情報の宝庫です。よく探してみましょうね。

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

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

【よくある勘違い】
CGI ≠ Perl です。
判らなければまずはググってみましょう。＞ http://www.google.co.jp/

【初心者の扱い】
「初心者」だからといっても容赦しませんことよ。ふふふ。

Perlのソース同士を比べて書き換えたりしたいのですが（差分を取ったりしたいです）、
差分取るソフトで使いやすくて便利なソフト教えてください。
早速、落としてこれから使っていこうと思いますので。

>>456
diff

>>457
レスありがとう。
早速ＨＰｎなるもいったんですが、分からない…。

>>438
ソースはここから落とせるよ。
http://www.perl.com/pub/a/language/info/software.html

diff,patchをうまく使えば効率が良くなるんだが、
>>456の想像しているものとは違う気がする。
気の利いたエディタなら普通についてそうだし、
Windows用のを探しているなら「Windiff」で腐るほどヒットする。
# つか捻りの無いソフト名多すぎ:)

>>460
# つか捻りの無いソフト名多すぎ:)
だな。俺もさっき調べてたけどWindiffって名前で色んな奴があるよな。
Cygwin入れてるから別にいいんだけどな。

>>447
>>449
パソコン買い替え中で正確な記述が調べられないのれす。
でも争いが起きているとは驚きますた。

>>448
Content-Encoding
これでだと思いますが変わらなかったのですが
鯖が消してしまうとか

>>462
環境が整わないのに開発なんかしようとするな。

またファイト
漏れもうすぐネカフェの時間なので

あぼーん

あぼーん

あぼーん

あるモジュールがあるときでも無い時でも動くようにしたいのですが
負荷を考えると、ループの中でevalを使いたくないのです。
（ループさせる回数がとても多いので。）

現状では、こういう風にやってます。
eval('use Time::HiRes;');
if ( $@ eq undef ) {
　　require './lib/bench.pl';
　　$HIRES = 1;
　　&bench::start;
} else {
　　require './lib/dummy_bench.pl';
}

最初にこういう風にしておいて、

続く

bench.plの中身は

package bench;
use strict;
use Time::HiRes;
sub start {
　処理ほげほげ
}
sub check {
　処理ほげほげ
}
1;

dummy_bench.plの中身は

package bench;
sub start {
}
sub check {
}
1:

Time::HiResが必要な処理の時は
&bench::check
等として呼ばれるわけですが、最初のevalのチェックで失敗してたら
ダミーのほうが読み込まれているので空のサブルーチンが呼ばれます。

このやり方について2点疑問があります。
1.ファイル名とパッケージ名は同一でなければならないと聞いたことがありますが、これはやってはいけない方法なのですか？
2.もっとスマートな方法があるならご教授ください。

オーバーライドすれば？

>>469-470
1. 自分が何をやっているのか理解しているなら問題ない。
2. Time::HiRes の存在チェックを bench.pl 内でやれば
　 dummy_bench.pl は不要。

#--- Bench.pm ---
package Bench; # 小文字のみのパッケージ名はプラグマ
use strict;
eval ('use Time::HiRes;');
my $EnableHiRes = $@ ? 0 : 1;

sub start;
*start = $EnableHiRes ? sub { ... } : sub { ... };

#--- Bench.pm を使うスクリプト ---
use Bench;
Bench::start();

ありがとうございます。
とてもためになります！

これがきっかけで
ついでにいろいろ気になることも増えてきたので
勉強中です。。

事後報告っす。
サブルーチンの定義自体をevalしないと
モジュールがないとき動きませんでした。

sub start;
*start = $EnableHiRes ?
　eval 'sub { use Time::HiRes; ほげほげ }' : sub {};

#単純にevalの中でuseしてもされてないのでこうするしかないような

>>474
何故また use し直すんだ? 下のコードで試してみ。
Time::HiRes が存在すれば実際に sleep した時間が、
無ければ常に 1 が返ってくる。

#--- Stop.pm ---
package Stop;
use strict;
eval('use Time::HiRes qw(usleep);');
my $Enable = $@ ? 0 : 1;
sub stop;
*stop = $Enable ? sub { usleep($_[0] * 1_000_000) } : sub { sleep($_[0]) };
1;
__END__

#--- test.p ---
#!/usr/local/bin/perl
use strict;
use Stop;
local $| = 1;
print 'foo,';
my $wait = Stop::stop($ARGV[0]);
print "bar. ($wait)\n";
__END__

あ、動きました。汁
まじすいませんです。

475のコードでもいろいろやってみました。

evalしないと動かなくなっていたのは
以後の処理のほうに問題があるっぽいです。
あるっぽいというのは、最小限の部分だけコード取り出して
いろいろ試してたら今動いたので。

これからじくーり調べます。
ほんとたすかりました。

my $Enable;
if (require Time::HiRes) {
$Enable = 1;
Time::HiRes->import('usleep');
}

日本語をブラウザのアドレスバーに入れたとき見たいな文字列に変換したいのですが
具体的には
「日本語 ファイル名テスト用ファイル.txt」を
%C6%FC%CB%DC%B8%EC%20%A5%D5%A5%A1%A5%A4%A5%EB%CC%BE%A5%C6%A5%B9%A5%C8%CD%D1%A5%D5%A5%A1%A5%A4%A5%EB.txt
このようにしたいのです、変換元の日本語はEUC(自身無い)です
今、他人のCGIをいじっているのですがそもそも反対のことをしているのはわかっているのですが
うまく、上の形になりません、何か効率のいい方法はありませんか?

訂正、
>うまく、上の形になりません、
うまく、上の形の文字列が取得できません

$str = '日本語 ファイル名テスト用ファイル.txt';
$str =~ s/(\W)/'%'.unpack("H2", $1)/ego;
print $str;

use Time::HiRes;
と
eval('use Time::HiRes;');
は何が違うの?

>481
前者は実行できなかった時にコンパイルエラーになる。
後者は実行できなくてもそのまま進む。

CGIとして使っているperlなのですが、バグが発生し、
俺の実力では原因が特定出来ないので相談にのってもらいに来ました。

ファイルの書き換えなのですが、日頃正常に動いていた動作で、
突然ファイルの中身が消滅してしまい、「0バイトのファイル」になってしまいました。

記述内では、ファイルを書きかえる処理として、

open(FILE,">$log_file");
print FILE $log_code;
close(FILE);

このようなもの「のみ」あり、$log_codeには必ず何かが代入されています。
$log_code　に何かが代入されているのはこのプログラムの基本で、代入されていないわけはありません。
また、今回発生したバグと同一の処理は日頃から普通に行っていました。

また、このファイルは複数人数が書き換える物ではなく、
ID登録した「一人の人物」が書き換えるものなので、ファイルロックなどはしていませんでした。

今回のバグで、ファイルの中身が消滅してしまう原因となったアクセス者は、
「俺自身」です。

プログラム作者は俺自身なので、微妙に動作は怪しいですが、今回のは想定外のバグで、原因がつかめないでいます。
記述を考えても、処理自体のバグでファイルが消えてしまった事は非常に考えにくいのですが、

これは取り敢えず、
「処理自体のバグ」を疑うべきでしょうか？
「システムのファイル書き換えミス」を疑うべきでしょうか？

m(__)m

あぼーん

＞$log_code　に何かが代入されているのはこのプログラムの基本で、代入されていないわけはありません。
デバッグにおいてこういう思い込みは最大の敵。
必ずテストを行ない、その結果を確認する事。
この場合なら、openの前後の行にprintで$log_codeを表示させてみる。

はっきり言えば、>483の説明だけではなんとも言えない。
情報が少なすぎる。

再現できなさそうだしopenの前に
die "Error : \$log_code" unless ($log_code);
とか
これを機にいろいろトラップしとき

>>482 ありがと。
eval 文字列でも、eval { }のように、エラートラップできるとは
知らなかった。勉強になりました。

>>487
両者の違いは、一気に構文解析がされるかされないか。
eval BLOCKの場合はそうされるので、eval 文字列よりも高速

>>485-486

ありがとうございます。
同じように再現しようと思っても日頃からやってるのと同じ処理なので困ってました。
今度から、ことごとくプログラム内でエラーチェックしておくようにします。

バグの原因が分からない時ってスッキリしないですね。。。。汗

一人の人物だからロックしないってありなん？
超高速でダブルクリックして呼び出しかけたらどうなんねん？

複数窓開くのもあるな。ってか、そのＣＧＩはゲーム系？



ｸﾚｽ

>>483
消えて当然かと。
今まで運良くopenとcloseの間で処理が停止しなかっただけ。

>>483
もうひと言付け加えると今まで正常に動いていたのは$log_fileが軽かったから。
$log_fileのサイズが臨界点に達すると、鯖がいい加減にしろと作業途中で職場放棄。

>>490-493
みなさんありがとうございました。
大変参考になりました。

>>492
それを回避するには、ファイルを２つ用意し、バックアップも常に生成しておけ…
と言う事でしょうか？

排他制御を知らない奴はCGI作るなという事でFA。

Func （・∀・） Anal

>>496（･∀･）ｶｴﾚ!!

> $log_fileのサイズが臨界点に達すると
どのくらいよ？

srand(time|$$);
my $et = int(rand(9));
if($et == 3){
srand(time|$$);
$et =int(rand(2)) ;
if($et == 0) {
�@
}else{
�A
だと、全部�@になります。
２つ目の srand(time|$$); を無くすと、
正常になりますが、どうしてでしょうか？

>>495
排泄処理…？プロセス事故死の話だろ？

>>494が正解。
ただlogを毎回自動バックアップしてたら壊れたファイルも…ってことになるから、
その変自分のにあったうまい方法を考えておく事。

>>498
perlのメモリ管理はperl自身でやっているから、
つまり鯖によって設定が（ｒｙ

>>499
なんで２回も初期化してるのかは知らんけど。
randの出しかたはアルゴリズムがマシンによって違うぞ。
俺の勘では、それwin系のシステムで使ってないか？

あぼーん

>>500
> 排泄処理…？
おまるを用意しる！（ｗ

>>499
これを動かしてみそ。

srand(time|$$);
my $base = rand;
print "base = ", $base, "\n";
srand(time|$$);
print "base*3 = ", $base*3, " rand(3) = ", rand(3), "\n";
srand(time|$$);
print "base*2 = ", $base*2, " rand(2) = ", rand(2), "\n";

しかし、srand(time|$$)って、Win系だと数列がほとんど変化しない予感。

あぼーん

>>505( -Д-)…

説明が無いのもなんですので。。
処理系によるかもしれませんが、大抵、srandに同じ乱数シードを与えると
randで読み出す乱数列が同じ物になります。
>>499の複数回のsrand(time|$$)で、$$(プロセスナンバー)は変化しません。
timeは一秒ごとに更新なので、これもほとんど変化しません。
つまりrandの前でsrand(time|$$)を実行することによって、(かなりの確率で)
同じ数列を読み出してることになります。

rand(n)はrand()*nと(最低でもperl5.005_03以降は)等価なので、
int(rand(9))==3が成り立ちrand()値が同じ場合、rand(2)で得られる値は
3.0/9*2=0.666..から3.999../9*2=0.888..までの値になります。
よってint(rand(2))で得られる値は常に0になります。

…多分ね。

evalについて教えてください。
パッケージ($package)のシンボルテーブルを、%stabで参照できるようにする
コードとして、赤ラクダ本に次のように書いてありました。

local(*stab) = eval("*_$package");
(*_$packageの部分は、Perl5では、*{${package}::}だと思います。)

このevalは何をしているのでしょうか? あっても、なくても同じでしょうか?

>>508
perl4ではシンボリックリファレンスは使えなかったから、eval()が必要だった。
今ではわざわざeval()する必要はないね。
ついでに型グロブで別名をつける必要も無い。
my $stab_ref = \*{$package."::"};
これでシンボルテーブルへの参照を直接使えばいい。

>>509さん
どうも有り難うございます。でも、Perl5でシンボリックリファレンスを使え
ないようにして、しかもevalなしでも動いてしまうのが不思議です。

use strict 'refs';
$package = 'main';
local(*stab) = "*${package}::";
while (($key, $val) = each(%stab)) {
local(*glob) = $val;
if (defined $glob) { print "$key => $glob\n"; }
}

>>510
あ、ホントだ。
多分、perl5からだと思う。
でも折角のstrict 'refs'なのに…変な仕様だね。

HP管理システムのＣＧＩを作ろうとしてるんですが、
フォームから取り入れた情報にファイルを書き換えるコードを書いたんです。
そしたらその書き換えるファイルを開こうとしてもそのOPEN行でエラーが起こってしまうんです
どうしたらいいのでしょうか

open(FILE,"+<$fileini");

ご要望ならソースコードの一部または全部を載せますが･･･。
誰か教えてください。

>>1
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

エラーが起きました、開けません。
だってさ。

しかも、「ご要望なら」ソースを見せますが。だってさ。
誰の要望だよ。

ちなみにそのopenは書式ミスしてないよ。

>>500
Perlは変数の大きさを勝手に制限するような事はしないから、
Perlの設定や、鯖の設定(もしかしてこれは資源の制限値?)には関係なく、
Perlが取れる最大のメモリが影響する。

>>498
CGIとして動かすなら、ブラウザのタイムアウトでプロセスが殺されるという限界になるはず。

あぁ、httpdのCGIプログラムに対するタイムアウトの方が厳しいか。普通。

ブラウザのタイムアウトでは鯖のプロセスが死ぬの？？

>>517
「CGI signal タイムアウト」でググってみ。
書籍があるならsignalの章を見てもいいぞ。

て、ここperlコーディングスレじゃん....

すいません、なにぶんわきまえがないもので・・・

HPの諸設定の書き換えがしたくてCGIをコーディングしたんですが
フォームで設定ファイルを書き換える段階まで来て、
このOPEN行で
Unterminated <> operator at administrator.cgi line 194.
ってでるんです。194行目は　open(FILE,"+<$fileini"); です。

あぼーん

>>519
+<を削除したらどう

>>521
それでいけるんですか！？

なんかエラー増えちゃいました･･･(泣)

Scalar found where operator expected at administrator.cgi line 194, at end of li
ne
syntax error at administrator.cgi line 194, near "open(FILE,"$fileini"
String found where operator expected at administrator.cgi line 201, near "print
FILE ""
(Might be a runaway multi-line "" string starting on line 194)
(Missing semicolon on previous line?)
Backslash found where operator expected at administrator.cgi line 201, near "pri
nt FILE "\"
(Do you need to predeclare print?)
syntax error at administrator.cgi line 227, near "}"
administrator.cgi had compilation errors.

>>508-511
local(*stab) = *{"${package}::"}; # シンボリックリファレンス
local(*stab) = "*${package}::"; # シンボリックリファレンスではない

$pkg = 'ABC';
print "*${pkg}::"; # *ABC::と表示
print eval("*${pkg}::"); # *main::ABC::と表示、何でこうなるかは不明

その行そのものは間違ってないがエラー表示で<>がおかしいといっているので
とりあえず削除してみてどうなるのか確認したかった。
どっか前の行で"を付け忘れたりとかそんなミスじゃないの。

>>519
$file ="test.txt;
open(IN, "+<$file");
これで同じエラーが出ます。

>>526
カッコや""なんかの対応が合ってないだろ。
エラーメッセージ行は考えずにそのルーチン内を全部見てみれ。

>>527
一応一通り見てみたんですけど、おかしいとこはなかったんです。

sub formset {
# フォームデータ取得
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
} else {
$query="$ENV{'QUERY_STRING'};
}
# フォームデータ復元
foreach $pair (split(/&/, $query)) {
($key, $value) = split(/=/, $pair);
# 文字のデコード
$value =~ tr/+/ /;
$value =~ s/%[0-9a-fA-F][0-9a-fA-F]/chr(hex($1))/eg;
$foem{$key} = $value;
}
# ファイル出力
open(FILE,"+<$fileini");
seek(FILE,0,0);
foreach $key (sort keys %form) {
print FILE "\$$key=\"$form{$key}\"\;\n";
}
# ファイルを閉じる
close(FILE);
}

これがこのコードの入ったサブルーチンです。
このルーチンを抜いてチェックしてみたらsyntax OKでした。

すいません、かなり、見づらくなってしまいました(汗)

$query="$ENV{'QUERY_STRING'};

何故か分からないが、>>506が気に入った。

あぼーん

ほんとだ！
今の今までまったく気がつきませんでした。

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

情報を小出しにすると解決までの道のりが遠くなる、という見本のような質問だったな。

うぜぇ

つーか括弧の対応とかクォーテーションの数を確認するスレではないんだが

perlの気持ちになってみると、

$query="$ENV{'QUERY_STRING'};
.....次の " を探し中....
open(FILE,"+<$fileini");

ﾋﾞｸｯ. ∧ ∧ ∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 Σ(ﾟДﾟ；≡；ﾟдﾟ) ＜　うおっ、 " がでてきたが、なんかすげえ所に迷い込んじまったぞ、ｺﾞﾙｧ！
　　 　 ./ つ　つ　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　〜（＿⌒ヽ　ﾄﾞｷﾄﾞｷ
　　　　 )ノ ｀Jззз

>>533
悪いが、この程度も自力解決できないようだと、プログラミングは難しい。

試しに聞いてみるが、この程度のエラーが出る度に2chで何日もかけて尋ねるのか？

明らかに構文が正しい行でエラーが出た場合は、
>>528みたいに、前の"の対応ができてない。

EOFにエラー出る場合は、大体括弧の対応がおかしい。


このくらいは覚えれ

＞試しに聞いてみるが、この程度のエラーが出る度に2chで何日もかけて尋ねるのか？

そういう奴が以前いたな。

opun(DATA,"data.txt");
で動きません。どうしてですか？

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

最低でも1と3が無いと誰も答えられないよ。

ファイルハンドルをＤＡＴＡとして、data.txtを開きたい
Syntax errorがでました。

厨な質問が増えたな

>>543
構文エラーです。
構文を確認してください。

ローマ字perlというのが出来たのか?

>>541
わざとか？ネタか？いいかげんにしてくれ。

open

さぁ、さっさと帰れ。

541です。すいません、構文エラー直りました。
それと、
if(!iguzisuto "data.txtx"){処理;}
が動きません。
どうしてでしょうか。イグジストであってるはずなんですが・・・

　　　　　o　　　.　　。　　　.　　.　　　,　　.　,　ｏ　。ﾟ.　,ﾟ　。　＋　。　。,ﾟ.。
　ﾟ　,　　　,　。　.　　　＋　　ﾟ　　　。　　。ﾟ　.　ﾟ。,　☆　*　。ﾟ.　o.ﾟ　　。　.　。
。　.　　．。　　　　o　　　．.　。　ﾟ　 ﾟ　,　。.　o　。*　。　.　o．　。　．　.
　　　　　　　　。　　　.　　　。　　．　.ﾟo　。　*．　。　．.　☆　.　＋.　.　　.
　。　.　　．　.　　　.　　　．　　。　ﾟ。,　☆　ﾟ.　＋　。　ﾟ　,。　.　。　　,　.。
　　　　ﾟ　　。　　　ﾟ　　.　　+。　ﾟ　*　。.　,　。ﾟ　+.　。*。　ﾟ.　　　.　.　．　　.
　。　　.　　　.　。　。ﾟ.　。*　。,　´。.　　☆。。.　ﾟ。+　。　.。　　.　　｡　　　.
　　.　　　。　　ﾟ　ﾟ。　。,　.。o　☆　+　,ﾟ。　*。.　。　。　.　　　　。　　　　.
　ﾟ　.ﾟ　ﾟ　　。ﾟ　+　。.　+。　*　。ﾟ。ﾟ.,　,+　。ﾟ.　。　.　.　　　,　　　　,　　　.
ﾟ。ﾟ+ﾟ`,　o。。.ﾟ*。ﾟ　。.ﾟ　。　☆＋。。ﾟ.　°　。　.　　　,　　　　　　ﾟ　　　　ﾟ
　。,　.ﾟ。　+　☆。,ﾟ.　o。 。+　。ﾟ.,　　.　ﾟ　　　,　　　。　　　　　。　　　.　　　.
　ﾟ.　ｏ　*　。ﾟ。ﾟ.。ﾟ。+ﾟ　。　。　ﾟ。 ﾟ　。　　ﾟ
ﾟ`　.ﾟ　.ﾟ.　ﾟ.　.　ﾟ　　.　　ﾟ　　.　　　,　　.　　　　　.　　.　　　。　　　　　　ﾟ　.
　.　　.　　　　　.　,　　　　　。　　　　　　　.　　　　　　　　　　　.　　,　　　　.
　　　　　　。　　　　　　　　　　　　　　　　　ﾟ　　　.　　　　　　　　　　　。
　,　.　　　　　　　　.　　　　　　　　　　　,　　　　　　　.　　　　　.
　　　　　　　　夏だね
　　　　　。　　　　　Ｖ　　　　∧∧　　 ∧∧　　　＜うん。夏だ
　　　　　　　　　　　　　　　 ( :;;;;;:::)　　( :;;;;: )
.　　　.　　　　　　　　　　　　/:;;;;;: |　 　 | :;;;:ヽ
　　　　　　　　　　　　　 〜（::;;;;;;:/.　 　 |:;;;;;;: )
　　　　　　‐''"´'''"""''"｀''""｀"""''''''"´'''"""''"｀''""""'''"''''''"｀"""''''｀`'‐

いや、そりゃ８月は夏でしょ

ニュージーランドでは冬。とってもさむい。

delete $hash{'name'};
はvalueを削除するがエントリーは残る、よって
$hash{'name'} = '';
と同じ。

undef $hash{'name'};
は未定義だからエントリーそのものがなくなる。

であってますか？

いいえ　　　

>>552
existsやってみたらすぐわかるじゃん。
ちょうど逆。

>>554
ｾﾝｾｰ definedだと思いますっ。

>>555
definedは両方偽だよ。

ｾﾝｾｰ ボクがまちがっていましたっ。

>>554
コマンドラインでやってみたら全く逆でした。
すません。
keyからそっくりなくすにはdeleteなんですね。

　マニュアル *読めば* 理解できる事だが…

簡単なことかもしれないけど
$aの属性
$a = 100
$a1 = 200
$a2 = 300

$b

があるとする。このとき、$aの属性と$aの属性がぶつかったときは
なんともにないけど、$aの属性と$bの属性がぶつかったときは
条件が加えるようにしたい

それで
$aのときは条件をつけようと思ったんですけど、属性$aの定数が変数なので
条件がうまくつけられない
よい方法はないだろうか？
if = $a
だと下の２つが含まれなくなる。初心者だけど、わかりますか？

>>560
属性というのがわからない。

>>560
変な自分用語を使わないでクレ。
あと簡単な例でも書いてくれ。

ゲームなんだけど
属性というのは火属性は$aとする
$a1や$a2もダメージが違うだけで、火属性としたい。

$bや$cの属性も作りたいけど、ダメージ違いのものもたくさん作る。

このとき火属性と水属性がぶつかったら命中力がおちるとか
条件をつけたい
その属性を特定づける、うまい書き方ってありますか？
ダメージは相手の防御でランだムに減るので、数字は変数なので
固定させることはできないです。

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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


　　　　『どういう入力に対してどういう出力が出るのか書け』

出力というよりも、入力のしかたがわからないです。

$ = int(rand 6);

$aは火
$a = 100
$a1 = 200
$a2 = 300

属性は水
$b = 100
$b1 = 200
$b2 = 300

if {
$火属製 =　条件
else {　水属性の条件

火属性に条件を加えたいが、
$aで加えても$a1 $a2 は火属性の条件がつかないので、困る

１００とか２００にしてるけど、実際の数字は３００×ランダム値−（魔法防御）
とか変数になる

### 魔法の処理 ###
$magic[$zokusei]['lv1'] = 100;
$magic[$zokusei]['lv2'] = 200;

if($zokusei == "fire"){
if($zokusei == "water"){
水の時の処理;
}elsif($zokusei == "earth"){
土の時の処理;
}
}

俺ならこんな感じかな（手抜きでスマソ

ついタブを　＿|￣|○

しかもこれじゃ駄目じゃん！＜俺
phpと混ざってるし…

ちゃんと回線切って吊ってきて直してくる…

なるほど。[$zokusei]['lv1']の方法を初めてみました。
自分のは無駄が多かったみたいです。ありがとうございます。

>>572
まあ、ハッシュを使ってくれという事だ…。

さて吊ってくる

え！？まちがってるんですか！？

>>574
とりあえずgoogleさんでハッシュに関して調べてみるべし。
多分お前が望んでいる答えがそこにある。

$magic{$zokusei}{LV}

上記は、「魔法」の「属性」が「レベル幾つ」のものであるか、という意味だ。
プレイヤー１の魔法属性（仮に$magic_p1）とプレイヤー２の魔法属性($magic_p2)とする。
で

if($magic_p1 == "fire"){ ### プレイヤー１の属性が火の時

とかでいいんでない？

細かくはリファレンスでも見るよろし。

[$a]などを名前の後ろに属性としてばばばって書いてしまいましたが、
これは問題ないですよね？

Ｐｅｒｌ　のゲームに適した文法の辞書サイとを知りませんか？

ここは確かに初心者コーナーだが、1から10まで面倒を見てやるところじゃない。

直しました
あと、簡単なことは自分で調べたいんですが、
手元にある入門の本は不十分で、いろいろできないんですよ。
いいサイトしりませんか？

ちなみに、パール、辞書で調べると、パールスクリプトの辞書が
ひっかかって、肝心の言語辞書が全くみつからないです

>>578
>>4-6

「言語辞書」って一体何だよ…
属性もそうだが、自分用語を改めないことにはこの先もトラブルが絶えないぞ。
とりあえず先人のまとめてくれたテンプレ>>4-6を参考にすべし。

よく分からんが、この質問は
「ある1つの魔法に、属性や攻撃力など
複数のパラメータを設定するうまい書き方を教えてくれ」
と解釈して良いか？

↓複数のパラメータを設定する方法

$magic{'メラ'} = ['fire','100'];
$magic{'バキ'} = ['air','500'];

↓各パラメータの参照方法

print "$magic{'メラ'}[0]";
print "$magic{'バキ'}[1]";

http://pc2.2ch.net/php/kako/1056/10567/1056730690.htmlの461じゃないのか？

ハッシュがとうとかより、もっと多次元な気がするからリファレンスだと思うんだけど。
>>581の例はハッシュの中に無名配列のリファレンスを入れた例かな。
実際はもっと複雑になると思われ。

ファイル abc.html に含まれる　あいうえお　という文字列を　かきくけこ　に変換して上書き保存したい場合はどう記述すればいいんでしょうか？
ご回答よろしくお願いします。

#!/path/to/perl

open IN,"file/name/to/convert";
open OUT,">file/name/to/convert.tmp";
while(<FILE>){
s/あいうえお/かきくけこ/g;
print OUT;
}
rename "file/name/to/convert.tmp","file/name/to/convert";

FreeBSDのみでしか動作確認ができていないperl-cgiをANHTTPD+ActivePerlで動かしたいけど、
open($fh, "-|");
が開けなくて困っています。
Windows版のperlは-|は対応していないのですか？
素敵な対応方法を教えてください。

>>586
perldoc -f open は読んだかい?

マックやウィンドウズでは使えないっすよ

>>587 >>588
ｻﾝｸｽｺ

さげるの忘れてますた

あぼーん

ゲームで、対戦で、攻撃はパンチとキック、どちらかは２分の１
パンチの場合は、５回に１回はダメージ低い。
さらに５分の２の確率でミスをする。

というのを、１ターンの各攻撃を下のスクリプトに書いたが動かない
誰かこの初心者を助けてください

プレイヤー１は$play11の攻撃
プレイヤー２は$play22の攻撃

$play11 = $sentaku1
$play22 = $sentaku1
$kik = 60

$sentaku = {
$play1 = int(rand 2)
if($play1 == 0) {
$kik
}
}

else($play1 == 1) {
$bougyo = int(rand 5)
if($bougyo =< 1){
0;
else($bougyo >= 2) {
1;
}

{
$panti = int(rand 5);
if($panti == 0) {
$panti1 = 10;
else($panti > 0) {
$panti2 = 20;
}
* $bougyo;
}
}

（ ﾟдﾟ）ﾎﾟｶｰﾝ　あきれて何も言えん・・・

>>592
ちみ、潔いですね！男らしいですね！
ということで、『今回だけ特別に』解答してさしあげる。
構造化プログラミングが苦手そうなちみは、gotoを使いなさい。

>>592-593
ここはお前の相談コーナーじゃないし、質問以前の問題だ
文法を一から勉強しなおしてこい

ゲームで値を決める場合
$temp = A1 ? B :
A2 ? C ;
A3 ? D :
'';
とか、オレならやるかな…

$panti = black; (；´Д｀)ﾊｧﾊｧ…

$panti = t_back; (；´Д｀)ﾊｧﾊｧ…

$panti = heibon; (；´Д｀)ﾊｧﾊｧ…

質問させてください。

192\.168\.0\.[24-26]

こんなイメージで正規表現使いたいのですが、勿論このままでは
とおりません。
何かいい書き方ありましたら教えてください。

192\.168\.0\.[24|25|26]

すみません、実際やってるIPは
192\.168\.0\.[65-94]
です。

あぼーん

ピリオドでsplit

>>603
192\.168\.0\.((6[56789])|([78][0-9])|(9[1234]))

>>606
マジで感謝でございます。
有難うございました。

あぼーん

あぼーん

>>603
$addr="192.168.0.78";
$addr=~/192\.168\.0\.(\d+)/;
if($1>=65&&$1<=94){

あなたたち、これのどこがおかしいんですか？
とてもすばらしいじゃないですか
僕の芸術をケチつけられても困ります。

もっといい方法があるなら教えてくださいよ

あぼーん

プレイヤー１は$play11の攻撃　プレイヤー２は$play22の攻撃

$play11 = $sentaku1
$play22 = $sentaku1
$kik = 60

$sentaku = {
$play1 = int(rand 2)
if($play1 == 0) {
$kik
}
}
else($play1 == 1) {
$bougyo = int(rand 5)
if($bougyo =< 1){
0;
else($bougyo >= 2) {
1;
}
{
$panti = int(rand 5);
if($panti == 0) {
$panti1 = 10;
else($panti > 0) {
$panti2 = 20;
}
* $bougyo;
}
}

もう来るなと言ったろ

それ、エラーチェックしてんの？？？？？？？？？？？？？？？


とりあえず、まず文法守れや。

foreachは
foreach $a ($b) {}
とするか
foreach ($b) {}
とするのはどっちのほうがいいのですか？

>>616
ケースバイケース。
後者は $_ に入るだけだから、うまく使い分ける。

あるCGIに半角カナも投稿出来るように改造したいなと思い、
ライブラリ、jcode.plをjcodeg.plに変更し、コンバート処理を
&jcode'convert(*value, sjis);
から、
&jcode'convert(*value, "sjis", "", "z");
のように変更しました。
これで一応は半角カナも文字化けせず投稿できるようにはなったんですが、
ログファイルの更新ごとに、ログファイル先頭の部分に、
「*main::valuesjisz」
という何とも意味がわからぬ文字がついてしまうようになりました...
色々いじってみたのですが、上手くいきません。
どうしたら上手く処理出来るんでしょうか...

jocdeg.pl : ttp://jo.st45.arena.ne.jp/script/

>>618
これでやってみそ。

&jcode'h2z_sjis(*value);

プレイヤー１は$play11の攻撃　プレイヤー２は$play22の攻撃

$play11 = $sentaku1
$play22 = $sentaku1
$kik = 60

だけど、エラーが出ます。なんでエラーでるんすか？
イフとエルスの置き方はちゃんとしてますよ。
ふざけてますね。

あぼーん

なんでそんなんも分からん状態で質問してんのさ。
最低限文法とか調べてや。
ふざけてるのは（ｒｙ

単純文の終わりにはセミコロンがいるよ。

>611 :nobodyさん :03/08/07 20:28 ID:MNjVgF7U
>あなたたち、これのどこがおかしいんですか？
>とてもすばらしいじゃないですか
>僕の芸術をケチつけられても困ります。
>
>もっといい方法があるなら教えてくださいよ

あぼーん

キリないから相手にするなって

>>619
どうもありがとうございます。
早速やってみたところ、500 Internal Server Errorが出てしまいました(~_~;)
他に手立てはないでしょうか?
よろしくお願いします。

>>626
ちゃんとエラーの読める環境で試しましょう。

>>618さん
&jcode::convert(\$value, "sjis", "", "z");
と書いてもダメぽ？

>>628
エラーも出ず、ログファイルも正常に更新されました!!
どうもありがとうございます!(^^)!

攻撃
イフキック

エルス、パンチ（イフ、命中（イフ、５分の１で会心の一撃
　　　　　　　　　　　　　（エルス、普通
　　　　　　　（エルス、ミス

と言う様に、イフの中に、さらに３重、４重にイフやエルスを
クませることってできますよね？

あと、エラー出ても、５００さーバーエラー、中見が悪いって内容の
エラーしか出ないんですけど、どこが悪いか詳細の出すことできないっすか？

自分のパソコンにアクティブ入れると、詳細出ますかね？

各生徒のテストの成績データをperlで扱うとき、どのようなデータ型を使うのが
ベストでしょうか？DBは使わないとします。

要するに、行が色々なテスト名、列が生徒名となっているような典型的なテーブルです。

>>631
ハッシュでいいんじゃないの？

生徒名・テスト名から点数にアクセスできるようにしたいのですが、
ハッシュだとキーはどうなりますか？

リファレンスでも勉強してくれば〜？？

>>631
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perllol.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlref.html

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

攻撃
イフキック

エルス、パンチ（イフ、命中（イフ、５分の１で会心の一撃
　　　　　　　　　　　　　（エルス、普通
　　　　　　　（エルス、ミス

と言う様に、イフの中に、さらに３重、４重にイフやエルスを
クませることってできますよね？

こうなる
プレイヤー１は$play11の攻撃　プレイヤー２の$play22の攻撃；

$play11 = $sentaku1；
$play22 = $sentaku1；
$kik = 60；
$sentaku = {
$play1 = int(rand 2)；
if($play1 == 0) {
$kik；
}
}
else($play1 == 1) {
$bougyo = int(rand 5)；
if($bougyo =< 1){
0;
else($bougyo >= 2) {
1;
}
{
$panti = int(rand 5);
if($panti == 0) {
$panti1 = 10;
else($panti > 0) {
$panti2 = 20;
}
* $bougyo;
}
}

>>642
どこでPerlを学んだ？

フセイン
イフ捕まる（アメリカに核を落とす

エルス捕まらない（イフ包茎じゃない（イフ、オレは天才（オレを総理に
　　　　　　　　　　　　　　　　　　　　　　　　　逆らう者北朝鮮へ
　　　　　　　　　　　　　　　　　（エルス、オレは天才じゃない
　　　　　　　　　　　　　　　　　　　　　　　　　　（世界を滅ぼす
　　　　　　　　（エルス包茎（世界を滅ぼす

と言う様に、イフの中に、さらに３重、４重にイフやエルスを
クませることってできますよね？

>>644
もう寝れ。二度とくるな。基本的な文法くらいわかってから来い

１０日でおぼえる
Ｐｅｒｌ/ＣＧＩ
入門教室

<h1>定価２８００円
税なし

>>646
俺もそれ読んだが、それ読んで、なんで>>644なんだ？
その本を理解するまで読んどけ

おれのパーるは動かないぞ
サーバーはエラーばっか出しヤガル
自分のパソコンにアクティブ入れようか考え中

ところで全然関係ないけど。

今日、オートロードってヤツをなんと初めて知った。恥ずかしい限り。
見た瞬間感動しちまった初心者な自分。
うん、いいね。あれ。

それだけです。

おみくじの部分を入れかえて
パわーアップさせたら、そうなった

この本、全然使えないな

>>649
名前しか知らない。解説して。




ぐぐるの面倒だ

>>651
使えないのはお前の脳みそです。
俺はそれでPerl始めましたから。
かなりわかりやすい本だと思いますが？

３０００円返せ

半か丁かのところで
半を選ぶ

そこにさらに半を選ぶと、半か丁か選ばれて内容がかわる

半か丁かを簡単に改造しただけなんだが
この始末だ

１０日でおぼえるどころか、１日目から動かない
この本、だめすぎ

>>655
解説嫁。ｶｽｶﾞ。けなすな、人が気に入ってる本を








と、反応してしまう自分が悲しい

わかった
if($bougyo =< 1){

の＝と＜が逆だな
５６Ｐでわかったよ
これで動きそうだ

>>657
いや、報告しなくていいから。
ここはあんたの日記帳じゃないんだし。

ゲームで、対戦で、攻撃はパンチとキック、どちらかは２分の１パンチの場合は、５回に１回はダメージ低い。さらに５分の２の確率でミスをする。
--------------
実行してないから動くのか知らんけど暇つぶしに。誰が攻撃するのか分からんかったからこう書いた。
--------------
srand;
if($mode == 1){
 $offense = \%you;
 $defense = \%my;
}elsif($mode == 2){
 $offense = \%my;
 $defense = \%you;
}
if( int(rand(2)) ){
 #punch
 $damage =
  $offense->{'攻撃力'} - $defense->{'守備力'};
 if(!$rand = int(rand(5))){
  #half
  $damage = int($damage / 999);
 }elsif($rand < 3){
  #miss
  $damage = "";
 }
}else{
 #kick
 $damage =
  $offense->{'攻撃力'} - $defense->{'守備力'};
}
($damage < 0) and ($damage = 0);
$defense->{'HP'} -= $damage;

>>652
間違って存在しないサブルーチンに飛んだら、エラーを発生させず、特定のサブルーチンに移動してもらう昨日。
引数もちゃんと受け継がれる。
変数名で飛んでくルーチンを指定してる時とか便利かも。

使いかたは検索して。

fJ1eIuTw　は自演か？

二度と来るな！

>>661
違う。頭の柔軟体操のため、作ってみただけ。
スマソ。

>>661-662
勘違い起こした。fJ1eIuTwは、>>658だったのね。
恥ずかしい勘違いレスをしてしまった。汗

RBuH2Puuって、ちょっと前に探してますスレにいた粘着と行動が似てるな。

>>660
知らなかった。いいこと知った。

別に>>658は自演じゃないべ。

自分も以前、半角カナのやつで行き詰まったことがあるけど、適当にいじってたら投稿できるようになった。

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
jcode::convert(\$buffer, 'euc');
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
てな感じで…

チャットなんもんで、htmlで出力してるんだけど
ヘッダには　charset=Shift_JIS　って書いてる。
でも文字化け全然しない…
不思議……（＠▽＠；）

>>659
お前はバカか？やるなら荒らしと廃スレでやれや

配列のなかの要素（数字）をすべて足した数値を出すには
foreachを使うのが一番いいのでしょうか？

>>669
map でも良さそうですね。

>>667
IEで見てんじゃねーの

>>669-670
<q cite="http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlstyle.html">
戻り値をただ単に捨ててしまうような void 文脈で、grep()やmap()、
`backticks` (訳注: `ls`のようにバッククォートで括った実行文のこと)
を使うことは避けましょう。そういった関数はすべて戻り値を持って
いるのですから、それを使うべきです。戻り値に用がないのであれば、
代わりにforeach()を使ったループか system()関数を使いましょう。
</q>

>>669
$ perl -e '@array=(1,2,3);print eval join("+",@array);'

:で区切られた文字列があります。
もし、 : の後にhogehogeがあるなら、:から:までを消すのはできたんですが
　　　※こんな感じで s/:hogehoge.*?://g
その逆の、 : の後にhogehogeが ない なら、:から:までを消す 方法を教えてください。

age

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'攻撃力'} - $defense->{'守備力'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'攻撃力'} - $defense->{'守備力'};
}
($damage < 0) and ($damage = 0);
$defense->{'HP'} -= $damage;

これで動かないんですけど、
あと何が必要ですか？
キャラはPlayer1とPlayer2
Player1はＨＰ４００、キック力は６０、パンチ力は２０、防御力は１０
Player2はＨＰ３００、キック力は１００、パンチ力は４０、防御力は０

とりあえず１回動かしてみないと、先にすすめないし、
勉強もできない
困ったもんだ

%Japan = (
　　　　　　　'tokyo' => [ qw(新宿 渋谷 原宿 池袋 秋葉原) ] ,
　　　　　　　'kanagawa' => [ qw(横浜 藤沢 厚木 茅ヶ崎 横須賀) ] ,
　　　);
という感じのデータで、$Japan{tokyo}を配列としてforeachでぐるぐる回したいのですが、
どのようにすればいいのでしょう？
foreach ( @$Japan{tokyo} ) { print; }
とやったのでは出来ませんでした。

Perlの初心者スレが無かったのでここで質問です。

サーバ上のPerlのバージョンを調べたいのです。
Niftyを利用しているのですが、
説明のページにもPerl5としかかかれておらず細かいところがわかりません。
#例えば5.6なのか5.8なのか不明だったり

Perlスクリプトで調べるにはどうやれば良いのでしょうか。
因みにNiftyはtelnet不可で標準モジュールも全く使えません。

>>684
#! /usr/local/bin/perl

print 'Content-Type: text/html',"\n\n";
print '<html>';
print $];
print '</html>';

ってな感じのCGIを設置してアクセスする。

#質問でsageてた

>685
ありがとうございます。
5.00503だとわかりすっきりしました。

…かいけつしますた

>>683の質問ムズイ(；´Д｀)・・・これが解ければリファレンスが理解できた事になるかな・・・

と思ったら、ぐぐったらあっさり解決したよ(´･ω･｀)ｼｮﾝﾎﾞﾘ

>>683
foreach (@{$Japan{tokyo}})

括弧ひとつ余計につけないとﾀﾞﾒらしい

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

# Player1
$HP = 400;
$KIK = 60;
$PAN = 20;
$DF = 10;

# Player2
$HP = 300;
$KIK = 100;
$PAN = 40;
$DF = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}

if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN'} - $defense->{'$DF'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK'} - $defense->{'$DF'};
}
($damage < 0) and ($damage = 0);
$defense->{'HP'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";

やっぱ動かない
考えるか

>>RBuH2Puu

わざわざ貼らんでよろしい。

スルーでお願いします

動くまで貼るけどな

一生貼り続けるってことだね（ ´,_ゝ｀）ﾌﾟｯ

>>688さん
ありがとうございます！見事に出来ました！
それにしても、やっぱりリファレンスって難しいんですね…。

つーかattackとかkickとかしろよ、名前
KIKって(；´Д｀)

>>659
が余計なコト書くから。
RBuH2Puuがわけの分からん行動はじめた。

ぷうまだ居たんだ。

もうすでに意地になってるだけだろ。一番ダサいパターンだ。

($damage < 0) and ($damage = 0);
$defense->{'HP'} -= $damage;

ある変数を複数の条件で比較したいのですがどうすれば良いのでしょう。
例えば$hogeは$fooか$barか$baz以外の値であればエラーとしたくて
if ($hoge ne ($foo or $bar or $baz)){&error(不正な値が混じってます);}
のように書いたりしたのですがダメでした。

if (($hoge ne $foo) or ($hoge ne $bar) or ($hoge ne $baz)){&error(不正な値が混じってます);}

>>704
書いた本人もわかってると思うけど、orはandの間違いだよね。

# Player1
$HP = 400;
$KIK = 60;
$PAN = 20;
$DF = 10;

# Player2
$HP = 300;
$KIK = 100;
$PAN = 40;
$DF = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN'} - $defense->{'$DF'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK'} - $defense->{'$DF'};
}
($damage < 0) and ($damage = 0);
$defense->{'HP'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";

あぼーん

あぼーん

あぼーん

いつまで荒らせば気が済むんだ

あぼーん

あぼーん

($damage < 0) and ($damage = 0);
$defense->{'HP'} -= $damage;

>>715
相手にするなよ
お前みたいなのがいるからつけ上げるんだ

あぼーん

>>716
黙れ無能。

いるんだよな。
教えたがりというか、得意になりたがるというか。
感謝のレスをもらって満足したいんだろうなぁ。

糞な質問は仕方ないとしてもデカイAA貼るのはム板では論外。
荒らしとしても最低の部類に入る。

あ、>>715と>>718見て気付いた。ここWebProgだったか。ならいいや。

>>720
馬鹿にして満足しているようだが、つまらんな。
いなくても誰も困らないからム板に引っ込んでいれば？
ム板住人にしては最低の部類に入るけどな。

>>721
ﾏｼﾞﾚｽすんなよ。むかつくなあ。

なめてやがんな
おれは荒らしじゃねーよ！ヴォケ！！

相手にすんなよ、とか言ってる馬鹿がいるから荒れるんだよ
もとは、てめーみたいな無脳がいるから、住みつくんだっつーの！！
無脳を相手にするのは一番、気持ちいいからな！！馬鹿だから！！

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";

やっぱり動かないっすね

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage

がいまいち理解できんよ。

どれ、ちょっくら削除整理板にでも行ってくるか。

>>729
乙

９月になったら消えるでしょ。
それに、こういうのは名無し相手には強気になれても、システム側の人間が動き出せば
態度が一変するよ。ほんと面白いぐらいに。

システム側

ん？なんかおかしいこと言った？

まだいたのか。汗
基本的な文法と、ハッシュとリファレンスを覚えなよ（659のヤツを組み込みたいなら）。
ここで質問しても迷惑だし、無意味だぞ。

ただ目立ちたいだけならさっさとどっか行きな。

>>728
>($damage < 0) and ($damage = 0);
>$defense->{'HP1'} -= $damage
>がいまいち理解できんよ。
ほかもまったく理解できてないだろ

>>729
幼女板にもおながいします。
◆スクリプト＆コピペ(乱立)荒らし報告スレ7
http://qb.2ch.net/test/read.cgi/operate/1060158648/l50

>>735
> >($damage < 0) and ($damage = 0);
and しなくてもいいよな（ｗ

03/08/07(Thu) ID:MNjVgF7U
560,563,565-568,572,574,576,578,592,593,611,613
03/08/08(Fri) ID:RBuH2Puu
620,630,636-642,644,646,648,650-651,654-655,657,676-678,680-682,690-692,695
03/08/09(Sat) ID:9s2Ca0tO
706-711,713-714,723-728

スレッドの約6%を消費。

ID:9s2Ca0tO ウザイな…。と、思ったら削除依頼出てるね。サンクス＞出した人

>>703
&error('不正な値が混じってます') unless grep{$hoge eq $_}($foo,$bar,$baz);
とか

andで出来ました。
$hogeと$fooが一致しないか(or)$hogeと$bar一致しないか(or)とかいう風に
考えてしまいました…。

>739
どもです。
そちらの方がすっきりしてますね。

なんか最後のほうで荒らし多いな〜

あぼーん

なんでアンドがいらないんですか？
というより、動かねーよ！

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

友達いないのか、可哀想に。

>>737にさらに744-750か。

>>739
grepってそんな使い方も出来るのか…φ(._.)

>>740
@array = ($foo,$bar,$baz);
&error('不正な値が混じってます') unless grep{$hoge eq $_}@array;

すっきりしてる、っていうか上みたいな使い方ができるので、
比較対照が可変の場合に楽。

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";

あぼーん

あぼーん

あぼーん

だれかこの荒らし君を
killかrmかなんだかしてやってほしい

削除要請しちゃっていい？

>>762
むしろforkを

>>762 削除依頼は逝ってるから判断してくれるっしょ

しかし、美意識のないスクリプトや・・・

走らせるまでもなく動かないのが見え見えだから相手する気にもなれん

rm -rf

◆スクリプト＆コピペ(乱立)荒らし報告スレ7
http://qb.2ch.net/test/read.cgi/operate/1060158648/585

こっちにもあげときました。

http://ime.nu/　のようなCGIを作っているのですが、
http://***.com/~sub/みたいなチルダが入るとバグってしまうんです…
以下にそのまま書いたのでどこを直せばいいのか教えて頂けないでしょうか？
よろしくお願いいたします。


#!/usr/local/bin/perl

print qq|content-type: text/html\n\n
<HTML>
<HEAD>
<TITLE>JUMP</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000">
<B><A href=$ARGV[0]>$ARGV[0]</A></B>
<HR>
次のサイトにジャンプしようとしています。
</BODY>
</HTML>|;

チルダってわかってるなら変換すりゃいいじゃん。%7Eだっけ。
あと、METAタグを使う理由がわからん…

ヒアドキュメント知らないのかな？

>>769
http://pc2.2ch.net/test/read.cgi/php/1059878966/21

>>772
っち・・・マルチだったのか・・・

なんかろくなのが来ないね。

sage

至急教えて頂きたいんですが、
}elsif(a){
}elsif(b){
}elsif(b){
と表示するのと、
}elsif((a)||
(b)||
(c))){
と表示するのとでは効果は同じですよね？
上の方が分かりやすいから私は上を使っているんですが、
何かデメリットはあるんでしょうか？

>>776
同じじゃない

>776
俺なら下を使うね。

上の補足です
http://hogehoge.com/jump.cgi?http://yahoo.com/~sub/
のリンクだと
http://yahoo.com/\~sub/となってしまい、うまくhttp://yahoo.com/~sub/に
飛ぶことが出来ないんです

>>779 マルチがばれたらレスは付かない。

>>779
失礼ですが貴方は hogehoge.comとyahoo.comのオーナー様でしょうか？
公に使用者が開示されているドメインネームを不当にドキュメント等に用いるマナー違反者が
増えていますので。　念のため確認です。

まぁ向こうで誘導された感じではあるが…

#! /usr/local/bin/perl
print qq|Content-type: text/html; charset=Shift_JIS

<HTML>
<HEAD>
<TITLE>JUMP</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000">

<B><A href=$ENV{'QUERY_STRING'}>$ENV{'QUERY_STRING'}</A></B>
<HR>
次のサイトにジャンプしようとしています。
</BODY>
</HTML>|;
exit;

これでいいかね

あぼーん

>>781
こいつ性格悪そうだな（ｗ

あぼーん

あぼーん

あぼーん

あぼーん

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えたため、
Player1は喜んだ。「命！！」</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えたため、
Player1は喜んだ。「炎！！」</p></body>\n";
「つまんねー、馬鹿！」とやじが飛んだ。
print "</html>";

あぼーん

>>786-793
これも削除依頼かな…。死んでくれ

これって、リア房か？
削除人は何やってる？

かかわらんほうがいい。こう言うのは無視がいちばん堪えるんだから。
削除依頼だけしっかりやっときましょう。

そうだね
所定の回数に達したらアク禁になるわけだし

俺と同じISPじゃなきゃいいが・・・

>>797
マーフィーの法則。嫌な予感は当たる

http://qb.2ch.net/test/read.cgi/saku/1030165467/74

俺の書き込みも削除依頼されとる・・・

日付形式を変換しようとしています。

変換前の形式は、ちょっと特殊で年月日時分となってます。
0308100000

変換後は、クッキー形式にしたいです。
Thu, 01-Jan-1970 00:00:00 GMT;

年、月、日、時、分は、ほぼそのままでOKですが、曜日とGMTへの変換はどのように
すればよいのでしょうか?

よろしくお願いします。

あぼーん

モジュールABCの関数を使いたいとき、
use ABC; と @ISA = ('ABC'); とは何が違うのですか?

どうでもいいが、フォームから削除依頼しろよ。

>>800
自前で計算して用意するか、
time()みたいに、1970年1月1日からの秒数に変換して、そこからlocaltimeで変換するか

>>800
http://books-support.softbank.co.jp/pn/fumo01.html

>>802
http://www.rfs.jp/sitebuilder/perl/04/03.html

>>802
後者の方法はサブクラス化という方法で ABC 内の関数を
オーバーライドしたい時などその方法を使用する
…ぐらいしか思いつかないな

>>799
？あれにかかわったレスも削除して「なかったことに」してもらうのが一番。

ついでに削除屋さんは広告も一括して削除してくれたらありがたいなぁ。

>>807
依頼者と違いますが、>>73に追加です。削除理由は同じです
削除対象アドレス：
http://pc2.2ch.net/test/read.cgi/php/1059043704/744-750
http://pc2.2ch.net/test/read.cgi/php/1059043704/759-761
http://pc2.2ch.net/test/read.cgi/php/1059043704/768-788 ←ここ!
http://pc2.2ch.net/test/read.cgi/php/1059043704/793

削除理由・詳細・その他：
巨大AA連続投稿(ほぼ同一人物)
荒らしをしている人物は夏の風物詩で、暫く粘着しそうなので、こまめに削除依頼出すのでよろしく。

>>800
my ($year, $mon, $mday, $hours, $min) = unpack('A2A2A2A2A2', $packed_data);
で返った値をtimegm();につっこむ。$mon-1と$year+100を忘れずに。

>>802
useは@INCを辿ってモジュールを探して、
見つけたら読み込んでimportメソッドを実行する。
importされた関数、変数などが別名(エイリアス)で扱えるようになる。
コンパイル時に処理される。
@ISAはクラス内に呼び出されたメソッドがない場合、
@ISAを辿って目的のメソッドを探して実行するようになる。
実行時に処理される。

>>809さん、どうも有り難うございます。勉強のために、以下のスクリプトを
作ってみました。

package AB;
sub aloc {
my ($pkg, $a, $b) = @_;
my $obj = bless {"a" => $a, "b" => $b}, $pkg;
return $obj;
}
1;

(続き)
package X;
use AB;
@ISA = ('AB');
sub new {
my ($pkg, $a, $b, $x) = @_;
my $obj = $pkg->aloc($a, $b);
$obj->{"x"} = $x;
return $obj;
}
1;

#!/usr/bin/perl
use X;
$q = X->new('A', 'B', 'X');
$ans = $q->{'x'};
print "$ans\n"; # Xと表示、OK

試しに、パッケージXの@ISAの行をコメントにしてみると、alocが見つから
ないと言われます - 当然です。
そこで、パッケージABの2行目に、
use Exporter; @ISA = ('Exporter'); @EXPORT_OK = ('aloc');
を挿入し、パッケージXのuseを
use AB('aloc');
に変更してみたら、上手く行きました。

ということで、useと@ISAの機能は分かりましたが、今度は、ABやXのような
クラスを実装する場合、Exporterで輸出するのが良いのか、それとも@ISAで
継承するのが良いのか、が分からなくなりました。

あぼーん

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p></body>\n";
print "</html>";

あぼーん

ID:c9slSjrq 取り敢えず、NGワードっと、
↓ハイ、次の方どうぞ

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

>>c9slSjrq
にゅ速で美味しんぼ連載してるひと？

だいたいPerlで変なゲーム作ろうとしてる意図が不明。

キチガイのやることを理解などできるわけがない。

ID:c9slSjrqの情報調べてみたけど、やっぱり小学生だったよ。

>>810-811
継承が必要なら@ISAを使う、隠蔽したいなら使わない。かな。
(深く考えた事ないですね。オブジェクト指向なら継承しとけみたいな。)

モジュールはexportした方が便利かと。
(というか、するべきものだと思ってました。)

# 蛇足ですがalocはallocでは。

>>827さん、レス有り難うございます。

「そこで、パッケージABの2行目に、
use Exporter; @ISA = ('Exporter'); @EXPORT_OK = ('aloc');
を挿入し、パッケージXのuseを
use AB('aloc');
に変更してみたら、上手く行きました。」
と書きましたが、実行できるようにするだけなら、ここまでしなくても、
alocの呼び出しを、AB::alocとするだけで、充分ですよね。

「継承」の意味が良く分からないです(@ISA使わなくても、useで充分じゃない
のかなって思ってしまいます)。
オブジェクト指向の本質が分かってないんでしょうね。

# ご指摘のとおり、alocはallocのつもりでした。

>>828
Hoge.pm
--------------------------------
package Hoge;
import{ エクスポートな処理 }
--------------------------------
というものがあったとしたら、
use Hoge;
は、
BEGIN{
require Hoge;
Hoge->import;#または、import Hoge;と書いてもあり。
}
を実行しているだけ。
importメソッドがなけりゃ、
BEGIN{ require Hoge; }
と同じ。
だから、クラスによって違うのさ。

とあるスクリプトで時間を計算して表示させているのですが、
例えば10.99時間を10.59時間という風に小数点以下の部分を
きちんと分にする方法ってありませんか。

今は

my(@time_temp) = split(/\./, $time);
$time_temp[1] = int(60 * $time_temp[1] / 100);
$time = $time_temp[0].'.'.$time_temp[1];

とかやってるのですがもう少しすっきり出来たら良いなあと。

10.99時間＝10.59時間じゃないだろ
何がしたいのか意味不明

先程それではおかしいと言う事で表示側で
$time_temp[0]時間$time_temp[1]分
としたので三行目は無しで。

if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
これ加えたほうがいいかと

print "何時間？\n>";
$time =<>;
chomp($time);
my(@time_temp) = split(/\./, $time);
if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
$time_temp[1] = int(60 * $time_temp[1] / 100);
print "$time_temp[0]時間$time_temp[1]分\n";

$time = sprintf(qq{%02d\.%02d},int($time),($time - int($time))*60);

>>836
動かしてみ

ミスった。
>>835ね

>>828
http://perl.infoware.ne.jp/documents/perlboot.ja.html

>>830
$time = sprintf '%02d 時間 %02d 分', $time, ($time * 60) % 60, $time;

perlをダラダラ書いてたら、
一つのファイルで、1500 行
を超えてしまいました。
行数が多いと何か不都合は起きますでしょうか？
お教え下さい。

素朴な疑問。なんで、
print qq|<a href="hoge">fuga</a>|;
ってやればコードが見やすいのに、
いちいち
print "<a href=\"hoge\">figa></a>";
ってやってる人が多いんですか？
qqのほうが、コーディングもよけいなことあんまり考えなくて、はやくすむと思うんだけど

>840
それを見やすいと思うのはPerlユーザーだけ。
俺は使い分けてるけどね。

>>838
最後の$time要らん。

>>839
そのスクリプトを保守する人間が困らないのなら別に問題無し。

>>840
最初に覚えた方法が一番分かり易いと思い込んでいる人は多い。
もちろんその方法しか知らない人も多い。

>>841-842 レスさんくす。
なるほどねー。
自分最初にPerlおぼえて、
そのあとちょっとPHPかじって、
Javaおぼえようかなーて思ってる程度だからなー。

>>841
C#にも@""構文があるのに。Perlﾕｰｻﾞだけとは心外だな。

print "何時間？\n>";
$time =<>;
my(@time_temp) = split(/\./, $time);
chomp($time);
if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
time = sprintf '%02d 時間 %02d 分', $time, ($time * 60) % 60, $time;
print "<a href=\"hoge\">figa></a>";
$time_temp[1] = int(60 * $time_temp[1] / 100);
print "$time_temp[0]時間$time_temp[1]分\n";