【Perl】初心者コーナー Part12

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

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

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

CGIの質問は【CGIだけどなんか質問ある Pert 6 】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【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/test/read.cgi/php/996075607/
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/test/read.cgi/php/1009549309/
Part10　http://pc.2ch.net/test/read.cgi/php/1014556702/
Part11　http://pc.2ch.net/test/read.cgi/php/1017201229/

[ひまぢん氏のミラー]
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 Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/
[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html　接続不能
　・use Perl All The Perl: http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・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/

[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/

>>1
乙カリー

キーボードから文字数を制限して入力するにはどうすればいいのか教えれ。《ら抜き表現》

りげなく・・・漏れが作った携帯端末掲示板スクリプトを公開。
あんまり激しく叩かないで〜
http://www.sgmt.jp

>>7
　　 　　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣
　　　　（∩・∀・）＜　もしもし…何がしたいのかもうちょっと具体的におながいします
□……(つ　　　）　＼＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣￣￣|

textareaに書かれた文字数をcgiにわたる前にチェックしたいということかな？

>>8
>>7じゃなくて >>6だった。hanamogeraさん失礼

>>6
歴史(?)は繰り返す
http://pc.2ch.net/test/read.cgi/php/991313362/261

>>8
ｶﾜ (・∀・) ｲｲ!!

で、結局前スレ975は何が聞きたかったんだ？

聞いてアロエリーナ　ちょっと言いにくいんだけど
2年前Perlに挫折して、VBS、PHPやってきたんだけど
昨日　Perlのリファレンス読んだら　理解できたの
ちょっとうれしいな！
聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　　　　　　　 ∧＿∧
　　 Ψ 　　 　（∀・　　）
　　 □　　 　 （∩∩　 ）
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

perlは挫折する部分がありません。

>>14
型なし言語でクラスのまねごとし始めた時点で萎えました。
今後はObjectPascalで行こうかと考え中。

Perl6まで待ってくれ。

いつまで？

オープンしたファイルは、プログラムがexit;で終了するとcloseしなくても、勝手にクローズされるのでしょうか？

>>18
クローズされます。
exit 以外でも、終了するとクローズされます。

1. if ($string eq "hoge") {
2. if($string eq "hoge"){
3. if ( $string eq "hoge" ) {
4. if( $string eq "hoge" ){
どれが好きですか？細かいけど

1と4が一人ずつ

>>20 1でふ。
Perl6では、if/for/foreachなどの()は必要なくなりますが...。

>20
制御構造では空白を挟むのが一般的。(if, while, foreach, for ...)
パーレン中の両端は普通空白を入れない。(*)
よって「１」。

(*)条件式が複雑で、パーレン中の端に空白を入れた方が見やすくなる場合は
そうするかもしれない。

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

全角の文字列の一文字おきに、何か記号を付け加えるにはどうすればよいのでしょうか？

お願いします
↓
お<>願<>い<>し<>ま<>す<>

こんな感じにしたいのですが。

>>24
文字コードは？

EUCに変換して
s/([\200-\377]{2})/$1<>/g;

>21
Perl6 じゃなくても if/for/foreachなどの() が必要とは限らないだろ！

`kill -KILL _gunzipのPID` if $user eq '_gunzip';

>24
環境の文字コードを早く書け、ボケ！

質問なんですが、ハッシュのすべての要素に関して
添え字と値両方を操作したいんです。
例えば配列@aのすべての要素に関して
foreach $_ (@a) {print "添え字=$_";}
こういう感じのことを添え字が予めわからない場合
どのようにしたらいいでしょうか。

>>28
keys
each
などなどを検索

ありがとうございます！
調べてきます。

>>26
ありがとうございます。
sjisにも対応させるには
s/([\200-\377][\000-\377]|[\000-\377])/
でいいのでしょうか。
やってみたところ無事に動いてるっぽいのですが。

>>31
http://www.din.or.jp/~ohzaki/perl.htm#Character

ここって、初心者がくるところなんだぁ。 なんか安心した。

で、どういうことを質問すればいいの？

(´-`).。oO（>>33 あなたが 12〜15歳の女性なら、全身写真うpしてから話そうよ…）

Part11もうdat落ちしているよ… なんなんだ一体

ひろゆきはお金儲けに必死

過去ログ読めって言えないね…。
Part9、10はまだHTML化されてないし。

初心者の質問なんですが、HTMLファイルに直接、JavaScriptを書いて
IEで表示させると動くのに、それをCGI上でPerlで出力させたHTML文の中に
同じJavaScript(WSHでもいい)を書いて表示させると、ブラウザの
ステータスバーに「実行させたけどエラーになりました」という表示が
出て、期待通りの動作が起きないのは何故なのか、ご存知の方います？

>38
出力は期待通りにされてるの？

27に反応してください。おねがいします。

>>21 = Perl初心者

>>40
21もそれくらいは分かっていると思うのだが。

>>20
２！！

>36
儲かってますが、なにか？

>>27
for()、foreach()の()を外した例もｷﾎﾞﾝ。

修飾のばあいは()をはずせるが。
exp for @array;
exp foreach @array
exp if $str eq "hoge"

>>21 はPerl6では
foreach @array -> $item {
    exp
}
if $str eq "hoge" {
    exp
}
とかくようになる、ということを言いたかっただけだと思われ。
（つーか、修飾句の場合()を外せることぐらいgunzipは知ってるだろ.do-demoiigana）

間違えた。Perl6でもifの場合は()がいるな。鬱だ

やっぱり必要ないな。>>46のままでよし
朝から連続ですまんな。

>>46
うん、ソレだ！

ああ、PerlもC++と同じ間違った道を歩むのか・・・。

>46
_gunzip さん、わかりやすい解説ありがとうごさいました。

わざわさ _gunzip を gunzip と書いて別人になりすますあなたのやさしさ、
たしかにわたくしの胸を打ちました。

今後ともよろしくおながいします。

最後の部分で擁護するようなことを書いたから>>51みたいなアフォを呼び込んだか。
まあ、どーでもいいや。せいぜい頑張ってくらはい。

叩かれて当然です。

>>51
だよねー。 いつもの _gunzip さんの手口ね。

この板を盛り上げようとする心意気はわかるけど、名前を変えては煽ったり
するのってもうやめたほうがいいんじゃなーい？ そのほうが人が戻ってくる
ように思うのはわたしだけじゃないでしょ？

とりあえず、俺が居る限り消えてください。

こいつの1レスごとに、俺が50レスで荒らします。
そんなことになったら、他の人も困るでしょ？

あぼーん

>>45の回答もよろしくお願いします。

>52
あまりにも本質をついてしまったから、動揺しちゃったね。

>54
冷静に見てる人もちゃんといるんだね。

>>20
おれは1だな

52=54=58
と、おきまりのを書いてみるテスト。
さて、どんな言い訳が返ってくるか（藁）
それとも、おれが_gunzip認定されたりして。

aaaaaaaaaaaaaa

とりあえず、ウザイ

このスレ、もう駄目だね。誰かのせいで。

あぼーん

>>35
dat落ちを防ぐには850で次スレに移行とかしたほうがいいのかねー

>>65
そんな気がする。

>>65
だろうね。トレンド語るようなスレなら1000ｹﾞﾄｰしても
良いかも知んないけど、質問系スレは900逝く前に移行して
新しくスレ立つごとにうまくageてれば良いと思う。

あまり無いような状況だけど例えば
A,B,C,D,E,Fって処理があってどれもお互いカブってないような状況なら
サブルーチン化して&A;・・・&F;ってやるのと
ただABCDEFって並べるのなら処理速度的に後者の方が良いんですかね？

>>68
うん。目に見える違いが出るかどうかはさておき。

>>68
ちなみに、本当にサブルーチンをばらして並べる人がいたら、
漏れはその人とは一緒に開発したくない。

>>70
そなの? 漏れは長くなりすぎる場合は機能の区切りがいいところで分けちゃうけど……

>>71
言葉足らずだったかな？
「サブルーチンをばらしてABCDEFって並べる人がいたら、 」

ずーっとひととおりあちこちまわってみたけど、どこもかいてあることが
むずかしくてわっかりませーん。

ここ初心者のとこでもむずかしいのねぇ。 びっくりさぁね。
みなさんのレベルで初心者って、、、はぁ。 もう、わけがわかりません。

>>20
()内が単純なものなら2、複雑で読みにくくなったら4です。
スペース打つのがめんどいのと、極力横幅を縮めたいので。

gifcat ってあるじゃん？ gif画像くっつけるやつ。

標準モジュールの中にそれってあるのか？ だれでもいいから早めに答えろよ、
こっちはいそがしいんだからな。

いっとくが、とほほが配布してるやつはよせよ。うまくくっつかんからな。

それ以外でくっつける方法とかしってるやつがいたらもったいぶらないで教えろや。

>>75
それが人に教えてもらう態度か氏ねや

┌──────────────────────―─┐
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　 ／■＼　　　 　 　 　 　 　 　 　 　 ｜
│　　　　　　　　　　　　　　　（´∀｀∩）　　 　 　 　 　 　 　 　 　 ｜
│　　　　　　　　　　　　　　　（つ　　丿　　　　　　　　　　　 　 　 ｜
│　　　　　　　　　　　　　　　 （　ヽノ　　　　　　　 　 　 　 　 　 　 |
│　　　　　　　　　　　　　　　 し（＿）　　　　　　　　　　　　　　　　|
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　Now Onigiring. ...　　　　　　 　 　 　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　大変見苦しい場面がありました。 . 　　　 　 ｜
│　　 　 　 　 そのままおにぎりでお待ちください。.　 　　　　 　|
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 ｜
└───────────────────────―┘

そのサブルーチン内しか使わないような変数も全部my宣言した方が
良いんですか？例えばクッキーの要素とか。

>>78
もちろん。（例えば、で"クッキーの要素"を出すのはよく判らないが）
なるべく変数の有効範囲を狭くしたほうがいいかなと思うけど。

>>79
ありがとう。疑問解決したよ。何か俺の説明が悪かったね。
クッキーの要素ってのは、よく配布CGIスクリプトとかでよく見る
($year,$month,$week,・・・)みたいな奴のスカラ変数部ってこと。

フォームメールCGIでメールアドレスを登録してもらうときに全角英数字で
入力する人がいるので、全角英数→半角英数に自動で変換させたいんですが
どんなふうにすれば良いでしょうか？

>>81
jcode.pl 使っての変換ならこれかと
http://www.din.or.jp/~ohzaki/perl.htm#JP_Z2H

>>82
ありがとうございます！

ょぅι゛ょ

ba0ka

こてはんはおえ

このスレッドにコテハンが書き込み次第、このスレを処刑します。

コテハンですが何か？

今までに、コテハンが書き込んだログはすべて削除依頼を出してください。
これは命令です。

これあげるから、成仏してね。

@in1 = (0,1,2,4,5);
@in2 = (6,7,8);

@c = &sum(\@in1,\@in2);

print join(',',@c),"\n";

sub sum {
 my($a,$b,$i,@ret,$n) = @_;
 $n = $#{$a} > $#{$b} ? $#{$a} : $#{$b};
 for($i=0;$i<=$n;$i++) {
push(@ret,${$a}[$i] + ${$b}[$i]);
 }
 return @ret;
}

汚いコードだな。いかにも厨房らしい。

>>91
リアル厨房ですが、何か？

いや、分かってるって。
知恵遅れは消えたら？

騙っても、書くコードのレベルでばれる、とか書いたら本人認定ですか？

>>94
騙ってませんが。

>>94
認定（ｗ
つーか、本人は前スレ475でちゃんと書いてるしね。

>>95
騙ってるじゃん・・・

>>97
私がホンモノですが。

このスレッド専用の名無しさんです。

くそー、オレのコテハンがぁ（泣

>>100
なにか一席どうぞ。

>>101
朝練あるんで、もう寝ます。

７５の質問にだれも答えてないじゃないか！ なにやってんだよ、役立たずが
多いスレなのか？

９０のような低レベルなこと書いてる場合じゃねーだろ！

こっちはいそがしいんだよ。 もうすこしだけまってやるからはやくしろよ。
役立たずどもはどっかいっちまえ。

(´-`).。oO（>>103 はカルシウム不足かな？…）

(´-`).。oO（カルシウム不足には牛乳だよな。_gyunyuなんちって…）

"_"には何の意味が。

>>106
最新流行の予感。

くそっ
先を越された

>103
引きこもりに忙しいとかあるの？

なんか妙に荒れてんなぁ。
煽ってるのはいつものように一人だとは思うが…。

強制IDにならないかな。

perlを勉強しはじめて2日目のタコですが、
よろしくお願いします。

REMOTE_HOSTと、HTTP_USER_AGENTと、HTTP_REFERERを
取得して、それを同じディレクトリのdata_log.txt に
書き込んでいく、というCGIを作りたいのですが、
いろんなサンプルを見ながらツギハギで書いてみたのですが、
どうしてもここから先がわかりません。
CGIで外部ファイルに書き込みを行うにはどのような処理を
行えばいいのでしょうか？
ご教授いただければ幸いです。

ソースです。

#!/usr/local/bin/perl

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

#情報取得部

$host = $ENV{'REMOTE_HOST'};#クライアントのIPを取得
$user_agent = $ENV{'HTTP_USER_AGENT'};#クライアントのブラウザ
$referer = $ENV{'HTTP_REFERER'};#飛んできたサイト

#情報表示部

print "<b>REMOTE_HOST</b>: $host";
print "<BR>";
print "<b>HTTP_USER_AGENT</b>: $user_agent";
print "<BR>";
print "<b>HTTP_REFERER</b>: $referer";
print "<BR>";
print "<BR>";
print "<a href=\"http://localhost/~aya/cgi/data_log.txt\" target=\"_blank\">ログを表\示</a>";

#情報記録部（？　data_log.txt）
sub write {
open(LOG,"+<$data_log.txt");
@logs=<LOG>;
unshift(@logs,"$host,$user_agent,$referer\n");
seek(LOG,0,0);
truncate(LOG,0);
print LOG @logs;
close(LOG);
}

>113
>open(LOG,"+<$data_log.txt");
この$が邪魔なんじゃない？

>>114
うっス！取ってみますッス！

うっス！

open(LOG,"+<$data_log.txt");
$取って見ました！

ログを表示してみたところ、
何も書き込まれていませでした！(T-T)

&wirte;呼んでないじゃないか。

>117
タイプミス。
&write;

>>116
当たり前だろ．どこかでwrite()すれ．

>>117
なるほど！subっていうのをどこかで呼ばないとダメなんですね！

…どうやって呼ぶのでしょうかm(_ _; m？

ｶﾌﾞﾀｰヽ（ ´ー｀）ノ

>>120
&write;
と、書くだけですね
それにしても2日でこれだけのソースを書くなんてすごいですね

こうしてみました！
失敗しました！(T-T

print "<BR>";
print "<BR>";
print "<a href=\"http://localhost/~aya/cgi/data_log.txt\" target=\"_blank\">ログを表\示</a>";
write();

#情報記録部（？　data_log.txt）
sub write {
open(LOG,"+<data_log.txt");

わあああああああああああ！！！！！
できました！！！！！！
みなさん、ありがとうございます！！

解決したソースです。

#!/usr/local/bin/perl

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

#情報取得部

$host = $ENV{'REMOTE_HOST'};#クライアントのIPを取得
$user_agent = $ENV{'HTTP_USER_AGENT'};#クライアントのブラウザ
$referer = $ENV{'HTTP_REFERER'};#飛んできたサイト

#情報表示部

print "<b>REMOTE_HOST</b>: $host";
print "<BR>";
print "<b>HTTP_USER_AGENT</b>: $user_agent";
print "<BR>";
print "<b>HTTP_REFERER</b>: $referer";
print "<BR>";
print "<BR>";
print "<a href=\"http://localhost/~aya/cgi/data_log.txt\" target=\"_blank\">ログを表\示</a>";
&write;

#情報記録部（？　data_log.txt）
sub write {
open(LOG,"+<data_log.txt");
@logs=<LOG>;
unshift(@logs,"$host,$user_agent,$referer\n");
seek(LOG,0,0);
truncate(LOG,0);
print LOG @logs;
close(LOG);
}

みなさん、わかりやすいアドバイスを有難うございます。
ここから、いろいろ応用できそうで、わくわくしてます♪

>>122
いえ、自力ではないです(^-^;
いろんなCGI配布サイトさまの、サンプルをかき集めて、
切り貼りしましたです。
アドバイス…というか、ズバリ回答を、ありがとうございました。

>>126
それでも自分でやった実力はつくと思いますよ
俺もまだ初心者ですがお互い頑張りましょう。

>>127
ありがとうございます。
私も早く回答者さんに回れるように、がんばります。

>>123
あ，write()だと組み込み関数のwriteになっちゃうのか．
&表記をしないのであれば ::write() だったね．ｽﾏﾝｶｯﾀ．

>>129
いえ、とんでもないです。
そういう場合もあるんですね。
勉強になりました♪

(´-`).。oO（>>125 <HTML><HEAD> ぐらいは書こうよ…）

ｼｮｯﾋﾟﾝｸﾞｶｰﾄの作り方教えろ

(´-`).｡ｏＯ（>>131それを言うなら<title>でしょ…<html>も<head>も省略可能だよ…）

>>133
ダウト

>>134
(´-`).｡ｏＯ（XHTMLじゃダメだけどね… http://www.w3.org/TR/html401/index/elements.html 板違いｽﾏｿ…）

>>135ﾊｧ？

JavaScriptをStringfromCharCodeに変換するツールって あるんですか？

>>137
どゆこと？

>>138
JavaScriptの内容を 数字化して素人さんに解読されないよーにしたいんですけど

携帯からの訪問かどうかを調べるには、どのようにすればいいんでしょうか？

>>139
お馬鹿さん？

>>139
素人さんは解読しないから大丈夫だよ。
つーか、StringfromCharCodeって、JavaScriptの文自体を生成できるんかいな？

>>140
携帯からのアクセスだと、i-modeなら必ずdocomoのサーバーを
介してくる要求が来る筈ですし、c-htmlなんかを要求された
場合などが、見分けるヒントになりませんでしょうか？
素人見解ですいません。

>>141
そーかも…
>>142
出来ますよ 実際ソース見ると
eval(String.fromCharCode(数字))
て、具合でしたから

>>144
おー、なるへっそ。それは面白いねぇ。
そのソースがあるサイトのURLｷﾎﾞﾝ。

>>145
ソース隠しとか
http://hp.vector.co.jp/authors/VA013453/temp/junk_index.htm
↑のver2.11ってところ

>>137
スマートな隠蔽はスマートに解読されがち。
document.write("（ﾟДﾟ）ｺﾞﾙｧ world!!"); するのに400行くらいのダミー行を用意すればいい。
詰まるところ木を隠すなら森。更に言うならば板違い。

>>147
すいません板違いで
ありがとうございました

>>148
ありゃ、行っちゃったかな。まぁいいや。

#!/usr/bin/perl

undef $/;
$_ = <>;
s/^(.*?)=//o;
s/\+/ /og;
s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/oge;
$mes = $_ ? $_ : "ここに入れる";
$_ = join(", ",unpack("C*",$_));

print <<"EOF";
Content-Type: text/html

<form action="stringToCharCode.cgi" method="POST">
<textarea name="in" cols="80" rows="30">$mes</textarea>
<input type="submit">
<input type="reset">
</form>
eval(String.fromCharCode($_));
EOF

(´-`).｡ｏＯ（>>149価値のないソースを見せてもらってﾜﾗﾀ)

>>149
文字化けします
perlじゃ無理なんですね

>151
とりあえず、JavaScriptで書いてみた。JavaScriptは初めてなので適当ですが、
IE5で動作しました。得られたコードは、Netscape4では動かない可能性が高いです。
特に、日本語が含まれるとき。

<html>
<head>
<SCRIPT>
function toCharCode (str) {
   var i = 0;
   var ret = "eval(\n\tString.fromCharCode(\n\t\t";
   var tmp = "";
   
   if (str != "") {
      
      while (i < (str.length - 1)) {
         ret += str.charCodeAt(i) + ", ";
         ++i;
         if (i % 16 == 0) {
            ret += "\n\t\t";
         }
      }
      ret += str.charCodeAt(i);
   }
   
   ret += "\n\t)\n);";
   document.ret.text.value = ret;
}
</SCRIPT>
</head>
<body>
<form name="form" method="POST" action="">
<textarea rows="15" name="text" cols="82"></textarea><br>
<input type="button" value="変換" name="btn_tr" onClick="javascript:toCharCode(document.form.text.value)">
</form>
<form name="ret" method="POST" action="">
<textarea rows="15" name="text" cols="82"></textarea><br>
</form>
</body>
</html>

あれれ、
<SCRIPT>　→　<SCRIPT LANGUAGE="JavaScript">
var tmp = ""; ←ゴミ

厨房質問ですいません。
use strict;って何の為にするんですか？
やると処理が早くなるとか、サーバー負荷が減るとかそういう効果が
あるんですかね？

www.eseven.jp

ウェッブに関するご相談はこちらまで
ホームページ作成からＣＧＩ構築まで
国内有数のデザイン・センスとトップクラスのコンピューター・スキルを
あわせもったスタッフが対応します

>>140
どこからか落としたものデス

$agent = $ENV{'HTTP_USER_AGENT'};

if($agent =~ /^DoCoMo\/\d+\.\d+\/([^\/]*)/i){$name = "i-mode";}
elsif($agent =~ /^J-PHONE\//){$name = "J-Skyweb";}
elsif($agent =~ /^UP\.Browser[^-]*-(\w*) /i){$name = "EZweb";}
else{$name = "PCその他";}

>>154
グローバル変数の使用に警告を出したり間違いの可能性を指摘してくれたりします。
貴方の言う効果はありません。
でも出来るだけ書くことをお勧めします。
貴方以外の人がそのスクリプトを読むときに色々と助かります。

>>157
なんでプラグマとモジュールが同列に扱われてるんですか？
すごく違和感があるのですが。

>>158
つーより、プラグマモジュールだろ。
perldoc perlmodlib

>>158
元来Perlはそういったあらゆる制約を嫌う言語だからです。
自由な記述が出来るよう配慮したのではないでしょうか。

文字列から任意の文字列を削除するにはどうしたらいいんでしょうか？
たとえば

あういうえあいうえいあいうえ

から　'いう'　だけを削除したいときとか。

~tr/いう//d;　ではすべての　「い」　と　「う」が削除されちゃいますよね。

>>161

文字列 =~ s/いう//g;

>>161
s/いう//g;

そもそもtr/いう//d; って動くの? JPerl?

ｹｺｰﾝするか…

>>162
>>163
ありがとうございます。perl歴3日はだてじゃなかったです。

>>163
例えを日本語にて行ってみました。

JPerlさいこー

use strict
を使用していますが、サブルーチン内で突然宣言したグローバル変数にエラーを出してくれません。
仕様なのでしょうか。

　何も知らない無知者です。これから簡単なHPを作ろうと思います。
よくプロバイダのホームページなどに「HP作成」コーナーがありますが
そういうとこ行く場合でも、お店で売ってる「HP作成ソフト」は買って
おかないとお話にならないんでしょうか？　
　パソコンの種類はibookというものです。
　

>>168
そんなもん買ったら、目もあてられない。
まずはPerl本を買いなさい。

use strictって単純に個人でスクリプト使用する場合意味無くね？

>>167
そりゃ宣言したらエラーは出ないだろ

>>170
まぁそりゃ一回書いて二度と見ない・手直ししないスクリプトや１行
スクリプトならね・・・

でも基本的には意味ある・意味ないの問題ではなく、その後問題に
ならないように癖としてつけておくべきものだと思ふ。

>>171
たしかPHPではグローバル変数はサブルーチン内で作成できないと思いましたが、
Perlでは間違って変数をグローバル宣言してしまっていてもわからないのですか。

>>167
なんだ、宣言って。local $global;とでもやったのかね。これって
全然グローバルじゃないって事わかってるだろうね？

掲示板を作ってるんですが
同じ内容の投稿を禁止するには
どうすればいいかわかりますか？

追加：”同じ人”の同じ内容

>169 perl本とは何ですか、参考書みたいなもの？
そもそもperlという言葉の意味を簡単でいいので教えれくださ

>175
発言を記録する前に、発言者＆内容と、最新の記事の発言者＆内容を比較。
具体的なやり方が知りたければ、二重投稿禁止機能のあるＢＢＳを探してそのソースを見るといい。
無料配布のでもたくさんあるだろ。

>177
http://www.google.com/search?num=100&hl=ja&as_qdr=all&q=perl%82%C6%82%CD%82%C8%82%C9%82%A9&lr=lang_ja

>>173
ourはブロックスコープでuse varsはパッケージスコープを持っているので，

use strict;
sub hoge { use vars qw($hage); $hage = 'sage' }
hoge();
print "$hage\n";

は合格で，

use strict;
sub hoge { our $hage = 'sage' }
hoge();
print "$hage\n"; # Error!

は失格．

ちなみにstrict 'vars'が怒るのは
　・パッケージが指定されていない
　・パッケージ内でuse varsされていない
　・ブロック内でmy，ourされていない
という条件を全て満たす変数にアクセスしようとした場合のみです．

間違ってグローバル宣言する事はまず無いと思うけど，宣言しただけではエラーは出ません．

>>178
レスどうもありがとう
がんばります

何かにつけ、小一時間問い詰めたいと言うバカの何チャラがいる板は
この辺ですか？

サブルーチンの中の変数をmy宣言すると、
参照渡しできなくなるのですか？

出来るよ。聞く前に試した方が早いと思うが・・・

>>183
自分で確かめてみよう。

URLを貼ってもオートリンクが効かない掲示板のcgiスクリプトを使っているんですが、
自動的にリンクされるように設定したいんですが、
簡単に書きかえれるものなんでしょうか？
それともおれみたいな初心者は無理でしょうか？

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

>>180
親切に教えて頂きありがとうございます。
わたしのグローバル宣言とは、タイポで未宣言の変数名に
$abc="abc";
のように、存在しているかのように値を入れたことです。
エラーがでなかったので特定に困りました。
パッケージはプログラムの最初に宣言していました。

>>188
あれ？　それは use strict; していればきちんと怒られると思うのですが……．

パッケージ云々について少し伝わらなかったような気がするので補足します．
これはプログラムの最初でパッケージ宣言をしているかどうかは関係ありません．
>>180でエラーになっていたところ
　print "$hage\n"; # Error!
がありましたが，この場合でも
　print "$package_name::hage\n"; # OK
のように変数にパッケージ名を指定すれば怒られずに済むという事です．
この際そのパッケージが実際に存在しているかどうかは問いません．

ぱっと見で参照先が特定できない変数を見つけたらエラーを出す，
というのが use strict 'vars'; です．

あと，Typoを防ぐのであれば /perl -w するのがよろしいかと．

このスレこの板で一番まともで優良な気がするのは漏れだけ？

前の方の荒らしレスを見ても？

その荒らしが少ない。
教える方がコーマンチキじゃない（これが素晴らしい）
初心者は結構すぐに礼をしてる。

って辺りを言っているんだが、こういうこと書くと意図的に荒らす奴とかでそうだな。

>>192
教えるほうについては、たまたまそういう解答者がいただけだね。
荒らしについては、いつもの彼が連休でどっか逝ってるんでしょう。

>>192
初心者スレッドは初代からそんな感じですね。
役立つので過去ログ捨てられない。

>>184-185
下のスクリプトなのですが、local宣言をmy宣言にすると
   Can't declare ref-to-glob cast in my at foo.cgi line 10, near ")="
   foo.cgi had compilation errors.
となってしまいます。どこを直せばよいのでしょうか？

#!/usr/local/bin/perl

$str='ギコギコニャーニャー。トカトントン';
print "$str\n";
&str_omit(*str,16,'…');
print "$str\n";

sub str_omit
{
   local(*str,$size,$omit)=@_;
   local($buf)=substr($str,0,$size);
   
   if($buf!~/^([\x00-\x7f]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$/){
       $buf=substr($str,0,$size-1);
   }
   if(length($buf)<length($str)){ $buf.=$omit; }
   $str=$buf;
   return "$str";
}

__END__

>>188
サブルーチンを別ファイルに追い出して 呼出し側で use strict しているとか。

>>195
型グロブをやめれ。その必要も無いし。

>>195
敢えて型グロブを使うなら

×
my(*str,$size,$omit)=@_;

○
local *str = shift;
my($size,$omit)=@_;

あぼーん

二度と出てくるな！！！！！！！！

>>199-200
おまえはカルシウム不足だから、煮干しでも喰っておけ（ｗ

>>200
お前がな。

>>192
な。ちゃんといるだろ？

>>203

お前を見てるとむかつくんだよ。死ね！！！！！！
死ね！

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■


（省略されました・・全てを読むにはここを押してください）

掲示板とかのログファイルをダウンロード(閲覧)できないようにするにはどうしたら？

>205
・.htaccessで制限
・ログの拡張子を.cgiや.plにしてしまう
サーバーによって使えたり使えなかったりするけど。

ちなみにコーディングの話じゃないからスレ違いな。

>>205
せっかく書いちゃったので。

ログ入れてるディレクトリの .htaccess で
<Files "*.log">
Order allow,deny
Deny from all
</Files>

>>207
それをしてもCGIから読み込みできますか。？

>208
出来ない方法を教えられてると思ったか？
出来るよ。

>>188 >>189
調べたところrequireしたplファイル内のサブルーチンで
宣言するとエラーにならず、メインのルーチン内で宣言するとエラーになるようです。

>>197-198
すいません。型グロブというのはよくわかりません。
Cのようなポインタ渡しをPerlで行う方法はありませんか？

>>208
試せば分かることじゃん。まず自分で試そうよ。
もちろん、悪意のあるアドバイスかもしれんので、apacheの<Files>
の意味を調べてからね。
http://japache.infoscience.co.jp/japanese_1_3/manual/mod/core.html#files

で、CGI内でのファイルの読み書きは、httpd(webサーバ）とは関係ないので、
いくらでもできるよ。
system("cat /etc/passwd");
とか。

　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　|　>>209
　　　　　　　|　うるせーモカ！うるせーモカ！うるせーモカ！
　　　∧ ∧ |／＼＿＿＿＿＿＿＿＿＿
　　　(,,ﾟДﾟ)＿＿＿＿.
　　　（つ/~　※　※　＼
　　　／※　※　※　※　＼
>>205じゃないよ

>>211
↓調べてみた。型グロブ。
http://www5a.biglobe.ne.jp/~n_rieko/perl/1.htm

リファレンス渡しについては
perldoc perlref

ユーザに設定を任せた配列をコピーする場合、あればそのまま、
無ければデフォルト値をセットしたいのですが、変数で
よく使われるテクニック(?)が使えませんでした。

@week = qw(日 月 火 水 木 金 土);# ユーザ任せ
my @week = @week || qw(Sun Mon Tue Wed Thu Fri Sat);

これでは $week[0] に配列の要素数が入るだけのようでした。
それで考えたのは下記ですが、もっと簡単な方法ありませんか？

my @week = @week ? @week : qw(Sun Mon Tue Wed Thu Fri Sat);

すいません、「簡単」というか「普通はこうするよ」ってな
セオリー通りのやり方が知りたいのでした。宜しくお願いします。

>>215
@week or @week = qw(Sun Mon Tue Wed Thu Fri Sat);

変数だったら $var ||= $default; が普通かなー。

>>217 それ簡潔でいいですね、有難う御座いました。変数の方もスッキリしてます。

if ($in{'name'} =~ /★/) { $in{'name'}=~ s/★/☆/g; }
if ($in{'name'} eq "#pass") { $in{'name'} = "管理人 ★"; }

これでキャップと似たようなものになるはずなんですが、
パスを打って書き込むと「管理人 ★」になるはずですが
「管理人 ☆」になってしまいます。

どうすればいいのでしょうか？

>>211
型グロブがよくわらんって、あなた自分で使っているやつだよ。
local(*str,$size,$omit)=@_; って書いてる、*strの部分。
型グロブには my は使えんから、>>195のエラーが出るって
とこまで書かないとダメかいね。
しかし、なんでスカラ値渡すのに、リファレンスや、型グロブが
必要なのか謎。

>>219
パス付きでも何でもいいけど、
書き込んだ時にどういう順番で処理されるかをもう一度考えてみれ。

あと、if ($in{'name'} =~ /★/) { $in{'name'}=~ s/★/☆/g; }は
$in{'name'} =~ s/★/☆/g; で十分。

>>219
#passに★が含まれてるんじゃねーの?

>219
if ($in{'name'} eq "#pass") { $in{'name'} = "管理人 ★"; }
else{$in{'name'} =~ s/★/☆/g;}
としておけば問題は起こらないと思われ。
これでもまだ「管理人 ☆」になるなら、
１：プレビュー画面を挟んでいないか
２：この処理が2回以上行なわれるようになっていないか
を確認するべき。

219です。
再確認してみたら

if ($in{'name'} eq "#pass") { $in{'name'} = "管理人 ★"; }
if ($in{'name'} =~ /★/) { $in{'name'}=~ s/★/☆/g; }

と書かれており、上下を入れ替えて試してみたら正常に動作しました。
つまり、ただ自分がミスしてただけでした(w

>>221-223
質問に答えてくれてどうもありがとうございました。

初心者なんですが、これでまちがいないでしょうか？

if ($in{'name'}=~ /アホ/) { $in{'name'}= 'Dream ★'; }
elsif ($in{'name'}=~ /無能/) { $in{'name'}= '_gunzip'; }
elsif ($in{'name'}=~ /厨/) { $in{'name'}= '弐編'; }

>>225
あ、そのコードを使うなら、下に2行足さないとダメですね

elsif ($in{'name'}=~ /用(無|な)し/) { $in{'name'}= 'pear'; }
else{ $in{'name'}='その他名無し'; }

500KBほどのファイル300個に対して、ファイル検索をしたいのですが、
効率の良い方法はありませんか？
ファイルの一覧は、@filesに格納してあります。
入力された、$in{'word'}が含まれるファイルをリストアップしたいのです。
よろしくおながいします。

>227
楽勝だな！

>>227
{
    my $tmp;
    @files = grep {
        open  FILE, $_ or die;
        read  FILE, $tmp, -s FILE;
        close FILE;
        $tmp =~ /\Q$in{'word'}\E/;
    } @files;
}

{
    my $tmp;
    @files = grep {
        open  FILE, $_ or die;
        read  FILE, $tmp, -s FILE;
        close FILE;
        $tmp =~ /\Q$in{'word'}\E/o;
    } @files;
}

すまん、/oつけ忘れた。

全くの初心者です（このスレできくべきなのかもわからない）
でも作りたいものはあります。

まず、お手数かけて恐縮ですがこのサイトを見てみてください。
http://kooks-highhat.com/jpn_index.html
ここの「カラーピックアップシステム」では、何種類もの色と柄を
自由に組み合わせてオリジナルＴシャツ作りのシュミレーションができる
ようになっています。
私は、こういったことをＴシャツの色と柄ではなく、
「複数種のワイシャツ（写真画像）」と「複数種のネクタイ（写真画像）」を自由に組み合わせて
シュミレートできるようなシステムを作りたいと思っています。

しかしながら全くの初心者のため、どんな言語をどんなふうに使えばできるのか
さっぱりわかりません。
どなたか教えて下さいませんか？
とりあえず「すぐわかるＰｅｒｌ」とかで学べばよろしいのでしょうか？

>>231
PerlとGDで出来そうだけどね。
Javaとか使った方がパフォーマンスは良いかと。

>>231
それなら、CGIじゃなくてJavaScriptがｲｲと思う。
もしくは、Flash

>>226
コテハンは死ね！

(　´,_ゝ｀) ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ ﾌﾟ

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
gdsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgsdgs
xs5r6rs56rs56rs56rs56rs56rs56rs56jtx,7wz434w34w34w34w34w34w34w34w34w34w34,........

程度ひくぅ(p

このスレの1だが、あまりに程度が低いので終了とします。

>>234
うんうん

とんでけ

コテハンはみんな無能。
スキルの低い奴ばっかり

呼んだ？

>>241
ばかばっｋあ（藁

コテハンはみんな無能。
スキルの低い奴ばっかり

サブルーチンの引数でハッシュの参照渡しってどのようにするのですか？

コテハンなんてなぁ、所詮はしろーとなんだよ(ﾜﾗ
要するに初心者以下のレベルってことよ(ｹﾞﾗ
おめーら小学校からやりなおせよ(ﾊｹﾞﾜﾗ

>>245
foo(\%bar);

229=230=Mr.ohzaki?

p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;p;

>>246
しろーと か否かはレベルではなく、収入を得ているかどうかです。あしからず。

sub hashtest(\%){
my (%s) = @_;
my %test;

%h_test = ("1", "h1",
"2", "h2");

%$s = %h_test;
}

これでは駄目でしょうか？

訂正：
my %test; -> my %h_test

>>251
my ($s) = @_;

リファレンスは常にスカラー値。

>>250
出てくるな。ヴォケ

＞＞２５４
はげ指導医

＞＞２５４　　　　　　　　
激しく同意

次は＞＞２２６がターゲットです。

>>254
それ、オレのコテハンだったのに・・・
もういいもん。

煽り専用の共用コテハンかと思うて使っただけなのだ。
すまど

>>259
じゃ共用でOKです。

┌──────────────────────―─―┐
│□ ■2ch BBS . − Microsoft Internet Exploｒer 　 　 囗曰区| |
├───────────────────────┬─┤
│ﾌｧｲﾙ(F)　編集(E)　表示(V)　お気に入り(A)　ﾓﾅｰ(∀) 　 |::田｜
├────────────────┬──────┴─┤
｜　← 　 　 → 　 　 × 　 　 圍　　 　合　　|　　　Ｑ 　 　 　 　 　》｜
｜ 戻る 　 進む 　 中止　　更新 　ホーム |　　検索　　　 　 　 　 |
├────┬───────────┴──┬─┬───┤
│ｱﾄﾞ ﾚｽ(D) | □http://www.2ch.net/2ch.html. . ｜▼｜⇒移動｜
├────┴───┬┬─────────┴─┴──┬┤
│ 　 　 　 　 　 　 　 　├┤　　　　　　　　　　　　　　　　 　 　 　├┤
｜２ちゃんねる..　　　 ｜｜　　　　　　　　　　　　　　　　　 　 　 ｜｜
│2chの入り口.. 　　　｜｜　　　　　　　　　　　　　　 　 　 　　　｜｜
│2ch総合案内┌───────────────────────┐
│.　　 　 　 　 　 | 2ch. 　 　　　　　　　　　　　　　　 　 　 　 　 　　 　 　　　　　｜
│　　　　　　　　├───────────────────────┤
│おすすめ　　　| 1は不正な処理を行いました 。 　 　 　 　 ┌───┐　　|
│モナー　　　　｜ 残念ですが１の人生を 　 　 　 　 　 　 　 ｜ 終了.... |　　｜
│　　　　　　　　｜ 終了させてあげて下さい。(推奨). 　　　　└───┘　 ｜
│　　　　　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ｜
│　　　　　　　　└───────────────────────┘
│特別企画 　 　 　 　├┤　　　　　　　　　　　　　　　　 　 　 　├┤
├┬──────┬┼┼┬────────────┬┼┤
├┴──────┴┴┴┴──┬─┬─┬─────┴┴┤
│□ エラーが発生しました　　　　｜　 ｜　 ｜●インターネット　|
└─────────────┴─┴─┴───────┘

http://cgi.members.interq.or.jp/www1/q-mail/gh/img-box/img20020502225058.jpg

タグの中を英字を大文字→小文字にするにはどうすればいいんでしょうか？
ただ、<img src="image.png">などの場合の""の中は変換したくないのですが。

>263
すっごいめんどうくさい正規表現を組む。

>>263
$str = join '', map {
    /^</ and $_ = join '', map { /^"/ or $_ = lc; $_ } split /("[^"]*")/; $_
} split /(<[^>]*>)/, $str;

$strにHTML文書を入れれ。

>265
alt='この中では"が使えます'
が入ってた場合は？

>>266
$str = join '', map {
    /^</ and $_ = join '',
        map { /["']$/ or $_ = lc; $_ } split /(["'])([^\1]*\1)/; $_
} split /(<[^>]*>)/, $str;

こんな感じかな？　適当ｽﾏｿ。

#! c:/perl/bin/perl

print "Content-type: text/plain\n\n";
print "Hello Perl !";

これをローカルで試そうとして、http://127.0.0.1/chapter1/1.cgi
と入力しました。が、なぜかダウンロードしてしまいます。（保存するか聞いてくる）
text/htmlにするとちゃんとブラウザに表示されます。
解決策教えてください。

どういう風に解決したいのかがわからん・・・・

>>268
いろんなブラウザで試してみた? IEだとたまにそうなる。

>>269
ダウンロードせずに、結果をブラウザで表示させたいんです。

>>270
Netscape６で確かめたらちゃんとできました。Opera6.01だとだめでしたが。
どうもありがとうございました。

ファイル情報を取得するにはどうすれば良いですか？

>>272
ファイル情報って例えばドンナンデスカ

スカラ変数 = (stat(ファイルハンドル または ファイル名))[インデックス番号];

---------------------------------------------------------------------

インデックス番号

0 →　ファイルシステムのデバイス番号
1 →　iノード番号
2 →　ファイルのモード
3 →　ハードリンクの数
4 →　ファイル所有者のユーザID
5 →　ファイル所有者のグループID
6 →　デバイスID
7 →　ファイルサイズ（バイト単位）
8 →　最終アクセス時間
9 →　最終変更時間
10→　iノード変更時間
11→　ファイルシステムI/Oの最適ブロックサイズ
12→　　割り当て済みのブロックサイズ

data.datというファイルの最終アクセス時間を取得する場合は

$accesstime = (stat(data.dat))[8];

という感じ

>267
それだと Foo="Bar" の組み合わせが複数あると最初の一つしかできませんでした。
というか自分がその事書いてなかった。。逝ってきます。

>>275
Web上のファイル情報は取得できないのでしょうか？

>>276
ごめんなさい……。
直すついでにPerlメモの『HTMLタグの正規表現』（のコメント抜き）を取り入れてみました。
ttp://www.din.or.jp/~ohzaki/perl.htm#HTML_Tag

my $tag_regex_ = q{[^"'<>]*(?:"[^"]*"[^"'<>]*|'[^']*'[^"'<>]*)*(?:>|(?=<)|$(?!\n))};

$str = join '', map {
    /^</ and $_ = join '',
        map { /["']$/ or $_ = lc; $_ } split /(["'])(.*?\1)/s; $_
} split /(<$tag_regex_)/o, $str;

で、試してみたら <!DOCTYPE まで小文字になって鬱。

>>278
<!DOCTYPE

って、必ず１行目だっけ？だったら、最初の１行目だけスキップすれば？

>>279
xml宣言もあるのでそうとも限らない．
まあ指摘の通り>>278に特殊な場合の処理を足していけばいいだけだね．

>>280
カキコしたあとで気づいた…
１行目に記述されてても、複数行に渡って書いているのもあるな…

>278-281
うまく動きました。ありがとうございました。
あと、<!DOCTYPEは削除してしまうので特に問題ないです。

初めまして。
さっそくですが、質問です。
これはどういういみですか？第２引数がわかりません。
push(@sqcookie, "${name}_${value}");

http://と打つと自動的にリンクされるようにしたいのですが（本文の変数は$FORM{'comment'} ）

$url = '([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)';
$FORM{'comment'} =~ s/$url/<a href=\"$url\" target=\"_top\">$url<\/a>/g;

こうしても上手くリンクされますか？

誤字

こうしても上手くリンクされますか？
↓
こうすると上手くリンクされますか？

>>284

そのコードで動かしてみればいいじゃん

>>277

ファイル情報って具体的にどういう情報を知りたいんだYO

>>286
おれもそうおもったｗ

$scalar = "10";

$scalar += 10;

とやらないで,いきなり

$scalar += 10;

とやるとスカラ変数'$scalar'にはundef値である0が代入されていますが

このundef値って何て読むんですか？アンダフ値でいいの？

284です。
実際に試してみましたが、無理でした･･･。

どうすればURLが自動リンクされるのでしょうか？

>>289
あんでふじゃない？
定義されていないって意味

なるほど　アンデファイン undefine　の略か

じゃあ人前で使うときはアンデファインでいいや

>284
後方参照（$1とか$2とか）は知ってる？

>>293
すみません。
全然知りません。
KENT WEBのCGIにはあったけど･･･

undefinedだろ　ﾎﾞｿ

　　　　　＿,∩＿　　　　　　　　　＿,∩＿　　　　　　　　 　 ＿,∩＿
　　　　（＿＿＿__)ゝ、　　　　　（＿＿＿__)　 　 y　　　　 （＿＿＿__)
　　　　/　::　::　:: ヽ　〉　　　　　/-‐::　::‐-ヽ　／　　 　 　 /　::　::　:: ヽ
　　 _./ （・ ）ll（・ ） ∨　　　　 _/　 0) i! 0)　∨　　　　　 _/ （ ・）i!（・ ） ﾞ､_
　／/ ::　:: ∈ゝ ::　::ヽ　　 ／/　::　 ‐-‐　::　ヽ　　　 ／/　 ::　ｰ一　::　ヽ＼
. ゝ/::　::　::　　::　::　::ヽ　 ゝ/　::　::　 ::　 ::　:: ヽ　　 ゝ/　::　::　 ::　 ::　:: ヽく
　　￣￣ |￣￣ |￣￣　　　 ￣￣ |￣￣ |￣￣　　　　￣￣ |￣￣ |￣￣
　　 　 　 | 　 　 |　　 　 　 　 　 　 | 　 　 |　　　　 　 　 　 　 | 　 　 |
　　　　⊂! 　 　 !つ　　　　　 　 ⊂! 　 　 !つ　　　　　　　 ⊂! 　 　 !つ 　　　 　
教えてあげないよ！ジャン！

>>295

そうなの？

>>284
()でくくった部分にマッチした文字列は$1とか$2で参照できる。

$FORM{'comment'} =~ s/$url/<a href="$2" target="_top">$2<\/a>/og;

>>277
HEADでヘッダだけ持ってくれば、
ある程度わかるよん。

imode用の「accesskey=」をcgiにリンクさせたいんですが、どうすればいいでしょうか？

>>284
役に立たない細かい事を色々と。$urlの中の([^=^\"]|^)は余分。

あと、文字クラス[〜]の中ではほとんどの文字はエスケープしなくてもいい。
ただし"-"はマジカルインクリメント（例：[a-z]）の効果があるから最初か最後に置く。
[\w\.\~\-\/\?\&\=\@\;\#\:\%]+ → [\w.~/?&=@;#:%-]+

つかここで聞くよりPerlメモを・・・・　（ﾎﾞｿ

>>300
意味がわかりません。

<a href="test.cgi" accesskey="1">
ということかな？

>>301
マジカルインクリメントは ++ っしょ。

別スレでやったらスレ違いっぽかったので　こっちで

\n\n〜 と複数続いていたら
\n一つだけに　やるのは　どうすればよいのでしょうか？

s/[\n]*$/\n/g
でうまくいきませんでした

s/\n+/\n/g;

>>305
ありがと

>>303
マジカルインクリメントって .. じゃねーの？

>>307
ちがうー。

>>308
そなの？　perlopのRange Operatorsにそれっぽい事が書いてあったんだけど。
++はどうマジカルなの？

パターンマッチングについて質問させてください。
テキストファイル内の文字列をjcode.plにてEUCに変換後、
ひらがだけを抜き出したいのですが、検索対象文字リストを
tr/ぁ-ん//cd にすると結果が文字化けしてしまいます。
この場合、検索対象文字リストはどのように指定したら良いのでしょうか？

>>309
Perlでは、数字じゃないものもインクリメントできるから、マジカル。
perlop の　Auto-increment and Auto-decrement のとこに
「オートインクリメントオペレータには、ちょっとしたマジックが
仕込んである」と書いてある。

perlopには
「レンジオペレータは、数字じゃないものが来た時、マジカルインクリメント
　アルゴリズムを使う」
って書いてあるよぅ。

>>310
オレは、そういうときは jperl　を使います。

>>312 さん
やっぱりjperl使うしかないのですかねぇ・・・。

>>310
>>3の[お薦め]に載ってるPerlメモってサイトを参考にしてみては？

>>311
んー。諒解しました。本家は ++ なわけね。

質問です。
ログファイルの$hoge[3]にそれぞれ数字がありまして
その数の合計を求めるにはどうすれば宜しいのでしょうか？
ログファイルは\tで区切ってあります。

>>314 さん
実はすでにあちらのメモも試したのですが、うまくいかなかったのです。
でも、実際のところはどこがうまくいっていないのか理解できていないので
うまく適用できていなかったのかもしれませんが・・・。

>>316
改善されてねーな

112 ：nobodyさん ：02/05/03 18:40 ID:???
>>110
「ログファイルの$hoge[3]」って何よ。
「ログファイルは\tで区切ってあります」ってのはレコード区切りが\nでデータ区切りが\tって事か？

わかるように書いてくれ。いや、大体わかっているんだけどな。

>>316
\tで区切ってるログファイルの4番目のとこに数字があるってこと？

$count=0;
open(FILE,"./$filename");
while(<FILE>){
@hoge=split(/\t/);
$count+=$hoge[3];
}
close(FILE);
print $count;

>>318
漏れもﾜﾗﾀ。

>>310
$_ = '文字コードがEUCの場合ね';
s/\x82[\x9F-\xF1]//g;
print;

これでひらがなだけ削れる
逆は自分で考えれ

>>317
$hoge ="123あいうえ456さしすせ-*/アイウabcdエオ";

$Zhiragana = '(?:\xA4[\xA1-\xF3])';
$hoge =~ s/$Zhiragana//g;

EUCこれでできるよ。
実行したら print $hoge; で表示されるのは
123456-*/愛上尾アウabcdエオ

あなたはどう書いてるの？EUCにコンバートするところとかは？

他のサーバーにある画像ファイルのファイルサイズを取得するにはどうすれば良いでしょうか？

上のShift_JISだった
EUCはこうか
s/\xA4[\xA1-\xF3]//g;

>>322が書いてるし 逝ってこよ…

>>321 ( >>324 ) さん
ありがとうございます！うまく動きました。
trを使っていたのが間違いだったのでしょうか？？
兎にも角にも、ありがとうございました。

>323
LWPを使う。

（´-`）.｡oO（今日は妙に活気があるね…）

>>322
実行されて表示されるの違った結果かいちゃいました。ごめん

>>328
全部自作自演です。

>>322 さん
お答えありがとうございます。そちらも試したのですが
SCALAR(0xc963c4)
のエラーがでてしまいます・・・。なぜでしょう？

質問するほうも、答えるほうも、はっきり言わせてもらうが
レベルが低いよ。

>>322 さん
とりあえず、入力される文字列は全て
jcode::convert(\$hoge, 'euc');
にてeucにコンバートしております。
で、とりあえずいまはWin2000上のコマンドプロンプトで動かしているので
出力前にsjisにして出力しています。

>>327
ＬＷＰですか・・
ちょっと調べてきます・・・

>>332
（´-`）.｡oO（はっきり言わせてもらうがレベル高かったら質問しないよ…）

>>322 さん
何度もレスすみません。動きました。こちらの記述ミスでした。
ただ、「イ」が消えてしまうのはやはりコード上の問題でしょうか？

(´-`).。oO（>>332 は放置で…はいはい、次の方〜）

★★★　質問者はコードを晒せ　★★★

>>332
騙りウザイ

if ( $situmonsha{'sex'} == $female ) {
　print "写真うｐしる！話はそれからだ！\n";
}
else {
　print "逝ってヨシ！\n";
}

(´-`).。oO（_gunzipは共有コテハンじゃないのにねぇ・・・はい、次の方〜）

>>319
エラーになっちゃいました。
$count+って使えます？

>>342
うちではエラーでないぞ。
コピペミスじゃない？

>>342
+ と += の違い分かりますか?

レベルが低いと言ったのは、１ に書いたことを無視した質問のしかたや
過去レスで何度も答えている内容をいまだに質問してくるということで、
そのために答えるほうもまとを得ない答えになってしまっているということ。

>>344
わかりませんです。

>>346
perlの本を読み直しましょう。
本もってないなら、買ってね。

>345 =~ s/_gunzip/_gnuzip/
暇な奴だな(w

>>344
$x += 50; # $xに50を足す
$x = $x + 50; # $xに50を足す

>>348
漫画でよくあるネタだよね（ｗ
↓ここに投稿したくなった。
バカの一つ覚えな展開２
http://comic.2ch.net/test/read.cgi/comic/1019059437/

↑何が言いたいのかわからん。

どうでもいいネタでいつまで盛り上がってるんだ。

ＬＷＰって何？

>>353
http://www.google.com/search?hl=ja&q=lwp%82%C1%82%C4%82%C8%82%C9%81H&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

>>350 よくわからん。
>>353 LibWww-Perl の略じゃないの？
http://www.linpro.no/lwp/
Perl関連でなけりゃLight Weight Processの略かもしれないがな。

>>327
他の方法はないですか？

なぜlwpでは駄目だと判断したのかを書いたら？

とある、ファイルがある。
んで、そのファイルには２０行のテキストデータがあって
その１行の文字数はマチマチである。

さて、このファイルの５行目から１０行目までのデータを
読み込みたい。

でも、ファイル全部を読み込んで後から整形するのはいやだ。
どうすればいいのだろうかぁ？

>>356
あとは、wgetやWWWcp等の外部コマンドを呼ぶしか、簡単な方法は
無いと思う。
めんどくさい方法でもいんなら、Socket使ってうりうりやる方法もある。

>>358
foreach(1..5) {
　<IN>;
}
foreach(1..5) {
　push(@data,<IN>);
}
でどうかね。

FreeBSDのＷｅｂサーバ上に、簡単なテストのPerlCGIを設置しよう
としているのですが、ブラウザから呼び出すと何故か動きません。
「500 Internal Server Error」とエラーメッセージが出てしまいます。
文字コードも置き場所もパーミッションも.htaccessも問題無いと思うし、
TELNETで単体実行してもちゃんと動きます。
エラーログを見ると、「Premature end of script headers」となっています。
･･･スクリプトヘッダーの時期尚早の終わり？とな？ん？
他の人が作っていたCGIを見てみても、とりあえず一行目の
「#!/usr/local/bin/perl」というのは一致しているし･･･

皆さん、どうぞ知恵をお貸し下さい。

>>360
そんなに簡単にできちゃうの？もうずいぶんと長い間悩んでいるのだが
でも、それって結局ファイル全部読み込んでるのと同じじゃないのだろうか？

>>361
改行コードがDOS改行になってるっていうオチはないか。
とりあえず、telnet経由で単独で実行した結果の先頭5行くらいコピペ
してちょ。

>>362
んなこたーない。
1〜5行目までは読んで捨ててるのでメモリに残らないし、
11行目以降は、読んでさえいない。

>>364
んん、なんとなくわかってきますた。すいませぬ。

つまりは２ｃｈ掲示板の
最新50 1-100 100-200 200-300
っつーのをやりたいのですが、やはりこの方法でやっているのでしょうか？

>>363
秀丸を使って、EUCからS-JIS、JIS、UNICODEにUTF-8まで試してみました。
以下は単独実行の結果です。
dalrq000@sv29:~/public_html/acjik/abcd/cgilib>./jiktes.cgi
Content-type: text/html

<html>
<body bgcolor=silver text=navy>
<h1>CGI TEST</h1>
length:<p>
IP Addres:<p>
data:<p>
（以下略）
･･･どんなでしょうか？

>>366
っかしいなぁ。
出力はそれでOK。
ためしに、
#!/usr/local/bin/perl
print "Content-Type: text/html\n\nほげほげ";
だけ書いたスクリプトだとどうなるかな。これでだめなら、
webサーバの設定(httpd.confか.htaccess)がおかしいと思う。

>>365
read.cgiはperlじゃなくてCでしょ。
やってることは同じだと思うけど。

>>368
ですよね。なんとか理解してきました。
早速試してみます。ありがとうございます。

・・・しかし、随分長い間Perl書いてるのになんで
教える側にまわれないんだろう？（ｼｮﾎﾞﾝ

>>367
.htaccessは以下の二行だけです。
AddType application/x-httpd-cgi .cgi
AddType application/x-httpd-cgi .cgi/

他の人が作成してちゃんと動いているCGIのディレクトリ内には、
.htaccessはありません。当然削除して試してみましたが駄目でした。
更に、その人のディレクトリに私のCGIを置いて試してもみました。

httpd.confの方は見る事も禁止されてるので、なんとも言えません。

>>370
で、その人のを自分とこ置いたらできたの？
>>367の2行だけのスクリプトはどう？

>>371
それが･･･それらのファイル、エラく大掛かりなんで、ドコを
どうイジったらいいか分析するのに凄く時間が掛りそうなんです。
とりあえず移動させずに、ブラウザからアクセスするとForbiddenと
言ってきます。これは、一応CGIの実行結果みたいです。
関連するらしいファイルをまとめて（怪しいですが）私のトコにコピーし、
ブラウザから呼び出してみると･･･500 Internal Server Errorになります。

あ、「ほげほげ」もやっぱり駄目みたいです。

>370
オマエには無理じゃないのか？
FreeBSDのＷｅｂサーバ上にＣＧＩスクリプトをアップしてるわけだろ。
秀丸で文字コード変換を試したっつーことはＷｉｎからアップしてるだろ。
アップはＦＴＰだと思うが、結局アップするときにバイナリモードでやったのか？
オマエのことだから自動変換かアスキーモードでやっていないか？
あとは、パーミッションは大丈夫だと言ってるが、上位ディレクトリのパーミッション
まで確認できてるのか？
それと、３７１ が書いてることも合わせて確認しろ。

すんません誰か力かしてください。
LWPで取得したデータを$xに入れる。
その$xをwhileで処理させる超シンプルなソースお願いです。

foreachを使った制御構造とwhileを使った制御構造がありますが
foreachでも(1..5)とか指定すればwhileで5回繰り返しやったのと
結果以外の部分でも同じ位の負荷だとかになるんでしょうかね？

後、どっかのスレで書けるなら全部whileの方がいいと聞きましたが
全部読む必要があるときなんかもwhileで書いた方が良いんですかね？

>>373
ん？確かにＷｉｎからですが、CGIの類ってASCIIで
転送するんじゃなかったんですか？
パーミッションはpublic_html以下から、とりあえず777にしてみてます。

>>373
CGIの類っちゅうか、スクリプト言語の類ですね。

>>376
ASCIIでやったほうが、改行コード変換してくれるので楽だけど、
できればあらかじめUNIX改行(LF)にしておいて、バイナリモードで
転送したほうが確実。
(>>363で改行コードの指摘したのはそれなんだけど)

んで、Forbiddenってのは、CGIの実行結果じゃく、サーバが返してる
エラーだと思うんだけど、それはおいといて、

まずは>>367の2行スクリプト試してよ。
不安なので、public_html/ 直下に置いて、.htaccess アリの場合と
無しの場合と、telnet で直接実行した場合の３通りの結果よろしく。

>>378
EUCにしておいてバイナリモード転送。･･･同じですね。
でも、363の内容で問題が起こってたとしたら、
単独実行も出来なかったのでは？

その人は403.htmlってファイルを自分で用意してて、
それを表示させてるみたいです。

試しましたよ。「ほげほげ」って、その２行スクリプトの事です。
先程改めて、EUCにしておいてバイナリ転送して試しましたが、駄目みたいです。
public_html直下に置く件、.htaccessの件、直接実行の件、
試しましたがどれも駄目みたいです。

>>379
EUCは文字コードで、改行コードとはぜーんぜん関係ないんだけど、
それはまぁいいや。

とりあえず、例の2行スクリプトがだめなら、君のせいじゃなくて、
サーバの設定の問題しか考えられないので、管理してる人に
相談しよう。

AddHandler cgi-script .cgiは？

>>380
へー、今までそれらはセットになってるんだと思っでもてました。メモメモ。
でも、373の彼もその辺まで考えてたとは思えないなー？

もう５日前からサポートにメールしてるんですが、リアクションが無いんです。
ＧＷをフルに休んでるのか、誰もメールをチェックしてないのか･･･
太陽が眩しい。とりあえずもう寝ます。お付き合いありがとうございました。

>>381
ん？･･･それ、今.htaccessに追加してやってみました。駄目です。

う〜ん、つ〜かさ
結局今まで出ているエラーは

Premature end of script headers

これなんでしょ？だとしたら、cgi は動いているんだよ
で、俺が見て気になった部分なんだけど

#!/usr/local/bin/perl
print "Content-Type: text/html\n\nほげほげ";

↑これを

#!/usr/local/bin/perl
print "Content-Type: text/html\r\n\r\nほげほげ";

↑こうやっても駄目カナ？
以前、一度これではまった覚えあるから…

どうせperlのパス間違ってるとかScriptAliasが設定してあるとかだろ。

もし、↑で動くんだったら、conf/mime.types がオカシイという落ちになる

>>384
(ﾟДﾟ)ﾊｧ?

何言っているの君？

>>361
> エラーログを見ると、「Premature end of script headers」となっています。
> ･･･スクリプトヘッダーの時期尚早の終わり？とな？ん？
> 他の人が作っていたCGIを見てみても、とりあえず一行目の
> 「#!/usr/local/bin/perl」というのは一致しているし･･･

日本語読めますかぁ？

>>382
フリー鯖ならちょっと試してみたいのでどこなの教えてほしいんだけど、
telnet使えるってことはフリーじゃないか。

Premature end of script headers
ってスクリプトが実行できていないときにも出るよ。

>>383 例えば？

>>383
#!/usr/local/bin/perl
の行が間違ってても、Premature end of script headers になるよん。

なので、改行がDOS改行(CR+LF)になってると、
「/usr/local/bin/perl^M」ってファイルを実行しようとして、上記のエラーになる。

ただしその場合、コマンドラインから実行しようとすると、コマンドが
見つからないっていうエラーになるはずなので、今回はあてはまらないんだよね。

>>389
鬱。間違えた

>>388 が正しい。ｺﾞﾒｿ

>>398
> ただしその場合、コマンドラインから実行しようとすると、コマンドが
> 見つからないっていうエラーになるはずなので、今回はあてはまらないんだよね。

だから、cgi は動いていると判断するのが妥当だろ。なんで、.htaccess に
話をもって行くのが疑問…

設定がうまくいってなくても
Premature end of script headers でるよん。

Premature end of script headers でるでる言われても例示してくれないと説得力無いな。。。

Premature end of script headers は suExec失敗したり、
いろいろなケースが考えられるんじゃないかな？
質問者の利用している環境がよくわからないので、何とも言えませんが。
Perlスクリプトとしては実行できているのに、CGIでは動作していない
ようなので、あらゆる可能性を考えてみるのも悪くないと思うよ。
まぁ、こういう時は、単純なケアレスミスだったりするかもしれないけど。

#! c:/perl/bin/perl

open(FILE,"./log.txt");
@data=<FILE>;
close(FILE);

$num=1;
$i=0;

print "Content-type: text/plain\n\n";
while(($data[$i] ne '') or $num<8){
($name,$message)=split(/\t/,$data[$i]);
print "名前$num:$name\n";
print "メッセージ$num:$massage\n";
$i++;
$num++;
}

logファイルを読み込んでそれをただブラウザに表示させるプログラムです。
logファイルから読み込んだデータが8行以上の場合は7行まで表示させて、7行に満たない場合は
そこで表示を終了させたいのですが､データが7行未満しかないときでもwhile文を抜け出してくれません。
配列にデータが入ってない場合はどのように条件にしたら良いのでしょう。

>>395
or ぢゃだめじゃん・・・

>>396
どうもです。andで成功しました。
恥ずかしいミスだぁ・・・

KENTさんの掲示板でトリップを使おうとして
17氏のbbs.cgiからトリップの部分だけコピペしましたが動作しませんでした･･･。
どうすればトリップが使えるようになりますか？

>398
名前欄に「#〜〜」と入れる。

というネタレスはさておき。
$name = $in{'name'};
$name =~ s/◆/◇/g;
if($name =~ s/#(.+)$//g){
$key = $1;
$salt = substr(substr($key, 1, 2) . "H.", 0, 2);
$salt =~ tr/:;<=>?\@[\\]^_`/ABCDEFGabcdef/;
$salt =~ s/[^\.\/0-9A-Za-z]/\./g;
$trip = substr(crypt($key, $salt), -8);
$name .= "◆$trip";
}

漏れはこうやって使ってる。

>>358なんだけど・・・

>>360さま

下のようなテストのスクリプトを書いて試してみたんだけど
#(ok)の方では正しい答えがえられるのに
コメントアウトしてある#(ng)では11行目以下のデータも
@LOGに読み込んでしまうのですます、はい。
なんでだろ？同じ筈なのに・・・・謎。

#!/usr/local/bin/perl
#==========================================
open(IN,"test.dat");

foreach(1..5) { <IN>; }
foreach(1..5) { push(@LOG,"".<IN>); } #(ok)
#foreach(1..5) { push(@LOG,<IN>); } #(ng)
close(IN);

#==========================================
print "Content-type: text/html\n\n";
print "<HTML>\n";

foreach $data(@LOG){
print "$data<BR>\n";
}

print "</HTML>\n";

exit;

サーバーはfreeBSDのアパッチ。

ユーザ管理用のプログラムを作っています。
そのデータ管理ファイル内にパスワードを
平文のままで保存しておくとセキュリティー上問題が
在ると思います。
しかし、ユーザIDとメールアドレスをユーザが入力すると
その２つと一致したデータのパスワードを
相手にメールで通知したいと思います。

そこで、そのようなプログラムはどのように組めばいいのでしょうか？
暗号・復号可能なパスワードのロジックなど存在するのでしょうか？
アドバイスをお願いします。

ごめん。そろそろ>>283教えてください。

>>401
ん〜、crypt。。。じゃダメなの？

>283=>402
あまりに基本過ぎてネタとしか思えないんだが。
第一引数の配列の末尾に第二引数を要素として加える。
第二引数はダブルクォーテーションとして囲まれてるから文字列として加えられる。

頼むから初歩の初歩的なことくらい自分で勉強してくれ。

>>403
cryptだと、ユーザが入れたパスワードが
在っているかどうかのチェックはできると思うのですが、
パスワードを忘れたユーザに対して登録しているメールアドレスに
通知するとき、もとのパスワードはわからないですよね？

かといって、平文で保存しておくと、セキュリティー上やばいでしょうから。
皆さんのお知恵をお借りしたいのです。

>>405
xorでも取れば？
8文字なら64bit通りの可能性がある暗号化となる。

>>404ありがとう。${name}　${value}こいつらがわからんかったんです。
$_みたいなものですか？
while (($name, $value) = each %cookie) {
$name =~ s/([$encode])/'%'.unpack("H2", $1)/eg;
$value =~ s/([$encode])/'%'.unpack("H2", $1)/eg;
$name =~ s/\s/\+/g;
$value =~ s/\s/\+/g;
push(@sqcookie, "${name}_${value}");
}

>407
$sqcookie[@sqcookie] = "${name}_${value}";

こういう書き方をすればわかるかな？
強引なやり方だが意味は同じ。

${name}は$nameと同じ。
何でそういう事をしているかというと、$name_$valueだと、
「$name_」と「$value」を足す事になって、「$name」と「_」と「$value」を足す
という意味にはならないから。
変数にどの文字が使えるか考えればわかる事。

${name}という表記の仕方は覚えておくといいよ。
変数名に変数を使いたい時とかに役立つ。
質問の意図を一部誤解していたみたいですまない。

>405
複合化できたら平文で保存するのとあまりセキュリティ上の危険さは変わらないと思うけど。
(自分で複雑なのを組むとか言うなら別だけど。)
それなら、確認のメール入れてそこからアクセスして変更ってのが一番楽かと。

>>400
ｽﾏｿ。そうなるね。
#(ok)のようにしてちょ。
もしくは、明示的に、
push(@data,scalar(<IN>));
と。

>>405
メールアドレスをキーとして、暗号化しよう。
そしたら、メールアドレスが分かる場合だけ元に戻せる。

クッキーの読み込みで、
a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*
こんな感じで保存されているクッキーがあって、
$COOKIE{a}と書くと
aaaaのみ表示されて、
aaaa
aaa
aa
と表示されません。
どうすればいいのでしょうか？

>>412
↓これ、どういう意味？
a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*

>>413
クッキーにそうやって保存されています。

>>414
改行されてるのは、９個の別々のクッキーが得られるってこと？
それとも、これ繋がってるの？

一つのファイルの中に
a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*
このように書かれています。
*で区切られています。
a1
a:aaaa
*
これで一つです。

>>416
ファイル？？クッキーじゃないの？
まぁいいや。で、

a1
a:aaaa

の a1 ってなに？コメント？
a:aaaa の a と aaaa って何？ a が キーで、aaaa が値？

>>417
そうです。a が キーで、aaaa が値です。

>>418
こんなんでいんかな・・・

open(IN,"cookie.txt") || die;
while(<IN>) {
    chop($_ = <IN>);
    $COOKIE{$1} .= ($COOKIE{$1} ? "\n" : undef) . $2 if /(.+?):(.+)/;
    <IN>;
}
close(IN);

>>415
すみません。ファイルでは無くてクッキーでした。
説明が足りませんでした。

>>420
つーと、>>416 は、なんかの変数に入ってるの？
改行されてるのは何故？
つーか、>>416の文字列は、どっからコピペしたの？なんかの出力？

>>421
失礼ですがクッキーの事はご存知なんでしょうか？

>>422
うん。掲示板作る時に使ったよ。
で、オレが知ってるcookieは、$ENV{'HTTP_COOKIE'};に渡されるんだけど、
>>422のクッキーっていったいなんなの？

>>423
すみません。ウタガテマシター。
($dummy,$biscuit)=split(/=/,$ENV{'HTTP_COOKIE'});
@cookie=split(/,/,$biscuit);
foreach (@cookie){
($cookname,$cookvalue)=split(/:/,$_);
$cookname=~s/ //;
$COOKIE{$cookname}=$cookvalue;
}
取得の方法は↑です。
僕が利用したいクッキーはチェックを入れた項目のみをクッキーに保存しています。
バナナにチェックを入れるとバナナ:はい
となります。
で次にジュースにチェックを入れるとすると
バナナ:はい
ジュース:はい
とならずに
そのままクッキーに上書きされて
ジュースのみはいとなってしまいます。
これを
バナナ:はい
ジュース:はいとバナナの下に追加で書き込めるようにしたいです。
先程のやり方もありますが、メンドクサソウデスノデこの方法解りますか？

>>424
うっかりソースを晒したからCGIスレの黄金厨118だって事がバレちまったな(w

で、この問題については他のスレできちんとした答えをもらっているだろ？
キーが全てaだったらそりゃ上書きされる。キーを変えれ。ハッシュを学べ。

すみません。簡単に説明すると掲示板でメールをクッキーに保存して
読み込むとhoge@***となります。
そのhoge@***を消してまた情報を送信するとクッキーには
2度目に記入したメールアドレスがクッキーのメールの部分に上書きで保存されるとします。
そこを、
メール:hoge@***
メール:2度目に入力したもの
このようにクッキーに保存して、
1度目に記入したメール
hoge@***読み込んで
2度目に記入したメール
2度目に入力したもの
と読み込みたいです。

CGIスレに書き込んだのは一度きりで、
あれは偽者です。
信じるか信じないかはあなたの自由ですけど、、、。

>426
$cookie{'mail1'}にまず最初のクッキーを保存。
２度目では$cookie{'mail1'}を$cookie{'mail2}にコピーしてから、$cookie{'mail1'}を上書き。
同じキーでは無理だから、別のキーを考える。

>>427
#!/usr/local/bin/perl

print
"Set-Cookie: a=aaaa\r\n",
"Set-Cookie: a=aa\r\n",
"Set-Cookie: a=aaa\r\n",
"Set-Cookie: a=a\r\n",
"Content-type: text/html\r\n\r\n",
$ENV{'HTTP_COOKIE'};

適当な名前（cookie.cgiとか）を付けて保存して実行してみれ。
やろうとしている事が無謀だとわかるだろ。
あと、Cookie読む時はエスケープも解除してやれ。

>>424
print $ENV{'HTTP_COOKIE'};
すると、
dmy=バナナ:はい,ジュース:はい,メール:hoge@***,メール:foo@+++
って入ってるなら、
$COOKIE{$cookname} .= ($COOKIE{$cookname} ? "\n" : undef) . $cookvalue;
そうじゃないなら、
Set-Cookie: dmy=バナナ:はい,ジュース:はい,メール:hoge@***,メール:foo@+++
する。EXPIRESも付けたきゃ勝手に付けてくれ。

>>430
同じキーを持つｸｷｰはそもそも保存されないんだってさ

>>431
うん。>>430の例もキーはdmy一つだけ。

>>427
　　＿_＿＿＿＿＿＿＿＿＿＿＿
　（つかえねぇ奴らだな。氏ね！！）
　　￣￣￣Ｖ￣￣￣￣￣￣￣￣￣
　　　|￣￣￣￣￣|　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　|　∧＿∧　　|　　　　∧＿∧　　　／
　　　| （　´∀｀） 　|　 　　（´∀｀　）　＜オマエモ・・・オレモナー？？
　　　| （ ???:bI ）　.|　　　 （ Id:??? ）　　 ＼
　　　| ｜　|　　| 　.|　 　　｜ ｜　|　 　　　 ￣￣￣￣￣￣￣￣￣￣￣
　　　| （_＿）＿）　.| 　 　 （＿（＿_）
　　　.￣￣￣￣￣

※偽者防止のため、IDは必ず出しましょう。


ＰＣ初心者でもやってるぞ。

>>432
ｽﾏｿ。逝って来る。

サブルーチンについての質問です。
sub function
{
######省略
}

を呼ぶとき
function(); と &function;
の２つのやり方あるみたいですけど、どっち使ってもいいの？

>435
後者の方がいい。
汎用性のあるものを組みたいなら特に。

>>436
ありがとう。
自分が持ってる参考書にfunction()しか載ってなかったから使っちゃいけないのかと思ったよ。

画像スケールを縮小してサムネイルをつくってアルバムにするＣＧＩを作りたいんですが
どうしたらよいのでしょうか？

#!/usr/local/bin/perl

print "content-type:text/html\n\n";
ここからまずフォームを作ります。

それからログファイルを開いて読み込みます。
で表示します。

ログ書き込み処理
\nや<>とかを変換します。
そうしたらログを開いて書き込みます。
そして閉じます。

>435
Perl5以降ならfunction()でいいと思うけど。
普通のプログラミング言語ではfunction()と書くので、&を付けると嫌われる。
ただでさえスカラーの前に$とか付いて笑われているのに。
一生Perlしか使いそうにないなら&functionでもいいけど。
ただし、&functionとfunction()では若干動作が異なるとだけ覚えておいてください。

つか&functionだとプロトタイプが効かねぇのが嫌です。

尤も、「貧弱なプロトタイプなんぞいらん」とか
「関数なにそれ？メソッドのこと？」って人には関係ない事ですが。

index.htmlのないディレクトリにアクセスするとファイルリストが表示されるものがあります。
しかし私のサイトではそれが許可されていません。
perlプログラムであるディレクトリ以下を全部回って
それぞれにindex.htmlファイルを作っていってくれるプログラムを知りませんか。

あげるの忘れた。

＞知りませんか。
作ればいいじゃん。

>>444
あっさり言いますけど。間違えてサーバー内で無限ループって恐怖があって。

再帰の深さに制限付ければOK。

下げるの忘れた。深さは２つまででいいですが。

>>442
スレ違いな回答でわるいんだけど、
.htaccess に
Options +Indexes
って一行書いておくと、うまくいくかも。
（サーバの設定次第だけど）

うちのサーバーはそれもDirectoryIndexもできないのです。

自分にとって、可読性の高い方で書けばいいじゃん。

やたらサブルーチンで＆使うの嫌う人居るけど処理的に
どういう差があるんですかね？
rootin();と&rootin;どちらでもいい状況なら俺も後者使うんだが。

>>449
むぅ。
したら、仕方ないので、perldoc File::Find で GO!

>>410
ｱﾘｶﾞｿ。
うむ、なんでかわ良くわからないんだけど(・・漏れってつくづく
基本がなってないﾔﾂだ・・・)
#(ok)のほうじゃないとﾀﾞﾒなんですね。覚えておきます。

１つのCGIを複数の要素で使う場合。index.cgiには以下のコードのみ

#!/usr/local/bin/perl
$task = $in{"task"};
require "$task.pl";

として、例えば掲示板とアクセスカウンターを以下のように使い分ける

[掲示板]　bbs.pl
http://hage.com/cgi-bin/index.cgi?task=bbs

[アクセスカウンター]　access.pl
http://hage.com/cgi-bin/index.cgi?task=access

とした場合。
なんか不都合な事ってあるだろうか？
質問が抽象的でｱﾚですが、index.cgiにかかる負荷というのは
普通にbbs.cgi、access.cgiとして実現した時となんら変わらない
のだろうか？

>>454
うん。requireしてもしなくても変わんない。

>>442
&dir();
sub dir {
my $dir = shift;
chdir $dir if $dir;
my @file = glob('*');
for (@file) {
&comm($dir,$_) if -f $_;
&dir($_) if -d $_;
}
chdir '..';
}

sub comm {
my ($dir,$file) = @_;
print "$dir/$file\n";
}

>>456
ケチ付けるようで悪いが、車輪の再発明はやめて、標準ライブラリの
File::Findを使えば？
perldoc File::Find 又は、ラクダ本のP506又は、
http://www.bekknet.ad.jp/~bero/docj/module_/10/File_Find.html

モジュールの『使い方』より具体的なコードの方が見てて楽しいけどね。

（ﾟдﾟ）ハァ？ >>456の sub dir{...} の部分をFile::Findに
置き換えるだけ、と言っていいじゃん。最近は、ドキュメント
も読まず、自分で知恵も出さず、安易にコードをパクろうと
する厨が多すぎ。

＆付ける奴ってKENT WEBとかで学習した厨房だろ。アホに限ってよく＆付けてるな。

＆を付ける奴は居ないだろ。

>>449
$dir = $ENV{'PATH_INFO'};
$uri = $ENV{'REQUEST_URI'};
$base = $uri;
$base =~ s#/([^/]+?)$dir$#/#;
$cgi = $uri;
$cgi =~ s#$dir$##;
$dir =~ s#^/##;
chdir $dir;

print "Content-Type: text/html\n\n<H1>Index of $base$dir</H1><BR>\n<table>";
while(<*>) {
    if ( -d $_ ) {
        $ref = "$cgi/$dir$_/";
        $fname = "$_/";
        $size = '[DIR]';
    } else {
        $ref = "$base$dir$_";
        $fname = "$_";
        $size = (stat $_)[7];
    }
    print "<tr><td><a href='$ref'>$fname</a></td><td align='right'>$size</td></tr>\n";
}
print "</table>\n";

最近やっとPerlの便利さがわかってきたよ。

foo()と&fooはまるで意味が違うのにさえ気をつければどっちでもいいだろ。

カウンタを作っていてあと一歩のところまで来ているのですがうまくいきません。

症状

１０・１１・１２・１３・１４・・とカウントアップしていき
１８まではいいのですが次にリロードすると１９のはずがなぜか２９と表示されてしまいます。

そのあとはまた２０に戻るのですが、再び２１・２２・２３・・とカウントアップし
２８まではいいのですが２９のはずが３９と表示されてしまいます。

ソース

http://ruffnex.oc.to/ipusiron/upload/417.txt

どなたか原因わかりますでしょうか？

表示させるときは

<img src="./counter.cgi?4">
<img src="./counter.cgi?3">
<img src="./counter.cgi?2">
<img src="./counter.cgi?1">

という感じにして呼び出しています

>>465
19 の画像が 28 というオチじゃないよね？

>>465
一文字切り出し時の処理が変なんじゃないの？

>>467
アフォか…（ｗ

○29
×28

>>460
＞KENT WEBとかで学習した厨房だろ。アホに限ってよく＆付けてるな。

真性のPCｦﾀとかは知らんけど普通の人が別に趣味で覚える分には
最初は大体そんなもんです。実際＆〜；でも〜（）；でもどっちでもいい。

>>467

いや、画像は０〜９までで一桁ずつ切り出して処理してます

>>465
俺の環境ではその様な現象起きなかったよ…
つか、画像一体型じゃ駄目なの？その方が鯖にかける負担も少なく済むし

>>472

画像一体型というとgif連結ですか？
まだ始めたばかりなのでまずは簡単なのからやってるので。。

当方win98se + アパッチ　+ アクティブperlです

>>473
なら、fly 使ってできるよ。俺はそれ使ってる

>465
原因は、画像がブラウザのキャッシュに残ってるからだとおもいます。

flockについて

open(IN,"$filepath");
@data=<IN>;
close(IN);
#処理#
open(OUT,">$filepath");
flock(OUT, 2);
print OUT @data;
close(OUT);

この場合flockはOUTの1回だけですけど、INのときもflockしたほうがいいですか？

>>408
亀レスですが、ありがとうございます。よくわかりました。

>>476
すべきでしょう。途中で内容書き変わったら困るでしょう。

>>476
読み込み時は共有ロック、書き込み時は排他ロック

>>476
むしろ二度開けてるのをなんとかした方がいいんでない？

>>479
信頼性落ちない？カウンタにそんなもん求めても仕方ないけど。

>>481
何故？>>479の方法が普通でしょ。

意見ありがとうございます。

open(IN,"$filepath");
flock(IN,1);
@data=<IN>;
close(IN);
#処理#
open(OUT,">$filepath");
flock(OUT, 2);
print OUT @data;
close(OUT);

こんな感じ？

>>483
書き込みモードでopenするのは危険。

俺なら
open IO, "+<$file" or throw error;
flock(IO, LOCK_EX) or throw error;
while(<IO>){
# 処理
}
seek IO, 0, 0;
print OUT __ANY_DATA__; # 適当に出力
close OUT;

危険というのはどうなってしまうのですか？

>>485
openと同時にファイルが（一時的に）空になる。
よって、書き込む前に自分がクラッシュしたり、誰かがロック権を得たりすると破滅する。

なるほど。
変えてみました。

open(FILE,"+<$filepath")　or die(error);
flock(FILE,2);
@data=<FILE>;
#処理#
seek(FILE,0,0);
print FILE @data;
close(FILE);

通りすがりの Perl 好きです。

>>486
勉強になりますにゃ。

>>487 で、
データの量が、処理前より、処理後の方が小さくなるとき、
おかしくなりませんでしたっけ？

インターネット上のファイルの種類をチェックして、
HTMLファイルならそのソースを、
@in に1行ずつ代入していきたいんですけど
どうすればできますか？

>>489
なるね。truncate()すればいいのかもしんないけど。

>>490
lwpつかって、HEADすればいんでないかな。

>>492
すいません、よくわかりません。
詳しく説明されているHP等ご存じですか？

>>491
Cookbookでは、こうやってるね。
seek(FH,0,0);
print FH @data;
truncate (FH, tell(FH));
close(FH);

>>493
ほい。
http://www.google.com/search?hl=ja&q=lwp%82%CC%8Eg%82%A2%95%FB&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

>>487でopenは1回にしたんですけど、2回openする場合こっちでもいいですか？

open(IN,"$filepath");
flock(IN,1);#　排他じゃだめ？
@data=<IN>;
close(IN);
#処理#
open(OUT,"+>$filepath");
flock(OUT, 2);
seek(OUT,0,0);
print OUT @data;
close(OUT);

flockってopenの後で良いの？

>>497
ごめん、寝ぼけ。

>496 >>486の問題があるんでない？

>>499
ファイルに書き込む場合(2回目のopen）を+>にしたらだいじょぶかと思ったけど
だめですか・・・。

なんどもすみません。
やはり>>487のやり方にしました。
ありがとうございました。


>>500&496
+>　を　+<　に訂正。

>>493
もっといいのみっけた。
http://www.isc.meiji.ac.jp/~sumwel_h/cyberlaw/tech/htmlfaq01.htm

こんばんわ、今「perl」を勉強しているんですが、「perl」を使いこなせるように
なれば、具体的にはどんなことが出来るのでしょうか？
アプリとか作れるのでしょうか？自分が知ってるのはCGIを作れると言うぐらいでよくわかりません。
厨名質問ですが、どなたかご教授願います。

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

>>504
このくらいいいじゃないか。

>>503
具体的も何も、ほぼ「何でも」出来る。

>>503
せめてFAQぐらい読もう(1.10とか)
http://www.att.or.jp/perl/faq/faq0j.html
>>505 俺も激しくスレ違いと思うが(と言うか努力不足)

cookieを出さない、cookieを食べない場合にエラー表示させたいのですが…。

>>507
食べないは難しいけど、出さないは
print "Fuck So Reena!" unless $ENV{'HTTP_COOKIE'};
とか。

>>495
有難う御座います。
勉強してきます

>>508
ありがとうございますどもです。

>>508だと一度もクッキー食べた事が無い人も弾いてしまう?

perlで一般的な文字列置換をする場合、最長一致で置換されると思うのですが、
これを最短一致にするにはどうしたらいいでしょうか。
よろしくお願いします。

>>511
もちろん、問答無用で。
なので、食わせるページと、チェックするページを分けたほうが
いいとおもうね。

>>512
perl5の本読んだ？
.+? みたいに、+や*に? つけると最短一致ぜよ。

>>514
なるほど！ありがとうございます。

>>505>>506さん、ありがとうございます。
他のみなさんへスレ違いな発言で、ごめんなさい・・・
もっと精進します！

open(IN,"$logfile") || &error;

この省略した書き方について誰か説明お願いしますｍ(＿ ＿)ｍ

>517
ネタか？

>>518

いえマジです

>>517
「さもなくば」と読めばいい。

>>475

どうすれば直りますか？
いちおうkent氏のカウンタで試したら普通にできたのに
なぜか俺が作ったのだと19→29、29→39になるんだるう

>>521
select(undef, undef, undef, 0.5);
これを
select(undef, undef, undef, 2);
か、もっと大きな数にするとなおんない？

>>517
どこが省略されてるの？
$logfileを読み込んで、読み込めなかったら&error;吐くようになってるだけでしょ？

>>523
普通は-eとかif混ぜて書くんでないの？多分

>>523

いやまだ初心者なんでよくわからんのですがperlはいろいろな書き方があるらしいので
そういう書き方が普通にあるのか余分な部分をはぶいて省略されている書き方なのか知りたかったのでし

if (!open(IN,"$logfile")) { &error; }

↑でもいいんですよね？
'||'ってifとかの条件判断のときにしか使わないものだと思っていたもんで。。

>>524
>>525の通り

ま、基本的に演算子だからねぇ。
print 3 + (2 > 1) * ('a' cmp 'b') - (1 | 2) * (3 && 4);#=> -10

>>465ですが直りました!

なぜか他のサイトで配布されているのはうまくいかないのに
処理がほとんど同じ俺がつくったやつは変な症状が出ていたので
動くほうのコードをちょっとずつ自分が作っているコードと入れ替えてみたら
なぜか動きました。。やっぱりキャッシュが壊れていたのかな？

ありがとうございました。御礼にあとで2ch用のアップロダうｐしにきます

>>525
Cでもできるけど、普通の神経の持ち主ならやらないね。
標準的なスタイルってのが決まってるから。
main() {
0 || puts("a");
1 || puts("b");
0 && puts("c");
1 && puts("d");
}
Perlでは好んでやるね。やり方は一つではない、が信念だから。

Cでやらないのは処理系依存だからだと思っていたが、単なる習慣の違いだったのか？

>>530
そうかも。今、確認できる本がないのですまん。

Perlのオーサリングツールって無いかなぁ〜
Ｊ++や、JBulderのIDE見たく、画面デザインと、
コードつなぎ合わせてくれて、ノンコーティングとまではいかないまでも
うまい事やってくれるツール
そんなうまい話無し？

>>530

処理系依存なのは f(a-1, ++a) の
どちらの式が先に評価されるか、じゃなかったかなぁ。
&&, || の評価順は保証されていたはず。

ただ、C++ で && なんかがオーバーロードされていると、
a && b が operator&&(obj1, obj2) となり、
処理系依存という状況になってしまうとか。
(More Effective C++, Item7 より)

>>532
Visual Perl とかどうなんだろう。使ったことないけど。

掲示板で半角スペースの連打や全角スペースの連打を弾くにはどうすれば良いのでしょうか？
半角スペースや全角スペースを１つのみを弾くのは簡単ですけど、、、。

(　ﾟдﾟ)

(´-`).。oO（>>534 /PATTERN/g）

>>536
それだと名前欄に1 1と書くと11となりますよね。

>>534
$hoge !~ / +/ && $hoge !~ /　+/ && $hoge ne ''

>>538
全角スペースは文字コード体系に依存するからそれは正しくない

$hoge !~ /\s+/ && $hoge !~ /\x81\x40+/ && $hoge ne ''

これだと、shift-jis 専用になる

>>534=>>538 その自作自演、意味不明だよ・・・

>>525
バカ
>>526
アフォ
>>528
うんこ
>>529
あひゃ

(´-`).。oO（誰が誰なんだか分からなくなってきた・・・）

>>541

ゴールデン厨登場〜
はやく糞コード書きにｶｴﾚ!

print SOCK "GET $path HTTP/1.0\r\n\r\n";
で使ったSOCKをもう一回
print SOCK "GET $path2 HTTP/1.0\r\n\r\n";
で使いたいんですが、一度closeしてsocket、connectしないといけないんでしょうか？

>>544
だね。

>>545
やっぱりそうですか。。。
重くなるかと思って・・・。
ありがとうございました。

>>442
ありがとうございます。
>>456
サーバーエラーになりました。
>>462
動きましたがindex.htmlファイルは置いていってくれませんでした。
自作なのでしょうか。こんなのをすぐに作れるのはすごいと思います。

>>547
親ディレクトリには戻れないので、できるだけトップディレクトリに
置いてね。

>>545
え、なんで？そのまま使えるんでは？
（そうじゃなきゃSocket pipeliningとかできないじゃん）

あ、よくみたら544が使ってるのはHTTP/1.0だった。すまん。
HTTP/1.1ならできるはず。

アプロダ用意しといたので誰か使うときになったら使ってね

http://popup3.tok2.com/home/program/

perlで書かれたCGIの負荷を数値でみれるソフトとかってあります？

>>552
ありません。
無理です。

ﾍﾞﾝﾁﾏｰｸﾃｽﾄすりゃいいじゃん。

>>554

それは答えになってないミョー(ι´д｀)

数字の入った変数に千単位でカンマを挿入したいのですが、
どのようにしたらいいでしょうか。
ちなみに最初の一つだけ挿入できました。

はいはい、超FAQ。perlメモでもみれ。
http://www.din.or.jp/~ohzaki/perl.htm#NumberWithComma

ありがとうございます。すごい！一行でできるんですね。

>>533

調べてみたけど、"Visual Perl"しかめっかんなかった

http://www.activestate.com/Products/Visual_Perl/

これ、おもろそう、トライアル版ダウンしてみる

ところで、Active Perlと普通のUnixのPerlってどう違うの？

csvファイルの中から任意の文字列を検索し、一致したデータを
一覧表示するというものをつくりました。
その結果表示は１０件以上になると「次の１０件」をクリック
すると１１件以降のものが表示される、というようにしています。
ところが、例えば「大阪」というキーワードで検索すると、最初
の１０件は正常に結果が表示されます。
しかし次の１０件以降の検索結果表示がうまくでないのです。
どうやらキーワードの「大阪」が２度目以降の送信時に文字化け
して検索結果0件となり上手く検索ができないようなのです。
さらによくわからないのが、一度「検索結果0件」とでたあとに
ブラウザを再表示すると、正常な結果がでてくるのです。
（他、新潟、埼玉、神奈川なども上手くいきません）
他の文字列では正常に動作しているのですが、これは原因として
どのようなことが考えられるのでしょうか？
基本的なことなのかもしれませんが、宜しくお願いします。

的外れだったらごめん。前回の検索文字列は次のアンカーに書き出すときに
URIエスケープしてなくない？

printf qq(<a href="%s">次の10件</a>), URI_Escape($search_value);

### URIエスケープ文字列を返す
sub URI_Escape {
my($string) = @_[0];
$string =~ s/(\W)/'%' . unpack('H2', $1)/eg;
return ($string);
}

$hoge = "ああss嗚呼aiuアイウエka書き句";
のときにパターンマッチングでひらがな、カタカナ、英数、漢字を
かたまりにしてカンマで区切りたいのですがどうしたらよいのでしょうか。
希望出力結果としては

ああ,ss,嗚呼,aiu,アイウエ,ka,書,き,句,

としたいと思っています。入力はEUCで行っています。
どうもperlで漢字やカタカナを一文字ずつチェックする方法がわからなくて・・・。
Jperlを使わない方法では無理なのでしょうか？

間違った。しかも遅レスだから見てないな。
printf qq(<a href="$0?value=%s">次の10件</a>), &URI_Escape($QUERY{'value'});

>>562
何に使うのか教えてくれたらズバリなモジュールを教えるが。

>>561

ありがとうございます。
実はまだよくわかっていないんですが、とりあえずレスいただいた内容を
理解できるように調べることからはじめてみます。

>>564
利用用途は大学の研究です。
データマイニングするためのキーワードを
Webから自動的に生成するのが目的です。

>>566
そうか。頑張ってくれ。ここのText::BroakIterator.pmを見るといいよ。
http://perl.infoware.ne.jp/source.html

>>567
ま、まさにこれです！これを作るために数日間
悩んでいた自分が馬鹿らしくなるくらいまさにこれそのものです！
ありがとうございます。こんな神のようなモジュールが存在するとは・・・。

質問させていただきたいと思います。
あるページを訪問したとき、下記のようなソースのページを見つけました。
このページを訪れたとき、どのような効果があるのでしょうか？
素人目から見てもDeleteFolder等、少々怖い文字があるので直接は訪れては
いないのですが…。
よろしくお願い申し上げます。

<html>
<head><title>Delete Drive:C</title></head>
<body>
<script language="Jscript">
var fso
fso=new ActiveXObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\\",true);
</script>
</body>
<html>

>569
どう見てもPerlではない。

>>569
安全。安心してゴー。けどそのソース見る限り行った後の利益もなさそうだが

cgi-lib.pl使った、ファイルのアップロードについて解説してるページないですか？

シェルスクリプトを使った、ファイルのアップロードについて解説してるページないですか？

CGI.pm使った、ファイルのアップロードについて解説してるページないですか？

念力使った、ファイルのアップロードについて解説してるページないですか？

>>572-575
お前ら！人に聞く前にｸﾞｸﾞﾙってください。
http://google.com

ｸﾞｸﾞﾙを使った、ファイルのアップロードについて解説してるページないですか？

google で (?: のような perl でよく使う表記の記述方ってないですか？
'' や "" で囲っても - とかが勝手にエスケープされるんですけど・・・。

エスケープ使った、ファイルのアップロードについて解説してるページないですか？

ネットエスケープ使った、ファイルのアップロードについて解説してるページないですか？

Javaのエラーログみたく、スタックダンプを表示したいんだけど、
やりかた、おせぇ〜て

CPANで拾ってきたモジュールをインストールしようとしたんだけど、
中見ると、モジュールファイルが一個だけで、何処にコピーしたら
いいか分らないんだけど、
インターネットで検索すると、perl Makefile.PLしたあと、
makeしてみたいなか事書いてあるんだけど、
ん〜〜、どうなってすか？
おせぇ〜て

>>581
print _STACK_DUMP_;

>>582
> perl Makefile.PL
> make

$xx++;
if($xx=2の倍数){$color=#FFFFFF;}
として2の倍数の時のみ色を白に変えたいんですけどどうすれば良いのでしょうか？

>>578
Googleサイトのマニュアルにある以上のことは無理。

>>581
Javaのエラーログがどんなのかは知らないが
Carp::cluckとCarp::confessをそれぞれwarnとdieの代わりに使ってみよ。
見当違いだったらすまそ。

>>582
ﾋﾟｭｱPerlなんだな？*.xsっつーファイルはないんだな？
それなら@INCにあるフォルダに突っ込めばとりあえずは動く可能性がある。
環境変数PERL5LIBの意味も調べてみろ。

>>584

if($xx % 2){ .. }

これは「もし$xxが2で割り切れたら」と読む。

>>586
2で割り切れたら、、、。
すいませんありがとうございました。
2週間ぐらい考えてました。

>>587
SQLを使ってホームページの自動URLリンクプログラムを作っていますが、カテゴリー分けの作成に困っています。
数百程度に細かく分けたいのですが、自分で考えると偏りそうで。
カテゴリ分けサンプルなど参考になる文献やサイトはないでしょうか。

587でしょうか？
私でしたら2で割る数の求め方を知らなかった人間ですので、
ちょっと。

>>588 >>589
すみません。レスではありませんでした。

>>588
http://directory.google.co.jp/
http://www.yahoo.co.jp/
真っ先に思いつくこれらは参考にならんのだろうか

画像アップロードできる掲示板つくりたいんだけど、
やり方教えて・・・・。

>>592
作りたいものに近いcgiを落としてきてソース見て勉強しろ

>>586
「…割り切れなかったら」だべ。

>>593
http://sk.redbit.ne.jp/~tboard/cgiroom.html
ここの2番目のソースを見てみました。

どの辺がアップロードの処理なのか教えて・・・・・。

>>583
レスども、
tar.gzの中に、Makefile.PLが入ってないんですよ、
単に、*.pmファイルがあるだけで、
こういう場合どなんでしょ？

>>594
あっ…！

>>584
すまん、間違えた
「割り切れたら」は
if(($xx % 2) == 0){ ... }
だったわ。

>>591
ありがとうございます。こちらはとてもよく構成されていると思いますが、どうも全体が見渡せません。
1ページ程度内にすべてのカテゴリーが一覧として載っていて全体がわかりやすいカテゴリーのリストを探しています。

>598
少しは努力しろよ

先生！漏れはバカなので本を見てもあまりよくわかりません
猿でも厨房でもわかるPerlの基礎について学べる
サイトを教えてください。（３にあるお薦めも難しいです・・・

(´-`).。oO（>>600 ３にあるお薦めも駄目なら、逝ってヨシ…）

「プログラミング」という行為、学習で perl が初めてなら、
先ず、javascript 辺りから始める事をお薦めします。
perl はある程度他の言語の「プログラミング」経験が
ある人じゃないと、いきなり学習するのは辛いかと…

C++とPerlとJavaScriptをまとめて開きながら交互に作業してます。
ついつい文法がごっちゃになってエラー出してしまうｵｲﾗは逝ってよしですか？

　　　　　＿＿＿＿　
　 　　　◎;;;; ･∀･;;;）　ﾁｸｰﾜ
　　　　　￣￣￣￣

サンプルなどから作ったCGIなんですけど、
テストで10回に3回ほどサーバーが強制終了されてしまいます。
何がいけないのか教えてください。

ソースは
http://members.home.ne.jp/y-koike/bbs.txt
http://members.home.ne.jp/y-koike/show.txt
です。お願いします。

>>604
環境が全くわからずに答えろってか。

…すみません。慌てて書き忘れました。
Win2000でhttpdVer.1.39f、PerlはActivePerlです。

◎;;;; ･∀･;;;）　ﾁｸｰﾜ （・∀・）ｲｲ！

>>604
ざっと見たが、とりあえずまともに動くコードには見えない。
だがサーバーが落ちるような原因は見当たらないな。
常に落ちるってのならともかく3/10じゃお手上げだ。

ついでに余計なおせっかいだが、
そのサンプルは相当な糞コードだな。
まともな本で勉強したほうがいいぞ。

どうもありがとうございます。
やっぱサンプルから横着しないで一から自作だな…

Perlだけで実現できる、SQL型データベースのモジュールって
無いですか？

use Psql;

#!/usr/bin/perl

$hoge = "head:abc.abc.abc.def";

print "Before: $hoge\n";
$hoge =~ s/(head:)(abc\.)(.?)/$1$3/g;
print "After : $hoge\n";

このコードで、期待する結果として $hoge には head:def が
最終的に入るようにしたいのですが、やはり s/ の部分を
while で括るしかないのでしょうか？

$hoge =~ s/(head:)(abc\.)(.?)/$1$3/g;

$3 のところの特殊変数で「マッチしなかった文字列」なんて
あるわけないですよね…特定できないし…

>>612
どのフィールドが固定なのか条件をはっきりしやがれ。

>>612
まずは perlretut でも読め。繰り返し指定と ? の効果を調べろ。めちゃくちゃだ。

>>612
その場合なら普通に
$hoge =~ s/(head:).*(def)/$1$3/;
これでいいんじゃないの。

KENTさんの「自宅サーバー化計画」を見たのですが
CGIの動作を確認するならやはりこのように
オフラインでテストできるようにした方がいいのでしょうか？

>>616
俺はローカルテスト一切しないな。経験的にほぼ動作見切れるから。

>>616
当然。自分のサーバならともかく、人様のサーバでテストする奴は迷惑馬鹿。

んじゃ>>617は迷惑馬鹿ってことで。

>>616
バグの収束性は確実に早い。

>>616
俺もやるな。
あぷする手間も省けるし。

経験的にほぼ動作見切れてる>>617が妄言を吐いているスレはここレスか？（藁

すんません。>>613 >>614 の言っている事が初心の俺には解りません

文字列の "head:" と "abc." は固定です。"head:" は必ず、行頭に
１回しか出てきませんが、"abc." は色んなところで複数回出てきます。
"def" は固定ではないので >>615 の場合だと、"def" 以外の時は
機能しなくなってしまいます

>>623
勉強する気は無いんかと。()でグルーピングして * とか + とか {m,n} とか知らんのかと。
$hoge =~ s/(?:abc\.)+//;

>>619
動作見切れて何故迷惑馬鹿？

>>622
小さいなあ。
君のような弱小レベルでは妄言に見えるけどそういうレベルの
人間も世の中には確実にいるのだよ（藁

617=625=626 (　´,_ゝ`)ﾌﾟｯ

2chらしい掲示板にマジ質問ですまん。
他人様のホームページをインラインフレームで表示するときに、表示した他人様のページのスクロールバーを消す方法ってある？
ＣＧＩでできるかと思ったけど、方法がわからん（−−；

>>622 設定ファイル書いて「このプログラムも完璧に動いた、俺って天才」つーてるんだよ。
そういう世界もある事をわかってやれ。

>>624
> 勉強する気は無いんかと。()でグルーピングして * とか + とか {m,n} とか知らんのかと。

ありがとうございます。ほとんど昨日、今日perl始めたばっかりの房なので…
() って、$1 とかに突っ込む以外にも効果あるんですね。
?: が無くても期待する結果が同じなのが謎なのでその辺を自分で勉強します

>>625
完璧に見切れます、というのならともかく「ほぼ」じゃダメだろ。
そもそも完璧じゃなさそうなのだが。まあ>>629が真実なんだろうな。

>>628
それはHTMLとかCSSの仕事。
HTMLならscrolling="no"、CSSならoverflow: hidden;あたり。Web製作板へGO。

>>617が馬鹿だってことは、経験的にほぼ見切れる俺。

とりあえずオフラインでも動くようにしてみます。ありがとでした。

perlで指定した文字数でランダムな英数字の文字列を生成するには
どうすればいいのでしょうか？
おしえてください。

>>635
範囲を決めてrand()とchr()で。

最近教えてスレッドとか改造スレッドみたい、ここ。

6文字で。
my @word = (0..9,'a'..'z','A'..'Z');
my $rand = '';
$rand .= $word[int rand @word] for (1..6);

>>636-637
できました！
どうもありがとうございます。

教えて！！！！！

>>639
や！！！！！

LPWモジュールでクッキーを受け取るにはどういう風に記述すればいいのでしょうか？

>>637 禿同。時々>>1を引用しておいた方がいいんじゃないか？

>いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
>
>1：自分はこう言う事がしたい。
>2：それでこんな風にやってみたが･･･
>3：それだとこんなエラーが出て上手く行かなかった。
>
>1と3が無いと誰も答えられないよ、良い回答は良い質問から。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
というわけで>>641 2:3:が無いよ、と言わせてもらって >>4に載ってるここ見た？
http://member.nifty.ne.jp/hippo2000/perltips/lwpcook.html#COOKIES

chr に 2byte 以上与えた場合の戻り値の規則を知りたいのですが、
my $num = shift;
print "$num => ", unpack("C*", chr($num)), "\n";

255 => 255
256 => 196128
257 => 196129

なんでこうなるの？

Perlのスクリプトが動かないのです。
use Any〜でのデータベース使用の準備の後、
dbmopen〜|die〜;
tie〜|die〜;
の両方が死にます。
WindowsMeではパーミッション666のDBMデータベース使えないのでしょうか？
それともPerl5を入れれば改善されるのでしょうか？
激しく既出だとは思うのですが…

>>644
がいしゅつ以前の問題だろ…。
何でも良いからマニュアルの演算子の項を見れ。
ちなみに、それだとあらゆるプラットフォームで確実に死ぬ。

つーかPerl4なのか。
それならそもそもuseをした時点で死ぬだろ。

windows2000Pro.+apacheでCGIを組んでいるのですが、腕の未熟もあって
たまに無限ループを作ってしまうことがあります。
その時にPerl.exeを強制終了させたいのですが、タスクマネージャから落とそうとすると
アクセスが拒否されて落とす事が出来ません。
再起動すれば問題無いのですが、煩雑ですし、Perl.exeが走ったままで使いつづけるのも怖いので
解決方法があればお教え願いたいです。

>>645
すみません。|演算子は||の書き込みミスです。
Perlは5かもしれません。よく分かりません。
一応、がんばって自力で途中まで調べました…。
use DB_File;
はどうなんでしょう？とりあえず帰ったら試してみます。
これでだめだったらどうしよう…。

>>648
ﾊｧ…自分が何やってるのかもわからないﾔｼに何かを教えることは出来ません。

>>649
何をやっているか…標準クラスモジュールのスコープを使用可能にしているのでは？
Perlは5でした。結局、tieが通らないのが問題だと思います。
Perl附属データベースを優先的に使用するように指定できれば良いのでは…
と思ってはいるのですが…やりかたが…

>650
やっぱり何やってるかわかってないじゃん。

つーか、「〜すれば良いのでは？」と思うなら勝手にそうしてください。
やり方がわからないならGoogleってください。
ここはあなたに相槌を打つｽﾚじゃないので。

携帯でgoogleか…鬱だ…

駱駝本と格闘して自己解決しました。GDBM_Fileとtieの組み合わせで成功。他の方法で失敗する原因は後で考えますです。

>>643
unpackは1Byteずつ処理。
どうもリストコンテキストで評価されてそんな数字になっているみたいだね。
chrはUTF-8の文字列を返しているみたいだけど…　詳しい方、解説ｷﾎﾞﾝ。

my $num = 256;
print "$num => ", join ', ', unpack("C*", chr $num), "\n";
print "$num => ", ord chr $num, "\n"; # chrの反対はord

どうでもいい事だとは思うけど、コーディングしてて山の様にあっちこっちに
動的変数作ってしまって、プログラム終了まで使われなくなった変数って
やっぱシステムリソース喰ったままなんですかね？

「もう、この変数は使わない〜」と思ったら、undef した方がいいの？
それとも、コンパイラが適当に判断してくれたりするんだろうか？

$a = "（・ｖ・）";
$b = 12345;

{
# ここで $a と $b 使う。これ以降は使用されない
}

{
# 新たに変数 $c を割り当てる。しかし、$a $b が使われていないので
# $a $b 用の領域を使って確保される？（暗黙の undef とか？…）
$c = "(　ﾟдﾟ)";
}

素人のものすごい素朴な質問なんですけども、
-wとuse strict;とuse warnings;$|=1;も入れて可能な限りエラーをなくして見たりしてるんですが
なぜか
Use of uninitialized value in concatenation (.) or string at C:\***.cgi line ｎ.
と
Use of uninitialized value in string eq（またはneとか==とか!=とか。） at C:\***.cgi line n.
というエラーは消えてくれません。
動作にはまったくこれといって支障ないですけど、なんとなく気になってた疑問なのでちょっと聞いてみました。

>>656
理由はメッセージに書いてあるじゃないか。変数は初期化しろ。
とわいえ、俺もこのwarningはウザイと思う場合もある。そん時はno warnings;〜;use warnings;ではさむ。

>>655
myしる。そうすればブロック抜けた時に消える。

{
my $c = '(　ﾟдﾟ)';
# 〜$cを使う処理〜
}

比較結果の表示と保存をするのに

my $patch = system("diff file1 file2");
system ("diff file1 file2 >patch.diff");
print qq|$patch\n|;

これをまとめるのはどのようにしたらよろしいのでしょうか？

my $patch = system("diff file1 file2　>patch.diff");
print qq|$patch\n|;
では表示が 256 になってしまうので宜しくお願いします。

>>659
何がしたいのか分からないのでこの答えが妥当かどうかはわかりませんが
$patch = `diff file1 file2`;

>>657
変数のところじゃなくて、
Use of uninitialized value in concatenation (.) or string at C:\***.cgi line ｎ.
が出るのは
print <<"EOF";
の行なんです。これを指摘されるのは何でなんでしょう？
print <<"EOF";
〜
EOF
内で使われる変数は全部use var qw[$a $b 〜];というふうにあらかじめ書いてるんでが。
ヒアドキュメントになにか決まりごとでもあるんでしょうか？

>>661
宣言と初期化は違う。
宣言しただけだと変数の中身はundefだから、そんな感じで怒られる。
初期化（空文字列を代入するとか）をしておけばエラーは出なくなる。

>>662　ども。
use strict;
use var qw[$a $b 〜$z];
$a=$b=$c=〜$z="";

{
print <<"EOF";
〜
$a
$b 〜
$z
EOF
}

とやってみましたが、やっぱりprint <<"EOF"; を指摘されます。別に問題なく動くということは
print <<"EOF";で出るUse of uninitialized value in concatenation (.) or string at C:\***.cgi line ｎ.は
やっぱり意味の無いエラーなんでしょうか。

perlでオラクルを使ってDBIのモジュールをインストして使ってます。

selectall_arryとかで値を抜き出す時に使う変数が理解不能です。
$@hogehoge　とか　$$_[1]　って奴です
一応$_[1]とかは解りますが$@を会わせたり$$でjobid以外の使い方が今いち理解できません。

>>663
んな事はない。どれかの変数の初期化を忘れているだけだ。
目を皿にして良〜く見ろ。

>>660 ありがとうございました。以下で解決しました。
$patch = `diff file1 file2`;
open (FH, ">patch.diff");
print qq|$patch|;
print FH qq|$patch|;

>>664
man perlref

>>663
途中で変数にundefが代入されたんだろう。
試しにprint文の直前でprintに関わる全ての変数に対して defined $z or $z = ''; してみれ。

古くなった掲示板の投稿を次々とHTMLページにして過去ログを作成する掲示板がありますが、
１ディレクトリ内のファイル数が多くなるとアクセスが重くなったり、サーバーに問題が起きたりするのでしょうか。
サーバーはファイルにアクセスするときに1ディレクトリずつ辿っていくとするなら遅くなりそうですが。
5000ファイルとかでも大丈夫でしょうか。

Perl5で掲示板ＣＧＩを作っているのですが、ＣＧＩの”重さ”ってどうやって調べればよいのでしょうか。
WinソフトならＣＰＵ使用率のグラフでも見ればいいんですが、サーバ上となると。

ＣＧＩスレで聞こうと思ったんですが、言語に依存しそうなのでこちらでよろしいですか？

よく見るとsageだったｽﾏｿ

>>670
-d:DProf とか。

CGIなら
#!/usr/bin/perl -d:DProf
とかで。

あの…それってなんのオプションですか？（今調べてますが）
ＣＧＩのほうではエラーで起動できず、ＤＯＳプロンプト(WinME+Apache)のほうではなにも表示せず終了なのですが。

あ、なんか出てきた。
ありがとうございましたm(_ _)m

…と言っても、そんなファイルは見つからない〜のｗ。

>>658
Perl内部ではメモリ開放されるだろうけど、OSには返されないだろ、
ってクックブックに書いて有ったきがする。つ〜わけで、システム
リソースは喰ったまま。スクリプトが終了した時点で全て回収
される。
ただmyを使用すれば、新たな変数宣言時に跡地が有効利用されて、
全体としてメモリ使用量が減る、ってことになるんですかね。

>>665
>>668　どうもです。
とりあえずそれをやってみます。
undefってやっぱりPOSTから分解したときに対応している値が空だとundefが入っちゃうんでしょうか？
***.cgi?a=&b=123だと$a=$FORM{'a'};は中身はundefなのか''空なのかどっちになってるのかよくわかってないです。。

>>676
>POSTから分解したときに対応している値が空
その場合はundefじゃないと思うよ（空）。分からない時は
defined $FORM{'a'} ? print "定義済み〜\n" : print "未定義〜\n";
しちゃえば？

>>672
質問した者では無いんですが、良い事を教わりました。

とりあえず *無意味なエラー* なんてものは存在しないってことを理解しる

>>678
なんか当たり前だがハッとなる言葉だな。

糞ッたれなエラーメッセージは世の中に溢れている。
abnormal termination...

-d:DProf について解説してるサイトないですか？

>>681
http://www.perldoc.com

derectory indexのかわりにSSIで
http://www.xxx.com/cgi-bin/bbs/
のように表示しようと思ったんですが、１つのスクリプトで.shtmlと.cgiを表示させようとすると.shtmlのときにContent-type: text/htmlが表示されてしまいます。
そこでヘッダーに
if($ENV{'SCRIPT_NAME'} eq 'xxx/cgi-bin/bbs/') {
print "Content-type: text/html\n\n";
}
とかいて可変型の出力をさせるとhttpdでは動いたんですが、サーバへ送るとエラーになります。
こういうことってできないんでしょうか。

>>683
何をしたいんだかいまいちわからない。
もう少し詳しく書いて。

>>684
宣伝をしたいんじゃないの？

>>685
www.xxx.comって適当に書いたのかと思って行ってみたら、エロサイトだったのでﾋﾞｸｰﾘ

>>686

同じく..

すいません。
宣伝ではありません。適当に書いただけです。

同じスクリプトをbbs.cgi（元のスクリプト）とindex.shtmlの両方で呼び出したいんですが、
if($ENV{'SCRIPT_NAME'} eq 'xxx/cgi-bin/bbs/bbs.cgi') {
print "Content-type: text/html\n\n";
}
と書くとエラーになってしまうんです。
ようするにbbs.cgiを読んだときにはContent-type: text/htmlを出力して、index.shtmlを読んだときにはContent-type: text/htmlを出力しないようにしたいと思って。

>>688
if( $ENV{'SCRIPT_NAME'} =~ /bbs\.cgi/ ) {
print "Content-type: text/html\n\n";
}
としてみてはどうでしょう。

どうもありがとうございました。
うまく動きました。簡単でしたね（汗）

1行だけのファイルがあったとします、
これを8バイトごとに区切って、
@sort に代入していくにはどうすればいいですか？
split 関数では区切り文字がないとダメなので…
区切り文字はなく、とにかく8バイトずつ区切りたいです。
よろしくお願いします

>691
readで一定量づつ読み込んでからunpackで分割

$/ = 8;
@sort = <FILEHANDLE>;

これでもいけなかったけ。確かめてないけど。
# バージョンが低いとだめっぽいが

早速質問です。
フォームメールを使い会員宛に情報を送るCGIプログラムをテストしています。
PCやJskyでは無事メールは届きますがi-modeには届きません。
自分の携帯だけかなと思い、友人のi-modeに送ってみたが届きません。
ただしOUTLOOKなどのメーラーを使うと送ることは出来ます。
着信拒否の設定も何もしていないのに．．．
考えられる原因って何かありますか？
※独自ドメインをレンタルサーバーで運用しています。

>>695
一部のドメインからの送信が規制されているらしいという話を聞いたことある

ありがとう。
共有型のレンタルサーバ使用で、
sendmailから送られるメールのMessage-Id:が
レンタルサーバ会社名なので、
もしかして他サイトが迷惑メールを送信したために
規制されてるのかな？うーん．．．

MLDBMを使ってプログラムが書きたいんですけど、
MLDBMについて詳しく説明しているページや
使い方を教えてください。

>>698
http://www.google.co.jp/
ここのフォームにMLDBMと書いてボタンを押すとお望みのページが出てきます。

>>691
use IO::File;
my @ary = IO::File->new('data.txt')->getline =~ /.{0,8}/g;

{ local $" = "\n"; print "@ary" }

>>694
perl5.005 より前だと使えないけど、今となっては問題ないような。
ちなみに、整数へのリファレンスでないといけない。

my $str = 'abc8defg8hijkl';

$/ = 8;
open my ($h), '<', \$str;
print "$.: $_\n" while <$h>;

$/ = \8;
open $h, '<', \$str;
print "$.: $_\n" while <$h>;

foo(%abc);

sub foo {
my %hash = @_;
}

って正しい？

Perlの最新版ってどこにあるの？

数値ソートがうまくできません。
下のコードをサーバ(version = 5.004_01)で実行すると、
uninitialized value警告が大量に出て、@aはソートされません。
でもローカル(version = 5.6.1)では警告無しでソートされるようです。
これはどうすればいいですか？

#!/bin/perl -w
# perl version = 5.004_01
use strict;
sub cmp($$);
my %h;
for (my $i = 1; $i <= 30; $i++) {
　　$hash{$i} = rand;
}
my @a = sort cmp (keys(%h));
print @a;

sub cmp($$)
{
　　my ($i, $j) = @_;
　　return ($i <=> $j);
}

>>701
正しく動くけど、できればリファレンスで渡したいところ。

>>703
何と言うかメチャクチャだよ。基本から学ぼう。

>>702
CPANでも逝ってくれ。
窓用のActivePerlならactivestate.comへ。

……activestate[s]にして全然違うところへ飛ぶ罠にご注意（ｗ

>>705
？
別にむちゃくちゃってわけじゃないだろ。
何故こんな質問が出るのか少しばかり謎ではあるが。

>>703
Perl5.6以前ではsort用比較関数は$aと$bを参照しなけりゃならんのよ。
つまり
sort { $a <=> $b } @array;
とするわけだ。
# プロトタイプの設定で@_でも参照できるようにしたのは
# おそらく別パッケージでも簡単に動かせるようにする為だろうね。

ついでに、cmpはPerlの組み込みキーワードなんで
サブルーチンの名前にするのはやめたほうが無難かもしれない。
特に問題なく動いてるようだし、構わないのかもしれないが。

質問、というか添削希望です

DB_Fileを使って、
-------------------------
use DB_File;
$DB_BTREE->{'flags'} = R_DUP;
my $d = tie %db, 'DB_File', 'data.db', O_RDWR|O_CREAT, 0600, $DB_BTREE;

if(my $count = $d->get_dup($key)){
　　print "key: $key ($count times)\n";
}
-------------------------

というふうに、データベースに指定したキーに対応するデータが
１つ以上存在する場合、その重複数を数えつつ処理したいのだけど、
このifの条件式に問題点はありますか？

房な質問すいません

ローカル環境でCGIデバグして、動いていたものがほんちゃん用の
鯖にうｐしたらエラーだった…

telnetでコマンドライン実行した所、↓のコードがダメだった

# 駄目
delete $hoge[ $i ];

# OK
delete $hoge{ $i };

単なるコーディングミスなんだけど、なんでローカルの perl では
コンパイル通っていたんでしょうか？

自己レス…素直に splice 使った方がいいね。出直してきます…

こんな素プリ区とを作ってみましたがうまく動きません。
どこがまちがっているのでしょうか。。。
ちなみにperl -CPAN -e shellで関係するモジュールはインストール済みです。
-----
#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
require 'jcode.pl';

my $ua = new LWP::UserAgent;

my $request = new HTTP::Request('GET', $ARGV[0]);
my $response = $ua->request($request);

if($response->is_success) {
$html_response= $response->content;
}else{
print $response->error_as_HTML;
}

@html_response = split(/\n/,$html_response);

foreach (@html_response) {

if ($_ =~ m/name="?[^"]*"? value="?[^"]*"?/g) {
$data{'$1'} = $2;
}
if ($_ =~ m/NAME="?[^"]*"? value="?[^"]*"?/g) {
$data{'$1'} = $2;
}
if ($_ =~ m/NAME="?[^"]*"? VALUE="?[^"]*"?/g) {
$data{'$1'} = $2;
}
}

while(($key, $val) = each ﾚta) {
push @key,$key;
push @val,$val;
}

$data1 = join(',',@key);
$data2 = join(',',@key);

&save_data;

sub save_data
{
$save_url = "./data.txt";

open(IN,">>$save_url");
flock(IN,2);
print IN "$data1\n$data2 \n";
flock(IN,8);
close(IN);
}
-----ここまで

ご質問です。あるホスト名のみ、アクセス拒否できるCGIってありますか？
教えて下さい。

tyuubo-だけど言葉ずかいが素敵だから教えたる。
楽勝。

>>714さん
ご指導ご鞭撻、よろしくお願いします。

初歩で素朴な筆問でｽﾏｿ

「文字連結」ってどうやるの？

配列に入れて、joinするのはめんどいけど、
正規表現とかでやり方はないっすか？

>>716
ﾊｧ？何が肢体のかワカラソ。
$catedstr = join "", $str1, $str2;
とか
$catedstr = $str1 . $str2;
のことじゃないよな？

便乗質問です。
文字列の500文字目に"abcde"を入れるには
どういたら良いのですか？

>>718
substr

>>718

ばっかもーん！それぐらい調べればすくわかることだろうが！！
今度そんな質問したらゲンコツだぞ！！

つーか何の便乗なのか謎。DQN？

>>714
お前の言葉づかいは素敵じゃないな。（藁

あのぅ・・・掲示板のフラットボタンありますよね？あれってどうやってるんですか？

>>723
掲示板のフラットボタン？こういうことですか？
<input type="submit" value="送信" style="border:solid 1px #000000">
これはスタイルシートつかってます。
Web制作板のCSSスレに載ってるサイト見て勉強してください。

>>723
たぶん平べったく見えるボタンの事だよね。それならスタイルシート。
border: 1px solid silver; とか。板違いなのでWeb製作板へ。

激しくｶﾌﾞﾀ(w

関数の戻り値を、リファレンス使わずに、ハッシュで返したいんですけど、

sub a
{
　my %hash = (a=>0,b=>1,c=>2) ;
　return %hash ;
}

my %myHash = a() ;

こんな感じなんですけど、添削してくれませんか、ねた無しで・・・

>>727
それでいけるよ

>>728
レスありがとう御座います、確認不足でした。
うまくいけてました。

ここでよく見かける質問で極簡単なソース晒して「結果」を求める質問あるが、
それはCGIの一部でローカルでテストする環境無いヤシが質問しているのか？

携帯で画面を自動で移動させるにはどうしたらいいでしょうか？

>>731
君はPerlを宝島か何かのように考えているのかね。

>>731
携帯では無理だよ

教えて下さい。
スクリプトを見られないように文字化けさせるやりかたがあるときいたのですが、
変換させる用にマクロメディアかマイクロソフトかで何かを
ダウンロードしてこないといけないと裏技の本に書いてあったそうです。
書店に本を探しに行ったのですが見つからず。もしご存じでしたら教えて下さい。

>>730
自分の事？、
あるよ、Vine Linux2.?と、Slackware8、WinじゃCygwinも
自分の今回の確認ミスは、結果のハッシュ構造の確認をＤｕｍｏｅｒ使っていたため、
リファレンス先のハッシュは問題無く表示されるけど、
直接ハッシュ指定すると正しく表示してくれないみたい、
常識？

>>734
それは、Javascriptの話じゃない？
ＣＧＩの場合は、パーミッションをきちんと設定すれば、
見られる事は無いとおもうけど

=

>>736
すみません。
おっしゃるとおりJavascriptのことです。
ソースのJavascriptを文字化けさせて、読めなくする方法だとききました。
わかりますでしょうか？

動画アップローダーのスクリプトありませんか？
情報お待ちしてます。

>738
そこまでわかってんならスレ違い，というよりも板違い

今あるCGIを作ってるんですけど、
(WINのユーザー・FREEBSD上のcgi)
HPでデバックするため、
読み込んだファイルを
￥ｒ￥ｎを￥￥ｒに書き換えて処理して、
￥￥ｒを￥ｒ￥ｎに直して
改めてファイルに書き込んでいます。

1回目はちゃんと処理するのですが、
2回目以降、￥ｒ￥ｎを￥￥ｒに書き換えて処理の部分が実行されていないようです。

書き換えられたファイルも一見何も変わってないようなものはないので
八方ふさがりになっています。

ファイルを書き込むときに
BSD上で￥ｒ￥ｎが何かに変更されているとかしか考えられません。
そのようなことは起こりうるのでしょうか？

今バイナリで調べてみたのですが、
0D0Aが、0A0Aに変わってしまっていました。
でも、
s/\\r/\r\n/ig;

してるんですよね。
何でだろう。

>>740
あああ、すみませんでした！
今気付きました！
ここは[Perl]の初心者コーナーだったのですね。
「初心者」という部分しか目に入ってませんでした。
申し訳ありませんでした。

>>741
俺がこれまで見た中で十指に入るひどい日本語だ… 意味不明。

￥￥ｒって
バックスラッシュと小文字の r ってこと？
なんでそんなことするのか理解に苦しみます。

>>745
おそらく>>741の使ってるファイルには"\\r"がたくさん入ってるんだろう。

質問させてください、次のようにソートされた配列を
@list=(102,105,111,205,245,250,297,312,322,456,473,479,482,499);

こんなかたちに分解したいんですけど
@list1=(102,105,111);#----------頭が1
@list2=(205,245,250,297);#------頭が2
@list3=(312,322);#--------------頭が3
@list4=(456,473,479,482,499);#--頭が4

出来るだけシンプルにやりたいなぁと思ったわけです。
で初心者の僕ががんばって考えたのは
$i=1
foreach(@list){
　while($_ !~ /^$i/){#--$iの値を配列要素の先頭の数字とマッチするまで増やす
　　$i++;
　}
　push(eval("\@list"."$i"),$_);#---新しい配列「@list+$i」に配列要素を追加
}
というもので、当然というか配列と変数をくっつけるevalが
効かなかったんですよね。
なんかよい方法はないものかと。
いっぱい間違ってるかもしれませんが、簡潔な方法があればよろしくおねがいします。

>>747
for (@list) {
die 'あほ' unless(/^(\d)/);
push @{"list$1"}, $_;
}

>>748
大変短くして頂いてありがたいのですがエラーがでました。
スミマセン

>>749
まさか>>748のをそのままｺﾋﾟﾍﾟ（以下略

>>747

@list=(102,105,111,205,245,250,297,312,322,456,473,479,482,499);
foreach (@list) {
next if !/^(\d)/;
eval sprintf 'push @list%s,$_',$1;
}

print @list1,"\n";
print @list2,"\n";
print @list3,"\n";
print @list4,"\n";
<>;

いや、なんか配列名に変数をくっつけるみたいな書き方のとこ
push @{"list$1"}, $_;
ココだけコピって使ったんですけどね

ソケットのことでついての質問です。
#!/usr/local/bin/perl
use IO::Socket;
use IO::Select;
@servers = ('www.zdnet.co.jp','www.asahi.com',);
print "Content-type: text/html\n\n";
foreach $server (@servers){
$socket = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => 80,
Proto => 'tcp',
);
print $socket "GET /index.html\r\n";
print $socket "Host: $server:80\r\n";
$socket->flush();
print <$socket>;
}
これでページを取得出来るんですが、
ページを全部読み込んでしまいます。
これを一部のみ読み込むにはどうすればいいのでしょうか？
と、、、
print <$socket>;
これを変数にあてはめて表示するにはどうすれば、、、。

あ、何か751さんが新しい答えくれてる、ちょっとこれ試してみます。

うわ、スゲエ、出来た！
でもよーわからん、、、
ノートに書き写して後でゆっくり考えてみます。
ありがとう！

747たんは多次元配列知らないのでちゅか？

>>1-756ﾏｲﾅｽ753番
糞

>>745
実際、\r・\r\n（あと\t)がどのような状態で入っているのか
cgiのコンソールで書かせて、HPに表示させるためです。
ただ長いスペースが空いているのではわからないので、
表示できる形に直しているのです。

>>746
そのとおり。XMLソースを加工しています。

問題をはっきりするため、読みこんだ＄ファイルを
$a=~s/\r\n/\\r/ig;
$a=~s/\t/\\t/ig;
##デバック
$a=~s/\\r/\r\n/ig;
$a=~s/\\t/\t/ig;
して書きこんでいるだけなのですが、
書きこみ前と後のXMLファイルをVCでバイナリで開いてみると、
どうやら0D0Aが0Aに変わってしまっているようなのです。

何が問題なのでしょうか？

cgiのコンソールってなんでちゅか？
s///になんでiを付けてるのでちゅか？
デバッ ク　ってなんでちゅか？
<pre>じゃだめでちゅか？
表示させるために置換したものを、なんで再びファイルに書くのれちゅか？

バックスラッシュはエスケープさせないのれちゅか？

>>758(>>741)
呆れるほど突っ込みどころ満載なんだがとりあえず一つ。
binmode(FILEHANDLE)使って見れ。

Perl を使ってあるWin2kのログ ファイルから必要な情報を別のテキスト ファイルに抽出
してるんですが、ちょっとした理由でこのログ ファイルが Unicode 形式になってしまいまいた。
でこのスクリプトで読み込んでみたら案の定白紙のテキスト ファイルを作ってくれました。
Perl で UCS2 のファイルの読み書きってできるんでしょうか？
Jcode.pmとかって使うんですか？
教えて君ですみません。

>762
yes.

すみません。勉強したての超初心者ですが、下の場合どのように書けばいいのでしょうか。
例えば
a==bで尚且つｃの場合"あいうえお"を返す。a==bで尚且つｃで無い場合"アイウエオ"を返す。
a==bでなかったら"123"を返す。それ以外は"---"を返す。

それで

if(a==b){if(c){z="あいうえお"}else if{(c){z="アイウエオ"}
}
else if{(a!=b){z="123"}
}
}
else{z="---"}

だと、当たり前のようにエラーになります。教えて君ですみませんが皆さんの力を貸して下さい。

s/[a-z]+//;

とか正規表現にマッチした部分が格納される変数の名前ってなんでしたっけ？

>>764
もし $A eq $B かつ $A eq $C のとき $Z="あいうえお";
そうじゃなくて $A eq $B かつ $A ne $C のとき $Z="アイウエオ";
そうじゃなくて $A ne $B のとき $Z="123";
それ以外のとき $Z="---";

if && elsif else

>>765
とうとうこんな質問まで出るようになったか・・・。
検索もできないｸｽﾞはプログラミングなどやるな。

>>764-765
おい、流石にLV低すぎだろ。ネタだとしても酷すぎる。

Image::Magick を使って画像の切り出しをやろうと思います。

$img = Image::Magick->new;
$img->Read( $file );
$img->Crop( $w, $h, $x, $y );
$img->Write( $file2 );

とやることで一ヶ所の切りだしはできるのですが、
格納している画像をカットしてしまうので、部分コピーするか、
元画像をコピーしようと思います。

ループの中に
$img2= $img->Clone;

を入れて、 $img2 に対して処理を行うことにしましたが、
Cropが有効にならなかったり、前回と同じ位置が吐き出されたりと
うまくいきません。

指定範囲を別の変数にコピーして、そこから書き出すということを
やりたいのですが、どのようにしたらいいでしょうか？

>>769
原因わかりました…。
単に座標の指定を間違えているだけでした…。

>>764
カッコの数があわないのではないか。
それはともかく、この判定条件ではz="---"の文には
至らない気がするがまあいいや。

if(a==b){
if(c){
z="あいうえお";
}else if(c){
z="アイウエオ";
}
}else if(a!=b){
z="123";
}else{
z="---";
}


>>768
グレシャムの法則というのがあってね以下略

elsif

perlスレだった。
くどいけど旅の恥はかきすて。

if($a==$b){
if($c){
$z="あいうえお";
}elsif($c){
$z="アイウエオ";
}
}else{
$z="123";
}

>>767
初心者は何がわからないかもわからなくて、検索もできません。
答える気がねーなら、煽ってんじゃねーｳﾞｫｹが
ここは”一応”初心者スレなんだから。


ｵﾚﾓﾅｰ。

すいません、Perlの質問ではなく申し訳ないのですが、CGIの呼び出し方で一つ質問があります。
SSI/.htaccessが使用できないサーバ上にPerlで作成した単純なテキストを返すCGIをアップロードしました。
IEのアドレスエディットボックスに直接CGIのアドレスを入力すると正常動作しています。
これをindex.htmlがロードされると同時に読み込みたいのですが
CGIの参考書に載っている<!--exec cmd="hoge.cgi"-->や<img src="hoge.cgi">の呼び出し方が出来ません。
この他にindex.htmlと同時にhoge.cgiを読み込む方法がありますでしょうか？

>>775
JavaScriptで飛ばすとか。

>>775
「SSI/.htaccessが使用できないサーバ」ですから
<!--exec cmd="hoge.cgi"-->
は使えません。

「単純なテキストを返すCGI」ですから
<img src="hoge.cgi">
はイメージデータが返さなければ意味がないです。

<script src="hoge.cgi"></script> で呼び出して、
ソースを下記のように javascript に書き換えましょう。

$text = "出力する文字列";
print "Content-type: text/plain\n\n";
print "document.write('$text')\;\n";
exit;

776さん、777さん
ご丁寧なレスありがとうございました。
早速試してみます。m(__)m

(´-`).。oO（>>775 JavaScript 常時 OFF な人には見えないね…）

質問なんですが、携帯からなので、ログ参照、検索は勘弁願います。

学内BBS作ってるんですが、全員同じプロクシなので、
ほかに手っとり早く個人識別する方法はありますでしょうか。

>>780
(1)全員に固有のIDとパスワードを配布する。
(2)書き込みは係りの人に紙に書いて手渡しにする。
(3)自分だけ書き込み出来るようにすれば、おそらく書き込んだのは君だ。
(4)名前を書かせ、それを信じる。

>779さん
試して見ましたが、どうやらそのようですね。
ASAHIネットがCGIのβサービスを開始したからCGIの勉強を始めようとしたのですが・・・
うーん、他の人達は一体どのように対応しているのかなぁ？？？
もう少し調べて見ます。
ご指摘ありがとうございました。

>>782
イメージデータにして<img src="hoge.cgi">すれば？

>>781
うーん、2chのIDみたいなのとかつけたら
面白がると思うんだよね。

5) 300カ国の人間が300人自分の言語で書く。

(´-`).。oO（>>784 全員同じ串なら、リモホも同じだよね？よって、IDも同じになると思うが？…）

あ、非匿名串とかは別ね

普通のPerlとアクティブパールの違いだってなんですか、
今度IISでPerl使うんですけど、選択に迷ってまして、
どんなもんでしょ？

(´-`).。oO（>>786 名前が違う…）

ドキュメントぐらい読めよ。ヴァカwin房

>>787
しゃべんなって。

>>788
最近この手のアフォよく見るな。たいした質問内容でもないくせにやたら偉そうだな

↓はい、次の方どうぞ

Perl　→　言語名
ActivePerl　→　処理系名

ですよ。

>>787 >>789
煽りなら他でやっていただけますか?
邪魔です。

>>791おまえも邪魔だ。いちいちレスするなって。

>>785
だからIP.リモホ以外で個人を識別する方法を…

掲示板などでhttp://〜から始まるURLに自動でリンクしたいのですが、
どうしてもうまくいかない箇所があるのでどなたか教えてください。

書き込まれる本文を「$message」としたとき、
$message =~ s/(http:\/\/[ほげほげ]+)/<a href=\"$1\">$1<\/a>/ig;
こんな感じになると思うんです。

そこで、
$message =~ s/(http:\/\/[\w\.\,\/\~\-\+\=\#\%\&\?\(\)]+)/<a href="$1" target="_blank">$1<\/a>/ig;
こういう記述でやってみました。

ところが、どうしても以下のような「,」が続くURLや、
ttp://k-tai.impress.co.jp//cda/article/news_toppage/0,,9441,00.html
以下のような「&」が入るときに、URLのリンクがそこで途切れてしまうのです。
ttp://news.lycos.co.jp/company/story.html?q=20bloombergki1580637&cat=10

試行錯誤してみたのですが、詰まってしまいました。
どなたか教えて頂けませんか？

>>794
http://www.din.or.jp/~ohzaki/perl.htm#httpURL

>>795
参考にさせて頂きます。
実は結構難しいんですね…。

すいません。
Jcode,pMの実装例がみたいのですが、サンプルどこかにないでしょうか。
けっこうしつこく検索してるんですが。。。

UCS2をよみこむスクリプトつくりたいのｄせうが。

エディタスレに載ってたんだけど
DzSoft Perl Editorは良さそうだね。
(ただし、フリー版は行数制限あり）

http://www.dzsoft.com/dzperl.htm

サーバの起動状況を見ようと思っています。

最初はSocketを使って、レスポンスが帰ってきたらUpというようにしていましたが、
性質上どうも動作が重いので、代わりにpingで見ようとしましたが、全然資料が無くてよくわかりません。

どなたかご教授願います。

Socketでファイル取得して、保存しようと思うのですが画像ファイルなどがうまく保存できないんです。
普通のテキストファイルはちゃんとできるのですが。
有用なリンクなどがあれば教えていただきたいです。

binmodeってオチですか？

>>801
binmodeは多分やってるはずですが・・・。
以下ソースです。
$addr = (gethostbyname("www.2ch.net"))[4];
$name = pack("S n a4 x8", 2, 80, $addr);
socket(S, 2, 1, 0);
connect(S, $name);
binmode(S);
select(S); $| = 1; select(stdout);
print S "GET /back.jpg HTTP/1.0\n\n";
open(A,">>back.jpg");
while (<S>) {print A;}
close(A);
close(S);

binmode(A)だし、<S>に何がかえってくるかコンソールで確認した？
ダメすぎです。

$target =~m/ー/;

"ー"は日本語のハイホン

これが走らないのですが、ーはできないのですか？

このスレは
【Perl】FAQを敢えて質問するﾈﾀ心者コーナー
に変更されますた。

ハイホン
http://www.google.co.jp/search?num=100&hl=ja&safe=off&q=%83%6E%83%43%83%7A%83%93&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
ハイフン
http://www.google.co.jp/search?num=100&hl=ja&safe=off&q=%83%6E%83%43%83%74%83%93&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
ハイプン
http://www.google.co.jp/search?num=100&hl=ja&safe=off&q=%83%6E%83%43%83%76%83%93&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

ヒロポン
ttp://www.warbirds.nu/heiki/42000.htm

>>803
んーいまいちよくわからんです。。

>808
参考サイト(http://x68000.startshop.co.jp/~68user/)
書き出すファイルのファイルハンドルもbinmodeにしてね。
それとHTTPの応答は邪魔だから捨てると。
IO::SocketやLWPもチェック。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
use Socket;

$port = getservbyname('http', 'tcp');
$iaddr = inet_aton("www.2ch.net") or die "www.2ch.netは存在しないホストです。\n";
$sock_addr = pack_sockaddr_in($port, $iaddr);

socket(SOCKET, PF_INET, SOCK_STREAM, 0) or die "ソケットを生成できません。\n";
connect(SOCKET, $sock_addr) or die "www.2ch.netのポート$portに接続できません。\n";
select(SOCKET); $|=1; select(STDOUT);
binmode(SOCKET);

print SOCKET "GET /back.jpg HTTP/1.0\r\n";
print SOCKET "\r\n";
while (<SOCKET>){
    m/^\r\n$/ and last;
}

open(FH, "> tmp.jpg");
binmode(FH);
while (<SOCKET>){
    print FH $_;
}
close(FH);

>>806暇人

>>810ハイホン

>>811ハイプン

勢ぞろいだな

length($value)のように
配列のサイズを求めたいのですが、length(@arry)や(-s @arry)で取れません。
サイズを求める記述を教えてください。

>>814
foreach (@arry){$length = length;}

>>814
配列をスカラーコンテキストで評価すると要素数になります。
my @array = 0..99;
my $c = @array;
print $c;

それともこういうこと？
my @array = 0..99;
my $length = 0;
map { $length += length } @array;
print $length;

どちらにしろまともな参考書を読むのをお勧めします。

$length=$#array_name;

ちなみにハッシュは、
$length=keys %hash_name;

DBMファイルに、配列を格納したく、

use MLDBM 'GDBM_File';
tie (%db, 'MLDBM', 'data.pag', O_CREAT|O_TDWR, 0644) || die;

としましたが、
MLDBM:error Second level tie failed 'ファイルもディレクトリもありません'
と出て止まってしまいます。
スカラーを格納する時は、use GDBM_File ですぐできたのですが、
このエラーの原因が解りません　；；
Diedは上記エラーの次に出ます。MLDBMは最新です。
どなかた勘所の解る方、ヒントでも教えていただけませんか。　よろしくお願いいたします。

CGI上で
Content-type: text/html\n\n
書いて、HTMLを表示したものを、処理の終わりがけに消して
Location: jump_url\n\n
したいのだが、どうすればいいのれすか

>>820
定期的に監視するフレーム作る。

>>821
言っていることがいまいちわかりません。
参考URLがあったら、教えてくれ。

CGIの中にカウンターを付けたいのですが誰か作って下さい（テキストカウンター）
2重カウント防止のやつね。

>>823
What are you?

>>823
print "僕はカウンターすら作れない厨房です";

(・∀・）？

>>820
結果表示用のフレーム(F1)とCGIの進行状況を監視するフレーム(F2)をつくる。
F1にはCGIの出力を垂れ流す。(長時間無出力でタイムアウトしないように注意)
F2ではCGIの状況を監視する監視用CGIを実行する。
監視用CGIは処理が完了するまでrefreshでループする、完了したらWindow全体をどっかに飛ばす。

携帯で「Location」が出来ないんですけど、何故でしょうか？
PCなら飛ぶんですが。。。

>828
仕様です。

>>828
Locationヘッダを絶対パスじゃなく相対パスで指定してるとか？

>>830
絶対パスで指定しています。
cgiにジャンプしてるんですが、できないんでしょうか？

>>831
ソース晒せ

あのー.............カウンター..................お願いします

>833
> いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
>
>1：自分はこう言う事がしたい。
>2：それでこんな風にやってみたが･･･
>3：それだとこんなエラーが出て上手く行かなかった。
>
>1と3が無いと誰も答えられないよ、良い回答は良い質問から。
>一緒に勉強しましょう。

最近はこのスレにぎやかだな。燃料が湧き出る湧き出る・・・

くだらん質問よろしいですか。
2ch掲示板のID付与機能は、何を見てなされているのでしょうか。
環境変数でしょうか。
cookieでしょうか。
よろしくお願いします。

>>836
環境変数です。

ありがとうございます！

フォームの最大文字数の設定なんですがこれだとエラーが出ます。

if (length($data{'coment'}) > 500){print 'コメントが長すぎます。'
}else{

構文チェックではOKが出るんですが、どこが間違ってるんでしょうか？

>>817
要素数なら、
$length = $#array_name + 1;
で、ないか。

>>839
>これだとエラーが出ます。
エラーの内容を書けない理由でもあるんでしょうか？
>フォームの
　↓ ヘッダ（Content-type）出力してますか？
>print 'コメントが長すぎます。'