【Perl】初心者コーナー Part15

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

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

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

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

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

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

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

2げと

４ｇｅｔ

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

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

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

zusa----------------------------------------------------------------

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

なんとか>>2-10に収まってホッと一息

--------------------------------終了---------------------------------

>>10＝前スレ1000 死ね

コテハンは死ね

>>12=10
騙んなボケ

香ばしいな

>>12=10
騙んなボケ

>>12=10
騙んなボケ

>>12=10
騙んなボケ

荒れてるな。ぷっ

　　　　　　　　　＼ 　 !　　 |!　　/::l　　| |　|i　 |i　＼　　 ヽ　 ヽ　ヽ
　　　　　　　ノ （　 ＼|　　 ||　　 !:::i　　| |　|:| 　!ヽ　＼　　ヽ、 ヽ　ヽ　　＼
　　　　　　　 ⌒　　　 ＼　|:|　　|.:.:.:i　 |i.|! |.:| 　|:.＼　ヾ／ ヽ＼ヽ　ヽ　　　ヽ　　|
　　　　　　　　立　　気　| |::|l､　|ノ (.!　i|l.| |.:|i　 i.:.:.＼/､＼. ヽ:ヽヽ　ヽ　　　 i　　|
　　　　　　　　　　　　　　| |: !lヽ|.:⌒:.ヽ ヾ:l !.:.ヽ　i..:../＼ヽ‐'',..i -', !､. ヽ　　　|　　|
　　　　　　　　て　　 や　| |!‐!-l,＼:..:..:ヽヽ:i|:..:..ヽ. i:/..:..;.>,ヾ＼i　 ',l i,　　　　　!　　i
　┌── 　 　 　 　　　　|.i.l　i. |｀`'ヽ、.:.ヾ!.ヽ.:..:.ヽ/／　　ヾ､　ヽ　　'X,　　　　|　　|
　ﾉ 豆寸　　　ん　　す　 | ヽ ヽ!　　　＼.:..＼..:..:.//＼　　・　＼　　／.: .i　　　　　　|
　 　 　 　 　　　　　　　　 |　　　　　 ･　　ヽ!|l.:.ll/.:ヽ、　　　　　　／:. :. :. :i　　　　　　|
　　　　　　　　 じ　　 く　 |､　　　　　　　ノ:.:.:.:.:.:.:.:.:.:.:`'''‐----‐'"..:､_, :. :. .i　
　　　 　 　　　　　　　　　 | `''ｰ----‐''".:.:.:.:.:.　　 :.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:）　(　　 lヽ
　　──　　　 ゃ　　 ス　|＼:..:..:..:..:..:..:..:　 ,　　　　　　　　　　　　 ⌒　　/ ! |i
　 l二,二l 　 　 　 　 　 　 二ﾆ=‐　　　　　 ヽ　　　　　　　　　　　　　　 /　| | !
　ﾉ フラ　　　 ね　　 レ　|　|l ヽ＼.　 r ,.....＿＿＿＿＿＿_　　　　　／:　 | | |
　　　　　　　　　　　　　　|　 !ヽ＼ ＼ヽヽ, ,､ 　　 　 　　,､,ｨ‐ヽ　　／:::　　| l　|!
　 　 　 　 　 　 | 　 　 　 |　 |l,ヽ ヾ;　`i‐､ヽ `´`´__,,,... -─‐''''ﾞ,／:::::::　　 |. |　|,i　　|ヽ|
　！！！　　　　　　　　 |　 |､.i ＼ヽ　 i　 i`''ｰﾆ_　-‐‐　　 ,.､':::::::::::　　　l　i'"i　l　 |　 |
　　　　　　　　 ゾ　　　 /,　 |ヽヽ　＼､　l　 |　　| iヽ.＿, イ / `ヽ:::　　　, | /　|／|　!　 |
　 　 　 　 　 　 　 　 　/ |　 | ヽヽ　　＼ |　 l　　| |　 |　| |/　/| .ヽ　 ／ l /　/　 | i　　|
　　　　　　　　　　　　/l　l　 !　 ＼　　　 iヽ |　　| i　 | /i |　/ l　|　V　　l/　/　　 i　　 |

ここ（太洋社のコミック発売一覧）

ttp://www.taiyosha.co.jp/comic/comic0209_date1.html

にある HTML を LWP::Simple の get を使って取得してみたんですが、
いつもは

@lines = split(/\n/, (get $target_url));

みたいにするとサクっと取得できるのに、このサイトのソースだと
文字列の終端のコードがちょっと違うらしくてうまく split できないん
ですけどどうしたらよいのでしょうか？

色々と試してはみたのですけど、ちょっとよくわからなかったので
ココでお聞きしてみました。
どうぞよろしくお願いします。

>>20 /\x0D\x0A|[\x0D\x0A]/ でどうぞ。

( ﾟдﾟ)ﾊｯ! 立ってる!

( ﾟдﾟ)ﾊｯ! 立ってる! 2

これは

use lib './module';

test.cgiに

use lib './module';
use module;

のように記述するんでしょうか？

ありがとうございます。できました(´_`)ﾉ

%hogeというハッシュがあります。
中身は 名無し=> 2　ひろゆき=>5　ネオ麦茶=>3
という感じです。
で、これを値（数字）の大きい順に名前を表示したいんですがどうしたいいでしょうか。

>>26
あらかじめ値がわかってる場合はこうすりゃいいじゃん。

print "ひろゆき\nネオ麦茶\n名無し\n";

>>26
値でソート
sort { $hoge{$b} <=> $hoge{$a} } keys %hoge

>28
ソート出来たら$hogeをどうするんですか？

なんなりとお好きなように

>>29
その質問おかしいだろ。w
print sort { $hoge{$b} <=> $hoge{$a} } keys %hoge;
で確認してみ。

-------風俗の総合商社・ＭＴＴどこでも-------

〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●楽しく遊べます！　090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
　 http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能住み込みも可
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------

>>32
氏ねよ。

ひろゆき　5
ネオ麦茶　3
名無し　2

こういう感じで名前と値を表示させたいんですけど
print sort { $hoge{$b} <=> $hoge{$a} } keys %hoge;
これだと名前しか出なかったでし。

>>34
オマエ、どこ中 在学だよ！ ２回氏ね！

>>34
Perl昨日始めたばかりのオレでも出来ましたが…。

foreach $i (sort { $hoge{$b} <=> $hoge{$a} } keys %hoge) {
print $i, " " , $hoge{$i} , "\n";
}

>>34

もう質問しなくていいよ

>>36
僕はperl３時間前にはじめたんで。

>>38
ネタ？君は生まれた時からハッシュを知っていたんだね。素直に感謝しなさい。
>>26の時点で11:22。
>>38の時点で15:59。

　　　　　　　　　　　　+
　　　　　　+　　　　　　　　　+　　　　　+
　　+
　　　　　／￣＼　　+.　　　　∧＿∧ ｱﾊﾊﾊ　　+
ﾉﾘｶｴｾﾖｰ（ ´∀｀）　　　　　（´∀｀ ）　　
　　　　（　つ　つ 　　　 　（　つ　つ
.　　　+ （　ヽノ　　　　 　 （　■ノ　　　　　　　　+
　　 　 し（＿）　　　　 　... し（＿）

　+
　　　　　　+　　　　　　　　　+　　　　　+
　　+
.　　　　　／■＼　　+.　　 　∧＿∧ ｱﾊﾊﾊ　　+
　ｸｻｰｲﾖｰ（ 　+∀+）　　　　（´∀｀ ）　　
　　　　（　つ　つ 　　　 　（　つ　つ
.　　　+ （　ヽノ　　　　 　 （　ヽノ　　　　　　　　+
　　 　 し（＿）　　　　 　 ...し（＿）

　　　　　　　　　　+
　　　　　　+　　　　　　　　　+　　　　　+
　　+　　　　　　　　　　　　　　ｱﾊﾊﾊ
.　　　　　　　　　　　+.　　∧＿∧　　／￣＼
本体ｶｴｾﾖｰ　　　　　　　　 （´∀｀　)(/⌒ヽ__）
　　　　　　ヽ■ノ　　　　 （つ　　つ|　　 |
.　　　+　　　ﾉ＼　　　　　 （　ヽノ .|　 ∪　　　　+
　　　　　　　　　　　　　　し（＿） しし′

母「おい、おまいら！！夕食ができますた。リビングに集合しる！」
父「詳細ｷﾎﾞｰﾇ」
母「今日はカレーですが、何か？」
兄「カレーｷﾀーーーーーーーーー」
妹「ｷﾀーーーーーーーーーー」
姉「カレーごときで騒ぐ奴は逝ってヨシ」
母「オマエモナー」
父 --------終了-------
兄 --------再開-------
妹「再開すなＤＱＮが！それより肉うｐキボンヌ」
母「ジャガイモうｐ」
姉「↑誤爆？」
兄「タマネギage」
父「ほらよ肉＞家族 」
妹「神降臨！！」

ん？

ｵﾜｯﾀ…
　　;y=ｰ( ﾟдﾟ)･∵.　ﾀｰﾝ
　　＼／|　y |)

ヽ(`Д´)ノ

子ｙってんｋｊさｇｂｆひあｈしおｄに絵得ん！

$value =~ tr/+/ /;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/,/¸/g;

これを短く書きたいんですが何かありますでしょうか？

訂正

$value =~ tr/+/ /;
$value =~ s/&/＆amp;/g;
$value =~ s/"/＆quot;/g;
$value =~ s/</＆lt;/g;
$value =~ s/>/＆gt;/g;
$value =~ s/,/＆cedil;/g;

連邦のゲットニュースみたく別鯖のデータを読むのには、perlでどうやればいいでうか？

LWP

ヤフーオークションで、凄い人気商品、発見！！！

プランテック製の「 RX-2000�V 」を改造済み
にした、アイティーエス製の「 RX-2000�V 」↓
http://user.auctions.yahoo.co.jp/jp/user/NEO_UURONNTYA#.2ch.net/

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

ヤフー ID の無い方は、下記のホームページから、
購入出来る様です↓
http://www.h4.dion.ne.jp/~gekiyasu/#.2ch.net/

>>49
そんなの短くできないって。あきらめなさい。

と言いつつトライ。
$value=~s/[\+&"<>,]/($t=index'+&"<>,',$&)?'&'.qw(amp quot lt gt cedil)[$t-1].';':' '/eg;
これ以上無理かな…

>>49
わけたままのほうが圧倒的に処理が速いぞ。

と言いつつ>>53のバグフィックス＆処理速度向上版
$value=~s/\+|([\+&"<>,])/$1?'&'.(qw(amp quot lt gt cedil))[index'&"<>,',$1].';':' '/eg;

>>49
ソース短くしたら処理が早くなるわけじゃないぞ
正規表現あたりは激しく可読性に影響が行くから
>>53 >>54
が言ってるとおり素直にそのままにしとけ

#俺は厨だから>>54のをさらに改良したりとかできん
#てか、もう読めません・・・（；´Д｀）

余計な部分消し忘れてた

$value=~s/\+|([&"<>,])/$1?'&'.(qw(amp quot lt gt cedil))[index'&"<>,',$1].';':' '/eg;

トリッキーコードスレか？厨房心満載で参加しちゃうぞ〜？
とりあえず、(cedilはいらんだろう)
$value=~s/([\+&"<>])/$1 eq '+' ? ' ' : '&'.{qw(& amp " quot < lt > gt)}->{$1}/eg;

無名ハッシュと+を外に出せばそこそこ速くなるんじゃ無いだろか？
%slist=qw(& amp " quot < lt > gt);
$value=~tr/+/ /;
$value=~ s/([@{[join '', keys %slist]}])/'&'.$slist{$1}/eg;
か、もっと素直に、
$value=~s/$_/'&'.$slist{$_}/eg for keys %slist;

どっちにしろ>>49のままの方が速いだろうが、、
んで最終的にはこれを勧めておく。
use HTML::Entities;
$value=~tr/+/ /;
encode_entities($value,'"<>&');

>>57
＞とりあえず、(cedilはいらんだろう)
条件を勝手に変えては・・・

エンティティ文字だから末尾の ; が無くては・・・

＞@{[join '', keys %slist]}
この部分は典型的な処理おそーだから・・・

＞$value=~s/$_/'&'.$slist{$_}/eg for keys %slist;
ハッシュキーをまわすと & が出現する順番によっては整合性が・・・

>>54すまんのうつっk見どころ満載だったな。
> 条件を勝手に変えては・・・
> エンティティ文字だから末尾の ; が無くては・・・
$value=~s/([\+&"<>,])/$1 eq '+' ? ' ' : '&'.{qw(& amp " quot < lt > gt , cedil)}->{$1}.';'/eg;

> この部分は典型的な処理おそーだから・・・
ここは一回しか評価されないので速さにはほとんど影響しないだろう。
が、
> ハッシュキーをまわすと & が出現する順番によっては整合性が・・・
を忘れとったよ。
@slist{@k=qw(& " < > ,)} = qw(amp quot lt gt cedil);
$value=~tr/+/ /;
$value=~ s/([@{[join '',@k]}])/'&'.$slist{$1}.';'/eg;
か、
$value=~s/$_/'&'.$slist{$_}.';'/eg for @k;
なら文句無いか？

あと encode_entities($value,'&"<>,'); ね。

>>21 さん
遅ればせながらありがとうございました。
おかげさまで無事に綺麗なHTMLを取得できましたー。

>>どっちにしろ>>49のままの方が速いだろうが、、
>>んで最終的にはこれを勧めておく。
>>use HTML::Entities;
>>$value=~tr/+/ /;
>>encode_entities($value,'"<>&');

>>49のと↑だとどっちが早いんですか？

>>61
encode_entities()のなか見てないからわからないけど
多分どちらも大して変わらないだろう。
てかね、Perlで速さを求めないでください。
速くしたいならCね

namco

swap
↓ ↓
n a m c o

m a n c o

manco

(・∀・)ﾏﾝｺｰ

誰かデバッグして。

$f=$d?-1:1;$D=pack('C*',33. .86);$p=shift;
$p=~y/a-z/A-Z/;$U=~s/( . *)U$/U$1/;
$D=~s/U( . )/$1U;';($V=$U)=~s/U/V/g;
$p=~s/[A-Z]/$k=ord($&)-64,&e/eg;$k=0;
while(<>){y/a-z/A-Z;y/A-Z//dc;$o.=$_}$o.="X"
while length ($o)%5&&!$d;
$o=~s/.chr(($f*&e+ord($&)-13)%26+65)/eg;
$o=~s/X*$//if$d;$o;$o=~s/.{5}/$&/g;
print"$o|n";sub v{$v=ord(substr($D,$_{0}))-32;
$v>53?53:$v}
sub w{$D=~s/(.{$_{0})(.*)(.)/$2$1$3}}
sub e{eval"$U$V$V";$D=~s/(.*)([UV].*[UV])(.*)/$3$2$1/;
&w(&v(53));$k?(&w($k)):($c=&v(&v(0)),$c>52?&e:$c)}

読むのすらいやになる。

http://www.cse.iitk.ac.in/news/primality.pdf
これの4ページ目の13行。

$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>>4^
$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

モジュールの質問なんですが、

&print($logfile,@data);

とやって

sub print

{

open(DATA,">$_[0]") || exit; print DATA $_[1];

}

ってやるとうまく書きこめません。

$logfileはログファイルの場所→ $logfile = "./log.dat";
@dataには記事のデータが。中身はだいたいこんな感じです↓
$data[0] = "2<>test<>名無し<>test<>0123<>\n";
$data[1] = "1<>test<>名無し<>test<>0123<>\n";

どうすればうまく↑のようなやり方で書きこめるでしょうか？
つまり@dataの中身をサブルーチンprintに受け渡したいのですが、、

＞open(DATA,">$_[0]") || exit; print DATA $_[1];
これの意味がわかってやってんだろうな。

あ・・もしかしたら・・・ﾊｯ(ﾟдﾟ)!

open(DATA,">$_[0]") || exit;
print DATA $_[1];

こうやってみたんですがどうも。。

open(DATA,">$_[0]") || exit;
print DATA $_[1];

一行目でlog.datを書きこみ専用でオープンしてもし開けなかった場合はexit
2行目でファイルハンドルDATAに$_[1]の中身を書きこんでるんですよね？

$_[1]に@dataの中身をいれたいんですがどうも配列の先頭要素しか受け渡しできませんでした。
@_[1]にもしてみたんですがうまくいきませんでした・・
どうやれば配列を受け渡せるのでしょうか？

なんとなくわかったかも・・
ちょっと渡来してみます

いくつか思ったこと。
どこがモジュール？
サブルーチンにしなくてもいいんじゃないか？

できました

>>73

たしかにそうなんですが何回か読み書き作業をするので行数がかさんできたため
モジュールに、、サブルーチンとかパッケージ化でもよかったんですが
モジュールが一番よさそうだったので・・
あと趣味で作ってるので使いまわしするのでできるのは全部モジュール化しといたほうがあとでらくかなーと思いまして・・

$input 内に、URLがいくつ含まれるか数える方法を教えてください
URLはタグ等で囲まれたりしていません

>>75

$inputの中身は？

split(/$uri_pattern/i,$input) - 1;

初心者です。自分のHPに掲示板置いたのですけれども（たとえばYYボード）　次回書き込んでも名前やアドレスや文字の色が記録
されません。どうやるのですか？

>>78
Cookieの設定ができてない。
板違いです

http://kado7.ug.to/net/


朝までから騒ぎ！！
　　　小中高生
　コギャル〜熟女まで
　　　メル友
　　i/j/PC/対応

女性の子もたくさん来てね
　　　　　　　　　　　　　　　　　　
おこずかいの欲しい女の子もたくさん来てね！！

全国デ−トスポット情報も有ります

フリーウェアなどをDLする時にoctetstreamが無い！のようなエラー表示が出て
困ってます。でMSのactiveXギャラリーに行けと言う表示が出たので行ってみ
たけど何をDLしていいのか・・罵倒覚悟です。誰か教えてください・・・

>>81
PERLと関係あるのか？
漏れが無知なだけか

WEBで落としたチャットCGIをいじってます。

書き込み時にログに記録されたIPを、そのままＨＴＭＬ出力に表示させたいのですが、
全部の行が今の自分のIPになってしまいます。

$ad = $ENV{'REMOTE_ADDR'};
とCGIに記述して、
表示させたい部分に$adを埋めるだけじゃダメなんですか？
IP表示ができるCGIを落として解析しても、同じような記述しか出てこないもので。
ex) print (($ENV{'REMOTE_HOST'}) ? $ENV{'REMOTE_HOST'} : $ENV{'REMOTE_ADDR'});
ex) if($sw_host==1){
print "<FONT SIZE=$moji1 COLOR=\"$DTcolor\">\n";
print "$date<BR>$ip $host\n";
print "</FONT>\n";

>>83
それだけじゃ答えようがあまりないが、とりあえず
リモホを取得したらログに保存しないとだめぽ。

>>84
ログには保存しているんです。
ただ、HTML出力のソースを見ると、>>83のように、
$ENV{'REMOTE_ADDR'}; したものを$adみたいにして出力するような記述なんですね。
ログから引っ張ってるような記述が見当たらない…

>>85
【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/l50

上のスレのお世話になってはいかが？

KENTWEBの WINDY CHAT　でテストしてたんですが、これの場合、
# IPアドレスを取得
$addr = $ENV{'REMOTE_ADDR'};
if ($name eq "") { $name = $addr; }

して
unshift (@lines,"$date<>$n_name<>$n_email<>$com<>$n_color<>$addr<>\n");
つまりログには保存されています。
これがなぜ、吐き出しになるとだめなのか、今やっとわかりました。

# ログを展開
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
$head = $point;
local($date,$name,$mail,$com,$color,$ip) = split(/<>/);
$addrとすべきところを故意に$ipとして吐き出さないように記述してあったからみたいです。

最後の一行に激しい勘違いがあるようだが、、、

もう一個のCGIでもテストしましたが、
こちらはDBファイルのデータがタブ区切りで、読み出しもただ変数を羅列しているため、
その順番どおりに表示するようになっていました。

もともとIPは記録しない仕様のため、適当にタブの間にIPを付け足したのが間違いで、
読み込みの順番どおりにDBファイルのタブ区切りを修正したら表示されるようになりました。

俄然perlが面白くなってきますたよｗ

>>88
それはどういったことでしょうか？

「吐き出さないように記述してあった」って書き方がひっかかっただけ。
スクリプトはちゃんと吐き出してる。$ipとして。

>>91
そうですね。DBが空だから表示はされないけど処理はされてるんですよね。
語弊があったようです。

http://php.s3.to/bbs/up/img/014.txt

このｽｸﾘﾌﾟﾄなのですが、時間設定で
sprintfを使わずに、
if ($month < 10) { $month = "0$month"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
としたり、
($sec_t,$min_t,$hour_t,$mday_t,$mon_t,$year_t,$wday_t,$yday_t,$isdst_t) = localtime(time + 7*24*60*60);

($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
という風にlocaltimeとgmttimeを使い分けたりする意味はあるのでしょうか？

前者は処理が早くなるとか・・・？
ｵｼｴﾃｸﾀﾞｻｲ

>>93
作ったﾔｼに聞けよ　　　　　

>>93
典型的なｱﾌｫコード

>>95
他の部分もそんな感じでしょうか？
じゃ、使わない方がいいですかね・・・

そりゃ自分で決めれ。

ｱﾌｫコードでも動けばいいんじゃないですか
そうでもないものなんですか

98ですが96の方ではありません

つか use strict してない時点でクソ確定。

2ch2ch2ch
というテキストを
2ch
2ch
2ch
というように改行させたいです。
テキストエディタの置換機能で「2ch」→「2ch\r\n」としたら、
2ch\r\n2ch\r\n2ch\r\n
となってしまいますた。
テキストエディタで改行するのって無理ですか？
ActivePerl入れなきゃだめかな？

あほだ。

掲示板に、〜日以内に更新されたらNEWを付けるようにしたいのですが

たとえば７日以内としたら
#!/usr/local/bin/perl

$times=書き込み時のtime;

$limit=7*60*60*24;


$now=time;
$limit_time="$now-$limit";

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


if($times>$limit_time){print"NEW";}

でいいと思うのですが、上手くできませんでした。
ヒントを頂けないでしょうか？

>>103

$times　が当時の書き込み時間で
$now　が現在の時間なんでしょ？
だったら

$now - $times

で何秒たったか分かる

たとえば$nowに110000がはいってて$timesに100000がはいってれば
その差は10000秒になる

んでこれと$limitを比べればいいんでないの？

>>104
上手くできました。
ありがとうございましたヽ(ﾟ∀ﾟ)ﾉ三≡

http://www.tsuri123.com/index2.htm
おい。お前ら！応援投票しろ！

掲示板スクリプトで、ファイルを読みこんで表示する場合に、
whileで回す方法と、配列に一気に読んでforeachで回すのとでは
メモリは食うけど、foreachで回すほうが処理は速いんですかね？
それともwhileで回す方法が速い？

速いほうがいいのならシステムコールを直で叩くsysreadだろう。でも初心者には
使いこなせるかな？ readでも使ったら？

知ったか警報！

ゆいぼっとについて相談があります。
ブラウザに記憶される名前が変になります。
ひろゆき、だとしたら、「ひろゆき_30__checked_red_30_8/12(月)1:30_2_checked_」

どうも、リロード時間や文字色等の情報まで全部ついてきてしまってるようで…
これは固有のバグでしょうか。

改造間違いの可能性。

>>110
でも、他サイトの無改造のゆいぼっとにクッキー全部消去してからお邪魔して
退室したあとにまた入室画面で名前欄を見ると同じようになってるんですよ。

クッキー処理の部分
なぜ、　\t　で区切ったものが、吐き出されるときに　_　に変わってるんだろう。

sub getcookie{#くっきーを頂きます。
$cooks = $ENV{'HTTP_COOKIE'};
$cooks = '' unless($cooks =~s/.*yuidata=(.*)yuiend.*/$1/);
($name,$reload,$email,$mode,$color,$window,$lastdate,$count,$autoclear) = split(/\t/, $cooks);
$histry = "$count回目:LAST LOGIN:$lastdate" if($lastdate);
if(!$count){#くっきー情報の無い場合のデフォルト値
$reload = 30; $mode = 'checked';$color = 'red'; $window = 30;
$count = 1;$autoclear = 'checked'; }
}#getcookie END

sub setcookie{#くっきーをブラウザにプレゼントします。
local($dmy,$mdc,$monc,$yrc,$wdayc,$mc,$yc);
($dmy,$dmy,$dmy,$mdc,$monc,$yrc,$wdayc,$dmy,$dmy) = localtime($times + 7776000);
$yc = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$wdayc];
$mc = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$monc];
$yrc = $yrc+1900;$mdc = "0$mdc" if ($mdc < 10);
$count++;
$data = "$name\t$reload\t$email\t$mode\t$color\t$window\t$date\t$count\t$autoclear\tyuiend";
$data = 'yuiend' if($FORM{'cook'} ne 'ok');
print "Set-Cookie: yuidata=$data; expires=$yc, $mdc-$mc-$yrc 00:00:00 GMT\n";

タブってデータとして、許されてたっけ？

とりあえず、\t　が_　になってしまうならと
= split(/\t/, $cooks);
を
= split(/_/, $cooks);

にしてしまったらうまくいきました。
しかし、環境依存でバグが出るかもしれませんね。
UNIXやMACのクッキーはよく知らないんですが。

http://www.google.co.jp/search?q=cache:rEGKxbsZPV4C:www.tcup3.com/325/tsukune.html+%E3%82%AF%E3%83%83%E3%82%AD%E3%83%BC%E3%80%80%E3%82%BF%E3%83%96%E5%8C%BA%E5%88%87%E3%82%8A&hl=ja&ie=UTF-8
なんか、IE6.0のバグっぽい。
ということは、それ以外のブラウザではやはり問題が起きてないかもですね。

本当にIEのバグかね。
IEが正しくて、ほかが間違ってる















んなこたぁない。IEが間違えてることの方が多い。

やはりIE6固有のトラブルみたいです。ネスケ4.7では元々の仕様で問題なく、
IE6にあわせた修正をしたバージョンでは逆にトラブルになりました。

区切りを本当に_　にしたがダメ。区切りとsplitを,　であわせたところ、
IE6、ネスケともにトラブルは収まりました。
MS、恐るべし…

>>117
違うな
















IEが間違ってて、そのCGIも間違ってる。
そして仕様と言い張る。

>>110
制御文字はNG
http://www.ietf.org/rfc/rfc2965.txt

つまりネスケ4.7がわるかったと。









まぁ、CSSもネスケ4.7が悪い品。

120嫁、IEが悪い？ネスケが悪い？
いえいえ悪いのはオマエの頭だけです

>>122
ｵﾏｴｶﾞﾅｰ

pu

ユーザーIDと
パスワードを入力して
認証してOKならページ移動
の処理を作成中なんッスけど
認証のためのデータをあるファイルから
参照してハッシュを使ってIDをキーにして
パスワードをデータにして、
IDを比較するのはOKなんッスけど、
パスワードの比較はどうしたらイイんでしょうか？
ようはキーの中身の比較っすね

ageて逝きまっしょい

マルチか。

その疑いありで

>>125
なしてﾊｯｼｭ使ってそんなめんどくさい事わざわざやって
認証するのかわからん。

要素が３つあるのにハッシュを使う意味がわからん

正規表現で、 _[a-e] が特定のスカラーにいくつ含まれるか検査したいんですがどうすればいいですか

$n= $_=~ s/(_[a-e])/$1/g;

CokkieがOffだったら指定のページに飛ばす
…そんなcgiってありますか？
もしあったら、参考になるサイト、もしくはプログラムを
お教え下さい。

マルチか。　　　　　　　　　　

>>133
ほれ。

文化庁がトップページ以外へのリンクを機械的に拒否
http://slashdot.jp/article.pl?sid=02/07/09/0626258&mode=thread

うちのサイトに置いたファイルのダウンロード数を
カウントするスクリプト、どっかに落ちてますか？
別に自分で見れればページに表示するつもりはないです。

>>136
スレ違い。
CGI探すスレ行け。

http://www.futomi.com/library/dlrank.html

考え方としては、

スクリプト開始時に自前のcookieを発行→直後それを照合出来ればcookie有効、出来なければcookie無効と見なして弾く。

そう難解でもないかと>133

>>107

ちょっと時間が空いたので，1行200bytes(+crlf)の500行で約100kb程度のファイルをメモリに読み込むテストを行いました．

test1 @a = <FILE>と一度に全て読み込む．
test2 whileでループして1行ずつ読み込む．

この処理を500回ループして，経過時間を計りました．
結果．

TEST1: 39 wallclock secs (38.23 usr + 0.00 sys = 38.23 CPU) @ 13.08/s (n=500)
TEST2: 36 wallclock secs (35.86 usr + 0.00 sys = 35.86 CPU) @ 13.94/s (n=500)

と，微妙にtest2の方が効率が良いと出ました．
以下が実際に使用したソースです．

#!/usr/bin/perl
use Benchmark;

my $count = 500;

sub test1{
open(FILE,'test1.data');
my @a = <FILE>;
close(FILE);
}
sub test2{
open(FILE,'test2.data');
my $a = $_ while(<FILE>);
close(FILE);
}

@t = timethese($count,{
'TEST1' => '&test1;',
'TEST2' => '&test2;',
});

つまり,
foreach 文は
・扱うデータ量が少なく，ファイルをすぐに閉じたい場合.
・同じデータを繰り返し使用する場合.
while 文
・データ量が大きく，配列を生成すると莫大なメモリを使用してしまう場合.
・データの１部分だけを必要とし，無駄なデータを読む込みたくない場合.
という事でした.

>>142
凄く普通の結論。

ベンチマークを適切に使えるようになりましょう。

>>142
ループの種類と処理内容とは、なんの関係もないから恥を晒すのは・・・

おながいしますm(__)m（ペコリ）
ある変数をサブルーチン名に代入したりできるのでしょうか？
&サブルーチン名=変数;　みたいにしたいのです
例えば
&hazime　というサブルーチンを使いたい時
&（ココの書き方が分かりません）=$hazime;
みたいのことができるのでしょうか？

できる。
$count = &con();

わりぃ。解釈間違えた。

&$value;

あのー、ネットでこんなの拾ってきたんすが、
なんでしょかね？これ？？
#!/usr/bin/perl-s
$f=$d?-1:1;$D=pack('C*',33. .86);$p=shift;
$p=~y/a-z/A-Z/;$U=~s/( . *)U$/U$1/;
$D=~s/U( . )/$1U;';($V=$U)=~s/U/V/g;
$p=~s/[A-Z]/$k=ord($&)-64,&e/eg;$k=0;
while(<>){y/a-z/A-Z;y/A-Z//dc;$o.=$_}$o.="X"
while length ($o)%5&&!$d;
$o=~s/.chr(($f*&e+ord($&)-13)%26+65)/eg;
$o=~s/X*$//if$d;$o;$o=~s/.{5}/$&/g;
print"$o|n";sub v{$v=ord(substr($D,$_{0}))-32;
$v>53?53:$v}
sub w{$D=~s/(.{$_{0})(.*)(.)/$2$1$3}}
sub e{eval"$U$V$V";$D=~s/(.*)([UV].*[UV])(.*)/$3$2$1/;
&w(&v(53));$k?(&w($k)):($c=&v(&v(0)),$c>52?&e:$c)}

>>150
素数判定（多項式時間）

ssendmailでHTML形式のメールを送信したいのですが、
HTMLソースをHTML形式のメールに変換するスクリプトをご存知ないでしょうか？

HTML形式のメールは、HTMLソースがそのまま本文中に書いてあるのだと
ばかり思ってましたが、MHTMLとかいう形式があるようで・・・

>>152
スレ違い
【CGI初心者コーナー】
http://pc.2ch.net/test/read.cgi/php/1028646335/

>>153
リンク先は「まぁ、またお前は騙されたわけだが・・・ 」というスレッドです。

>>154は>>152です。

教えて下さい。

-------------------------
#!/usr/local/bin/perl

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

print "購入申し込み";

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

と書いて実行すると、

-------------------------
購入垂ｵ込み

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

と表示されてしまいます。
どうしてでしょうか？
何か基本的なことを間違えてるのでしょうか。

EUCでかくか \ を途中に入れろ。

>>156
157じゃないけど、具体的には「申」のあとに\を入れろって事。
申\し込み
なぜこうなるかというと、「申」のShift-JISでの2バイト目が'\'（0x5c)だから。

一週間をビットをたててフラグにしようと
$a = 1 << 2　としてみました
00000100　になると思ってたんですが
unpack("B*",$a)　としてみたら
00110100　となっていました

上4ビットはなんなんですか

>>159
0x34='4'

>>160
そのとおりですね・・・

質問間違ってました
なんでもASCIIになってしまうのか聞きたかったんです

>>157
EUCに変換して解決しました。
ありがとうございました。

>>158
分かりやすい解説ありがとうございます。
勉強します。


152の問題も解決しました。
スクリプトは見つかりませんでしたが、
Content-type: multipart/alternative;boundary="---　・・・
を付けて、テキスト部分とHTML部分を区切るだけで出来ました。
ありがとうございました。

smile-seikun_gogo/[email protected] smile-seikun_gogo/[email protected]

http://rating.auctions.yahoo.co.jp/jp/show/rating?userID=hidekurokawa&filter=-1

評価： 非常に悪い 落札者です。評価者は manaboon2001 (21)
IBM Deskstar ATA100/60GB 7200rpm 送料込み!! (6月 9日 23時 14分)
出品者は「 非常に悪い 」と落札者を評価しました。
コメント：取引終了後、１週間のうち私から３度メールでご案内しても何も返事がありませんでした。　
お前はブラックリスト入りだ!! (6月 15日 23時 7分) (最新)

評価： 非常に悪い 落札者です。評価者は goodnanews (2)
デジタルミキサー Fostex VM04 (11月 11日 5時 49分)
出品者は「 非常に悪い 」と落札者を評価しました。
コメント：一方的な理由でキャンセルされました。自分が落札した商品には責任を持って対処してください。 (11月 14日 12時 36分) (最新)

評価： 悪い 落札者です。評価者は gtak55 (42)
ＦＯＳＴＥＸ☆ＭＮ０６☆６チャンネルミキサー (10月 17日 5時 9分)
出品者は「 悪い 」と落札者を評価しました。
コメント：キャンセルの理由が納得いきません。落札したものはどんな理由があれ責任を持って購入すべきではないでしょうか？
(10月 18日 23時 48分) (最新)

評価： 非常に悪い 落札者です。評価者は hiroalive2000 (35)
定価98000円のスーパーリズムマシンプラス・メモリー9800円あわせて１２０００円即決 (9月 19日 2時 23分)
出品者は「 非常に悪い 」と落札者を評価しました。
コメント：最悪です。何度連絡してもメールくれません。完璧な無視です。多分オークション二酸化しないほうがいい人
ですからこんな人は注意してください。みなさん。 (9月 24日 19時 33分)
コメント：これかいたらすぐに返事がくるんですよ。こういうやつがふえてるんで・・・。
今まで完璧な無視してきたらこうかかれると私にしつこいとか言ってもんくつけるんですよ。すいそくですが・・・・
日ずけ見て下さったら皆さんわかると思います。 (9月 24日 19時 36分) (最新)

はじめまして。外部からあぷされた画像を呼び出した場合TOPに移動するように
したいのですがどのようにしたら良いのでしょうか

>>164
説明する能力をつけてから来なさい。

はい。たしかに学生なので文章能力ありません。これで分かりますか？
http://www.cj-c.com/cgi_s/upb.htm　（UPP　BORD）
を設置してるのですがあっぷした画像のみを他サイトの掲示板で
転載されて困ってるので他サイトからあぷされた画像を閲覧した場合
自分のHPのTOPに飛ぶようにしたいのです。
あっぷされた画像直リンの場合弾きたいということです。
どうか方法教えてください

>>166
画像の直リンク防ぎたいなら .htaccess の出番かと
「.htaccess 画像 制限」　こんな感じのキーワードで
googleで検索すれば解説してるサイトみつかるべ。
これ以上はスレ違いなので、あとはご自分で・・・

http://www.kemokemo.com/　
http://www.kemokemo.com/products/picchabo/picchabo203.lzh　
上(掲示板CGI)に下(ランダム広告CGI※呼び出しによりSSI使用しない方)を設置したいのですが『インターネットサーバーエラー』になります。(;_;)
一通りパーミッション設定などを説明どうりやってみたのですが設置できないんです。。(;_;)なぜでしょう？？(;_;)
どうか教えていただけないでしょうか。。(;_;)
また呼び出しのときの記述が『require 'rand.pl';　　rand::main($Op1,$Op2,$Op3);』を記述しろと書いてあったので正確に記述したのですが『インターネットサーバーエラー』になってしまうんです。。(;_;)
『$buffer』でも記述したんですがだめでした。
http://taihei.cc/pc/cgis/random.html
http://taihei.cc/pc/cgis/randban11.lzh

マルチは放置。

画像のアップローダーでアップロードされた画像の
縮小画像を生成したいんですが、
私の知っている方法ではroot権限の関係で共有スペースでは不可能なのですが
root権限の関係無しに縮小画像を生成する方法はありますか？

>>170
　　 ／￣￣￣￣￣ ミ
　 /　　 ,――――-ミ
　/　　／　 ／　　 ＼ |
　|　 /　　　,（･）　（･） |
　 (6　　　　　　 つ　　|
　 |　　　　　　＿＿_　 |　　 ／￣￣￣￣￣￣￣￣￣￣
　 | 　　　　 /＿＿/ ／　 ＜ 　ＨＴＭＬでできるだろ！
／|　　　　　　　　 ／＼　　 ＼＿＿＿＿＿＿＿＿＿＿

>>170
GDを使うといい。GD.pmで検索しる。
http://member.nifty.ne.jp/hippo2000/perltips/GD.html

>>172
ありがとうございました！
じっくり読んでみます！！

ファイルアップローダを作りたい、と思うこの頃ですが、
どうもわからんのです。
フリーのアップローダのソースを見ても掲示板とかが邪魔で
肝心のアップローダの仕組みがわからず。。。
perlのリファレンス本を何冊か読んでも、
何をアップローダに使えばわからず。。。

どうか皆様、この私にアップローダの「ア」の字くらいを教えてくださいませんでしょうか。

2<>コメント
3<>コメント
1<>コメント
ログファイルにこういう形で保存されいて
1 2 3の中のもっとも大きい数字を求めるにはどうすればいいのでしょうか？

>>175
数値は比較するとその大小関係がわかります。

すみません理解できました。

教えるまでもなくアの字なら知ってるじゃん

>>174
ゆいのーとの最初の方をみれば割と判るとおもう。
http://zurubon.strange-x.com/uploader/src/
調べるなら「Content-type: multipart/form-data」で。
http://www.tsden.org/ryutaroh/fileupload-j.shtml

>>179
スマソ。やっぱりわからんです。
設定するところをして、CGI対応のサーバーにアップしたのですが、
ファイルサイズがやけに小さくなって、しかも開けず。
自分のPCにApache入れてるんですが、それでも同じ結果です。
他のアップローダーもファイルサイズが同じように小さくなります。
ちなみにJPGファイル。
対応してるはずなんですが。。。
アップローダー十個くらい試してみたのですが、全滅です。。。
設定がいけないんでしょか？

>>180
スマソ。さっぱりわからんです。
とりあえず設定後のスクリプトを晒してごらん。

どのあぷろだでも同じならブラウザ壊れてるんじゃない？(^^;
バグの原因が判らないなら３〜４種のブラウザで再現するかどうか見れ。

>>180
http://ruffnex.oc.to/ipusiron/upload/1171.zip
↑一応ゆいのーとを使っているサイトにソースをアップしました。
最低限設定する必要がある部分など指摘していただけたら、と。

>>181ですた。

>>184
ちゃんと動くよ？(^^;
$url = 'http://www.hoge.com/~hoge/up/source.cgi';
$storeurl = 'http://www.hoge.com/~hoge/up/source/';
$counter_enable = 0;
source.cgi(755)とsourcelog.txt(777)とsource/(777)を置いてパーミッションを適当に。
妙な制限掛かってるんじゃない？

>>185
そ。。。そうなんですか？
ちなみにスペース借りてるサーバーがWindows2000なんですが、
それも関係あるんでしょうか？
文字化けも激しいのですが。。。

win2k にも binmode() って必要なのかな？

>>186
それを先に言(以下略
unixを想定して作られてるんだろうからunixで使えば？

http://ruffnex.oc.to/ipusiron/upload/1172.gif
一応、いくつかファイルをアップした時の状態のものを晒しておきます。
何かこれからわかることがあったらよろしくです。

>>188
もともとソースファイルを参考にして自分で作ろうと思ってるので、
できれば>>183のソースファイルの何行目あたりが大事だぞ、とかだけでも言っていただけないでしょか？
ほんと聞いてばかりですみませんです。

>>190
binmode()は検討した？

携帯で画像をアップロードする方法を教えてください。

>>191
今ソースファイルをわかり易く？まとめてるので、
binmodeを使うべきところがわかったら試してみようと思ってます。
使い方はわかったのですが、今までbinmodeというのは知らなかったので。。。

cgi-lib.plライブラリを使った方が早いんじゃないの。
CGI.pmでもいいけど。

質問を眺めていると、デリミタに<>を使っているものが多いんだけど、これは何でで
しょうか。普通:じゃないですか?

>>195
そんな既出ネタ書いて気分がいいのか？

>>196
厨房は書き込まないでね

>>195
:をエスケープしないで済むからだとおもわれ。
タグを許可しなければ<>が入力されてくることはないので都合がよい。

おれは \t だなぁ。
ていうかこれが普通だと思いこんでいたけど。

ふつー\0でしょう
セパレータに2バイトも使うとは愚の骨頂ですね
\t　??　はつみみです

ソースファイルを何度も変えて試したのですが結局うまくいかず、
それならばと、書店に行って「大人のCGIスクリプト」という本を買って
そこに出ている「ホームページにファイルをアップロードする」というところを
参考にしました。
それで、とりあえず本に載っているソースをそのまま書いて試したのですが、
うまくいきません。…つД｀）
もうどうしていいのかわからないのですが、
本に載ってたものをそのまま書いたソースファイルをアップしておきましたので、
もし見て何かわかることがありましたら、どうかお願いします。
http://ruffnex.oc.to/ipusiron/upload/1178.zip

状態として、CGI自体はエラーもなしに動くのですが、
ファイルがまったくアップロードされません。
1バイトもファイルが作られないので、何か決定的な間違えがあると思うのですが。。。
あと32行目当たりのコメントの後ろに「$bound =~ s/…」とあるのですが、（本がその通りに書いてあったので）
これは本来コメント部分なのか、それとも間違えてコメントの部分に書かれたものなのかがよくわかりません。

付け足しなのですが、
本には”アップロードされたファイルは「./filepost/」というディレクトリに保存される。”
と書かれたありました。

「./filepost/」がパーミッション間違えてたりしてナ。

>>203
パーミッションは755ではダメですか？
CGIスクリプトからの書き込みとパーミッションって関係ないと思ってたのですが。。。
あと、前述したのですがNTサーバーなのでパーミッションが変更できないのです。
（NTサーバーだから変更できないわけじゃないかもしれませんが、借りてる鯖は変更できません）
やっぱりパーミッションは777がいいのでしょうか？

なるほど。漏れはCGIじゃなくて普通にUNIX鯖でperlアプリを書いているので、
CGIの流儀には詳しくないんだ。スマソ。

>>204
>> パーミッションは755ではダメですか？
>> CGIスクリプトからの書き込みとパーミッションって関係ないと思ってたのですが

ええと、不特定の人がファイルをうpするんですよね。うp = 書きこみですから、
ファイルを保存するディレクトリに誰でも書きこめるようにしておかないと駄目です
よ。755なら所有者しか書きこめません。
って、これはUNIX鯖の話で、NTのことは分かりません。でもパーミッションが変更で
きなかったら使いものにならないような気がしますが...

if ($ENV{'REQUESTMETHOD'} eq "POST"){

まずはここから　⇒　REQUEST_METHOD

sub fileget{
    if ($ENV{'CONTENT_LENGTH'} > 5050000){exit;}
    binmode(STDIN);  # 追加
    #ファイル名、区切り文字「バウンダリ」の取得
    while (<STDIN>){

    if (open(OUT, "> ./$fname")){
        binmode(OUT);  # 追加

連続した番号（例えば1から100まで）を
ランダムに並び換えて（シャッフルして）出力するにはどうすればいいですか？

>>210
>>5

>>207
で、で、で。。。できますた〜。つД｀）
if ($ENV{'REQUESTMETHOD'} eq "POST")のところは
後で自分で気付いて「バカだな〜」と思ったのですが、
それ直しても全然できなくて。。。
バウンダリというものが、検索かけてもいまいちイメージがわかないのですが、
きっとそのうち自分で勉強して理解できるようになります！
本当にわざわざソース見て、指摘してくださってありがとうございます。
二日間ほとんど寝ずに頑張った甲斐がありました。
いつか初心者コーナーで答えられるようになって帰ってきます。
本当にありがとうございました。

>>206
NT鯖がどうなのかよくわからなかったのですが、
パーミッション755で無事アップロードできました。
そもそもパーミッションってあるのかな？っと思いました。

>二日間ほとんど寝ずに頑張った
案外、これが重要だったりする。

本当の初心者なんですが、
サイトなどを見ながら、cgiの勉強しはじめたんです。

で、何か、perlを落として来いって書いてるんですけど、
perlをダウンロードしようと思ったら、
xpのところが「No additional requirements」って書いてて、
落とせないんですが、
どれを落とせばいいのでしょうか？

あ、私のosが、xpなんですね。
んで、落とそうとしたサイトが、
有名なんでしょうが、一応書いとくと、
http://www.activestate.com/Products/Download/Get.plex?id=ActivePerl&_x=1
です。。。

http://hiero_pl.tripod.co.jp/
よし↑とりあえずこれいれろ5.8な、


、、んでだActivePerlのそれはインストーラーがうまくいかないOSは
パッチあててねって意味。2000/XPには必要ねーよってこと

http://www.activestate.com/Products/Download/Register.plex?id=ActivePerl
↑、どこでダウソするんだろうな？
有名も糞もなにもここにいるWin厨はみんなActivePerlだろう。
最近はネトランも付録CDにつけてるからな〜そういうのはいいんだがあの雑誌は

あー！解りました！
アフォ過ぎだったんですね。
優しく教えていただき有難うございました！

すみません、どなた教えてください。
PERLってパラメータ（変数）渡してファイル実行、てできないんでつか。

cgiページで別のcgi呼ぶのに

require 'XXX.cgi';

とやればいいのは分かるんですが、変数渡して実行するやり方が
分かりません。

>>219
グローバル変数はそのままサブに引き継がれるが・・・
難しいか？

====================
本スクリプト

$aa = 1;
$bb = 2;

require 'XXX.cgi';
&XXX;

====================
XXX.cgiの内容

sub XXX {
　$cc = $aa + $bb;
　print "$aa + $bb = $cc";
} 1;

====================

こういう方法もあるな

====================
本スクリプト

require 'XXX.cgi';
&XXX(1,2);

====================
XXX.cgiの内容

sub XXX {

　$aa = $_[0];
　$bb = $_[1];
　$cc = $aa + $bb;
　print "$aa + $bb = $cc";
} 1;

====================

>220-221
分かりました！ありがとうございます、やってみます。

最後の
} 1;
ってどういう意味があるのですか？

>>223
このパッケージ関数の仕事は正常に終わったよ(ﾟДﾟ)､ﾍﾟｯ　　って意味。

糞どもしねや

#kusokote
まったくだ。CGIの話はして欲しくないな。

低レベルなスレッドだな。ぷっ

>224-225
（ ゜д゜）ﾎﾟｶｰﾝ

>224ｽﾏｿ
>225-227
ﾀｲﾑ（ ゜д゜）ﾎﾟｶｰﾝ

悔しかったらParrotの話でもしてみせろよ。糞ども

ここにいる連中のレベルは底が知れているな。

まったくだ。CGIの話はして欲しくないな。

俺みたいにexeを生み出して見ろや。腐れ低脳どもが。

まったくだ。俺はこのスレはもう立てるなってpart14で叫んだのに、、、（泣

>>233
exeを生み出して・・・・。
なんかカッコいい！！




























わけないジャン。

perlでyahoo等のページを読み込のは無理ですか？
openでURLを指定してwhileでprintさせてみましたが
何も表示されませんでした。
もしできるのなら方法を教えてください。

>>236
http://ash.jp/perl/socket_http.htm

JAVAスクリプトで、Duriusというサイトからダウンロードした
アプレットを、なんとかしてホームページで使いたいと考えています。
WaterPicというアプレットなのですが、
「classファイルが見つかりません」とステータスバーに表示されてしまい
必要なファイルはすべてサーバーにアップしたのですが、
うまく表示されません。
海外サイトなので、翻訳ツールなど使ってFAQを読んでみたり
自分なりに検索をしてみたのですが、どこを直せば良いのかわからず…。
どなたかご教授戴けますでしょうか。よろしくお願い致します。

参考サイト　ttp://www.durius.com/index.php

>>238
おもしろーーーーーーーーーーーーーーーい！

設置できないのですよぅ…。とほほ。

>>237 サンキュー！

>>240
ここ Javaアプレット のスレじゃなくて perl のスレですよん？
>>1 読んでます？
アプレットの設置で詰まってるならWeb製作管理板へどうぞ

☆ Webサイト制作初心者用スレッドver29 ☆
http://pc3.2ch.net/test/read.cgi/hp/1028459248/l50

242さん、ありがとうございます。

ソケットの接続をするために下のようなコードを書いたのですが
戻り値を得るのに時間がかかった時のために、タイムアウト時間を
指定する方法はないのでしょうか？
unless (connect SOCKET, $sockaddr) {
warn "don't connect $host:$port $!";
return 0;
}

一定時間後に別プロセスからシグナルを受け取ると、connect関数の
戻り値が得られていなくても次の動作にうつる、という方法も考えた
のですがもっと簡単な方法があれば教えてください。

ActivePerlが、
http://www.ActiveState.com/ActivePerl/download.htm
↑ココから進んだ先で、DL出来ないんですが、
なぜでしょう？(Win の AS package)
どこか他でDL出来ないでしょうか？

MSIの方でいいんでないの？
http://downloads.activestate.com/ActivePerl/Windows/5.6/ActivePerl-5.6.1.633-MSWin32-x86.msi

>>246
落ちてきます？
404なんですけど・・・。

あ、サーバが見つかりませんでした。・・・なんですけど。

-------風俗の総合商社・ＭＴＴどこでも-------

〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●楽しく遊べます！　090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
　 http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能-----
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------

お！今行ったら、落ちてきました！
メンテかなんかだったんでしょうかね？
とにかく、解決しました。スレ汚しスマソ。

>>244
alarmとevalを使えばよい。
http://www9.org1.com/~anach/memo/20020309.html

Win2K+Apache+ActivePerlの環境です。
スクリプトのエラーがあると、err500とかになっちゃいますが、エラーの個所とか出せないんでしょうか？
前はIIS+ActivePerlだったんですが、そのときはエラーログが残ったんですが。。

>>252
perl単体で起動できないの？

>>252
perl -cw filename

use Carp;
use sigtrap;
use diagnostics;
use warnings;

スイマセン、画像UP掲示板を作っていまして
CGI.pmを使ってフォームから
ENCTYPE="multipart/form-data" METHOD="POST"
としてCGIに送っているのですが、書き込みを中止させたときに
JavaScriptで書き込みのページに戻しているのですが（一から書き直させない為です）
「　警告 : ページの有効期限切れ　」
と、出てしまいます。
これはしょうがないのでしょうか？

CGI.pmを使わない普通の掲示板だと上手くいくのですが・・・。

>>251
自分で考えたものより簡単そうなので試してみます。
ありがとうございました。

>>244

IO::Socket の connect()メソッドのコードを見よ。
ってかIO::Socket::INET使え。

$sock = IO::Socket::INET->new(
　　PeerAddr => $host,
　　PeerPort => $port,
　　Proto => 'tcp',
　　Timeout => 60,
);

a<>b<>cccccccccccccccccccceeeeee
上の形式で保存されているログファイルの中にあるcの数をカウントするにはどうすれば良いのでしょうか？

>>259
上にあったぞ
$count には $log の変換個数が入る。

$count = $log =~ s/c/c/g;

ありがとうございます！
メモしておきます！！！！！！！

>>256
Pragma:no-cacheとか吐いてるんじゃ無いの？

Pragma:no-cacheの事が分らなかったので今急いで調べましたが
ヘッダーに入れてキャッシュを無くすものでしょうか？

自分では入れていないので、データを受取ってCGI.pmで
$query->param
しているのが原因でしょうか？
というか勝手にCGI.pmで処理されているのでしょうか？

可能な限りHTML的に正しいコードを吐き出したいんですけど、
「#」ってエスケープできないんでしょうか。

Perl5.8.0で
　use encoding "euc-jp";
してるときにURLエンコード・デコードってどうやるんでしょうか？
文字列がUNICODEになるせいか普通の方法だとできないです。

>>264
HTMLなら実体参照でもいいんじゃないか。

>>266さん
ええと、色コードの指定に使いたいんですけど、実体参照でも有効なんですか？
っていうのは板違いですかね。
調べてきます。

掲示板に2ch掲示板のようなキャップ機能をつけたいと思っています。

ログファイルに書き込まれた文字列を$capとして読み込み、
読み込んだ後に暗号化したいんですけど…

YY-Boardのcryptルーチンを転用させてもらったら、アクセスするごとに表示されるキャップが変わってしまいました。
どなたか、キャップ機能のルーチンを書いていただけたら光栄です。

すみませんキャップじゃなくてトリップですた
鬱じゃ

>>268
ｺﾋﾟﾍﾟする人のために書くルーチンは在りません。
ｶｴﾚ。
http://pc.2ch.net/test/read.cgi/php/1003131529/375

>>270
マジかよ・・それ俺じゃないのになぁ（´Д｀;
ま、マルチじゃないのにマルチと決め付けられたり、自作自演と決め付けられるのも、
この板ならではだからシカタナイか。

んじゃ
$trip = substr( crypt($cap, $cap), -8 ) ;

>>271
マルチは問題ではありません。
ていうか、そこまで出来るのであれば、
crypt
の動作を調べて自力で出来るはず。と思う。
ソレで出来なかったらソースを晒して下さい。

ログインをしたら、クッキーを食べさせて
ダウンロードするときなどに、認証するようにしたいのですが
どのような処理を行えばいいでしょうか(;´Д`)

ヒントを頂けないでしょうか？

ログイン時にクッキーを発行。
ダウンロードするときなどに、クッキーで認証する。

>>268
http://www.parkcity.ne.jp/~chaichan/qanda/qa3047.htm?02-08-20-14-46

やっぱりマルチやんか。
プンプン

亀レスですが・・・。
>>262さん
原因がわかりました、一度投稿した後そのまま記事表示させ、
その後の投稿でエラーなどで、投稿が中断され戻ると、
警告が出てきていました。

ですので、書き込み処理の後にHTTP-EQUIV=Refreshで更新させ
たら、上手く行きました。
すいませんでした。

×その後の投稿でエラーなどで、投稿が中断され戻ると
　その後の投稿が中断され、ブラウザの戻るボタンで戻ると

perlでのWebページ表示について質問です。

ttp://books-support.softbank.co.jp/pq/backnumber/012_ans_reader.html
この例のwebアドレス部分をauctions.yahoo.co.jpに置き換えると
とうまくいかないのはなぜですか？
www.yahoo.co.jpだとうまくいくんですが。

旨くいかない？　上手くいかない？　美味くいかない？　美味く逝かない？
HTMLは取れますけどね

>>281
すみません。オークショントップは繋がりました。
（さっきはできなかったのに）

rating.auctions.yahoo.co.jp/jp/show/rating?userID=nakatax2002&filter=-1
こっちアドレスだと「通信が確立できませんでした」が出るんですが
なぜでしょうか？

そのページを見るためにクッキーとか、要るんじゃないの？

すみません質問です！
フォームから受け取った変数に文字列が何も入ってない場合の
処理をしたいのですがどうすれば良いでしょうか？

if($hensu==null){}
if($hensu==""){}
この二つを試してみたんですが駄目でした。

・・・ if ($aaa eq '') だろ？

>>284

そんなレベルでクエリすんな！

ここでいいのかわかりませんが質問させてください。

ちゃんと動作してるcgiを(無意味ですがうっかり)書き換えなしに
上書きアップロードしたら動作しなくなってしまいました。
なぜなんでしょうか？サーバー側には問題ないようなんですが・・・

>>287
それを「ちゃんと動作していない」とゆう。
パーミッション以外、指摘の仕様が無い。

あとバイナリモードで送信したか,ちゃんと動いていた(過去形)というのが妄想だったか,
「書き換えなしに」というのが嘘っぱちか.

フォームのプルダウンで都道府県を選ぶと、
送料が表示されるというもの。
　前提１　プルダウンのvalueは漢字で北海道…
　前提２　料金は別ファイルに記述　hokkaido=790…
で、次のようにしたのですが、

@pref = ("北海道","青森県","秋田県","岩手県"…）;
@price = ($hokkaido,$aomori,$akita,$iwate…);
$inx=0;
foreach $pref (@pref) {
　if (index ($pref,$form_data{'pref'})>= 0) {
　　last;
　　}
$inx++;
}
$soryo = $price[$inx];

誰か、もっといい方法、教えてください。

お初です。
実はこんな事が出来るCGIが無いかと探しています。

定期的に特定のサーバーへpingを打ちその結果を表示する。
※イメージ的にはMRTGでpingの応答時間をグラフ化した感じ
出来たら、グラフ表示で過去ログを見えるとベストですが、共有サーバー上なので
勝手な設定やソフトを導入出来ない為に諦めています。

目的は、あるサーバーへの応答時間（経路またサーバー負荷かによる原因は区別しない）
を、監視するサイトを作る為です。
表示の度に実行するタイプとcronで５分間隔程度で実行するタイプのどちらかを探しています。

かなり探したつもりですが、見つける事が出来ませんでした、
ここのエロい方々なら知っているのではないかと思い書き込んでいます。
どうか、おながいします。

>>290
$DATA{'hokkaido'} = "hokkaido,北海道,十円";
$DATA{'aomori'} = "aomori,青森,百円";
$soryo = (split(/\,/, $DATA{$form_data{'pref'}}))[2];
とか？
いや、もっといい方法あると思うけど。ケースバイケースで。

>>291
http://pc.2ch.net/test/read.cgi/php/1021897804/l50
何故、エロいと判った！？

>>293
thxです。
なぜって、エロくないヤツがここにくるわけないと思っただけです。

すごいいきなりバカな質問なんですけど
レンタルのカウンター使いたいんです。
でもＨＰにタグを挿入とか意味が分からない
どうやるんですか？？

>>292
レスありがとう。
$form_data{'pref'}は、北海道とか、青森とか
漢字が入ります。が、大丈夫ですよね。
試してみます。

>>296=290
リスト作っとくだけで出せるだろ。

%pref =(
'北海道',"$hokkaido",
'青森件',"$aomori",
'秋田県',"$akita",
'岩手県',"$iwate",
);

$soryo = "$pref{$form_data{'pref'}}";

>>295
すごいいきなりバカな質問なんですけど意味が分からない
どうしてここに書き込んだんですか？？

htmlのﾃﾝﾌﾟﾚｰﾄを読み込んで、表示させる掲示板で、
次のページへ移動する時にログファイルの行数で判断しようと思っています。

下の方法だと、行数のためにログを開くのがかなり無駄に思えるのですが
ｱﾌｫなので良い方法が見つかりません。ﾋﾝﾄをご教授して頂けませんか？
$page は1ページの表示数です

open(LOG,$log)
@lines = <LOG>;$lines=@lines;close(LOG);

$end = $page + $now_no;
if ($end < $lines) {$next = "bbs.cgi?〜";}
else {$next = "";}

open(IN,$skin); $locate = \@header;
while(<IN>){
if (/<!--start-->/) { $locate = \@table; next; }
if (/<!--end-->/) { $locate = \@footer; next; }
push(@$locate,$_); }
close(IN);

print @header;
open(LOG,$log);
while(<LOG>){print $table;}
close(LOG);
print @footer;

一部省略しているので、分かりにくいかも知れませんが・・・

>>258
ありがとうございます
そういう関数があるんじゃないかと探してました。

>>299
よくわかんないけど。

print @header;
print @lines;
print @footer;

じゃﾀﾞﾒﾎﾟ？

>>297
レスありがとう。これで、やってみたらできますた。
深く感謝。
これって、'北海道',"$hokkaido", でセットになっているんですか？
北海道の場所がわかると、その横の変数が表示できるということ？

>>301
それじゃ、ダメなんですよ。ｽﾏｿ
open(LOG,$log)
@lines = <LOG>;$lines=@lines;close(LOG);
この処理はなくてもいいんですが、
記事が無くなっても、次のページへと言うのが
残ってしまうんです

>>302
ハッシュについて調べてみ。
%hoge("キー","値");

$hoge{キー}で値が呼べる。

初めてライブラリ書いてみた。CHTML<->HDMLのつもり
各タグ、延々と同じようなことを繰り返す
もっとマシな書き方(効率・処理etc)ないでつか？
#####<HTML></HTML>#####
#$agent=[i=0/j=1/Ez=2/...]
sub html{
my($temp)=@_;
if(@$temp==2 && $$temp[1] eq 'tag_close'){
if($$temp[0]!=2){print '</HTML>'}else{print '</HDML>'}
}
else{
if($$temp[0]!=2){print '<HTML>'}
else{print '<HDML VERSION=3.0';
if(@$temp>1){
@text=('TTL','MARKABLE','PUBLIC','ACCESSDOMAIN','ACCESSPATH');
foreach(1..@$temp-1){
unless($$temp[$_] eq 'N'){print ' '.$text[$_-1].'='.$$temp[$_]}
}
}print '>'}}
}

>>305
@_=($agent,...)
ライブラリのわりに、コピペして'1;'忘れ

ライブラリのコメントって ;# のがｲｲんじゃなかったっけ

＞＞３０７
;# がよくて # が悪い？？？？？

307=jcode.plでモノを考えた典型的なCGI厨房

>>307-309
;# コメント
の形式のコメントが、たまに使われることがあるのは、
そのスクリプトが -P オプションでCプリプロセッサに前処理させることを前提としている場合、
#コメント がプリプロセッサディレクティブと誤認されないようにするため。

もっとも、jcode.plはそうではないが。

あー来やがった。最強のコテが、、
とりあえず本物かどうか知らんがトリップぐらいしようね。
名前欄に_gunzip#hogehogeってやるんだよ

>>もっとも、jcode.plはそうではないが。
じゃああれはなんとなくってこと？

　　　　　　　　　　　

↑この馬鹿早く規制されねーかな。

>>311,312な

>>311
ｽﾏｿ、何も考えず適当に入れてた
最強なのか…一応変えとく

>>311
作者ではないので真意は分からないが、スタイルでそうしているだけだと思う。

#トリップ御教示ありがとう。

相手するなよ>gunzip
こいつ鬱陶しすぎ
マジむかつく

>>316-317
まとめて死ねよ。お前ら見てるとむかつく

>>311
ほれ　糞用のスレ立ててやったから
こっちに来い
http://pc.2ch.net/test/read.cgi/php/1029945604/l50

もう来てるみたいだけどな　（ｗ

>>319
>>315が出てこなければ問題は解決する。

>>320
糞頭じゃ足りない事が、人間には沢山有るんでね

>>299
処理する順番を変える。
log が eof に達したら「次のページへ」を非表示にする。

初心者の質問です。
KENT WEBの宅鯖計画を見ながらソフトのインストールを試みたんだけど
Active Perlのインストール中に警告ダイアログが出て
どうしてもうまくいきません。
うまくやる方法をうまく教えてください。

どんな警告が出たのかを書かないと誰も答えられない。

>>324　そうですね、すいませんでした。

警告文は
"There is a problem with this Windows Installer package.
A script required for this install to complete could not be run.
Contact your support personal package vender."
です。

MSIのバージョンをあげてみろ、といってみる。

MSIのバージョンのあげ方もわからない・・・

出直してきます。
お手数をお掛けして申し訳ありませんでした（逝）

英語を読めない人間はプログラムをする資格がありません。

Windows Installer 2.0 for Windows 2000 and Windows NT 4.0
http://www.microsoft.com/downloads/release.asp?ReleaseID=32832
http://download.microsoft.com/download/WindowsInstaller/Install/2.0/NT45/EN-US/InstMsiW.exe

Windows Installer 2.0 for Windows ME, Windows 98 Second Edition, Windows 98, and Windows 95
http://www.microsoft.com/downloads/release.asp?ReleaseID=32831
http://download.microsoft.com/download/WindowsInstaller/Install/2.0/W9XMe/EN-US/InstMsiA.exe

>>328
やさしいな。

いきなりスイマセン
↓これおかしいですか？動かんようになったんです。

##############################################

#リピート部分プログラム
sub output {

#mail入力の有無
if ($email eq '') {
print "$name : ";
}
else {
print "<A href="mailto:$email">$name</A> : ";
}

#メッセージの表示
print "$msg";
}

###############################################

コレだけやったら「ワケワカラン」ですかねぇ・・・

#mail入力の有無
if ($email eq ''") { <=（。∀゜）「"じゃなくて""じゃないの？」
print "$name : ";
}
else {

print "<A href="mailto:$email">$name</A> : ";

print "<A href=\"mailto:$email\">$name<\/A> : ";

えっと、、、
「"」じゃなくて、「'」2つなんで、okかと・・・
一応ダブルに変えたんですけど、ダメでした。

>>332
やってみます。

いけました！
超初歩的でしたね（スイマセン・・・）
１時間悩んだのが、５分ほどでいけました。
何やってたんだろ・・・
どもでした！

>>334
""のなかに"が入る場合は\でエスケープするよりも、

print "<A href=\"mailto:$email\">$name<\/A> : ";
↓
print qq(<A href="mailto:$email">$name<\/A> : );

で書くほうがすっきりするよ。

>>335
おっ！そんな方法もあるんですね。
参考になります。

なんせ、実質昨日から始めたみたいなモンなんで・・・
もう、お世話にならなくて済むようにガンバリマス。
ありが�dでした。

ちょっと疑問

ファイルの各行を配列の要素として読み込ませるコードって

open(FP,"+<$file");
@xx = <FP>;
foreach $yy (@xx) {
print $yy;
}
close(IN);

って書くらしいんだけど、
foreach $yy (@xx) {
print $yy;
}
これって意味あんの？

closeのほうのファイルハンドルまちがいた・・・鬱死・・・

意味ないっていうか、読み込んだ奴を表示してる。
読み込むなら
open(FP,"< $file"); #または open(FP,$file);
@xx = <FP>;
close(FP);
でいいと思う。
漏れも初心者だからあってるかわからん。

>>337

それくらいわかるだろヴぉけ
つかサンプルまるうつししてるようなうんこはしね

>>340
ﾏｧﾏｧ、ここは初心者スレですから･･･

昨日の今日で恐縮です・・・
かなりシンプルな掲示板を色々いじって勉強してるんですが、

テンポラリーファイルが、勝手に消えるんです。
全く分かんなかったんで、何度も何度も自分で作るんですけど、
プログラム実行するたび消えたんです。

で、検索したら、
「プログラムが動いているとき、一時的に作られる作業用ファイル」
って書いてあったんですけど、、、

つまり、実行後消えるって言うのは正常なんでしょうか？

>>342に必要と思われるもの

英語の辞書 temporary

>>343
「一時的な」でしょ？
それは分かってます・・・
正常なのかが聞きたかっただけなんですけど、
煽られそうなんで、もぉやめときます。。。

>>344
分かっているのに聞くと言うことは 極めて日本語が不自由な在日ですか?

>>343
一時的というのは永続的に続く事なのですか？あなたが言っているのはそういうことになりますが。

>>335
qq(\/);
としているのは意味あるの？

>>347
ﾐｽだろｲｲじゃん動くﾀﾞﾛ

sendmailを利用したプログラムを書いていて
つまづいてしまったのですが、アドバイスいただけますでしょうか。

CGI設置サーバ：aaa.com
メーラーのSMTPサーバ：mail.ccc.or.jp
Mail-1：[email protected]
Mail-2：[email protected]
Mail-3：[email protected]
Mail-4：[email protected]

以上の環境で、Mail-1・Mail-2・Mail-3にはCGIからもメーラーからも
数秒〜数分でメールが届くのですが、
Mail-4にはメーラーからは数秒で届くものの、
CGIからは２時間ちょっと経過した今現在、まだメールが届きません。

sendmailでは、こんなにタイムラグってあるものなんでしょうか？
それともCGIプログラム自体に問題がある可能性がありますか？
原因のマトが絞れず悩んでいるのですが、よろしくお願いいたします。

厨質でもうしわけないんですが、
ファイルの指定の行の内容をさしかえることってできますか？

open(CNT,"+<$cnt");
flock(CNT,2);
@cnt = <CNT>;
@cnt[$n] ++;　　#n行目の数値をインクリメント
truncate(CNT,0);
seek(CNT,0,0);
foreach $a (@cnt)
{ print CNT "$a\n";}
close(CNT)

今は↑のような感じでやってるんですが、
これだと毎回ファイルをまるごと書き換えてるんで、効率悪いですよね・・・

>>350
これじゃいかんかの？

open(SAQ,"unittest.pl");
@fasx=<SAQ>;
$fasx[2]="-_-";#替えたい行
print @fasx;

>>351
書きこむ時には結局

open(SAQ,">unittest.pl");
foreach(@cnt)
{ print SAQ "$_\n";}

ってやらないとだめなんですか？

>>349です。
CGI設置サーバをddd.co.jpに変更したら送信先４件ともメール届きました。
前のaaa.comに設置した方からは、今だに[email protected]宛には
10時間経過した今現在も届きませんが、
とりあえずメールの受け取りができたので解決といった感じです。
ほんとはSSLが使えるaaa.comに設置したかったんですが、
は〜〜どうしよう・・・。
こんなことあるんでしょうか・・・sendmail。
もしかしてスレ違いだったかな。スミマセン。

あぶらあげ

スレ違いかもですが、クッキーについて少し質問させてください。

インラインフレームを使用したページで、-�@
クッキーに対応したページをフレーム内に表示させると、-�A
効かなくなったんですが、
当然のことなんでしょうか？

で、これが当然のことなら、
JavaScriptで、�@のページにクッキーのスクリプトを埋め込もうと思うのですが、
それで、果たして、�Aのページまで対応できるのか、不安になりまして・・・

どなたか分かる方お願いします。

全然、見当違いなこと言ってるのかも知れませんが、
そのときはお許しを・・・

>>355
スレ違い以前に板違い。

JavaScript、VBScript等クライアントサイドの話題はWeb製作板へ
http://pc3.2ch.net/hp/

そうですよね。
いや、�Aのページが、
必死でクッキー処理を追加した掲示板だったもんで・・・
「製作板」逝ってきます。

ばーぁ

2つ前までのリンク元って取得できないものでせうか？

>>359
マルチは鬱陶しいね。

「CGIに依存しない・・・」が読めなくなったな...。
悲惨な終わり方だな。

if ($str =~ /xxx/) {
print "含んでいる\n";
}

の/xxx/の部分て文字列じゃなく、変数にしてもできるんですか？

if ($str =~ /$str2/) {
print "含んでいる\n";
}

みたいに

>>362
結論からいうとできるけど、試せよ

というか、　if($xx =~ /xxx/) で含むなら、と覚えてたら正規表現なんてわからないよな

>>344
コードの先に、unlink("***")　でファイルを消しているんじゃ無いのか？？

糞コテ死ね

@listに123,456,789が代入されているとき
@listから456を取り除いて、

print "@list";
で123,789にするにはどうすれば良いのでしょうか。

>>367
@po=(123,345,234);
@po=($po[0],$po[2]);
print @po;

>>367
配列のindex Nの要素を取り除きたいのか、
値Ｘを持つ要素を取り除きたいのかで全然違うよ

# 前者
my $N = 1;
splice @list, $N, 1;

# 後者
$X = 456;
@list = grep { $X != $_ } @list;

すみません。初心者なんで良く分からないんですが、
変数に入っている文字列から指定した文字列を消去したいんです。
正直、@でも$でも構いません。

文字をバイナリでファイルに書き出したいのですが
方法を教えて頂けないでしょうか?
例えば

$val="65";

の場合 $val をファイル、もしくは標準出力に書き出すと
文字の 65(バイナリでは 0x36 と 0x35) がファイルに書かれますが
バイナリで 65(0x41) を書き出したいのです。
pack,unpack も試しましたが文字のままでした。(;´Д｀)

先ほど始めて使ったので調べていない点が
あるかもしれませんが宜しくお願いいたします。

$hoge = '123456789';
$hoge =~ s/456//;

本買えよー

>>372
激しくありがとうございました...

$hoge = '65';
$hoge =~ s/(.)/sprintf("\\x%02X",ord $1)/eg;

unpackは使いづらいから嫌い

>>374
即レスありがとうございます。早速試してみましたところ

\x36\x35

と表示されました。
実はこの出力が欲しかったのではなく
バイナリエディタで見た場合に 0x41 と表示される
出力が欲しかったのです。

入力ファイル内容 が ABC の場合に
出力ファイル内容が 16 進バイナリで 41 42 43 であって欲しいのです。
エディタで開くと謎の文字が表示されるアレです。

私の説明が悪く申し訳ありません。

何に使うかと言いますと
ジャンクハードの FlashROM 内容をダンプした物を
文字列整形後バイナリデータに変換し逆アセンブルしたいのです。

他に方法がありましたら宜しくお願い致します。

文字列の中から指定した文字の個数を調べるにはどうすればいいのでしょうか？

>>376
$count++ while($hoge =~ /$page/g);

>>375
chr

>>371
print chr(65);

>>378

（・∀・）ｿﾚﾀﾞ!!
どうも一般的な関数みたいですね。
大変助かりました。
ありがとうございます。

>>379
書込みタイミングがずれてしまいました。
どうもありがとうございます。
これから実装してみます。

いや、普通はpack/unpackを使うと思うんだけど
print pack "C*", 65, 66, 67;

おぼえとけよ。お前らのIPは全部保存してあるからな。
いまさら泣いて許しを請うても遅いからな（ｗ

CGIに依存しない〜は残念だったな(ppp
糞固定どもと成れあっとけや糞虫。

何か言えよ！

>>322
返信遅くなってすみません
今から試行錯誤してみます。
ｱﾘｶﾞﾄｺﾞｻﾞﾏｽﾀ

アクセス制限のやり方教えてください。

>>387
if($ENV{REMOTE_USER}){if($ENV{REMOTE_USER} eq $dqn_user){print "Location: $url"}}
elsif($ENV{REMOTE_HOST} eq $dqn_host){print "Location: $url"}
でいいの？

proxyかけてるやつの制限ってどうやるの？
教えてー

>>389
] あなたは Proxy を利用していますか？
]
] 　　はい、利用しています (→Yahoo! へのリンク)
] 　　いいえ、利用していません (→トップページへのリンク)

こんな感じのページを置いておく。

>>388
ダメだ

>>388
?

>>391
じゃぁ .htaccess でも池
http://pc.2ch.net/test/read.cgi/php/1019888234/l50

>>387
同時アクセス数とか、転送バイトとかか？>>389か？

>>393
オレじゃねーよ、ボケ！

kent-webのアップロード式掲示板のやつで
着メロをうｐできるようにするにはどうすればいいんですか？

perlの勉強始めたばかりの超初心者です。

色々な人のソースを参考に本を片手にCGIスクリプトを書いているのだけど、
http://www.kent-web.com/utility/index.htmlのPerl Checkerで
自分の書いたスクリプトをチェックすると、

Missing right bracket at regist.cgi line 270, at end of line
syntax error at regist.cgi line 270, at EOF
regist.cgi had compilation errors.

って、エラーがでます。

実際の270行目って、スクリプトの終わりで何も書いてないし、
直前の269行目にはexit;

どこが悪いのかわからないんですけど、わかる人いますか？

おねがいいします。

>Missing right bracket
右ブラケットが欠けている。

たいがい、エラー行の前に原因がある。

>>299ですが
open(LOG,$log);
while(<LOG>){print $table;}
close(LOG);
は
open(LOG,$log);
($date,$no,$sub,$text) = split(/\,/,$_);
$table = join('',@table);
$table =~ s/<text>/$text/g; #$sub等も置き換え
print $table;
close(LOG);
でした

もうだめぽ・・・

負荷状況を調べたくて
use Benchmark;
を試したいのですが、

Benchmark.pmを同じフォルダーに置いて、コマンドから実行させてみたりしましたが
ダメでした。ご教授して頂けないでしょうか？

@header;
@footer;
の中にNEXTがあるので、
print $table; をpush (@txt,$table);
にして

{ここで置き換え処理}
@header;
@txt;
@footer;
にしたのですが、@txtが大きくなると負荷が掛からないかと心配です

ログのサイズは大きくても200kくらいです

>>401
頼むから、一度くらい検索かけてくれ。
http://www.kt.rim.or.jp/~kbk/perl5.005/perlfaq3.html

>299
質問内容が解りません。ここは日記ではありません。
自分で試せることは試して下さい。

ファイルのデータを配列にいれるのはどちらの方がいいでしょうか？
他にいい方法はありますか？
１、
@DATA = <DATA>;

２、
while(<DATA>){
push(@DATA, $_);
}

>>404
1 短くて簡潔な方がｲｲ。
2 だと @DATA が空である必要があるし、よけいな while を呼び出さなければならないから。

>>404
データを加工しない限り1以外の方法は使わなくていいんじゃないか。

757は余計だったな（藁

ファイルサイズが大きいと１はまずいんでないかい？

>>408
ファイルサイズがでかけりゃ、1も2もまずいだろうよ・・・

ありがとうございます。1のほうを使う事にします

ま、1か2のどちらかしか考えないのじゃなくって
本当にファイルの中身を配列に入れる必要があるのかと

windows上でjperl使ってて、
Runtime Exceptionって出てperl自体がこけるんだけど、
対処方法がわからない。なんとなく正規表現に負担をかける
処理を多用するとまずい感じ（64k制約の話を聞いたことがあるけど、
漏れの場合、扱ってる個々の文字列の長さはせいぜい2k程度）

だれか教えてちょ。
こける場所は不定。デバッガかませると動作完了したりする
ときもある。

>>299
そのソースどっかで見たことあるなー
引用してるなら、元サイトのｽｸﾘﾌﾟﾄ見てみたら？

299=404？

>>412
日本語のページからwindows runtime Exceptionを検索しました。
http://www.google.com/search?hl=ja&inlang=ja&ie=Shift_JIS&q=windows+runtime+Exception&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

Perl じゃなくて Windows じゃないかしら。マ板かWin板へ。

ここの掲示板みたいに、プロクシ規制の方法を教えてください。

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

PNGカウンタを作ってるのですが

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

とやると4回も起動することになるので1回にまとめたいのですが

@listにそれぞれの画像のパスが格納されている場合

例：@list = ("./image/0.png","./image/1.png","./image/0.png");

上の場合だと010と表示させたいのですが

foreach $number(@list)

{
open(IMG,"$number") || exit; print "content-type: image/x-png\n\n";
binmode(IMG); binmode(STDOUT); print <IMG>; close(IMG); exit;
}

上のようにやっても１つしか画像が表示されません。
いくつも画像を表示できないのでしょうか？

猫

i-mode絵文字対応フォームメールを設置したいのですが、
文字化け対策がうまく行きません。
（文字化けする絵文字としない絵文字がある。）
処理をうまくしてる人はどうやってやってます？

>>419
&#xxx;という形式で送信されるから適切に処理する

>>417
ヘッダーに空白行（\n\nってとこね）を出力した後には、もうContent-typeとかやってもダメです。
つまり出力できる画像は１つだけです。

>>420
どうもありがとうございます。文字化けするものと、しないものを一部抜粋しました。
***************************************
NO1 　 F89F　晴れ　　　　文字化け
NO2 　 F8A0　曇り　　　　文字化け
NO3 　 F8A1　雨　　　　　大丈夫
NO94 　F8FC　車椅子　　　大丈夫
NO95 　F940　新月　　　　文字化け
NO135 F9B0　決定　　　　大丈夫
NO136 F991　黒ハート　　文字化け
***************************************
if (!open(OUT,"| $SENDMAIL -t")) { &error('送信できません'); }
print OUT "To: $MAIL_TO\n";
print OUT "From: $WEBMAS\n";
&jis("Subject: $SUBJECT"); print OUT "$msg\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT 'Content-Type: text/plain; charset=iso-2022-jp' . "\n\n";
&jis("$NAME_FROMさんの質問が届きました。"); print OUT "$msg\n";
#絵文字対応
$sjis = '[\x80-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\x7F]|[\xA1-\xDF]';
$emoji = '[\xF8\xF9][\x40-\x7E\x80-\xFC]';
$QUERY{'COM'} =~ s/\G((?:$sjis)*)($emoji)/$1.'&#'.unpack('n',$2).';'/ego;
&jis("--$QUERY{'COM'}"); print OUT "$msg\n";
&jis("▽答えはココから"); print OUT "$msg\n";
&jis("$CGI?M=H&T=$ID_FROM&F=$ID_TO&P=$PASS_TO"); print OUT "$msg\n";
close(OUT);
こんな感じにしたんですけども駄目なんです。

>>422
http://pc.2ch.net/test/read.cgi/php/1028052835/l50

任意の文字列が含まれる１行を抽出し、該当文字列のみを
新しい文字列に置換えるスクリプトを作成したいのですが、わかりません。

下記のメールアドレスで行を取得して、元データ(@old)を
新しいデータ(@new)に置換る（行の置換え）スクリプトを、
上記の様に修正したいのですが・・・。

教えてください。お願い致します。

open(IN,"data/data.csv") or die;
while($line=<IN>){
chomp($line);
if($line =~ $mail){
push(@old,$line);
@tmp1 = "@new";
open(OUT,"+<data/data.csv");
print OUT "@new";
close(OUT);
}
}
close(IN);

>>424
とりあえず元ソースは全放棄したほうがいいと思った

#置き換え対象文字列
$mail="[email protected]";
#置き換え文字列
$replace="[email protected]";

open(IN,"data/data.csv") or die;
@old=<IN>;
close(IN);

foreach (@old){
s/$mail/$replace/g;
}

open(OUT,">data/data_after.csv") or die;
print OUT @old;
close(OUT);

みたいなのでダメなんすか？って全部書いちゃったよおい。

どでかい配列作るのが嫌なら（csvファイルが何千行とかなら）
一時ファイル作ったほうがいいね。

open(IN,"data/data.csv") or die;
#一時ファイルを開く
open(OUT,">temp.csv") or die;

while($line=<IN>){
$line=~s/$mail/$replace/g;
print OUT $line;
}

close(OUT);
close(IN);

#一時ファイルを消して、ファイルを置き換える
rename('temp.csv','data/data.csv')　or die;

はいオナニー終わり！

特定の曜日、日時にコンテンツのhtmlを自動生成したいのですが
来訪者の度にCGIを実行して、時刻をチェックする方法以外ないでしょうか？
この方法だと、来訪者が増えるたびに処理が重くなってしまいます。

>>427
crontabが使えなければ、それしかないかな。

>>425
一応、エスケープね。

正規表現で、配列を変数展開させたいのですがうまくいきません。
m/^hoge$array[0]hoge/;
↑このように書いても、$array[0]はうまく展開されないんです。
どなたかいい知恵貸してください。
おながいします。

>>430
正規表現中のブラケット [] は文字クラスを表します。
foreach などで他の変数に代入してから処理する等の回避方法が考えられます。

>>431
むう、やはり正規表現中で[]を使わないように回避するしかないのですね。
了解しますた！
ありが�d

>>430
ごめん。
5.003 Build 316
で試したら、それ、多分期待通りに動いた。他の原因があるかも。

@aaa = ("どおして",);
$bbb = "どおしてそんなことすんのー。やめてーなー。ほんとにもー。";
if($bbb =~ /^$aaa[0]/){print "is true$aaa[0]\r\n"}
else{print "is false$aaa[0]\r\n"}

>>433
すまそ、おっしゃる通りうごきますた。
正規表現を解釈するよりも前に変数展開してるんでしょうね、きっと。
>>430で「うまく展開されない」と書きましたが、別の原因でした……
…………………吊ってくるっす　ｺﾞﾒ

配列操作に関する質問です

readdirで得たファイルリスト「@datafiles」から
カレントディレクトリやデータファイル以外のファイル名が収まっている要素をspliceしたいのですが
なにかうまい方法は無いでしょうか？

データファイルかどうかは命名規則「/^\d+(dat)$/」で判断したいと思っています

ちなみにファイルリストを「@filelist」にとっておいて

@datafiles = grep(/^\d+(dat)$/, @filelist);

としてもダメでした
grepの使い方間違ってます？

/^\d+.dat$/
だったりはしない？

特定のURL以外から飛んできた人を弾きたのだけど

前教えてもらったのは"特定のURLから飛んできた人を弾く"
if ($ENV{'HTTP_REFERER'} =~ /aaa/) {
print "Location: abab\n\n";
exit;
}
(aaaから来た人をababに飛ばす)
"特定のURL以外から飛んできた人を弾く"を....

>弾きたのだけど
弾きたいのだけど

あー。見えにくいかもしれんけど、 dat が拡張子ならピリオド . が必要ってことで。
あと、ファイルテスト演算子 file test operator ってのもあるから。
それで良ければ調べてみるﾖﾛｼ

>>438-439
何？

>>441
つまり外部リンクできた人を弾きたいと(.cgiに)

>442
else か not か !

notかな

unless

>437
そうでした・・・穴掘って埋まってきます・・・

>>414
PerlがRuntime exceptionでこける事例は、例えば
NamazuのBBS

WinNTでNamazuが落ちる事例
http://search.namazu.org/ml/namazu-users-ja/msg00011.html
当たりでやりとりがあります。

ただ、あまりはっきりした解決方法はでてきませんでした。
このやりとりの中で触れられている正規表現の処理に関する問題が
>>412で書いたマッチ64K制限は、確かActivePerlのサイトあたりに
あったことです。

Perlのversionを上げるもしくはUnix系OSの上で処理をするか
いずれかができればいいのですが（普段はそうしてます）、
この件に関してはちょっとそのへんの変更が難しいもんで。

ちなみにperl Runtime exceptionでぐぐるとかなりたくさん
Active Perlのこの問題はでてきます。

>>447
いや、板違いってゆうのは撤回しますが、結局 ｹﾞｲﾂ が悪いんでしょ？
えーと、現在のところ、どうも原因不明の様ですし、初心者向けの話題でもないようですから。
Active Perl + Win の新スレ立ててみたらどうでしょうか。

>>446

ピリオドをエスケープしないと意図しないファイルも引っ掛かります。

/^\d \.dat$/

↑プラスがスペースに変換されてます。

MySQLでフランス語のデータを管理してるんですが、SELECT文
でのアクセント付き記号の扱いに困っています。

例えば、&egarve;を入力して、&egarve;だけにマッチさせたいんで
すが、&egarve;とeが引っかかってきます。

ご存知のお助けください。

すんません。訂正します。

>例えば、&egarve;を入力して、&egarve;だけにマッチさせたいんで
>すが、&egarve;とeが引っかかってきます。

は

例えば、èを入力して、èだけにマッチさせたいんで
すが、èとeが引っかかってきます。

です。

みようみまねでスキンを使った掲示板をいじってるんですが、
スキンから読み込んだのを変換するとき、
$skin =~ s/title<!--s-->/$title/i;
$skin =~ s/***/***/g;
$skin =~ s/***/***/i;
$skin =~ s/***/***/i;
・
・
・
って感じなんですが、

$skin =~ s/title<!--s-->/$title/i;
と打ったところ、一つだけしか「s/title<!--s-->」が
変換されなかったんですね。

で、なんとなく、
$skin =~ s/title<!--s-->/$title/g;
にしてみたら、いけたんでけど・・・

この後ろについてる「i」とか「g」の意味はなんですか？
他にも「s」とかもあったんですが・・・

検索しても見つからないのでお願いします。

>>452
latinのC0..FFでマッチはらめ？

>>453
>>1

>>453
検索の仕方を聞いたほうがいいんじゃねーの？
http://www.google.com/search?num=30&hl=ja&inlang=ja&ie=Shift_JIS&newwindow=1&q=%90%B3%8BK%95%5C%8C%BB+%8FC%8F%FC%8Eq&lr=lang_ja

http://ascii.room.ne.jp/~puchico/gokuaku.html
( ´,_ゝ`)誰かここのパスワード解いて教えろ
オエの知識じゃわ　が　ん　ね　!!

匸0 ﾟдﾟ）ﾏﾙﾁ氏ね
http://pc.2ch.net/test/read.cgi/hack/997452913/101

>>455
有難うございます。
つまり、
iは「大文字小文字を区別しない」で、
gは、「全体から探す」ってことで、
oは、「変数を１度しか展開しない」ってことなんですね

で、もう一つ疑問が・・・
=~ /***/ や
=~ m/***/ は解ったんですが、
=~ s/***/ の説明がないんですよ・・・

「m」が「/」以外のディリミタを使えるようにするためのものですよね？
同じ意味なのでしょうか？
違ったら、この「m」とか「s」入る場所？の名称なんかを教えて頂けないでしょうか？
検索すら出来ない状況なので・・・ホントすいません。

CGI、とくにFormまわりの質問なのでスレ違いかもしれませんが

@dataにテキストファイル(S-JIS)から文字列を読み込んで
「print "<TEXTAREA name=\"text\" cols=\"80\" rows=\"16\">@data</TEXTAREA>";」
としたときに、なぜか@dataの２行目以降行頭に半角スペースが入ってしまいます

おかしいな、と思って「print @data;」してみても
行頭に半角スペースが入っている事はありませんでした

改行コードの問題かと思いforeachで「$_ =~ s/\r\n/\n/g;」としても状況に変化がありません


IE,NN共に同じ症状を確認しているのですが
これはHTML、あるいはブラウザの問題なのか、Perl側の問題なのか
どうやって回避したらいいんでしょうか？

$XXX =~ s/Z/A/;
$XXXに入ってる「Z」を「A」に書きかえる。（最初に見つかったやつだけ）

$XXX =~ s/Z/A/g;
$XXXに入ってる「Z」を「A」に書きかえる。（すべて）

$XXX =~ s/Z/A/i;
$XXXに入ってる「Z,z」を「A」に書きかえる。（大文字小文字を区別しない）

>>459
変数展開を調べること

>>459
HTMLソースを見ても半角スペース入ってるのか？

>461
テキストデータには展開される可能性がある文字列はありませんでした
・・・そういう意味じゃないのかな

>462
はい、TEXTAREAで挟むと半角スペースが現れますが
「print @data;」だとソースでも半角スペースは現れません

なるほど！
sが、置き換えるって意味ですか！
ホントおばかでした。
スレ汚しすいませんでした。
皆さん有難うございました！

>>463
"@array" と @array の違い（変数展開）を調べること

>465
うーん、直接その答えにはたどり着けませんでしたが
「print "<TEXTAREA name=\"text\" cols=\"80\" rows=\"16\">" . @data . "</TEXTAREA>";」
とすることで解決しました

ありがとう

>>

>>466
（　´,_ゝ`） ﾌﾟｯ

ユーザーのプロバイダのアドレス？調べるのってどれでしょう？
*******.ap.plala.or.jp
こんなやつ
$ENV{'REMOTE_ADDR'};
だとIPアドレスが表示されるようなのですが

変なとこで送信してもた。スマソ。

>>466
$"　という変数を見てみな。デフォルトでは半角スペース入ってるから。
この変数はprint "@xx";の時に区切りとして使うものを入れてるモノ。
先だって
$" = '';
としておけば半角スペースは無くなる。

>>469
アドレスが知りたいのなら、IPアドレスがいいじゃないかアケチくん。

$ENV{'REMOTE_HOST'}
ただし、最近のプロバイダではここにリモホが入ってる設定にしてるところは少ない（無駄だから）
その場合は次のコードで行けるだろう。

$ENV{'REMOTE_HOST'} = &nslook($ENV{'REMOTE_ADDR'});

sub nslook{
local($x)=@_;
local($ip,$addr);
if($x=~/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/){
$ip="$1.$2.$3.$4";
$addr=(gethostbyaddr(pack('C4',$1,$2,$3,$4),2))[0];
if($addr ne ""){
return $addr;
}
}
return $x;
}

>>471
そうなのかしら。
でもぱっと見わかりやすいのもいいわ。
っていうかじゃぁ両方で。

およよ。
そう、REMOTE_HOSTでやってみたら
何も取得できなかったんですよ。
上のはアドレスから変換してるのでしょうか？

>>474
nslookというサブルーチンに、IPアドレス$ENV{'REMOTE_ADDR'}を教えて
リモートホストを教えてもらって、空っぽだった$ENV{'REMOTE_HOST'}に代入するコードじゃよ。

>474
何を取得できてるの？

foreach(sort(keys(%ENV))){$chk .= "$_ is $ENV{$_}<br>\n"}

>>476
罠です！

別に他意はないんだけどさ。これでいい？

foreach(keys(%ENV)){$chk .= "$_<br>\n"}

>>472
やってみましたが、それでもIPアドレスになっちゃう。
CGIサーバーはPlalaです
自分のPC上でやるとパソコンの名前が表示されます。
（ActivePerl＋httpd）

Plalaはどうだかしらないが、IPアドレスから名前に変換をサポートしていない鯖がある。
あきらめるか、別の鯖で試す。

Perlで http通信を行い特定のHPからhtmlを取得後
パースして、htmlから特定のデータを取得したいのですが

必要なモジュールとか、ソースとか解説のHPがあれば教えてください。

>>481
過去レス読まない典型ですね。

$host = gethostbyaddr(pack("C4", split(/\./, $host)), 2) || $host;
こんなのでいけました。

>482
何番目のスレの何番になります？
それ読みますから教えてください。

>>484
http通信だからCGIスレ読め

えっと、
↑に答えが出てることはわかっているんですが、理解できません。

fusianasanで表示されるやつはどうやって取得するんですか？

>>486
??? 日本語 不自由ですか？

>487
別に

>>484
>>237

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

>>482
2chの使い方になると思うんだが、この板から全文検索したいんだが、どうすればいいの?
「全部表示してブラウザで検索」しかないのか? それとも googleに拾ってもらわなければいけないのかな?

http://2ch.dyn.to/

google de "string site:www.2ch.net"

>>492
サンクス!!

>>425 様
有難うございました。
私の勘いで、作成したいスクリプトの記述が間違っていました。
すみませんでした。
（勉強の為、書いて頂いたソースは保存しました）

以下、教えて頂きたい内容です。
任意の文字列が含まれる１行を抽出し、複数の該当文字列を
新しい文字列に置換えるスクリプトを作成したいのですが、わかりません。
（置換え対象の文字列には、手入力の文字列も含まれます）

495の様に、メールアドレスで行を取得し、
@oldに格納されている全ての文字列を個々の変数に代入して、
ファイルに出力させるスクリプトを作成しましたが、うまく動作しません。

確認出来たエラーは２点です。
1.ファイルの一行目しか$lineに入りません。
　その為、該当レコードがあるにも拘らず、「データがありません」と
なってしまいます。

2.レコードの改行が削除され、次のデータが同じ行に出力されてしまいます。
($old1,$old2,$old3,$old4,$old5) = split(/,/,$old);
@oldから抽出する上記以外の方法がわからず、困っています。

ソースは495です。お願い致します。
（改行が多く書き込めなかった為、分けました。）

494の続きです。
置き換えたい変数です→（$new1,$new2,$new3,$new4,$new5）
open(IN,"data/data.csv") or die;
while($line = <IN>){
chomp($line);
if($line =~ $mail){
push(@old,$line);
} else {
print "該当するデータがありません。\n";
exit(0);
}
foreach $old (@old){
($old1,$old2,$old3,$old4,$old5) = split(/,/,$old);
}
open(OUT,"+<data/data.csv") or die;
print OUT "$old1,$new2,$new3,$old4,$new5";
close(OUT);
print "書き換えが完了しました。\n";
exit(0);
}
close(IN);
exit(0);

sage

>>494-495
何をやりたいのだか解らないんだけど。
>>425 をこうするって事かしら。

foreach(@old){
if(s/$mail/$replace/g){push(@new,$_)}
}
print OUT "@new";

使用している各関数がどういう働きをするものかよく調べた方が良いと思います。
ﾗｸﾀﾞ本を買うとか。

すいません、根本的なところで質問です。
何も手を加えてないのに、昨日まで動いてたcgiが動かなくなったんですが、
これは何が原因でどうすれば直るんでしょう。

kentのyybbsを色々いじってたんですけど、文法エラー解消しても動かないので
まずは無改造のスクリプトをただ上げたんです。
そしたら動かない。
しかも、それまで使ってたスクリプト（2つあるうち1つだけ）が突然internal server error。
頭抱えてます。
どなたか助けてください。

■10.000円の高額収入
　1件につき最大10.000円の高額収入。月収100万円以上も可能。
■画期的なビジネス！
　インターネットを利用したこれまでにない斬新で画期的なビジネスです。
■誰でも出来ます！
　インターネットができる環境の方なら誰でも参加可能です。
　インターネットを利用したビジネスですので、自宅や会社で好きなときにで
　きるビジネスです。
■専門的な知識は一切不要！
　ビジネスに必要なツールは全て当社で用意いたします。
　また、サポートも万全です。
■詳細は今すぐこちらから
　http://www.future-web.tv/haru/

>>498
改造してないBBSなんでしょ？
kentのサポート板で聞けよ

>>498
Internal Server Error ならhttpdサーバのログに
エラーが出てるはず。それを確認しる。

>>500

無改造というのはコイツが手を加えてないということだろ

やっぱりkentさん所で聞くのが早いですかね。
逝ってきます。

>>497 様
レス有難うございました。
書き方が悪くてすみませんでした。

>>425 様にも>>426で教えて頂いたのですが・・・。

置換え前の文字は$mail以外、変数では無いので
マッチさせる事が出来ない状態でした。
ファイルから文字を取得し、変数に格納したいと思っていました。
入力フォームを作り直します。

sub make_html{
open(HTML, ">hoge.html") || &error("HTMl化に失敗しました。");
print HTML &end;
close(HTML);　}
開いたファイル（hoge.html）に書き込みたくて上のように記述したのですが、
ファイルを開いて直接サブルーチン（&end)を使うのは無理なのでしょうか。

　　　　 　,一-、
　　　　 /￣　l |　　　／￣￣￣￣￣￣￣￣￣￣
　　　　■■-っ　＜　>>505んな こたァない
　　　　´∀｀/ 　　　＼＿＿＿＿＿＿＿＿＿＿
　　 ＿_／|Ｙ/＼.
　Ё|＿_　| /　　|
　 　　　| У..　　|

>>506
end がどうなってるか一応聞いてやれよ。

sub end{
&header;
open(IN,"$file") || &error("$file を読み込めません");
@lines = <IN>;
　　　close(IN);

foreach $line (@lines) {
local($name,$url,$mail,$body,$hogehoge) = split(/<>/,$line);
&output;
}
&footer;
exit; }
こんな感じです。

>>508
exit; はいらんよ、だって書きこんだ後 close している意味ないじゃん。

フォントサイズの変更や入室後の名前変更ができないチャットで、
フォントサイズを大きくしたり、名前を変更している人がいました。

どうやったらできるのでしょうか？

>>510
ソース見ないとわかりません。

>>508
戻り値を print 死体なら
return @lines;
だろうけど…。どう説明して良いやら。

>>510
そのチャットの管理人に聞いて下さい。

>>511
ソースを書き換えるのですか？
どうやれば書き換えられますか？

>>513
ソースを見てスクリプトの脆弱な部分を探すんだよ。

($_="\xa8\xdc\xa6\xe7\xc9\xbe\xc8\x49")=~s/./\x82$&/g;
substr($_,  8, 1)= "\x89";
substr($_, 14, 1)= "\x81";
print;

%b5%cf%b4%d3%c5%b0

二つのリファレンス（一方から一方を辿ることができる）の位置関係を
知りたい場合はどうしたらよいでしょうか？
例えば
$a = { 'b' => [ $c = { 'd' => 'e' } ] };
とあった場合に、
&rel($a,$c) = '{b}[0]' みたいな出力を得たいのですが…

>>517
とりあえずヒントだけ。

・関数 ref
・$a = {}; print $a;

以前もあったな。その質問

そう、以前にもあったけどまだやってたのか・・・
一応、やってみたけどこんな感じでいいのかな？

sub rel{
 my( $key, $i, $rel );
 GOOD_BYE:
 for $key ( keys %{$_[0]} ){
  for ($i=0; $i<=$#{${$_[0]}{$key}}; $i++){
   #if ( ${${$_[0]}{$key}}[$i] == $_[1] ){ print "goo\n"; }
   $rel= "{$key}[$i]",last GOOD_BYE if ${${$_[0]}{$key}}[$i] == $_[1];
  }
 }
 $rel;
}

ちょっと見づらいかな、もいちど

sub rel{
    my( $key, $i, $rel );
    GOOD_BYE:
    for $key ( keys %{$_[0]} ){
        for ($i=0; $i<=$#{${$_[0]}{$key}}; $i++){
            $rel= "{$key}[$i]",last GOOD_BYE if ${${$_[0]}{$key}}[$i] == $_[1];
        }
    }
    $rel;
}

超絶ハッカー
何でも聞け

>>522
ルビ厨でつか？

聞け

　　　　

Perl上級車俺がどんな質問二問ｋ０尾たっるぞ！

彼女を逝かせる超絶テクを教えてください。

>>518
やっぱりbreadth-firstサーチをしないとできないってことっすかね？
>>520,521
ありがとうございます。が、より一般的なケース（リファレンスの構造を問わない）が対象なのです…

内部構造的にはGCのためのリファレンスカウントがあるはずだとおもうので、
それをどうにかして逆に辿れないものかと思うのですが…

◆4XfSMGTg はバッカーですか？

会社員で日曜日によく来ます。

ここは初心者コーナーとは思えない

>>529
いい加減だが...。

#!/usr/bin/perl

use strict;
use Data::Dumper;

my $a = { d => "e" };
my $b = { b => [$a] };
my $c = { f => { g => $b } };

print 'rel($b, $a) = ', rel($b, $a), "\n";
print 'rel($c, $a) = ', rel($c, $a), "\n";
print 'rel($c, $b) = ', rel($c, $b), "\n";

sub rel ($$)
{
    my $dumper = new Data::Dumper([@_]);
    $dumper->Indent(0);
    $dumper->Dump() =~ /\$VAR2\s+=\s+\$VAR1->(.+);$/;
    return $1;
}
-------------------------------------------
rel($b, $a) = {'b'}[0]
rel($c, $a) = {'f'}{'g'}{'b'}[0]
rel($c, $b) = {'f'}{'g'}

>>533
そうですよね…、クイックハックならData::Dumperを使うのが一番手っ取り早いんですが、
リファレンス構造を全てtraverseするので実行速度が…
ダイレクトに辿るとしたっら、やっぱり要素ごとにリファレンス元を
保持するようなarrayを持たせるしかないですかね。。

何に使うのか分からないのだが...
デバッガでも作ってるの？

WebデザインとWebプログラミングってどう違うんですか？
ﾈｯﾄ初心者なんで本当に分かりません。誰か教えて下さい。

Webデザイン
HTML、CSS,JavaScriptやブラウザーなど

Webプログラミング
PerlやCGI、PHP,Ruby等

Webデザイン→デザイナーがやる
Webプログラミング→プログラマがやる

>>537
ありがとうございます。と言っても、本当はよくわかりません（w
仕事の内容がどう違うか分かり易く教えて頂けるとありがたいんですが。

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

Perlを使って掲示板などを作りたいんですが、
最初にエディタやコンパイラーは、何を落とせばよいのでしょうか？
先輩の皆様お薦めのものなどございますでしょうか？
使ってるPCはWinMEなのですが、ご教授お願いします。

＞エディタ
自分が使いやすいと想うテキストエディタを使え。

＞コンパイラー
落ち着け。
ActivePerlでも落としとけ。

複数のファイルを読み込んでsortさせて表示したいのですが。
sortはできたのですが
opendir(DIR, "$logdir") ;
@2ch = readdir(DIR);
closedir(DIR);
ファイル名を読み込んでいる様子で。
検索してやり方を探してみたのですが自分では分かりませんでした。
アドバイスお願いいたします。

>>532 >>535
禿同。(w

>>528
BFS でなく DFS ですかね。>>533 とどっちが速いかは
調べてませんが、泥臭く書くとこう。

sub rel {
　 my ($foo, $bar, $idx) = @_;
　 my $rv;

　 if (ref $foo eq 'ARRAY') {
　 　 for (my $i = 0; $i < @$foo; $i++) {
　 　 　 $foo->[$i] eq $bar && return $idx . "[$i]";
　 　 　 $rv = rel($foo->[$i], $bar, $idx . "[$i]") and return $rv;
　 　 }
　 }
　 elsif (ref $foo eq 'HASH') {
　 　 foreach my $k (keys %$foo) {
　 　 　 $foo->{$k} eq $bar && return $idx . "{$k}";
　 　 　 $rv = rel($foo->{$k}, $bar, $idx . "{$k}") and return $rv;
　 　 }
　 }
　 return;
}

つかそこまで速度を求めるほどデカい or 深いんでしょうか?
これ以上はもう perl のソース読んでねとしか。

>542
readdirのリファレンスを穴が空くほど読め
それはopendirしたディレクトリのファイルリストを得る関数だ

だいたい複数ファイルを読み込んでsortって何だ？
そのファイルにはASCIIデータが１行しか入ってない事が保証されてんのか？

要リファクタリングと思われ

>>542
@2ch は無理だよ
変数名は数字で始まってはいけませｎ

数字から始まっていたら、全部数字で無ければいけないじゃ無いっけ？

>>546
そのガセのネタ元をさらすべし。

時間取得で質問があります。

月と日にちを取得したいのですが、
$tm=time;
($sec,$min,$hour,$mday,$mon)=localtime $tm;
とやらないといけないのですか？
$sec,$min,$hourが余計なんですが...

http://www.big.or.jp/~mio/ga/pl/plman/plvari.htm#変数

書き込んだメッセージの中にアドレス(http://〜）が含まれていたら
<a href="" target="_blank"></a>
で囲みたいのですが、どうやってアドレスと判定すればよいのでしょうか？

>>548
仕様です
>>550
$message =~ s/(http:\/\/[\w\/\.\?~&=@;#%-]+)/<a href="$1" target="_blank">$1<\/a>/gi;

>>548
(localtime(time))[0..8]

>>551
仕様ですか。
ありがとうございました。

>>552
なるほど。
$tm=time;
($mday,$mon)=(localtime $tm)[3,4];
で、できました。
ありがとうございました。

>>548
(undef,undef,undef,$mday,$mon)=localtime;

>>555
試してみました。それでもできるんですね。
ありがとうございました。

>>551さん
できました！ありがとうございます！

&lock_open(TXT, "a.txt");
@txt = <TXT>;
&unlock_close(TXT);

open(OUT,"> x.txt");
print OUT "@txt";
close(OUT);

&lock_open(TXT, "a2.txt");
@txt = <TXT>;
&unlock_close(TXT);

open(OUT,">> x.txt");
print OUT "@txt";
close(OUT);

&lock_open(TXT, "x.txt");
@txt = <TXT>;
&unlock_close(TXT);
foreach $m (@txt) { chop($m); }
でできました。opendirの意味がいまいちわからなかったので544さんの「それはopendirしたディレクトリのファイルリストを得る関数だ」
の助言で納得できました。おさわがせしてすみませんでした。ありがとうございます。

>>558
@txt = &lock_open("a.txt");
とか
print OUT &lock_open("a.txt");
とか
chop @txt;
とか。どーでもいーけど。

>>547
そのガセのネタ元をさらすべし。

http://www.big.or.jp/~mio/ga/pl/plman/plvari.htm#変数

>>561
546 じゃなくて 547 ﾜｶﾙ?

perlでsocketを使用して、外部のサーバの情報を取得したいのですが、
その際にタイムアウトの時間を設定することは出来ませんか？
例えば、10秒以内に取得できなければ、エラーを出して終了するとか出来ませんか？

現在↓みたいにして取得しています。
よろしくお願いします。

#---------------------------
use Socket;
my $sock_addr = pack_sockaddr_in(80, inet_aton("2ch.net"));
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addr);
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "GET / HTTP/1.0\r\n";
print SOCKET "\r\n";
while (<SOCKET>){m/^\r\n$/ and last;}
while (<SOCKET>){print;}
#--------------------------

fork

>>563
$time=$^T;
if(int($^T-$time)>=10){shutdown(2)}

>>563
perldoc -f alarm

ヽ(´∀｀)ﾉ
　 （　へ）
　　　ヽ

perldoc -q timeout

ここはPerl5なんか未だに使ってるヴォケのすみかですか・

Perl4 なんかよく使っていますが。何か。

名前空間を気にせずに複数ファイルにコードを分割したいのですが、どのようにするとベターでせうか。

自分にとって読みやすい様にするのがベター。

-------変態・ＭＴＴどこでも-------
---●●●変態痴女を紹介致します。●●●---
例えば＞欲求不満オマ●コヌレヌレ女・露出オナニー痴女・
フェラチオおしゃぶり女・ミニスカ・ノーパン娘・巨乳パイズリ娘・
アナルＳＥＸおねだり娘・オマ〇コ弄られマン汁グチョグチョ女・
ＳＭ牝豚・緊縛・浣腸・スカトロ・等・・・刺激を求めています。
●●●学生・ＯＬ・主婦・モデル・牝豚・女王様・オカマ等・多数！●●●
　090-8002-8356番　　　
-----------------------------
　 http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能-----
http://www.mttdocomo.jp/
Iモードはこちら→http://www.mttdocomo.jp/i

http://www.jsweb.sexheroes.com/index.html

すみません質問です.

perlで、他のurlに変数と値をポスト送信してアクセスする方法はありますか？
print"Location: http://〜";
はうまくいきませんでした。お願いします。

詳しい方、教えてください。

>>575
変数って送れるの？

>>575

print"Location: http://〜\n\n";

>>576

ふつう、<a>タグの記述だと、
"〜.cgi" method="post" postdata="name=value&name2=value2"
とかになるのかな？と思うのですが（htmlではなくhdmlで作業して
いるので、そういう記述になっています）、
GETメソッドなら
print"Location: http://〜.cgi?name=value&name2=value2";
みたいなやり方で出来るのかもしれませんが、
postだとどうなのかな？と。

perl自体、初めて触ったという話にならない初心者なので、
正直まいっています。

詳しい方、またそうでない方も、参考程度の意見で構わないので、
聞かせていただけたら幸いです。

http://www.leverage.jp/bloom/start/

>>575

>577が答え出してるだろ！

>>578
postはform要素で送ります。

ここってCGI厨しかいないの？

>>575
ソケットで繋いで、Content-Lengthを書いて、その後は普通に
データを送る。

POST http://www.perl.org/survey.cgi
Content-Length: 66
Content-Type: application/x-www-form-urlencoded

name=Gisle%20Aas&email=gisle%40aas.no&gender=M&born=1964&perc=3%25
って感じで。
(参照：http://member.nifty.ne.jp/hippo2000/perltips/HTTP/Request/Common.html）

ただ、こうするともちろんレスポンスもらうのはスクリプトだから注意して。
そのままprintしてやればとりあえずOKだけど、ブラウザのURLが
POST送ったスクリプトのままだから、相対リンクのイメージとかが
めちゃくちゃになりそう。

ダミーのHTML用意して、フォーム書いて、OnLoadかなにかで送るのが
一番早いかなぁ。

>>575
http://www.parkcity.ne.jp/~chaichan/qanda/qa3100.htm?02-09-04-02-58

掲示板でログファイルのサイズが100KB以上になったら末尾要素を削除するという処理をしたいのですがうまくいきません

# 記事の最大保存容量（単位：KB）
$maxsize = 100;

$maxsize = $maxsize * 1000;

$logsize = (stat($logpass))[7];

while($logsize > $maxsize) {pop @data; $logsize = (stat($logpass))[7];}

書き込み処理の直前に↑のようにやってみたんですがうまくいきませんでした。
変数を書き出したりしてみたんですが原因がわからず困っています。
どなたかわかりませんでしょうか？

pop @data; だけじゃ、ファイルに書き込んでないから、
ファイルは変わっていない。

>>586

そのあとログファイルに書き込み処理をしています。

だってさ、ファイルの大きさを求めて100KB以上かどうか判定しているのは、
書き込む前でしょ。
while($logsize > $maxsize) {pop @data; ↑$logsize = (stat($logpass))[7];}
矢印のところで書き込まないと・・・
それより別の方法を考えたら？

あ、なるほど。納得しました。

配列@dataのバイト数を調べたいんですが
foreachでまわして一行ずつlength関数でバイト数を調べるほかに何か方法ありますでしょうか？

配列に入れる前に計っとくとか。

教えてくらさい。
ここのメル友募集用掲示板で会員用サイトを作りたいのですが、
http://tsubaki.sakura.ne.jp/~campus/grooweb/jewel.html

メールを送る時にID＆PASSでアクセス制限をかけたいのです。
どの様に作ったら良いのでしょうか？

以前、ここで見かけた様な気がするのですが
回答が書かれているのを見つけられないので
以前、質問した人に代わってお聞きします。
CookieをOnにしないと弾き出してしまう
ここで使っているものみたいなCGIのスクリプトを
扱っているようなホームページは知りませんか？
もちろん、ここにスクリプトを書いて下されば
もちろん、なおさら有り難い事ですが…

http://www.jsweb.sexheroes.com/index.html

ある有料サーバーを使っているのですが、ファイルを出力するCGIを
実行する際に、専用のSSLサーバー(ttps://***.site-secure.net/)
を通すとInternalServerErrorが出てしまいます。
どなたか分かる方いたらお願いします。

>>595
　　, - - ､　　　　　　　　　　　　　　　　　　　　/ヽ
　/　O　　＼ｸﾞﾋｬｯ !　　　　　　 /ヽ、　　　　 /　 ヽ
　,, ： ,ー, O |　　　　　　　　　　/　 _,;, -'''"~~　　　 ヽ
'' ； ∴_ﾉゝ ゝ 　　　　　　　　／o　　　　O　　　　　　ヽ
　　ヽ　,;''"~"'';,　　　　　　　/　 ┌─┐　　　ノ（　　　ヽ
＿ノ| 　;;'';;'';;'';;''　　　　　　｜　 /　 　 |　　　 ⌒　　　　| <スレ違いもはなはだしいわ！
　　 ゝ、ヾ　　ヾ　　　　　 　 |　ト､　　 |　　　　　　　　 /
　／　 ヽ ヾ　　ヾ　　　　　　ヾ、　＼ノ　　　　　　　 ノ
　　　　ノ＼_ヾ　　ヾ　　　　　　／⌒ヽ、　＿＿＿／、
　　　　　　　ノヾ　　ヾ＿ ＿／　　ノ,　　　　　　　　　ヽ
　　　　　　　　　ヽ、ゝ　　　　　ノ　ノ　　　　　ハ　　　 ヽ
　　　　　　　　　　 ゝ､　　　ノ　　ノ、　　　　 ﾉ　ゝ 　 ｜ ）
　　　　　　　　　　　　 ー─一'´　　ゝ、　　　　　　　　l'´
　　　　　　　　　　　　 　 　 　 　 　 　 ）　 　 　 　 　 /
CGIだけど、なんか質問ある？ Part 6
http://pc.2ch.net/test/read.cgi/php/1025930486/

>>593
どんなスクリプトでも頭に以下のような文を入れれば弾ける。

unless($ENV{'HTTP_COOKIE'}){
print "Set-Cookie: value=check; path=$ENV{'SCRIPT_NAME'} domain=$ENV{'HTTP_HOST'} expires=Fri, 31-Dec-2010 00:00:00 GMT\n";
}
&error_end('くっきーオンにしてちょ') unless($ENV{'HTTP_COOKIE'});

>597さん
どうも有り難うございました。
まさか、こんなに早く教えて頂けるとは思いませんでした。
ところで
expires=Fri, 31-Dec-2010 00:00:00 GMT\n
の部分なのですが、ここの記述は
絶対こうでなくても構いませんよね。

>>598
別にセッションでいいだろ

>>590
$ perl -e '@ar=qw(a b c d e f); print length("@ar"), "\n";'
11

ディレクトリーを削除したいのですが、中にファイルが有るので消せません。
一気に消す方法はないでしょうか？ご教授頂けないでしょうか？

>>601
$ perl -e 'system("rm -rf ./dir");'

./dirってとこは、消すディレクトリのパスを入れてね。

>>602
そう言う方法があるのですがね。
ご教授ありがとうございます！

CGIで使うのですが、それだと使用できませんですた・・・(´･ω･`)

>>603
>そう言う方法があるのですがね。
~~
逆説の「が」ですか？
だったら、
$ perl -e 'use File::Path; rmtree ("./dir");'

>>605
そういう意味じゃないです(;´Д`)

そちらもダメでした・・・
logフォルダーに　1　と言うフォルダーがあり、
その中に、0.log 1.log ・・・　10.log
と言うファイルが有るので、それをフォルダーごと消したかったんです。
説明が悪かったのかも知れませんが・・・

>>606
>そちらもダメでした・・・
perl5でしょ？
libディレクトリにFileモジュールが入ってないってこと？
考えがたい。
じゃスクリプトミス？
use File::Path;
rmtree("./dir");
ってちゃんと書いた？
じゃファイル属性を確認してちょ。

>>607
書き間違えでした、コピペで逝けました
ｱﾘｶﾞﾄﾝ

>>608

ｼﾈ

>>608
ｼﾈ

web用のCGI作ってるんすけど。
\r\nって\nにしちゃダメなんすか？
特に動作に問題は見当たらないしファイルサイズも削れるんで\nでいきたいんすけど。
それとも不都合な環境とかあるんでしょうか。

>>611
改行は、<br>で表すんだから、別に構わんです。
ただ、編集環境がwindows（MS-dos）なら、普通、￥ｒ￥ｎが自動的に
つくんですが。いちいち変換するの？

>>612
改行コード自体いまいち理解できてないんですすんまそん。とりあえず
print "Set-Cookie: $cookie\r\n";
とか
print "Content-type: text/html; charset=EUC-JP\r\n\r\n";
とかの\r\nを\nにしちゃまずいんかなと思ただけ、というか
\nでいけるならなんでわざわざ\r\n使ってるんだろうとか思ってみただけれす。
レスどうもっした。

>>613
http://tohoho.wakusei.ne.jp/wwwxx011.htm

ってゆうことで、６１３さんのは、ｈｔｍｌファイルの
出力だから、問題は起こらないね。

>>615
多謝。

>>613
ftp://ftp.nic.ad.jp/rfc/rfc1945.txt
The line terminator for HTTP-header fields is the sequence CRLF.
However, we recommend that applications, when parsing such headers,
recognize a single LF as a line terminator and ignore the leading CR.

（訳）HTTPヘッダ領域の行末区切りはCRLFの並びです。しかし、アプリケーションが
そのようなヘッダを読み取るときは、単独のLFを行末区切りとして解釈し、続くCRを
無視することをお勧めします。

というわけで、実際問題LFだけでも問題はまずないだろうけど、正式には
CRLFだよ。

訂正
続くCR→前のCR

CGIチェックする際、サーバで　perl -wc やってます。

エラーで
70行目に　@Iとあるけど\@Iにするべきというエラーがでるのだけど
そんなものどこにも書いてないです。
いままで行数があってないなどありましたが、@Iというもの自体が
ない場合のエラー場所がわかりません。

何か特有の字が　@Iとなったりしますか？

ソース見せろ、バカ。

全角空白

>>617
\nを使うって事はアプリケーション側のサービスに甘えるってカンジすか。
とりあえずCGIを公に配布とかしたりしない限りは
こっそり\n使っちゃってもいっか、と解釈。

\r\n
だとWindowsサーバーで動かすときとか、おかしくなることがある。

>>623
むしろ\nのが概ね安全な罠すか。

\x0D\x0A
のように16進数でCRLFを表すのがいいらしい。

Windowsでの改行はCRLFだから、\r\nで出力してしまうと\r\r\nになってしまう罠。

世の中は罠がいっぱいだなや。

掲示板の書き込みの中の、半角の数字を全角に変換。
または、その逆の変換を選択できるようにしたいです。

javascriptつかうと半角（全角）しか受け付けないようにできるYO.

CGI内にジャバスクリプトってそのまま使えるの？
＞＞EOF　内にHTMLのほうで使ってるまま持って来たら
InternalServerErrorに・・・。
ジャバスクリプト取ったらエラーは起こらないのだけど。

>>625>>629
（　´,_ゝ`） ﾌﾟｯ

>>630
初心者わらってんじゃねーよ。
初心者をあざ笑うスレでも作ってそこでやってくれ。

解っているのなら教えてやって下さい。
初心者同士で嘗め合うことから先に進めません。

>>629
Java Script はクライアント側で動作しますので、
Perl 文法エラーの可能性が高いと思われます。

>>629
ジャバスクリプト内に半角「＠」があるんでしょうね。ほぼ間違いなく。

>>632
激しく同意

>>630-631
何の意味があるんでしょうか・・・

>634
◆4XfSMGTg はオープントリップ kusokote
630 と 631 は別人。

textareaに書かれた文字列を.txtに出力するものを
初めてperlでCGIを書いてみたんですが動きません。
どんな原因が考えられますか？

#!/usr/local/bin/perl
require "./jcode.pl";
$object = $ENV{ 'QUERY_STRING' };
open (FILEOUT, ">./xxx.txt");
print FILEOUT @object;
close (FILEOUT);
exit;

>>636
$object にデータ入ってても
@object にはなにも入ってないように思うが。

デコード処理が行われていない。
jcode.pl が使われていない。
GETで受け取るため文字制限がある。

掲示板の過去ログをlogというフォルダの中に1.html 2.html〜、というふうに収納してるんすよ。
フォルダ内のファイル数を数えて、その数＋１を新規の過去ログのファイル名にしてるんすよ。
でも、そうすると既に存在するファイルを削除した場合、当然やけどファイル数が減ってしもて
ファイル名がかぶってしまうんすよ。
何か良いファイル名の付け方知りまへんか。
ご教授よろしくお願いします。

フォルダ内のファイル数を数えるのではなく、別にカウントしとけば。

>>640
書き込みボタンを押した回数をカウントするとかですか？
もっとスマートなやり方あればよろしこ頼みます。

>641
空きが見つかるまでリピートぶん回して
open(OUT, "./log/日付とか$i.html");

ファイル名を日付にするとか。

>>643
ｿﾚﾀﾞ!

なるほどいろいろあるもんですのぉ。

>>627
半角全角は面倒だね。Perlでやると大抵Shift-JISとかで送られてきた
文字列を処理することになるから文字の境界で苦労する。
>>628さんの言うとおり、JavaScriptでやるのがいいと思う。

ちょっと書いてみた。板違いだけど…

<form OnSubmit="txt=mainForm.messageArea.value;
while (txt.match(/[０１２３４５６７８９]/))txt=txt.replace(/[０１２３４５６７８９]/,
'0123456789'.charAt('０１２３４５６７８９'.indexOf(RegExp.lastMatch)));
mainForm.messageArea.value=txt;">

これで全角→半角が一応IE6ではできた。他は試してない。
mainForm.messageAreaは好きに変えてね。

cgi-lib.plを用いてgetではなくpostにして、改行処理らしきものをつけ無事解決しました。
けれどデコードっぽいことをしてませんが、半角ｶﾅいれたりしても何も問題がありません。
のちのちまずいことになりますかね？

>>647
>半角ｶﾅいれたりしても何も問題がありません。

EUCで書いてるからカシラ

>>646
俺はJAVAscriptで入力制限てどうも気に入らないんだけどどうよ？
ユーザビリティーを考えてjavascriptの入力チェックを書くことあるけど
クライアントでチェックってどうも設計上よろしくないと思っている俺。

>>648
はい EUCで書きますた

>>611,617,625
ここはPerlスレだからCGIと仮定するのもおかしいかもしれないけど、
「CGIでParsed headers」なら規格上 LFのみ か、 CRLF のどちらかです。
http://hoohoo.ncsa.uiuc.edu/cgi/out.html

もうちょっと詳しく言うと、CGIのヘッダというのは
HTTPサーバが解釈して、HTTPヘッダを生成するためのものなので、
フォーマットは一緒ですがHTTPのヘッダとは別物と考えるべきです。

蛇足で、NPHの場合はそのままクライアントに渡されるので、
当然CRLFにする必要があります。

なんか変な文だ。ごめん

>>650
EUCで書いてあると半角カナは化けないにょろ。
何故かmacで書きこまれるとたまに化けるけど。そんときはjcodeかな。

教えてください。
自分のHPに素材サイトで手に入れたJavaゲーム（９面パズル）を
置いてみたのですがサーバーにアップしてDLすると
何故か遊べなくなってしまいます。
（2枚目、3枚目の画像が表示されない。タイムカウントが動かない
　ゲームが始まらない）
絵を置き換えたからかな、と思い試しに
加工を加えずアップしてみましたがやはりダメでした。
ftpでアップしているのですがコレが原因なのでしょうか？
初心者ですんません。
javaは2日前に知りました。
素材サイトのゲーム　http://www18.big.or.jp/~neon2/bunkatu/usa9.shtml

>>654
板違い
それに、それはJavaではなくJavaScriptだ

2apeとかの掲示板を携帯対応にはできるのでしょうか？

>>656
君の腕次第

>>657
教えてください。

>>658
$ua=$ENV{'HTTP_USER_AGENT'};
if($ua=~/UP.Browser|DoCoMo|J-PHONE|ASTEL|PDXGW|L-mode/i){

あとはお好きに

>>659
PDXGW|L-modeって…

>>659
すごく初心者なのですがそれをどうしたらいいのでしょうか？

>>660,659
ttp://specters.net/cgipon/labo/c_dist.html
ここの内容を要約して見たつもり。

>>649
うん、セキュリティから言うとJavaScriptじゃ何もしてないのと同じだしね。
この場合みたいにおまけみたいな機能ならいいかなと思った。

もとい
>>660,661だ

unkooooooo

>>661
まずは携帯から掲示板にアクセスして、
うまく動作してない箇所があったら>>659の方法で処理を振り分ける。
一応うちではそうしてるにょろ。

サブルーチンの事で質問ですけれども。
ぶっちゃけスクリプトのどこに置くのが一番効率いいんでしょうか。
とにかく先頭の方でしょうか
はたまた最下部でしょうか
それとも呼び出す直前でしょうか
どこでもいっしょでしょうか
というかなるべく使わないほうがいいんでしょうか
自分では調べられないので教えてくださいまし。

変わらないから気にしなくて良し

はい

>>646
IE5.5ではできんかった。というよりINPUT TYPEとかも書いてほしい。

>>649 よく理解できんです。
サーバーのデータベースに直接アクセスするとかソースを見られて
はいけないものは、CGIだけど、それ以外は、なるべくサーバーに
負荷がかからないクライアントサイドのJavaScriptで処理した方が
いいのでは。
まあ、JavaScriptをOnにしてくださいと書くのは面倒というのはある。
テキストブラウザとかだとJavaScriptできないし。あとJSのバー
ジョンとかNSとIEの違いによるサポート状況の違いとか面倒。

>>627 もう来ないか。textareaだかで受け取ったデータの中の
全角<->半角変換スクリプト：

$input = "0123４４５６7899０１２";
@zenkaku=('０', '１','２','３','４','５','６','７','８','９');
@hankaku=('0','1','2','3','4','5','6','7','8','9');
$sw = 1;
if ($sw == 1) {
&zen_han(\@zenkaku,\@hankaku);
} else {
&zen_han(\@hankaku, \@zenkaku);
}
sub zen_han {
my ($A, $B) = @_;
for $i (0 .. 9) {
$input =~ s/@$A[$i]/@$B[$i]/g;
}
}
print $input, "\n";

cgiは今回初めてです。アクセス制限の仕方を教えて下さい。

>>671
http://www.google.co.jp/search?q=%83A%83N%83Z%83X%90%A7%8C%C0%82%CC%8Ed%95%FB

和鳥で、KENTのWebPatioを使ってます。
regist.cgiの中の
unlink("$logdir$in{'no'}\.cgi");
unlink("$logdir$in{'no'}\.dat");
なのですが、unlinkでエラーを返してきます。
和鳥だとunlinkは使えないのでしょうか？

掲示板が昨日まで動いていたのに急に動かなくなりました。
早くどうにかしてください。

>>673
板違いかな
http://pc.2ch.net/perl/
こっちちゃう

>>674
板違いかな
http://natto.2ch.net/denpa/
こっちちゃう

>>670
サンクス

PerlでのCGIなのですが、スクリプトの負荷を数値化する方法はないですか？

>>670
文字境界…。
$input = "浮P";
とかにすると化けちゃうよ。

なんとかPerlで動的に画像をブラウザに表示させたろう
と考えてるんだけど、モジュールとか使わない場合、
XBMつーーのがあるのを知ったのですが、
これはモノクロのみカラーは絶対ダメ？

>>680
>動的に画像をブラウザに表示
なら、Location、binmodeで吐く
「動的に作成した画像をブラウザに表示」
なら、GDが無難か？ファイルにもよるか…

xbmは白黒のみ
xbm,xpmはIEで表示できたっけ。

>>679
perlによる日本語の扱いはeucにするのが常識。

>>683
ごめん。ついSJISで考えてた。
EUCなら、
$input="横井";
だね。

while (!mkdir($hoge, 0705)) { mkdir "$hoge", 0705; }
これってどんな意味があるんですか？

$hogeがパーミッション705で製作されるまで繰り返す。

>>685
どうしてもmkdirしたい
{}の中が怪しいがｗ

>>686
これはもし、ディレクトリィがあった場合はどうなるんですか？
>>687
どの部分がぁゃしぃですか？

ある変数の一番最後の文字を別の変数の頭に置くにはどうすればよいでしょうか。
例えば$aaaが4876で$bbbが124だった場合、$aaaを487、$bbbを6124にしたいのです。
「$bbb = chop($aaa).$bbb」　と書いてみたら、結果は$aaaが空白で$bbbが4876124になってしまいました。
どう書けばよいでしょうか。

■10.000円の高額収入
1件につき最大10.000円の高額収入。月収100万円以上も可能。
■画期的なビジネス！
インターネットを利用したこれまでにない斬新で画期的なビジネスです。
■誰でも出来ます！
インターネットができる環境の方なら誰でも参加可能です。
インターネットを利用したビジネスですので、自宅や会社で好きなときにで
きるビジネスです。
■専門的な知識は一切不要！
ビジネスに必要なツールは全て当社で用意いたします。
また、サポートも万全です。
■詳細は今すぐこちらから
http://www.bea.hi-ho.ne.jp/paisen/

>>689
$aaaを""で1文字ずつsplitしたものを配列に入れて@hairetu[-1]で最後の文字を取り出してみる?

これは？
$ccc=$aaa$bbb;
$cco=$ccc =~ s/\d/\d/g;
$cco=$cco-1;
$ccc=~ s/(\d{1,$cco})([^\n])/$2/g;
$ccc=$ccc$bbb;

一行ミスった。
$ccc=~ s/(\d{1,$cco})([^\n]*)*/$2/g;
こふだった。

全然違うので考え直してきます。

$aaa='11111';
$bbb='22222';
$cc0="$aaa$bbb";
$cco=$cc0 =~ s/\d/\d/g;
$cco=$cco-1;
$ccc =~ s/(\d{1,$cco})([^\n]*)/$2/g;
$ccc="$ccc$bbb";

>>692-695
おいおい、何をやりたいんだ？

$aaa = '4876';
$bbb = '124';
$aaa =~ s/(.)$//;$bbb = $1.$bbb;

>>697
（　´,_ゝ`） ﾌﾟｯ

>>685
そのスクリプトを理解する必要はないし、そのスクリプトから
何かを学ぼうと思わない方がいいと思うよ。

>>689
そのまま
$bbb = chop($aaa).$bbb;
で動くと思うけど。

>>698
何か間違ってる？

$aaa='11111';
$bbb='22222';
$cc0=$aaa;
$cco=$cc0 =~ s/\d/\d/g;
$cco=$cco-1;
$cc1=$aaa;
$cc1 =~ s/(\d{$cco})([^\n]*)/$2/g;
$ccc="$cc1$bbb";

685[なぜだ？今の答えなら間違いなくあたっていたはずだ。
きさまは以前にも突然現れ消えたことがあった。]
689[オラには聞き逃げができる。]
685[そいつはやっかいな技だ。ﾊﾞｼｯ!私も聞き逃げは自身があるんだ。]

1行書き忘れた。
685[689とまではいかないがね。]

>>699
わたしもなぜ$bbb = chop($aaa).$bbb; で$bbbの値全部が$aaaの頭にくっついて
しまうのか、わからないんです。
>>685
$aaa $bbb の値は dat.txtを参照しているので、固定値ではありません。

すみません。間違えました。頭ぐちゃぐちゃです(;;)

わたしもなぜ$bbb = chop($aaa).$bbb; で$aaaの値全部が$bbbの頭にくっついて
しまうのか、わからないんです。 ○

わたしもなぜ$bbb = chop($aaa).$bbb; で$bbbの値全部が$aaaの頭にくっついて
しまうのか、わからないんです。×

ループの中でやってるとか。

#例
while($aaa){
$bbb = chop($aaa).$bbb;
}

これなら$aaaが空になって全部$bbbの頭に付く。

>>705
だって数であって文字列ではないし…

>>706
きっとその通りです(><)
でも、置換条件があるので､
if($aaa ne $hoge){
$bbb = chop(aaa).$bbb;
}
というように、{}内に書かなきゃいけないかなと思っているのです。
発想自体間違っているのかな...

>>707
文字列扱いにする方法はありますでしょうか。。

>>708
$aaaを''で囲む（適当）

>>707
chopの時点で文字列コンテキストに変換されるわけだが。。

>>708
適当なとこ言うな。

>>689
普通にやりたいことやるなら
$bbb = substr($aaa, -1) . $bbb;
だけど、chopでも$bbbの値は希望のものになるはず。
ならないなら他に原因がある。
前後のコード晒してみると吉。

一度だけ通れば良いなら
if($flag != 1 && $aaa ne $hoge){
$bbb = chop($aaa).$bbb;$flag=1;
}
とか。

（　´,_ゝ`） ﾌﾟｯ　みなさんレベルが低いですね

>>710
とりあえずchopはあきらめてsubstrで試してみます。
（やりたい事は同じはずだから）
ありがとうございました。

ちなみにif(){〜}はループじゃないぞ。
その外側にwhile(){〜}とかfor(){〜}とかforeach(){〜}とかの
ループがあるんじゃないのか。

substrじゃ$aaaの値は減らないけど良いの？話違わない？

>>712
スレタイ嫁

……chop、カッコで囲んだら？
$bbb = (chop($aaa)).$bbb;

>>715
カッコつけてんじゃねーよ

>>684
私は、jperl使ってるので別に文字化けしないけど。
じゃtr使えばいいじゃんという問には答えません。

（　´,_ゝ`） ﾌﾟｯ　みなさんレベルが低いですね

↑さびしんぼﾊｹｰﾝ(・∀・)ﾆﾔﾆﾔ

↑さびしんぼﾊﾘｹｰﾝ(・∀・)ﾆﾔﾆﾔ

CGIに関してはまったく知識がないのですがこれから勉強するつもりなのですが
目標が自分でCGIゲームを作ることで
そのために参考書を買って勉強したいのですが
オススメの本ありますか？
本屋いってもゲーム作りの本がどれだかわからなくて・・・
よろしくおねがいします。

>>721
作りたいゲームにもよるけど
Perl は君の求めるものに向いてないと思うよ。
JavaScript とかの方が良いんじゃない？

>>722
C言語薦めた方が…。
>>721
perlでゲーム作るのは空しいかも。
趣味の域は越えられますまい。

>722-723
まてまて、Flash+CGIという素晴らしいコンビネィションがあるだろうが

>>721
が何言語でCGIを作るのかが、大事だろうが。

データが入ってるファイルに一行で
ヤッタ？マン コーヒー ライター
という3つがスペースで区切られてあった時、
aa=ヤッタ？マン
bb=コーヒー
cc=ライター
というふうにするにはどうすればよいのでしょうか？

待てみんな。>>721-725
>>721 はわざわざこのスレを選んだんだ。
http://www.webgame.co.jp/
でも Perl のゲームはわりとあるし。
てゆうか検索してオレがびっくりしたよ。

しりとりゲームくらいならココで。
http://www.geocities.co.jp/SiliconValley-Oakland/1680/xperl/

>>726
($aa, $bb, $cc) = split / /,"ヤッタ？マン コーヒー ライター";

>>728
うわぁぁ？！　thx!

>>722-725 >>727
レスありがとうございます。
作りたいゲームは・・・罪と罰++やFFAみたいなゲームです
普通のPerlの本をきちんと読めば作れますか？
それともゲーム作成向けの本とかあるんですか？

>>730
つくったらiswebに置くの？

だ！か！ら！無理だっつーの。
だいたいゲーム作りたいならCやれ。
Perlは馬鹿でも使える言語だが、ゲームが作りやすい言語でない。
習得期間は
Perlは3カ月で
Cは1年
C++は３年だ。
Perlの本はオライリーの奴買っとけ。

修得はCよりもPerlの方が時間がかかるとおもうよ。
複雑さがCとは比べものにならないでしょ(^_^;)

>733
両方覚えたけどPerlの方が楽。
Cは基本的な部分を覚えるまでに挫ける人が出そう。
プログラムのいろはを知らない人間ならPerlからの方が断然楽だと思う。
サンプルソースが山のように転がってるし。

なにをもって習得とするかの問題だけど、出力をＨＴＭＬでできる分、
ＰｅｒｌでＣＧＩスクリプト作った方が楽だと思うよ。

>>730
perlは「ゲームを作るための言語」ではないので
「ゲームの作り方の本」なるものはないと思われ。
応用すればゲームにもなるというだけの話

for(@xx){〜}
と
foreach(@xx){〜}
の違いを教えてください

perl -MO=Deparse,-x7 -e 'for(qw/a b c/){ print }'
perl -MO=Deparse,-x7 -e 'foreach(qw/a b c/){ print }'

というわけで、for(@配列)の場合、ただのforeachと同等。

ｻﾝｸｽ

結論

perlでゲームは作れるが、perlでゲームを作る本などない
perlで掲示板が作れるようになれば、まあゲームも作れるだろう

>>732
Perlでマインスイーパー作りましたが、何か?

>>732
アクション系列のゲームならそうでしょうが、ウェブ上でのゲームならPerlベースで幾らでもありますよ。
表現はHTMLが精々ですけどね（ｗ

で、質問です。
AnyDBMで1000人前後のデータ（名前、成績、等大小50パラメータぐらい）を管理しようと考えています。
それでファイルロックをどうしようか悩んでいるのですが、
sub LOCK {open (LOCK, "lockfile.lock");flock(LOCK,2);}
sub UNLOCK {flock(LOCK,8);close(LOCK);}
こんなのってありなんでしょうか？
それともやはりrename等で制御したほうが良いですか？

最近Perlを始めて，今，カウンタを作っているところなんですが，
以下のソースだと，カウンタの値が永遠に１のままなんです。

#!/usr/local/bin/perl

#値を保存するファイル名
$file = "count.dat";

#−−処理開始−−

#ファイルを読み込み
open FH,$file;
$count= <FH>;

#カウントアップ処理

$count++;

#書き出し処理
print "Content-Type: text/html\n\n";
print "Total : <a href=cgi-bin/acces/replist.cgi>$count</a>";

#値を保存

open FH,>$file;
close FH;

exit;

>>742
ファイルに書き込んでないじゃん。

sendmailでメールを送りたいです。
html形式で送ろうと思うんですが、
ヘッダーの部分の
Content-Type: text/plain; charset=ISO-20220JP
ここのtext/plainを
text/html
に変えればいいだけですか？
ローカルだと実行できないので教えてください。

>>744
ローカルでテストするときはsendmailに渡すんじゃなく、ファイルに書き出してみればいいんじゃない。

はじめまして。
掲示板のプログラムを作成しています。
『投稿確認』をしたいのですが、そこでどうにもこうにも困ってるキングオブＤＱＮなんです。

まず、htmlファイルからsubmitで送られたデータを表示することはできるのですが
そこから先、どうすればいいのか分かりません。
どうすれば
[投稿確認画面表示]⇒[logファイルへの書き込み]の二段構えにすることができるのでしょう？

>746
<input type="hidden" name="***" value="*********">

>>746
hidden

>>747-748
ありがとうございます。さっそく作ってみます。

>>745
どもっす。
とりあえず、上手くいきました。

whileとかループをぬけるのはlastですが、ifをそっこーで抜ける方法はありますか？

うう、うまくいかなかった。やっぱりキングオブＤＱＮだよ。ｗ
確認画面でsubmitで送られた文字を表示して

<form action = "./data.cgi" mehtod = post>
<input type = "hidden" name = "confirm" value = "OK">
<input type= "submit" value = "投稿する">

で最初にsubmitで送られた文字を表示するのと同じＣＧＩを呼び出して
if ($confirm eq 'OK' ) {
……
}
で分岐させたのだけれど、うまくいかない。
確認画面が表示されるだけです。しかも、nameとかemailとかのデータが全部消えてる。

>>751
アルゴリズムを再考しる。

>752
１から勉強しなおせ。

>751
gotoなどと言ってみるテスト。

>>752
確認画面を表示の時に一度送られてきたデータも
hiddenで書き出してる？

>>755
いえ、していません。必要なのでしょうか？

>756

nameなどのデータを入力
↓
入力されたデータを受け取る
確認画面表示
↓
入力されたデータを送っていない
データが空っぽ

>>754
＞gotoなどと言ってみるテスト。
（　´,_ゝ`） ﾌﾟｯ

hiddenで書き出しても、うまく送信できません。
なには他に注意点はあるのでしょうか？
荒らしてゴメン。

>759
ソースをtxtにしてアプれ。
多分一斉につっこんでくれる。

>>759
HTMLを覚えてこい
データの送受信を覚えてこい
日本語覚えてこい

htmlファイルへの書き込みのときに現在は下のようにしているのですが
これだとhtmlファイルを見ると\nが効いて改行されているのですが
cgiファイルでは改行されていないので見にくいです。
ヒアドキュメントを使って print HTML <<HEADER　ではだめでした。
どうしたらよいでしょうか？

open(HTML, ">hoge.html") || &error("ファイルが開けません");
print HTML "<HTML>\n<HEAD>ここにタイトルやスタイルシートなどをごちゃごちゃと</HEAD>\n<BODY>\n";
close(HTML);

説明する能力って大事だよね

もういいです。さいなら。

print pack('C*', map{$_+180}(1,27,0,35,23,27,12,42,17));

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

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

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

a.sh（sh）で定義した変数をperlで書いたスクリプトで参照したいのですが
どのように書いたらよいですか？

a.sh
#!/bin/sh
STR=testtxt
↑
（このSTRという変数をperlのスクリプト内で使いたい）

-- test.sh ------------------------------
#!/bin/sh
export STR=mona
/usr/bin/perl test.pl

-- test.pl ----------------------------
#!/usr/bin/perl
print "STR = $ENV{STR}\n";

他人がWindowsで作成したiモード用のcgiを直すことになったのですが、
iモード用作成は初めてで、
しかもMacなので、どうやってテストすればいいか分かりません。
iモードツールみたいなもののMac版ってないですかね？
教えて下さい。

ﾏﾙﾁ氏ね

GoogleのクロールにCGIの実行結果を反映させるには、どのような点に注意すればいいですか？

>>771
どうやらGoogieは、「〜.cgi」で終わってるリンクは無視するけど、
「〜.cgi?***」となってるリンクは拾う模様。
***の部分はテキトーで構わないので、Googleに拾って欲しければ
そのCGIへリンクを張る時に、「<a href=〜.cgi？hoge>」とでもしておけばよし。
まぁ俺調べに過ぎないのでダメだったらすまそ。
つってもスレ違いぽいけど。

>>762
open(HTML, ">hoge.html") || &error("ファイルが開けません");
print HTML "<HTML>\n";
print HTML "<HEAD>ここにタイトルやスタイルシートなどをごちゃごちゃと</HEAD>\n";
print HTML "<BODY>\n";
close(HTML);

Proxyをはじくものを作りたいんですが、どうやったら判別できますか？

>>774
if(!$ENV{'HTTP_HOST'}){
print"カエレ";
exit;
}

>744
漏れ串くらいしか無理。
A串は無理。
診断君でも見てな。

既存のものを見習え。

HTTP_HOST＞REMOTE_HOST

鬱。

copal2の構文チェックってどうやるの？

はじめまして
初心者なのでよろしくお願い致します

CGIを単独で実行できるEXEにするようなツールはありませんか？
postやgetで受信した変数を判断し、ローカルでそれっきりで動くもの
そういうものはありませんか？

CGIってのが、PerlならPL2EXEとか。

掲示板を作成しています。
長くなったタイトルや、URL表記を途中まで取得し、
残りを「....」としたいのですが、正規表現ではどうするのでしょうか。
@subject = split(//,$subject);
@subject = splice @subject,0,40;
undef $subject;
foreach (@subject){
$subject = $subject.$_;
}
print $subject;
としたのですが、当然というか・・・日本語では化けてしまいます。
Jperlを使用しないでどうすればよいでしょうか。

782>>
ありがとうございます
試して見ます

鬱。ﾀﾞﾚﾓｺﾀｴﾃｸﾚﾅｲﾖｰ

ﾁｮﾄIDｶﾞｶｺｲｲｶﾓ

>>783
$subject =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;

↑URLエンコードしてしまう

>>783
$n = 40;
$subject = substr($subject,0,$n+1);
$tmp = chop($subject)."\0".$tmp while($subject);
$tmp =~ s/(?<=[\x81-\x9f\xe0-\xfc])\0(.)\0/$1\0\0/g;
$subject = substr($tmp,0,$n*2).'....';
$subject =~ tr/\0//d;
print $subject;

>>741
読み込みオープンのロックは1。それも他の書き込みに対するロックなので
読み込みには無力。
書き込みで開いてロックしときな。

>>787
表示上で使用しますので、エンコードはちょっと・・・

>>789
ありがとうございます。
うまくいきました。

>>790
エンコードして切ってデコードって言いたいんじゃないの？こんなふうに。

$n = 40;
$subject = substr($subject,0,$n+1);
$subject =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;
$subject = substr($subject,0,$n);
$subject =~ s/(%[a-f\d]|%)$//i;
$subject =~ s/%([a-f\d]{2})/pack("H2",$1)/egi;
print $subject;

あ、これじゃエンコードしてる意味無いね(;´Д`)

空行は/^$/にマッチするのは分かるんだけど
空行を削除するにはどうしたらいいんですか？

あたりまえだと思うけど
while(<STDIN>){
s/^$//;
}
としても駄目なんです。。

>>793
@line = <IN>;
$n = @line;
for($i=0; $i<$n; $i++){
if($line[$i] eq "\n"){
$line[$i] = '';
}
}

かな…？

>>793
print unless /^$/;

で逝けますYO

>>783
Shift-JIS
$subject = ($subject =~ /([\x0-\x7e\xa0-\xdf]|[\x81-\xbf\xe0-\xfc][\x40-\xfc]){40}/s) ? $& : $subject;

EUC-JP
$subject = ($subject =~ /([\x0-\x7e]|[\x8E\xA1-\xFE][\xA1-\xFE]){40}/s) ? $& : $subject;

これでどうかな？

ド初心者なんですがスマソ
パスワードが違ったらはじくのを作りたいんですが正しく動作しません
どこをどう直せばいいでしょうか？

if ($pass != xxxx){
print "aho";
exit;
}

>>797
eq

>>798
パスワードが違ったらahoと表示させたいんですよ
eqだと合ってたらahoですよね？

>>799
そこまでわかってて何故neにたどりつけないのか謎
ちなみにパスワードは暗号化したほうが良いよ

>>800
neでやっても500Internal...がでてきちゃうんですよ

言い方がまずかったですね

passが違う場合にif内を実行したらcgiを終了させるものを作りたいんですよ
（passが合ってるならifより後を実行）

if ($pass ne "xxxx"){
print "aho";
exit;
}
で、エラーなら問題は別のところでしょ。

>>798-803
print "Content-type: text/html; charset=EUC-JP\n";
を加えたら正しく動きました。ｽﾏﾝｺ
首釣って逝ってきます。

>>804

やっぱりただのﾊﾞｶか

>>794,795
その方法でいけました。
ただ、
while(<STDIN>){
s/hoge/hage/;
s/omeko/sasete/;
print;
}
みたいな置換と一緒に空行を削除したい
場合はどうすればいいの？
ifをネストすればいけると思うんだけど
書けないので教えてください。

>>806
while(<STDIN>){
if($_ ne"\n"){
s/hoge/hage/;
s/omeko/sasete/;
print;
}
}

質問があります。
今日が、その年その月の第何週何日目か？
を求める方法を教えて下さい。
例えば今日の場合、第２週の３日目なので
出力結果を23と得たいです。
お願いします。

>>806
while(<STDIN>){
next if /^$/;
s/omae/bakaka/;
s/omae/ahoka/;
print;
}
でもええよ。

>808
($sec , $min , $hour , $mday , $mon , $year , $week) = localhost(time);
print (int($mday/7)+1)*10 + $week ;

>810 =~ s/localhost/localtime/;

∧‖∧

>810
それだと2-6日は必ず第1週になるよ…

>812
仕様書の意味取り違えてました。

($sec , $min , $hour , $mday , $mon , $year , $week) = localtime(time);
print (int(($mday+8-$week)/7))*10 + $week;

かな？

カレンダーとかかな？
>>808を読むと日曜が始まりみたいだけど、それなら

($sec , $min , $hour , $mday , $mon , $year , $wday) = localtime(time);
として、

第何週かは
int(($mday + 12 - $wday) / 7)

何日目かは
$wday + 1

だと思う。たぶん…

>>810
>>815
ランダムに日付を変えて何度かテストしてみても
期待通りの結果が得られて大丈夫でした。
ちなみに、利用するのは
いつも巡回する複数サイトの一部記事を
引っこ抜いて表示させるものです。
新しく追加するサイトのファイル名が
今回質問させていただいたフォーマットでした。
ありがとうございました。

Perl 5.6.1、Vine2.5で勉強してます。プログラミングはPerlが初めてです。
リャマ本第2版、P172の問題2が分かりません。
題意は、Unixのmvコマンドと同じ働きをするプログラムを書け、
という内容で、ヒントとして、第2引数がディレクトリの場合も考慮せよと。

で、漏れの解答はこんな感じです。変数の名前、正規表現の
区切り文字は末尾の解答例に合わせてます。

($old, $new) = @ARGV;
if (-d $new){
$basename = $old;
$basename =~ s#^/.*/##g;
$new = $new . "/$basename";
}
rename($old, $new) or
die "Cannot rename $old to $new: $!";

一応は思った通りの動きをします。メデタシ。

ところが、解答例は、4行目が以下のようになってる。
($basename = $old) =~ s#.*/##s;
勿論、こちらも思った通りの動作をしますです。
かっこは、漏れの解答での3行目と4行目を合体させてだけなので
無視するとして、よく分からないのは、右辺です。

1) s/ は置換だけど、後の/sは一体何?
2) .*/ だと、頭の/が残るような気がするんだけど。。。

なんでだろう。。。?

http://yahooo.s2.x-beat.com/

自己レスですが、(2)は、たった今、自分の書いたのをみて分かりました!
ルートディレクトリの「/」も 「.*/」で、「.」にマッチするやん!
ってゆーか、これだと、
# test.pl aaa ~/bbb
の場合、エラーになるよね?
ニョロがマッチしないから。。。

で、1)の方は、おながいします。