ＣＧＩだけど、なんか質問ある？part３

print "くだらねぇー質問はココから始めろや！\n";

print<<HTML_END;
<a href="http://tako.2ch.net/test/read.cgi?bbs=perl&key=984388283" target="_blank">旧スレ</a>
HTML_END

前スレの未解決の質問をコピペ

403 名前：名無しさん 投稿日：2001/05/01(火) 19:20
CGIって、アクセスのたびにプロセスを生成して、
アクセスが増加するとオーバヘッドが大きくなるっていいますよね？
ここで、処理するCPUを複数にして分散処理させてやると、
負荷を減らすことはできるんでしょうか？
その際、別プロセスを生成しないPHPなんかと比べるとどんな感じでしょうか。

ここで質問して見てる人いるのかなぁ…。
最初の3つと最後の1つを除いて、<> を , に置換する正規表現は
どう書いたらいいですか?

>>1
xdsl053090.211015.metallic.ne.jp
なるほど・・・
スレたてた人のHOST名が分かるのか。初めて知った。。。

>>4
メール欄にほげほげするって方法?

$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I';
print $_."\n";
@array = split(/<>/,$_);
$_ = join('<>',@array[0..3]).','.join(',',@array[4..$#array-1]).'<>'.$array[$#array];
print $_."\n";


こんな感じ？
$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I'<>;
だとちょっと違う動作するけど。

>>6
$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
の場合は

A<>B<>C<>D,E,F,G,H,I<>

になってほしいです。

Perlで
httpサーバを巡回して情報を集めるスクリプトを作っています。
１つのプログラムで、複数のサイトと同時にソケット通信を行う
方法教えていただけないでしょうか？
今作ったものだとソケット通信するときに終了するまで待機
してしまうため、効率が悪いのです。お願いします。

print SOCKET "GET /index.html HTTP/1.0\r\n\r\n";
while(<SOCKET>) {$d .= $_;}
close(SOCKET);
#<SOCKET>のところで待機

>>7
後尾が <> になってないのでそのデータなら問題ないはず。
>>8
http://X68000.startshop.co.jp/~68user/net/index.html
の並行アクセスのことかな

>>9
語尾が <> だし

A<>B<>C<>D,E,F,G,H<>I

になっちゃうんですけど…。

>>3=7=10
$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
$_ =~ /^([^<>]*<>[^<>]*<>[^<>]<>)(.*)(<>[^<>]*)$/;
$t1 = $1;
$t2 = $2;
$t3 = $3;
$t2 =~ s/<>/,/g;
$_ = $t1.$t2.$t3;

もっと簡単で確実な方法はないものか・・・。


>>6さんの変形で
$_ .= "\0";
@array = split(/<>/,$_);
$_ = join('<>',@array[0..3]).','.join(',',@array[4..$#array-1]).'<>'.$array[$#array];
$_ =~ s/\0$//g;
の方が確実かな？

>>11
< や > が単独で含まれるので前者はボツ。

>>7 後尾が > だけだと見間違えてた。ゴメ

>>11 < と > がデータに含まれないと仮定するなら [^<>] か . 使って
先頭と後尾を待避させる >>11 の上半分のが確実だね。
それでいいと思う。訂正ありがとう。

>>8
forkしてみるとか。

質問です。

@string = ( 'あ','い','う','え','お',
'か','き','く','け','こ',
'さ','し','す','せ','そ',
'た','ち','つ','て','と',
'な','に','ぬ','ね','の',
'は','ひ','ふ','へ','ほ',
'ま','み','む','め','も',
'や','ゆ','よ',
'ら','り','る','れ','ろ',
'わ','を','ん',
'が','ぎ','ぐ','げ','ご',
'ざ','じ','ず','ぜ','ぞ',
'だ','ぢ','づ','で','ど',
'ば','び','ぶ','べ','ぼ',
'ぱ','ぴ','ぷ','ぺ','ぽ');

ここからランダムに五文字取り出して表示するには
どうしたらいいんですか？

cgiとかperlとかを１から勉強するのに良い感じのホームページおしえてな。

>>15
srand;
print "$string[rand($#string)]$string[rand($#string)]$string[rand($#string)]$string[rand($#string)]$string[rand($#string)]";

>>16
http://tako.2ch.net/test/read.cgi?bbs=perl&key=972028779
こんなスレがある。
そこで自分にあうのを探してみな。

>>18
おー、あんがとね

>>17
多分＋１しないと最後のが拾えないと思う。もしくは scalar(@string) かで。
あと int でくくっておかないと少数も拾われると思う。
ついでにループ５回にしておけばエレガントかと
for(my $i=0 ; $i < 5 ; $i++){
　　print $string[int(rand($#string+1))];
}

>>20
フォローサンクス。

>17、20

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

>>7

これじゃダメかね?

#!/usr/bin/perl

$s = 'A<>B<>C<>D<>E<>F<>G<>H<>I';
$s =~ s/(.<>.<>.<>.)<>(.)<>(.)<>(.)<>(.<>.)/$1\,$2\,$3\,$4\,$5/;
print "$s\n";
exit 0;

省略すりゃたった4行にもできる(プ
ゲスト募集 http://www.guestbook.de/yasg.cgi?X=52084

>>10

ムゥ〜、ならこれでどうかね?

#!/usr/bin/perl

$s = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
@q = split(/[a-zA-Z]</, $s);
if($#q == 8){
$s =~ s/(.<>.<>.<>.)<>(.)<>(.)<>(.)<>(.<>.)/$1\,$2\,$3\,$4\,$5/;
}
elsif ($#q == 9){
$s =~ s/(.<>.<>.<>.)<>(.)<>(.)<>(.)<>(.)<>(.<>)/$1\,$2\,$3\,$4\,$5\,$6/;
}
print "$s\n";
exit 0;

>>24
ネタ? ならこっちの方が短いぞ
$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
$_ = 'A<>B<>C<>D,E,F,G,H,I<>';
print;

いちおうマジレスもしとくとAとかBとかCとか書いてあるのは単なる例で、
実際には <> を除く任意の長さの任意の文字列の組み合わせが入りう
る。当然1文字とも限らない。また <> の個数も7個か8個とは限らない。
だからダメ。

>>25

ハァ!?
一応、二行分はサービスしといたる (プ

#!/usr/bin/perl

#$s = 'A<>B<>C<>D<>E<>F<>G<>H<>I';
$s = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
$s =~ /(.+?<>.+?<>.+?<>.+?<)(.*)(.+<>)/;
#$s =~ /(.+?<>.+?<>.+?<>.+?<)(.*)(.+<>.+)/;
$h = $1; $t = $3; $d = '<'."$2"; $d =~ s/<>/\,/g; chop($h);
$a = $h.$d.$t;
print "$a\n";
exit 0;

ゆいちゃっとの表示部をHTMLにする改造方法だれかやっていないでしょうか？

>>24
気持ちはわかるが不要な波風は立てんでくれ。
>>26
データが空だった場合（　<><> ）とデータ数が変わる場合（<>の数が変化）の対応が不足していると思う。
区切り文字が<>とかある場合は大抵データ数は可変な。11 の前半で問題ないはず。

24じゃなくて25だった。逝ってくる。

>>28
マジでネタかと思ったんで煽ったつもりはなかったんだけど…
11の前半は < や > が単独で出現した場合に対応できないからダメ
だってば。
今のところ問題なさそうだったのは11の後半だけ。

iモードから掲示板等の更新状況（つまりWinアプリのWWWDのようなヤツ）を
チェックするツールが欲しいor作りたいんですけど、ソケット技術（知識皆無）必須ですか？
ソケットって勉強してみるべきでしょうか？

>>27
htmlにするとロムチェックができなくなるよ。
それでもいいならあると思う。

マッチングのみやと、ここまでが限界やな。

#!/usr/bin/perl

$s = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
$s =~ /(.*?)(<.+?[a-zA-Z])(.*?)(<.+?[a-zA-Z])(.*?)(<.+?[a-zA-Z])(.*?<)(.+[a-zA-Z])(
<.*>)/;
$a = $1; $b = $2; $c = $3; $d =$4; $e = $5; $f = $6; $g = $7;
$h = '<'.$8; $i = $9;
$h =~ s/(<>)+/\,/g;
chop($g);
$x = $a.$b.$c.$d.$e.$f.$g.$h.$i;
print "$x\n";
exit 0;

>>30 ほれ。

$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
1 while( s/((<>.*?){3})<>(?=.*?<>)/$1,/ );
print;

つーか、なんで11で満足しないんだよ。問題ないだろ？
あと、人に物を訊く時の態度を身につけてくれ。

$_ = 'A<>B<>C<>D<>E<>F<>G<>H<>I<>';
s/<>(?=.*?<>)/$i++<3 ? '<>' : ',' /eg;

ほれ、>>33より速いぞ。

>>31
それをCGIでやりたいって事？
作るんならソケットの知識は必要だよ。
既成の物を使うんならいらないだろうけど、俺は知らない。

厨房っぽい質問いいですか？
下のPJ2.34なんですが、自分ではどうしてもSNMPチェックができません。
項目自体が出て来ないんです。
http://gogogobaku.hypermart.net/cgi-bin/up/data/176.txt

http://vivit.freeshell.org/cgi-bin/p234.cgi
↑ここのように普通にSNMPチェックがしたいのに。
$szSNMPFile = 'snmp.txt';と入れて
&snmp_check() if( $szSNMPFile ne 'snmp.txt' );
とすればいいんですよね？
どうしたらいいか教えてください。

>>33
すみません。
つーか私は11の後半で終わりかと思ってたのにいきなり23で変なレス
付け始めたからネタかと思ったんですけど。
>>33 >>34
わーを。

http://plaza2.mbn.or.jp/~yuchika/

先ず「手段は一つしかない」という固定観念を捨てないとな。
様々な手段がある事を知らしめる意味でも様々な意見が必要だ。
その中から、私は最善と思われる手段をパクらせて頂く (プ

「,」が「&#44;」で
「&」が「&amp;」で
「"」が「&quot;」で
「<」が「&lt;」で
「>」が「&gt;」
は判ったんですが、「:」と「/」はどういうやつか教えてもらえませんか？
また、これについて詳しいページないでしょうか。

めちゃくちゃになってしまいましたごめんなさい
$value =~ s/,/＆#44;/g;
$value =~ s/&/＆amp;/g;
$value =~ s/"/＆quot;/g;
$value =~ s/</＆lt;/g;
$value =~ s/>/＆gt;/g;
ときて、
$value =~ s/:/??/g;
$value =~ s/\//??/g;
??に入るのが知りたいんです。

>>40-41
何故実体参照が必要になる事があるのか考えた事があるのか？

>>40-41
ほれ。
http://www.w3.org/TR/html4/HTMLlat1.ent
http://www.w3.org/TR/html4/HTMLsymbol.ent
http://www.w3.org/TR/html4/HTMLspecial.ent

>>42
えと、怪しい文字は避けろとかそんな感じでしょうか。
ごめんなさいよく判ってません。
>>43
これを使えばいいんですね。ありがとうございます。
使い方勉強します。

>>44
半ば嫌がらせのつもりだったのに、そう素直にお礼を言われると罪悪感が。
ここ見るといいです。
http://www.ne.jp/asahi/minazuki/bakera/html/reference/charref

sub get_time{

$ENV{'TZ'} = 'JST-9';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$day = ('日','月','火','水','木','金','土')[$wday];
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year+1900,$mon+1,$mday,$day,$hour,$min,$sec);

}

時間・分・秒表示をしたくない時はどれを削ればいいのでしょうか？
$sec,$minを消しただけだと日付けなどがでたらめになってしまいました。

sub get_time{

$ENV{'TZ'} = 'JST-9';

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$day = ('日','月','火','水','木','金','土')[$wday];
$date = sprintf("%04d/%02d/%02d(%s)",$year+1900,$mon+1,$mday,$day,);

}

でいいと思うよ。しかしオタクくさい構文書くね。＞作者の人

>オタクくさい構文
??

>>47山田十さん
ありがとうございました！！
答えだけ聞きたい初心者ですみません。
おかげさまで他の部分もちょっとわかった気がします。

作者はかなり前ですが旧CGI板にたまーにいらしてた方です(^^;;;

すみません、もう一回教えてもらえませんか。
スクリプト中の自動リンクの表示色を変えたいのですが。
どうしてもbodyのテキスト色になるらしく、それだと都合が悪い部分があって
違う色にしたいのです。autolinkが出てくる部分を抜き出してみたけど
どこを変えたら色が変わるのかわかりません。

#自動リンク(1 → on, 0 → off)
$autolink = 1;
と初期設定にあり、それ以外にautolinkが出てくるのは下だけです。
---------------------------------------------------------
if ($autolink){
$com =~ s/(https?|ftp|gopher|telnet|whois|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/<A href=\"$1:\/\/$2\">$1:\/\/$2<\/A>/g;
$com =~ s/([\w|\!\#\$\%\'\=\-\^\`\\\|\~\[\{\]\}\+\*\.\?\/]+)\@([\w|\!\#\$\%\'\(\)\=\-\^\`\\\|\~\[\{\]\}\+\*\.\?\/]+)/<A href="mailto:$1\@$2">$1\@$2<\/A>/g;
}

>>50
ボディタグでリンクカラーを指定してる？

>>50
とりあえずHTMLの勉強から始めると良いと思われ。

ヒミコードの使い方がわかりません
<img src="himicode.cgi?$ENV{'REMOTE_PORT'}">
でいいんですか？

>>53
ヒミコードって何だよ？
ここはアンタの質問だけに答える場所じゃないんだ。

>>51-52
そうですそれです。
リンク色もテキストも全部同一色にしてるからこんがらがってました。
あたりまえですが自動リンクの色がスタイルシートのA:linkと同じ色になってしまうんですね。
この自動リンクの時だけ単独で変えられたらなーと思っていたのですがアホな質問でした。
もうちょっと基本を勉強してきます、、

特定のリンクの色だけでも変えれるよ。

ただ
<FONT color="#xxxxxx"><A link="xxx">hoge</A></FONT>
になるようにすればいいだけ。

もしかして
<A link="xxx"><FONT color="#xxxxxx">hoge</FONT></A>
だったかも。

<A link>ってなんだ・・・

確認したらところ、
<A href="xxxx"><FONT color="#000000">hoge</FONT></A>
のほうだった。ｽﾏｿ。

スタイルシートで色変えてんだったら
.autolink { color: #xxxxxx }
<A class="autolink" href="">hoge</A>
でいいじゃん。
これ以上はWeb製作管理板逝け。

foreach文で、配列の何番目の要素を処理しているのか知るにはどうすればよいでしょうか。

>>59
直接は無理だけど、カウントすれば分かるよ。

$i = 0;
foreach (@array){

#何か処理

$i++;
}

>>60
こういうのでもいいかな

foreach $i (0..$#array){
　　$_ = $array[i];
}

他のサーバのcgiの出力結果を取ってくるスクリプト無いでしょうか？

http://hogehoge.com/bbs.cgi?123
見たいな感じのヤツです。

>http://hogehoge.com/bbs.cgi?123
>見たいな感じのヤツです。

どんな感じよ。

>>62
#!/usr/bin/perl
use LWP::Simple;
getprint 'http://hoge.hoge.com/bbs.cgi?123';
__END__

教えてクンになって申し訳ないですが･････

自分の使っているｗｉｎ98にＪＰｅｒｌ　ｆｏｒ　Ｗｉｎ３２を
インストールし（ＭＳ−ＤＯＳ、C:\windows\perl -v　コマンドで、
this is perl,version 5.003_07・・とメッセージ出力を確認済み）
ａｎＨＴＴＰｄも入れました。

簡単なｐｅｒｌスクリプトを、ｈｔｔｐｄサーバを起動させ
ｈｔｔｐｄのディレクトリ下に置いて、そのｐｅｒｌスクリプトを
ＩＥ5.01で確認すると、きちんとスクリプトが解釈されてブラウザに
表示されるのですが、その他のディレクトリにスクリプトを
置いた場合などの、つまりｗｅｂサーバ機能が働かない状態で
スクリプトを動かそうとしても、一瞬ＤＯＳ画面が現れてすぐ消え、
ブラウザも立ち上がらず、思った通り表示されません。

ｐｅｒｌスクリプトは、ｗｅｂサーバ機能が無いと
無意味なのでしょうか？
ｐｅｒｌをｗｉｎｄｏｗｓにインストールしたとしても、
通常アプリケーションのように単体で動かないのでしょうか？
いろいろ調べまわったのですが、イマイチ不明なもので・・・
詳しい方、よろしくお願いしますm(_ _)m

それと、ａｎＨＴＴＰｄでＣＧＩとして動けば、
そのスクリプトはプロバなどのＵＮＩＸ上でおおむね動くと考えても
よろしいのでしょうかね？
ほんと、スイマセン。。

>ｐｅｒｌをｗｉｎｄｏｗｓにインストールしたとしても、
>通常アプリケーションのように単体で動かないのでしょうか？
単体で動きます。
がcgiスクリプトをダブルクリックしてもブラウザは立ち上がりません。
ブラウザで見るにはWebサーバが必要です。

>ＵＮＩＸ上でおおむね動くと考えても
「おおむね」なら考えても宜しいかと

>>66
ありがとうございます！m(^^)m(_ _)m
ｐｅｒｌでも、例えばブラウザを使わない構造できちんと
(例→）データベースソフトを作ったりすれば、delphiや
Ｃで作ったものと同じように動く、
というような解釈でよろしいのでしょうか？

ホント、助かりました。
ありがとうございました！

>>67
"Perl"関係の本読めや
"CGI"関係の本じゃねーぞ

>>61
嘘書いちまった。
$_ = $array[i];
じゃなくて
$_ = $array[$i];
だった。

>>67
66 じゃないけどそう。実行ファイルは吐き出さないけどね。
俺はログの集計とかサイトのページ書き出すのに使ってる。

>>60,61
ありがとう。
たしかにそれでわかりますね。
もっと柔軟に考えればよかった…

nobody(とかwww)の環境変数ってどうやって設定すればいいのでしょうか。

CGIの掲示板の設置のついての質問です。
CGI掲示板の設置を試みました。CGIのソースの始めのperlへのパスも
正確に設定しました。しかし、いざブラウザで確認すると、CGIの掲示板
の中身（ソース）が表示されてしまいます。これは、なにが原因なのでしょうか？
perlのバージョンとか関係あるのでしょうか？お願いします。。
パーミッションの設定もちゃんとできてます。。初心者ですので、
初心者にもわかるようにお願いします。。勝手ながら。。

>>72
そのサーバはCGI使えますか？

>>71
>nobody(とかwww)の環境変数
環境変数？
$ENV{REMOTE_ADDR} = 'hoge.hoge.ne.jp';
みたいな感じで変えれるよ。意味無いけど。

それともファイルの所有者？それは環境変数とは言わないよ。
変更はrootで
chown user file

それともCGIの実行ユーザ？これも環境変数とは言わないよ。
suexecならconfigureしなおしな。
ただ単にhttpdの動作ユーザ変えるだけなら、httpd.confの
User nobody
Group nobody
ってトコを変えてhttpdをrestartさせればＯＫ。

>>73
Perlのパス云々と言ってるからCGIは使えるんじゃないかな？

>>72
サーバー上で見てる？
http://○○/××.cgiで。
エクスプローラーでダブルクリックしているというオチはないよね？

あとサーバーによっては拡張子.plが使えない事もある。
拡張子が.cgiになっているかも確認しよう。

できることならそのサーバーのURLくらい出してもらえると
みんな助言がしやすいと思うぞ。
個人のURLまで出さなくていいから。

追伸。
配布されている掲示板なら、配布元URLと、どの掲示板かも
教えてもらえると嬉しい。

>>74
いえ、所有者や実行ユーザではないです。

$ENV{PERL5LIB}や$ENV{PERL5OPT}などの環境変数が
予め設定されているようにしたいのですが…。
今はrequire "BEGIN{/home/hoge/config.pl";}という風にしていますが、
いちいちそんな事をしなくとも良い様にしたいのです。

サーバーでCGIが使えるかどうかを知るにはどすればいいのでしょうか？一応、perlのファイルはありました。

>>78 その鯖屋のFAQ見れ。

>>78 ここで聞かないで管理者に聞け。

適当な CGI を置いて動けば使える。動かなければ使えない。
だめなら .htaccess をいじる。.htaccess のいじり方が
わからないようならばそもそも CGI など使おうと考えるな。

>適当な CGI を置いて動けば使える。動かなければ使えない。

FAQ見りゃ解る事なんだから、人様の鯖で実験は止めれ。

CGI の環境変数を実行前に設定したい場合
HTTP 要求ヘッダを使って設定できますか？
用は CGI を呼び出す html で
環境変数を指定できればいいのだけど

>>82
SetEnvIfでどう？
http://httpd.apache.org/docs/mod/mod_setenvif.html#setenvif
Apacheドキュメント、モジュールによっては日本語化されてきてのね。

こんにちは。
Perlを使ったCGIでORACLEにアクセスするようなのを作っているのですが、
DBIモジュールでアクセスするのとOraperlでアクセスするのは、
どちらが一般的(?)なのでしょうか？

DBIだと
$hDb = DBI->connect("dbi:Oracle:ORCL", "orcl/orcl") or die "Cannot connect: " . $DBI::errstr;
$hSt = $hDb->prepare($sql);
$nRes = $hSt->execute;
while(@aRes = $hSt->fetchrow_array()) {
push(@data,"@aRes\n");
}
$hSt->finish;
$hDb->disconnect;
って感じだけど。Oraperlだと
$lda = &ora_login ( "", $ENV{'ORACLE_DBA'}, $ENV{'ORACLE_PWD'} );
以下略

構文的にはOraperl使わないほうが楽そうですが･･･
よろしくお願いします。

i-modeのページでで使うカウンタ兼アクセスログを作ろうと思っているのですが、
PCでアクセスしてきた場合、HTTP_REFERERでリンク元が得られますが
i-mode端末からだと取得できません。
何か特別な方法が有るのでしょうか？
ご存知の方いましたら、ご教授ください。

>>84-85
DBはよく知らんのでパス
i-modeはUserAgentがReferer吐いてないとかじゃないだろか。

>>84
DBI

#ってかoraperlってまだあったのか・・・

>>83 返事どうもありがとう
でもこれってサーバーの設定だよね？
えっと実は biglobe での cgi なんだけど
biglobe では自分の web ページからしか cgi を
呼べないことになってます
これをローカルのページからも実行したいなと
ネットスケープからだったら ftp でアップする前の
自分のローカルハードディスクのファイルを開いて cgi を
実行できてしまうのですが
IE はできないので多分 cgi の実行前に HTTP_REFERER を
チェックしてるだけかと思っています
だから html からブラウザに HTTP_REFERER を出さないように
命令？できれば良いんだけどできます？
長くなってすみませんが教えてください

>>88
htmlからは無理でしょう。WinユーザだったらProxomitronを
入れればHTTP_REFERERはいじれるんじゃなかったっけか。
ProxomitronについてはWindows板にスレッドが立ってると思う。

似たような質問なのですけどよろしいでしょうか。
あるリンク先のバナーがCGIで書かれていて、イメージを呼び出すと
カウンタのようにリファラー取られてしまっているんですけど、この
イメージタグを含むリンクのページをCGIにすれば詐称することがで
きますか？
色々あってバナーを持ち帰るのはできません。
ご教授ください。

ごめんなさい。
CGI使ったところで無理そうですよね。
リンクページを全部テキストリンクだけに書き換えようと思います。

クッキーについて教えてください。
CGIの中でクッキーを設定したいのですが、一度に２つの情報をセットするには
どうすればいいのでしょうか？(JAVAは使わないでCGIだけでやりたいです)

たとえば、A = 5000 をクッキーにいれたいときは、

print "Set-Cookie: A=5000; expires=曜日, 日付-月-年 時刻 GMT; domain=****; path=/; secure";

これはうまくいきました。

一度に２つセットしたいとき

たとえば、A = 5000 と B = 6000　を一度にいれたいときは、

print "Set-Cookie: A=5000; B=6000; expires=曜日, 日付-月-年 時刻 GMT; domain=****; path=/; secure";

としても、Aには値が入っていますが、Bには値が入っていませんでした。

どうしたら一度に複数のデータを記録できるのでしょうか？

>>92
Set-Cookieヘッダを2回出力すれば大丈夫。
print "Set-Cookie: A=5000; expires=・・・";
print "Set-Cookie: B=6000; expires=・・・";

RFCとかを見たわけじゃなくて経験則だけどね。

>>93 さん

それでもうまくいかなかったです。
サーバの問題ということはないのでしょうか？

他に手はありませんか？

>>93 さん

うまくいきました！！　ヘッダの最後に\nを付けわすれていました。
ありがとうございました。

>>94
別の方法
#--
sub set_cookie{
my %set_cookie = @_;
$set_cookie{id} ||= $Me;
$set_cookie{life} ||= 0;
my (@p,$ncs, $key, $val, $exp);
while (($key, $val) = &escape(each %{$set_cookie{cookie}})){
push(@p, $key.':'.$val);
}
$ncs = join('&', @p) or return "";
$exp = &time_fmt(gmtime((time() + $set_cookie{life} * 86400))) . " GMT" if $set_cookie{life};
$exp = $exp ? "expires=$exp" : "";
return "Set-Cookie: $set_cookie{id}=$ncs; $exp\n";
}
#Usage: &set_cookie(cookie => \$cookie, life => LIFE_DAY, id => ID);
#&escapeと&time_fmtは自分で実装してくれや
#--

値を取り出すには
#--
sub get_cookie{
my $cookie = shift || {};
my $id = shift || $Me;
foreach (split(/; /, $ENV{'HTTP_COOKIE'})) {
my ($name, $value) = split(/=/);
if ($name eq $id) {
foreach (split(/&/, $value)) {
($name, $value) = &unescape(split(/:/));
if ($name =~ /^[jJ]/){
Jcode::convert(\$value, 'euc');
}
$cookie->{$name} = $value;
}
last;
}
}
return $cookie;
}
#Usage: &get_cookie(\$cookie)
#&unescapeも同様
#--
つぶれたインデントはソース見てくれや

>>95 さん

有り難うございます。勉強しておきます。

簡易データベースなんですが、SDBM_Fileって
最大レコード数とかあるんでしょうか？
追加登録してるうちにファイル容量が8Mくらいで
動かなくなってるんですが、、、

>>98
最大レコードが有るかどうかは分からんが、
以前20000件30MBくらいのを作ったことがあるから結構大丈夫かと思われ。

1レコードの制限は1024KBくらいだったような（違ったらスマソ)

>>99
サンクスです。
1レコードは1KBって聞いた気がしますが、、、
1024KBなのかな？？？
調べてみます〜

>>100
いやレコードのサイズは桁が全然違う可能性ありです。
かなり少ないと思った記憶があるので多分1KBが正解かと(;´Д`)

Perlに標準でついてるDBMでSDBMより1レコードの制限緩いの
ってあるのかな？？

>>102
ウィナーの俺にとってはSDBMだけが標準

perldoc AnyDBM_File か、
http://www.perldoc.com/perl5.6/lib/AnyDBM_File.html
が参考になると思います。

>>99
SDBM_Fileのキー、値の上限はデフォルトの状態では1kですよ〜

>>102
標準では付属されていないけれど、DB_File(高速&ブロック長制限無し)がお薦め。
http://www.sleepycat.com/かCPANから取ってきて自分でビルドするか、
ActivePerlなら ppm DB_File とするだけでOKだよ。

誤>ppm DB_File
正>ppm install DB_File
だね。すみません。

>>SDBM_File
ありゃ、よく見ればAnyDBM_Fileにもラクダ本にも書いてあった(;´Д`)<1K
スマソ98
_gunzipさんｻﾝｸｽｺ

ものすごく基本的な質問でもうしわけないのですが、以下のCGIを実行すると
一部の漢字だけ化けます。なぜでしょうか？

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<TITLE></TITLE>\n</HEAD>\n";
print "<BODY>\n";
print "うまく行くかな〜？<P>\n";
print "可能か不可能か<P>\n";
print "なんだこりゃ？ばける！化けるうぅぅ！<P>\n";
print "表示できない。<P>\n";
print "</BODY><P><BR>\n</HTML>";

実行結果-----------------------------------

うまく行くかな〜？
可狽ｩ不可狽ｩ

なんだこりゃ？ばける！化けるうぅぅ！

侮ｦできない。

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

・・・・というふうに、「能」や「表示」の部分だけが化けました。
文字化けを回避するにはどうすればいいのでしょうか？

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

print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<TITLE></TITLE>\n</HEAD>\n";
print "<BODY>\n";
print "うまく行くかな〜？<P>\n";
print "可能\か不可能\か<P>\n";
print "なんだこりゃ？ばける！化けるうぅぅ！<P>\n";
print "表\示できない。<P>\n";
print "</BODY><P><BR>\n</HTML>";
-----------
↓ここも参考に
http://www.psl.ne.jp/perl/pdojo00c.html

>>108さん

おおっ、即レスどうもです！
さっそくブックマークしました。
文字によって化けたり化けなかったりで困っていたところでした。

ありがとうございました。m(_ _)m

>>109
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<TITLE></TITLE>\n</HEAD>\n";
print "<BODY>\n";
print "うまく行くかな〜？<P>\n";
print '可能か不可能か';
print "<P>\n";
print "なんだこりゃ？ばける！化けるうぅぅ！<P>\n";
print '表示できない。';
print '<P>\n";
print "</BODY><P><BR>\n</HTML>";

こんな手もあるし

print <<'PRINT_AREA';
Content-type: text/html

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
うまく行くかな〜？<P>
可能か不可能か<P>
なんだこりゃ？ばける！化けるうぅぅ！<P>
表\示できない。<P>
</BODY><P><BR>
</HTML>
PRINT_AREA

こんな手もある。

ただし、変数を含まない事が前提だよ。
変数を含むなら\を使うのが面倒だけど間違いはない。

スマン。
上の例、一箇所タイプミスがあった。
下から２行目の「'」は「"」に置き換えてくれ。

EUCで書くという手も

require 'jcode.pl';
print jcode::sjis(<<EUC_STRING);
表示可能
EUC_STRING

use Jcode;
print Jcode->new(<<EUC_STRING)->sjis;
表示可能
EUC_STRING

尻Pはヤメレ

>>113
おまえ今いいこと言った！(ﾟДﾟ)

掲示板で半角カナ文字を使いたいのですが・・。
どうしたらいいでしょうか？

>>115
jcode.plを最新版に変えろ。

>>115
フォームのHTML、CGIの処理、CGIの出力すべてEUC-JPに統一する。
jcode.plはShift_JISの半角カナは無視するがEUC-JPの半角カナは
きちんと見分けるから。

>>115
eucを広めたいunix厨が勝手なことを言っているが、
漢ならShift_JISを断固として用いるべき。

>>118
何でもいいけど、とりあえず、
Shift_JISでやるメリットを言ってくれ。

内部処理はEUCで
出力はShift_JISで
やってるよ。

>>120
それってjcode.plにとって最悪な組み合わせじゃん・・・。

>>121
getcode()だけ都合の良いようにチェーンナップしてあるからOK

質問です。
以前あった世界幼児語化計画のように
ネット上のファイルを読み取ってＣＧＩ上で扱うにはどうしたら良いですか？

LWP
http://search.cpan.org/

#!/usr/bin/perl -w
use LWP::Simple;
print get('http://2ch.net/');
__END__

>>124,125
多謝です。
自分の考えてたことは全く違っていたので質問して良かったです＾＾；。

ログファイルに追加書き込みをする際に、ファイルの最後ではなく
先頭に追加したいのですが、どうすれば良いのでしょうか？
レベルの低い質問かもしれませんが、どなたかご教授願います。

「先頭に追加」は全て書き直さない限り不可能。
単にファイルポインタを先頭に戻すだけならseek()すれば良い。

>122
なるほど。そうなんかー。
おれもjcode.plのgetcodeを改造しようとしたことが
あるんだけど、結局Shift_JISで半角カナを使うのはあきらめたのさ。

２ちゃんはjcode.pl使ってないの？

>>130
さあ？ サーバには残ってるけど。 http://corn.2ch.net/test/jcode.pl

>>127
発想の転換。
ファイルの末尾にデータを追記して、
呼び出す時にreverseかける。

どこかのクッキーが残ってた。
スマン。

jcode.pl使わなければいいじゃん…

>>127
ログファイルを2つ用意して、Ａに書き出し→ＢをＡの末尾につなげる→ＡをＢにリネーム…
75氏のが普通だろうけど。
あるいは末尾に追加して、呼び出す時に後ろからn行取り出すとか…

皆さんありがとうございます。
いろいろと参考になりました。
書き込みの件は>>132さんのやり方でやってみることにします。
本当にありがとうございました。

どうも>>115です。
>>116,>>117ありがとうございました。
>>118漢になることを諦めて、EUCを使いました。

掲示板に書き込みすると

"テスト書き込み"→"テスト書き込・/B>"

みたいに化けるんですが、どこが悪いんでしょうか？
教えていただきたいです

>>138
CGIスクリプトが悪い。

chopの予感

>>138
んなヘタレスクリプト使うなよ。

解決策:
他のCGIスクリプトに変える

いやぁ、
http://www.botan.sakura.ne.jp/%7Ewcs/cgi-bin/sample/note/basic/bbsnote.cgi
なんですけど、代替品が無いのでよろしくおねがいです。

>>138
１：それはキミが作ったスクリプトかい？
２：変なところにchopがないかい？
３：スクリプトをtxtにして公開したり出来ないかい？

答えようがないぞ。
どこが悪いと言われれば、キミの聞き方が悪い。
ちゃんとした聞き方をすればちゃんと答えてくれる人の方が多いよ。
ここはね。

>>142
作者に訊く。以上。

こっちが書き込んでるうちに書き込まれたか。

>>142
配布品なら>>144さんの通り、作者さんに聞いた方がいい。
作者に伝えて問題をなくしてもらったほうが他の人のためにもなる。
知識の少ないキミがやるよりも製作者当人がやったほうが問題が起きない。
キミも余計な手間が減る。
いい事尽くしな気がするけど？

う〜ん、とりあえず自力で頑張って駄目なら作者に聞いてみまふ

いつもお世話になっております。
今日は、「symlink」関数を使ったファイルロックについて質問です。m(_ _)m


$lockfile ... パーミッション７０７の適当なフォルダの適当なファイルを指定。
（例）$loclfile = "./tmp/file.lock";

sub file_lock {

local($retry) = 10;

# try to create symbolic link.
while (!symlink($$, $lockfile)) {
# timeout (abort)
if (--$retry <= 0) {
unlink($lockfile);
&fl_error("error on exclusion control.");
}

# wait a few second and retry.
sleep(1);
}
}

上記のサブルーチンをつかって、ファイルのロックをしてみようと思うのですが、
複数の種類の書き込みについて、上のファイルロックを使いまわしてよいのでしょうか？

例えば、

（１）掲示板のメッセージを書き込むときに &file_lock使用。
（２）アクセスカウンターの読み書き部分で &file_lock使用。
（３）ログ記録を取る際に&file_lock使用。

などのように使いまわした場合、（１）（２）（３）の処理が同時に起こったら、
$lockfileで指定したファイルが壊れることはないのでしょうか？
もしそれがダメなら、（１）（２）（３）でそれぞれ $lockfileの部分を
（１）（２）（３）で使い分ければ安全でしょうか？

>>147
問題は$lockfileが壊れる事よりも
(例えば)カウンターへの書き込みと同時にBBSに書き込むことで
無駄な時間を消費しなければならない点にある。
$lockfileの名前をスクリプト毎に変えるべし。

わかりました。
これだとリトライが発生しやすくなるということですね。
使い分けてみますm(_ _)m
助言、ありがとうございました。

追加質問です。こういう方法で良いでしょうか？
（さきほどのfile_lockの中身で$lockfileの部分を$_[0]にしています）

sub file_lock {

local($retry) = 10;

# try to create symbolic link.
while (!symlink($$, $_[0])) {
# timeout (abort)
if (--$retry <= 0) {
unlink($_[0]);
&fl_error("error on exclusion control.");
}

# wait a few second and retry.
sleep(1);
}
}

こうしておいてから、ＢＢＳやログやカウンター用のロックファイルを
$bbs = "./bbs.lock";
$log = "./log.lock";
$counter = "./counter.lock";
と決めておいて、
実際にファイルロックを使うときは
ＢＢＳの場合は
------------------------
&file_lock($bbs);

ＢＢＳの書き込み処理

unlink($bbs);
------------------------

ログ書きの場合は
------------------------
&file_lock($log);

ＬＯＧの書き込み処理

unlink($log);
------------------------

アクセスカウンターの場合は
------------------------
&file_lock($counter);

アクセスカウンターの読み書き処理

unlink($counter);
------------------------
という感じに使い分けてみました。こんな感じで大丈夫でしょうか？

>>150
待てよ…？
もしや同じスクリプト内でのカウンターやらログやらなのか？
もしそうならLockfileを分ける必要は無いと思うぞ。
違うならそれでﾖｼ。

しかしそれは何処から拝借したルーチンだ？
随分書き方が古臭いが…。

>>151 さん
このロック方式は、ここからパクってきました。↓
ttp://north.ug.to/columns/cgi_lec/cgi03.html

それと、「同じスクリプト内」での処理です。
このロック方式は、ＤＢＭのアクセス（読み書き）には
つかえるのでしょうか？
flockを使ってロックしているのですが、不安でして・・・。

>>152
不安なら耐久テストしてみれば良いだろ。
flockではまずいという環境があるのは事実だが、
テストもせず他人の(flockを使わない)ロックルーチンを拝借するのは
ｱﾌｫであると言わざるを得ない。

掲示板作ってました。
日本語を含む文字列に対し、パスワードとして数文字の半角英数字を与えることで
暗号化したり複合化したりできたらカコイイと思ったのですが、いかなる方法で実現可能か、
ヒントもらえませんか。

NC4.xで、フォームのTEXTAREAにデータを書き込むと、32kByte
ぐらい書いたところで、書き込めなくなるのですが、これは
ブラウザ側の仕様なのでしょうか？もっと無尽蔵に書き込む
方法は有るのでしょうか。

＞155
maxlengthをでかい数値指定してみるとか。

>>154
CPANの↓このあたりに暗号化・複合化のモジュールがいくつか。
http://cpan.valueclick.com/modules/by-category/14_Security_and_Encryption/Crypt/
何がどんなモジュールか全然しらないんですが。

アクセス解析設置してるんですけど、
$ENV{'REMOTE_HOST'}でホスト名が取れないサーバなので
gethostbyaddrを使ってるんですけどそれでもとれません。
どうしてでしょうか？

gethostbyaddrが使えないから。

$ENV{'REMOTE_HOST'}も取れなくてgethostbyaddr()も使えない場合、
どうすればリモートホストを取れるようになるよ?

>>160
サーバ管理者に土下座して「逆引きさせてくだせ〜」と頼む。
それがいやならNet::DNSモジュール等を利用して、
どこかの利用可能なDNSに問い合わせる。

ほかのCGIではgethostbyaddr使えてるんで
gethostbyaddrが使えないということではないようなんですけど…
サーバ(hi-ho)がちょっと特殊らしいんですけど、それが原因なんでしょうか。

>>155
Windows 95系だと32kの制限無かったっけ?
メモ帳とかもそういう制限あった気がする。

>>158
他のCGIはhi-hoに置いてホスト名取れてんの？
ならhi-hoのせいじゃなく、君の（CGIの）せい。

>>164
>ならhi-hoのせいじゃなく、君の（CGIの）せい。
やっぱりそうですよね…
あやしいとしたら、どのあたりが考えられるでしょうか。
もう自分の力ではわけがわからないので…
ちなみにCGIはefstatです。

>>163
たぶん、32K制限の理由はそれですね。
NN4.06のTEXTAREAを調べたら「Editコントロール」という
旧世代の部品を使ってた。

>>165
efstatのサポート掲示板で聞いてみたら？

BBSでメール記入欄に特定のことばをかくと題名とかテキスト文字の
色を変えるCGIスクリプトだれかおしえてくれませんか？

>>168
マルチポスト馬鹿は氏んでください
http://tako.2ch.net/test/read.cgi?bbs=perl&key=989925275&st=14

>>43
超亀レスすいません。
あれからしばらくネット環境に居なかったもので。
教えて頂いてありがとうございました。

>>163,>>166
そういう事ですか。そういう仕様では仕方が無いですね。

掲示板にカウンターを取りつけたいと思ってます。
とりあえず、ここの
http://tohoho.wakusei.ne.jp/www.htm
この掲示板に
http://tohoho.wakusei.ne.jp/soft/wbord262/readme.htm
このカウンター
http://tohoho.wakusei.ne.jp/soft/wcnt311/readme.htm
をつけたいのですが、
<IMG SRC="wwwcount.cgi?gif" WIDTH=96 HEIGHT=18 ALT="Counter">
をwwwboard.cgiのどこに入れて良いかわかりません。
自分で考えて試してみたのですが、
自分で画像ファイルをどこかに入れたwwwboard.cgiをアップするとエラーが出てしまいます。
どうかよろしくお願いします。

>>172
中身は見てないけど、
<IMG SRC='wwwcount.cgi?gif' WIDTH=96 HEIGHT=18 ALT='Counter'>
に変えて試してみな。
ダブルクォーテーションの中ではダブルクォーテーションは使えないから。
使う方法もあるけど。

クッキー消し忘れ。
鬱。

ついでだからダブルクォーテーションを使う方法。
<IMG SRC=\"wwwcount.cgi?gif\" WIDTH=96 HEIGHT=18 ALT=\"Counter\">

バックスラッシュより

print qq{<img src="">};
print<<EOD;
<img src="">
EOD

の方が好きだ。

>>175
俺もその方が好き。
だけど改造もままならない>>172にはちょっと厳しいかなと思って。
もしきちんとわかってるならすまない。>>172

>>172
wwwboard.cgiの</h2>の下あたりに入れてみたら？

>>173-177
無事解決しました。
ありがとうございました。
根本的な「""」の間は「""」が使えない、という知識が欠落してました。

ド初心者＆教えて君ですみません。

見積＆発注cgiを書いています。

1ページ目：入力フォーム　->　post
2ページ目：見積書＆発注チェック　->　sendmail
3ページ目：発注完了メッセージ
という構成です。

1ページ目で、希望商品と発送先などのデータを取って、

2ページ目で、それぞれの商品に発注確認のチェックボックスを設けて、
print "<input type=checkbox name=item_1 value=on>口紅\n";
print "<input type=checkbox name=item_2 value=on>マスカラ\n";
print "<input type=checkbox name=item_3 value=on>マニキュア\n<br>";

その結果を、1ページ目：入力フォームで作った
read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'});
に格納してメール送信したいと考えていますが、
2ページ目のデータを$formdataへ追加する方法が判りません。

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

>>179
隠しフィールドを使って選択した商品を送信する

print qq{<input type="hidden" name="selected_item" value="$selected_item">};

>>180
ありがとうございます。
しかし、イマイチ判りません。

判らないことその１
print "<input type=checkbox name=item_1 value=on>口紅\n";
print "<input type=checkbox name=item_2 value=on>マスカラ\n";
print "<input type=checkbox name=item_3 value=on>マニキュア\n<br>";
から
print qq{<input type="hidden" name="selected_item" value="$selected_item">};
へどうやって変数の引継ぎをするのか？

判らないことその２
どこに
print qq{<input type="hidden" name="selected_item" value="$selected_item">};
を置くのか？
多分、
print "<a href=$filename?$formdata\&send=sendmail>\n";
print "<font size=5>この内容で注文する</a></font>\n";
の直前かと思うのですが・・・

よろしくお願いします。

>>181
逆に聞きたい。
２ページ目はformデータじゃなくて、アンカータグを使いたいのかい？
だとしたら>>180さんのやり方はできないよ。

２ページ目のデータも
print qq(<form method=POST action=$filename>\n);
print "<input type=checkbox name=item_1 value=on>口紅\n";
print "<input type=checkbox name=item_2 value=on>マスカラ\n";
print "<input type=checkbox name=item_3 value=on>マニキュア\n<br>";
print qq(<input type=submit value="この内容で注文する"\n);
print qq(</form>\n);
みたいにしないとデータは送信できない。

print "<a href=$filename?$formdata\&send=sendmail>\n";
print "<font size=5>この内容で注文する</a></font>\n";
このやり方だと、チェックボックスの意味がなくならないかい？

>>182
アンカータグには固執していません。
ただ、
print qq(<form method=POST action=$filename>\n);
を宣言しますと、
冒頭に、
if($QUERY{'send'} eq 'sendmail') { &sendmail; }
elsif ($QUERY{'action'} eq 'estimation') { &psge2; }
else { &page1; }
を設定してあるので、2ページ目から1ページ目に戻ってしまいます。
2ページ目でチェックボックスを選択した後は、sendmailにしたいのです。

ごめんなさい。自分でも説明になって無い気がします。
よろしくお願いします。

こんな感じかのー

#!/usr/bin/perl
use strict;
my @items = qw(item1 item2 item3);
my %page = (
page1 => \&start_page,
page2 => \&send_mail,
page3 => \&end_page,
}
parse_query(POST => \%q);

if($page{_stat}){
$page{_stat}->(\%q)
}else{
&error;
}

sub start_page{
&入力フォーム出力;
}
sub send_mail{
my $select = shift;
my $selectitem = join "&", @{$select}{@items};
print<<"**SENDMAIL**";
content-type: text/html;charset=$charset;

<title>発注確認</title>
<p>以下の内容で送信します。</p>
<form action="$filename" method="post">
<input type="hidden" name="selected" value"$selectitem">

<!--他、送信ボタンなど-->

</form>
**SENDMAIL**
}
sub end_page{
my $data = shift;
&メール送信;
&発注完了メッセージ出力;
}
__END__

>>183
print qq(<input type="hidden" name="send" value="sendmail">\n);
をフォームの中に入れたらいいんじゃないかな？

そうしたら$QUERY{'send'}にsendmailが入って、メール送信処理に行くでしょ？
違うのかな？

たくさんのヒントをありがとうございます。
基本的に182さんのでやろうかと思ってます。
さっき、
print qq(<input type="hidden" name="send" value="sendmail">\n);
をフォームの中に入れたらいいんじゃないかな？
をやってみたんですが、何故かエラーになるんです。sendmailすると。

184さんのも、「なるほど」と思うのですが、作り変える自信と理解が足りない気がします。
結果がでたらまたご報告します。
（トロイので時間かかりそうです。。）

>>182さん
エラーの原因がわかりました。
page1で格納された$formdataの最後部分に、page2で取得された変数を足して
sendmailしたいのですが、page2からPOSTするとpage1のデータがリセットされてしまいます。

何か良い解決法がありましたら教えてください。

>>187
foreach(keys %QUERY){
　　print qq(<input type=hidden name="$_" value="$QUERY{"$_"}"\n);
}
を<form></form>の間に入れてみそ。
余計なデータも多分入っちゃうけど。

$formdataをそのまま送りたいんだよね？
キミはどういうやり方をしてるのかな？
多分そのやり方がまずいと思うんだけど、もう少し説明をもらえるかな？

少しHTMLの勉強もした方がいいかもしれない。

>>188
自己レス。
記入ミスがあった。
foreach(keys %QUERY){
　　print qq(<input type=hidden name="$_" value="$QUERY{"$_"}">\n);
}

>>182さん
ごめんなさい。ずっと悩んでました。

foreach(keys %QUERY){
　　print qq(<input type=hidden name="$_" value="$QUERY{"$_"}">\n);
}
を<form>と</form>の間に入れてみたけど、エラーになってしまいます。

＞多分そのやり方がまずいと思うんだけど、もう少し説明をもらえるかな？
以下のように書いてあります。（perlです・・）
print "<form method=POST action=$filename>\n";
print "<font size=-1 color=red>必要な商品を選択してください（複数可）</font><br>";
print "<input type=checkbox name=item_1 value=on>口紅\n";
print "<input type=checkbox name=item_2 value=on>マスカラ\n";
print "<input type=checkbox name=item_3 value=on>マニキュア\n<br>";

foreach(keys %QUERY) {
　　print "<input type=hidden name=$_ value=$QUERY{$_}>\n";
}

print "<input type= hidden name= send value= sendmail >\n";
print "<input type=submit value=この内容で注文する\n";
print "</form>\n";


}
else {
print "<font size=4 color=blue>この内容で資料請求する場合は、前画面で連絡先を入力してください。</font>\n";
}

ご面倒かけます・・・

いや、$formdataをどう処理しているかを聞きたいんだけど。
こっちも聞き方悪くてスマン。

$formdataはきちんと%QUERYに分けられてるんだよね？
↓こんな感じで。
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
　　($key,$value) = split(/=/,$pair);
　　$QUERY{$key} = $value;
}


あと、
foreach(keys %QUERY){
　　print qq(<input type=hidden name="$_" value="$QUERY{"$_"}">\n);
}
をそのままコピペしてないよね？
見やすいように全角スペース使ってるから、そのままコピペしたら当然エラーが出るけど。

それと、キミの書き方を見ていると入力されたデータに関わらず
口紅やマスカラとかが選択されているようにも見えるんだけど、
その辺は抜かりないよね？


あとは・・・、なんだろう？
なんとなく基本的な部分がヌケてるように思えて。

＞いや、$formdataをどう処理しているかを聞きたいんだけど。
流れは以下のとうりです（長文ごめんなさい）。
#!/usr/local/bin/perl
require './jcode.pl';
#もろもろの初期設定
#データエリア
#クッキーを格納する名前を設定する
#===入力データの格納（$formdataに）======================
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'});
} else { $formdata = $ENV{'QUERY_STRING'}; }
#===入力データの分解〜不用文字列のデコード〜S-JIS変換〜連想配列に格納======
@pairs = split(/&/,$formdata);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\,//g;
&jcode'convert(*value,'sjis');
$QUERY{$name} = $value;
}
#===CGIが呼び出された条件によって処理を分岐=============
if($QUERY{'send'} eq 'sendmail') { &sendmail; }
elsif ($QUERY{'action'} eq 'estimation') { &psge2; }
else { &page1; }
#===入力画面を生成===========================
sub page1 {
$count = @DATA;
&html_head;
print "<form action=$filename method=POST>\n";
print "<input type=hidden name=action value=estimation>\n";
中略 もろもろ入力
print "<p><input type=submit value=試算書作成></p>\n";
print "</form>\n";　　　後略
exit;}
#===試算結果作成============================
sub psge2 {
&html_head;
中略　各アイテムの料金を計算させて、表示。
print "<form method=POST action=$filename>\n";
print "<input type=checkbox name=item_1 value=on>口紅\n";
print "<input type=checkbox name=item_2 value=on>マスカラ\n";
print "<input type=checkbox name=item_3 value=on>マニキュア\n<br>";
foreach(keys %QUERY){
　　print "<input type=hidden name=$_ value=$QUERY{$_}>\n";
}
print "<input type= hidden name= send value= sendmail >\n";
print "<input type=submit value=この内容で注文する\n";
print "</form>\n"; 　　　　　　後略
#===メールメッセージを生成========================
#===メール送信サブルーチン（&sendmail）====================

＞見やすいように全角スペース使ってるから、そのままコピペしたら当然エラーが出るけど。
？？直したつもりなんですが・・
上記のとおりです。

ホントにお手数かけます。

foreach(keys %QUERY){
　　print "<input type=hidden name=$_ value=$QUERY{$_}>\n";
}
を削除したらエラーが出ないよね？
それでもエラーが出るならエラーの原因は別。
（エラーが出る場合は、まず色んな所を削除してみて、
どこを削った時にエラーがなくなったかを調べるのが
原始的だけど確実。）


もし例の部分を削除してもエラーが出ないなら（そこに原因があるなら）
foreach(keys %QUERY){
     print "<input type=hidden name=$_ value=$QUERY{$_}>\n";
}
こう変える。
こうしてくれないとエラーが出る。
全角スペースと半角スペースの違いはわかるよね？
タブを使うとＨＴＭＬでは表示されないから、俺が全角スペースを
使ってたんだけど、gun_zipさんみたいに&nbsp;使った方が
良かったな。
打ち込み面倒だから全角スペース使ってたんだ、悪かった。

それ以外の部分についてはあまり問題を感じない。
（わざわざダブルクォーテーションを使う理由はわからないが）

少なくともそれをコピペして（一部修正して）試した所、
こっちではエラーが出てないんだけど、そっちでは
どんなエラーが出てる？

まず自分で色々試してみてくれ。
こっちは全貌が見えないんだ。
デバッグの基本は色々試す事。
人に聞くのもいいけど、もう少し色々自分で試してみてくれ。
色々やって手の打ちようがなくなったら、検索サイト行き。
それでもどうしてもダメなら人に聞く。
それが一番勉強になるしね。

自分の教え方の悪さを棚上げしてこれってのもなんだけどね。
むしろ俺が何か大きな勘違いしてるような気すらしてきた。
手間かけさせて悪い。

はじめまして
THE　ROOMのアクセスランキングで難しくてわからないことがあるので教えていただけませんか？Ranking Link Ver.1.70のcgiですが、管理人ページの登録情報表示（sub list1）で頭文字でsortするのではなくアクセス数でsortして表示するようには出来ないものでしょうか？

１．THE ROOMとやらのそのアクセスランキングを
　　検索してソース落として回答して検討してくれる親切な人が現れるのを待つ

２．そのアクセスランキングを偶然知っていて
　　検索してソ(中略)親切な人が現れるのを待つ

s/回答/展開/

>>194
ソートの処理を行ってるサブルーチンを探して、頭文字にあたる変数
をアクセス数にあたる変数に入れ替えてみる。

>>182さん
できました。

＞もし例の部分を削除してもエラーが出ないなら（そこに原因があるなら）
foreach(keys %QUERY){
print "<input type=hidden name=$_ value=$QUERY{$_}>\n";
}
こう変える。


この部分が原因でした。
次回お会いしたときは、もっと成長してるよう、頑張って勉強します。
ありがとうございました。

>>194
まずはその配布スクリプトの配布元ＵＲＬをみんなに教える。

194です。いきなり失礼しました。ＵＲＬはこちらです。
http://dream.lib.net/room/cgi/e_ranklink.html
のrl_admin.cgiのサブルーチンのlist1です。
197さんへ
ID.datファイルをソートして表示するようなので、アクセス数にあたる変数にいれかえてみてもうまくいきません・・・

すみません、お知恵を貸していただきたいのですが。
http://www.geocities.co.jp/Bookend-Akiko/3814/newspro/newspro_cgi.txt
という海外スクリプトで日本語を扱えるようにしたいのです。
たぶん、line 754-915のあたりで
　$value =~ tr/+/ /;
　$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
みたいなデコードのサブルーチンを加えればいいのだとは
思うのですが、どこにどう加えたらいいのかがわかりません。

基本的には、フォームから入力したデータをnews.txtに吐き出し、それをSSIで
表示するというニュースサイト構築用のスクリプトなんです。
(http://www.amphibianweb.com/newspro/)
今まで日本語のスクリプトしか扱ったことがない初心者なのでお手上げ状態です。
ヒントだけで構いませんので、光を与えてください。

日本語の処理が特別なのは"異なる文字コードが混在している可能性があるから"
であって、その"$value =~ tr/+/ /"などの処理とは無関係だぞ。

>>201
nplib.pl の 180行目あたり見れ。

素早いレスありがとうございます。
私がデコードと思い込んでいたのは>>202で指摘されているようにただのURLエンコードで、
それは>>203で指摘されているようにライブラリで既に実行されている、と。
http://www.geocities.co.jp/Bookend-Akiko/3814/newspro/nplib_pl.txt

結局問題は、フォームから日本語で「テスト」と入力すると、news.txtには
&#12486;&#12473;&#12488;
と出力されてしまうのです。これがUnicode番号による数値実体参照だとろいうところまでは
わかったのですが、これはどうやったらEUCやShift_JISになるのでしょう。

やっぱり私ごときのレベルじゃ無理なのかな・・・

>>204
数値実体参照→数値文字参照です。逝ってきます…

>>205
そういう情報はとっとと出しましょう
#!/usr/bin/perl
use 5.6.0;
use Jcode;
$str = '？？？';
$str =~ s/？(\d{5});/pack('U*', $1)/eg;
print Jcode->new($str)->sjis;
__END__

ｹﾞﾊ(;´Д`)
$strの中身が化けてしまったが、文字参照ね。念の為。

>>201
とりあえず、print "Content-type: text/html\n\n";
のところを、
print "Content-type: text/html; charset=x-euc-jp\n\n";
みたいにしてみたら？

>>208
(ﾟДﾟ)ﾊｧ?
まだx-euc-jpを薦める奴なんて居たのか…(驚)

>>209
ご、ごめんなさい間違ってたみたいですね。
EUC表示使ってないので…
正解はEUC-JPですか？

>>206
ええと、これをテキストファイルにコピーして拡張子を.plで保存して、それから
どうすればいいんでしょう。あとこれってJcode.pmが必要なんじゃないんでしょうか。
$strの中身が化けたとのことですが、化ける前が推測できません・・・

教えてチャン厨房ですみません。もう少しだけお付き合いください。

>>210
正解

>>211
化ける前のは"テスト"を数値文字参照化させたもの。
>>204に書いてあるやつな。つーかそれ以外に何がある？

で、"use Jcode"と書いてあるからには当然Jcode.pmが必要
use 5.6.0は不要かもしれん


関係ないが質問に答えてほしければageろや。
sageで書いて無視されても文句いえねーぞ。

>>212
わーごめんなさい。

結果報告です。
あれからJcode.pmを落としてインストールし、nplib.plの186行目以下に

use 5.6.0;
use Jcode;
$value =~ s/＆#(\d{5});/pack('U*', $1)/eg;
$value = Jcode->new($value)->sjis;

を付け加えて、An HTTPD上で実行したら成功しました！
皆様のご指導の賜物です。本当にありがとうございました。

が。ローカルで成功したもののサーバーに載せたらやはり動かない・・・
Jcode.pmがないって言われてしまうんですが、これはサーバーにインストールするしか
ないのでしょうか。jcode.plと勝手が違うので戸惑ってます。

>>213

Telnet可能ならJcode.pmのインストールも出来るだろ。
ちょいと古いがモジュールインストールの参考サイト
http://x68000.startshop.co.jp/~68user/net/ext-module.html

age

フォームでMETHODがPOSTのとき何が送られてるんですか？
サンプルで教えてください。

>>216
当然フォームに入力された内容が送られる。
↓に適当なFORMからPOSTで送信してみれ
----------------------------------------------
#! /usr/local/bin/perl
my $query;
read STDIN, $query, $ENV{CONTENT_LENGTH};

print "Content-Type: text/plain\n\n";
print $query;

>>216
当然フォームに入力された内容が送られる。
↓に適当なFORMからPOSTで送信してみれ
----------------------------------------------
#! /usr/local/bin/perl
my $query;
read STDIN, $query, $ENV{CONTENT_LENGTH};

print "Content-Type: text/plain\n\n";
print $query;

なんで２重投稿になるんだ？

cwd()･･･最も安全,'pwd'と等価
getcwd()･･･getcwd(3),getwd(3)を再実装
fastcwd()･･･chdirで戻って来れないようなディレクトリにchdirする可能性があるので
最も危険。

と本に書いてありますが、fastcwd()がどの位の危険性があるのか教えてください。

i-mode用のCGIを、i-modeシミュレータで
テストしながら作ってるんですが、i-modeの
CGIって出力する時は必ずContent-lengthを明示
しなくちゃならないんですか？

あと、i-modeだと入力フォームの中に
半角スペースが入ると、スペース以降の入力は
無視されるってホントですか？

>>216
たとえば名前と年齢を入力するフォームがあった時、
GETメソッドだと、サーバーには

GET /test.cgi?name=yamada+tarou&age=20 HTTP/1.0
Referer: tekito.html
User-Agent: tekito

こんな感じで送られる。POSTで送ると

POST /test.cgi HTTP/1.0
Referer: tekito.html
User-Agent: tekito
Content-length: 24

name=yamada+tarou&age=20

こんな感じ

複合検索のやり方をおしえて！！

/$pattern1/ and /$pattern2/ and /$pattern3/

>>223 そんな抽象的な質問では答えようがありません。

カテゴリーA(選択肢3つ）　カテゴリーB(選択肢5つ）　カテゴリーC(選択肢5つ）

複合検索。

1.Aからひとつ選択。→検索→結果表示
2.Aからひとつ選択。さらにBから1つ（ここで絞り込み）→検索→結果表示（1よりも絞りこまれた）
3.さらにこんどはCからも。するとさらに絞りこまれた検索結果が。

というような。アタマ爆発しそうです助けて。

1.Aからひとつ選択。→検索→結果表示 (ついでにhiddenで必要な情報をを出力)
2（hiddenの情報に加えて）さらにBから1つ（ここで絞り込み）→検索→結果表示(ついでにhiddenで必要な情報をを出力)
3.（hiddenの情報に加えてさらにこんどはCからも。するとさらに絞りこまれた検索結果が(ついでにhiddenで必要な情報をを出力)

201です。結局、Jcode.pmはインストールできませんでした。
ほとんど途中までは
http://orange.ep.sci.hokudai.ac.jp/~dongury/gontamrr/Jcode.pm.memo.txt
と同じ工程をたどったのですが、MIME-Base64のインストール中に「権限がない」と
言われてそれっきり。共用レンタルサーバでroot権限なんてないよう。

しかし、もうこれ以上はCGIとは関係のない相談になりそうなので、ここらで「済み」と
いたします。今回はいろいろ初体験ができて、いい経験になりました。
最後になりましたが、ご助言いただいた方に深くお礼申し上げます。

ebicounter 使ってたんだが、なぜか、remote_host が取得できなくなった。
web_analyzer の方は、ちゃんと取得できてる。
xylog 試しに入れてみたが、これもリモホが取れてない。
他の時間、リファラー、UAなんかは取れてる。
自分でperl と Apach の仕組みを全部勉強して理解してからソースを見れば解決するだろうけど、2年くらいかかるだろう。
それまでの間、リモホが見れないとなると鬱だ。

>>228
makeの引数に何か指定すれば個人のディレクトリ内にインストールできるはず。

>>229
リモホを取得するにはちと負荷が掛かるんだよ。
取れなくなったのはその鯖の管理会社の判断だろう。

>>229 .htaccess に
HostNameLookups on
って入れてみ。

>>231
アドバイスありがとうございます。
実は、2,3日前に、そのプロバイダーのサーバーの移転工事があったんで、それと何か関係があるのかなーと少し考えてました。
不思議なのは、web analyzer では、きっちりリモホが取れているのに、ほかのcgiなどでは取れなくなったことです。
web analyzer とほかのプログラムの間に、リモホを取得する方法になにか違いがあるのだろうと思いますが、それを理解するのに2年くらいかかりそうです。

>>232
アドバイスありがとうございます。
.htaccessだったら、おそらく1週間くらい勉強すれば設置できそうです。
そのコマンドは、たぶん、リモホを強制的に取得する呪文ですね？
うちのサーバーは、indexes を設定しようとしたときに、なんとかのオーバーライドはできない、って言われたので、その制限にひっかからなければいいんですが。
とにかくやってみます。
ありがとうございます。

今、少し検索してみました。
http://www.rfs.co.jp/server/apache/07.html

「Apache 1.3では、HostnameLookupsの初期設定はOff。
この設定だと、DNSルックアップによる余分な処理がなくなるから、HTMLファイルが表示されるまでの時間がぐっと短くなる。」

とあります。
つまり、サーバー移転の際に、アパッチの設定を初期状態に一回戻したのではないかと。

>>230
わーんあきらめかけてたのにー。ありがとうございます。

上手くいきました。>>214のサイトをもう一度読み直して、CPAN経由で個人ディレクトリに
インストールできました。ホントに楽だった。
が、今度は「パスが通っていない（@INCにない）」と言われてしまい途方にくれてます。
ちなみにcgiが返した@INCの現在の要素は、
/home/（アカウント名）/html/****/newspro
/usr/lib/perl5/i386-linux/5.00404
/usr/lib/perl5
/usr/lib/perl5/site_perl/i386-linux
/usr/lib/perl5/site_perl
で、Jcode.pmがインストールされているディレクトリは
/home/（アカウント名）/p5-module/
なんですが、これって
push(@INC,"/home/**_**/p5-module/");
という一文をnplib.plかnewspro.cgiのどこかに付け加えるだけじゃダメなんでしょうか。

やりたいことに近づいてるんだか遠ざかってるんだか…遠い道のりだなぁ。

age

>>365
いや近づいているよ。ｶﾞﾑﾊﾞﾚ

@INCパスを通す方法

1. BEGINブロック内で@INCをいじる( BEGIN{ push @INC, '/home/hoge/perl5lib'; } )
2. use libプラグマを使う( use lib '/home/hoge/perl5lib'; )

>>237
ありがとうございます。2のuse libで対処し、無事パスは通りました。
が、今度は「Uってなんじゃいボケ」とか言われています…
(Untrapped Error: Invalid type in pack: 'U' at nplib.pl line 192.)

どうも、
$value =~ s/？(\d{5});/pack("U*", $1)/eg;
のことらしいんですが、確かに今日参考書籍スレを見て買って来た
「ＣＧＩ＆Ｐｅｒｌポケットリファレンス」のpack関数の型指定文字列には
大文字のUはないんですよね。ローカルでは動いたくせに。

>>238
Uが使えるのはPerl5.6以降でなかったっけ？
日本語だけなら"U"の部分は"n"で代用できないかな？
できないかも。

ISP に質問メールを出しておいたら、今日返事が返ってきました。


「最近、アクセス解析で、リモートホストが取れなくなったプログラムがあるのですが、サーバー側では特に何も設定とかはいじってないですよね？」

「申し訳ありません。
サーバー側で Hostname Lookup を off にしております。
サーバーの負荷軽減のための措置ですので、ご理解くださいますよう、お願いいたします。」

それならそれで、連絡くらいしてほしかったなあ。
こっちは CGI の不具合かと思って、再インストールしたり、他の CGI 入れてみたり、5時間くらい悩んだんですよぉ〜。

ところで、サーバー側でoffにされていても、ユーザーが個人で .htaccess で on にしたら、そっちのほうが強いんですか？

>>239
うぃ、その通り。
212を書いた直後に気づくものの、書いてなかった。

よって「use 5.6.0は不要かもしれん」の一文は不適切だったな。スマソ

>>240
その話題多いね。
実は俺のとこもそうだし(笑)
一斉にやってんのかな？

質問はわからないのでsage
試しにやってみたらどうよ？

$host = $ENV{REMOTE_HOST}

を

$host = gethostbyaddr(pack("C4",split(/\./,$ENV{REMOTE_ADDR})),2) or $ENV{REMOTE_ADDR};

に変えれば済むんだから、鯖側が嫌がることは止めとけば？

>>239
＞Uが使えるのはPerl5.6以降でなかったっけ？
ああ納得。ローカルにインストールしたPerlは5.6でしたから。
（>>212を読んでuse 5.6.0はコメントアウトしてました）

やっとあきらめがつきそうです。
結局cgiは動かなかったけど、Perlのことが少しわかったことは大きな収穫でした。
これから勉強して、いつの日か自分で動かせる日が来るのを待つことにします。
つまらない質問にお付き合いいだだき本当にありがとうございました＞ａｌｌ

最近CGIを勉強しはじめたのですが
静的なHTMLの中にラジオボタンが数個あり
選択されたラジオボタンごとに
ジャンプさせる先を
CGIで制御するにはどうしたらよいのでしょうか？
また、未選択だとエラーページを表示したいんですが

use CGI qw/:noxhtm :standard/;
SELECT: foreach (CGI->new->param('radiobutton')){
        lc eq 'a' and print redirect('page_a.html');
        lc eq 'b' and print redirect('page_b.html');

        print redirect('error.html');
}
print   header(-charset => 'Shift_JIS'),
        start_html( -title => 'hoge', -lang => 'ja'),
        h1('何か選択しろ'),
        # フォームをごちゃごちゃと
        end_html, "\n";
__END__

246さんのお答えに
数項目にそれぞれ数個のチェックボックスが数個付き
チェックボックス自体はどれを選択しても
ジャンプ先には関係ないのですが
（実際はラジオボタンだけが振り分けるようになっていて）
各項目未選択だとエラーページにて
その未選択な項目を提示したいのですが？
どうすればよいのでしょうか？

>>247
そいつをJavaScriptで実装してｱﾌﾟするとかしたらどうよ？
そうすれば的確な回答が得られる確率が跳ね上がると思うぜ。

ISP に質問したところ、
「すべての項目に対し、オーバーライドは認めていない」
と言われた。
終わったな。

できればi-modeで使えるようにしたいので
CGIで制御したいのですが

>>250
Perl言語の前にまず日本語を理解できるようになってから出直してください

ですがですがｳﾙｻｲのですが

>>247 さん
すみません、誤解していました。
http://www.geocities.com/sayapion/
にJavaScriptで実装してアプしました。
完全ではないけど
エラー表示はCGIでは未入力の項目を動的にHTMLで出力し、
全てチェックされた状態で送信ボタンを押すと
各項目の確認画面を出してから、選択された項目のページへ
ジャンプする（振り分けはチェックボックスのみ）したいです。
よろしければ、ご指導よろしくお願します。

自分に「さん」付けるな。

#!/usr/bin/perl
use CGI qw/:noxhtml :standard/;
@ISA = qw(CGI);
use strict;

=pod

form部分はこんな感じ
    <form action="$0" method="POST">
      <div class="a">
        <input type="checkbox" name="a-1" value="true">
        <input type="checkbox" name="a-2" value="true">
      </div>
      <div class="b">
        <input type="checkbox" name="b-1" value="true">
        <input type="checkbox" name="b-2" value="true">
      </div>
      <div class="c">
        <input type="radio" name="c" value="1">
        <input type="radio" name="c" value="2">
      </div>
    </form>

=cut
my @a = qw(a-1 a-2);
my @b = qw(b-1 b-2);

my $form = new CGI;

$form->is_checked(@a) or &error('a');
$form->is_checked(@b) or &error('b');
$form->param('c')   or &error('c');
#checkbox-a, checkbox-bの値を元に処理をする

$form->c();

sub is_checked{
    my $q = shift;
    my @names = shift;
    local $_;
    my $i;
    foreach (@names){ $q->param($_) and $i++; }
    return $i;
}
sub error{
    my $error_type = shift;
    #エラーメッセージを出力
}
sub c{
    my $q = shift;
    my $c_value = $q->param('c');
    #c_valueの値を元に結果のページを出力
}
__END__
・A項目(@a)の何れかが真であることを確認する さもなくばエラーa
・B項目(@b)の何れかが真であることを確認する さもなくばエラーb
・C項目が真であることを確認する さもなくばエラーc

・Cの選択によって出力内容を変える

CGIでのハイパーリンクについての質問です。
良く、自動登録の出来るリンク集などが有り、その場合、logフォルダーの中に、データファイルが1個ずつ増えていきますね。

ここからが質問です。
logフォルダーの中のデータファイルを、001.log、002.logと言うように増えていくファイルの中の、一番最後のlogデータファイル(一番数字の大きなもの)の数字を読み取り、そのlogファイルの数字に1足したファイル(その時点ではまだ存在しないファイル)にハイパーリンクを張ることは可能でしょうか？

要するに、logファイルが、001.log、002.logしか無い場合、003.logファイルにアクセスしたいのです。

どなたか教えてください。

#!/usr/bin/perl
use IO::Dir;
my($l) = sort{ $b <=> $a } map { (/(\d+)\.log$/) } IO::Dir->new('LO_DIR')->read;
print ++$l, "\n";
__END__
>>256

cool :-)

>>255さん
CGIとして操作させるにはこれだけでよろしいのでしょうか？
色々試してみたんですけど、駄目みたいです。
で、ラジオボタンの部分(c)はどうやって別のHTMLファイルにジャンプ
するようにしたら良いのでしょうか？

>>259

もちろん>>255だけじゃなにも起きないだろうよ。
入り口のページを用意しなきゃいけないし
飛んだ先のページも用意しなきゃいけない。

>>255がやっているのは、

　項目Aと項目Bがそれぞれ最低一つチェックされていることを確認して、
　かつ、項目Cもちゃんと選択されている事を確認する

それだけだからな。
全て書くとなると

続き

全て書くとなると、長くなりすぎるしウザイから、
残りは自分でやってみてくれ。

「ここをがどうしても分からない」ってのならそう書きゃまた誰かが何とかしてくれるさ。

あるUP板を設置しようとして、
説明書通りにパーミッションも設定したのに、

Wrire Error
count.dat書き込みできません。

todemasu.
何故でしょう？

>>262
そんな妙なエラーメッセージを出されても困る。
$!を出力してくれ

>>263
どういうことでしょう？

書き忘れましたが、freewebでHPを作成しています。

書き忘れましたが、freewebでHPを作成しています。

二重投稿・・鬱だ・・

>>267
ディレクトリのパーミッション書いてみろ

+ board.cgi (705)
+ delete.pl (705)
+ info.pl (705)
+ index.pl (705)
+ jcode.pl (705)
+ lib.pl (705)
+ regist.pl (705)
+ revise.pl (705)
+ search.pl (705)
+ view.pl (705)
+ vip.pl (705)
+ write.pl (705)
+ count.dat (606)
+ アクセスログファイル (606)
+ (707)
+ 中身は空です。
+ (707)
+ 中身は空です。

です。

>>269
count.datが入ってるディレクトリのパーミッションはどうよ？

>>270
まさにそれが原因でした。
どおうもありがとうございました。

>>257さん
すいません説明不足。

logフォルダーの中のデータファイルを、001.log、002.logと言うように増えていくファイルの中の、一番最後のlogデータファイル(一番数字の大きなもの)の数字を読み取り、そのlogファイルの数字に1足したファイル(その時点ではまだ存在しないファイル)にハイパーリンクを張ることは可能でしょうか？

要するに、logファイルが、001.log、002.logしか無い場合、003.logファイルと言う有得ないファイルにハイパーリンクを張りたいのです。

ttp://123.~abc/arienai.cgi
とし、logファイルも同じフォルダーに置いた場合で、
arienai.cgiの中に、
$new = sprintf("%03d.log", &count() + 1 );
<A HREF="ttp://123.~abc/$new">有り得ないページ</A>
とした場合、ttp://123.~abc.003.logにアクセスできるでしょうか?

>>272
説明不足も何も無茶苦茶じゃねーか。
ハイパーリンクがどう関係するんだ？

有り得ないページにアクセスしたことあんのか？
普通はブラウザが落ちたりせず、NotFoundページにアクセスできるだろうが（藁

そいつを好きなフィアルにする事はもちろん可能だが、
そんなことしてしてどうする気だよ？
必要ならその場で作れば良いだろ。

s/フィアル/ファイル/

>>257さんへ
別にブラクラを作りたいわけではなく、NotFoundを出したいわけでも有りません。
と言うより、大きな間違いに気付きました。
存在しないファイルにアクセスするのではなく、
たとえるなら、ひとつの書き込みごとにIDをつけ、ひとつのlogファイルに保存します。
書き込みの時のID番号と、logファイル名を同じにし、
新しい書き込みをする場合、
logファイル内のまったく新しい(存在しない)IDに直接アクセス(リンク)したいのです。

要するに、Yahoo!の掲示板のように、書き込みボタンをクリックすると、一度、logフォルダー内のファイル数を数え、そのファイル数に1を足した因数を導きだし、<A HREF="ttp://123.~abc/bbs.cgi?id=$因数">書き込み</A>

としたいのです。
この質問てやっぱり超〜初心者?

(ﾟДﾟ)ﾊｧ?
それなら、
書き込みボタンがクリックされた時にlogディレクトリの中のファイル数を数え、
そのファイル数に1を足した因数を導き出せばいいだろ。

>>257さん
そのやり方が解りません。
スクリプトを教えてください。

↑

ネタ。

ageとくか

sage ながら失礼します。

>>277 さん
解決するにあたって，非常に簡単な方法があります。
  1. www.google.com で "opendir" を検索します。
  2. およそ30万件ヒット。
  3. がんばってください。

教えて下さい。

$room = $in{'room'};

これの意味を。
この一行が原因でエラーが出ます。
どういう時に、こんな一行が原因でエラーが出るんでしょうか？

>>281

・$roomはtieされているが、STOREメソッドが存在しない
・$in{room}はtieされているが、FETCHメソッドが存在しない
・$roomに何かオブジェクトが入っていて、代入によりDESTROYが発生。
　そしてそのDESTROYが例外を発生させる。

・use strictの元で、$roomはvars/our宣言されていないグローバル変数である

ありがとうございます。ただ、意味がまったく、わかりません、、、、(^_^;)
小生、Perl歴１年。ただし改造がメインで、基礎ガタガタ。

で、$in{'room'}; これって、ハッシュなんですかね？

＞・$roomはtieされているが、STOREメソッドが存在しない

tieとは？
対応づけのことですか？

＞・$in{room}はtieされているが、FETCHメソッドが存在しない

FETCHメソッドとは？　そもそも FETCHとは？(^_^;)

＞・$roomに何かオブジェクトが入っていて、代入によりDESTROYが発生。
＞ そしてそのDESTROYが例外を発生させる。

これも意味が、、、(^_^;)

＞・use strictの元で、$roomはvars/our宣言されていないグローバル変数である

use strictとは？
vars/our宣言されていないグローバル変数とは？

基礎的なこと？ばかりでスミマセン。
で、これらの場合、どうすれば、解決できるんでしょう？

>>284
まぁ>>282はネタだ。tieを使ったCGIスクリプトなんて聞いた事無いな。
ただtieはPerlの非常に面白い部分の一つなので興味があったら調べてみるといい。

しかしPerl歴1年でuse strictを知らないというのは如何なものか。
use strictとは危険な構文、曖昧な構文を制限するプラグマだ。
vars/ourはそれに関係するが書くと長くなるので自分で調べな。

で、今回の件はどちらも違うようだな。
$room = $in{room}
の一文だけでは分からない。
CGIスクリプトならKCatch.pmを使ってみろ
http://www.kawa.net/works/perl/catch/news.html

L-mode対応ページを製作してるんですが
一般ページと分けるたけのREMOTE_HOSTではんだんしてるのですが
HOSTどんな感じになるかわかりますか？
*.pipopa.ne.jpってかんじでしょうかね？

1. 「&amp」は「&」に変換
2. ただし「&amp;」はそのまま
というのをエレガントに書く方法はありますか?

※かちゅ〜しゃの人はブラウザで見てください

s/&(?!;)/&;

スマン変換された上に間違えた;
s/&amp;(?!;)/&/g;

>>289
s/&amp(?!;)/&/g;
でうまくいきました。産休

※例によってブラウザで

CGI_Lite でテキストは送れんのに、バイナリができん！
スイッチなのか？　教えてくれ〜。　アクチブパール6 なんだけど。

人に物を尋ねる前にそのふざけた態度を何とかしたらどうだ

>>292 激しく同意

出来たでいいわ。　教えて師匠気取りになってんじゃ
ねーぞ。　ゴルルルルァ！！

>>287-290

やってみましたよ。
http://green.jbbs.net/computer/bbs/read.cgi?BBS=20&KEY=985954204&START=400&END=400&NOFIRST=TRUE

400 名前： 倉庫番 投稿日： 2001/06/13(水) 21:39

古い方 http://corn.2ch.net/entrance/kako/991/991902157.html
新しい方(test)
http://corn.2ch.net/entrance/kako/test/991902157.html

で、直ったかな?

>>295
あ、わざわざ出張ありがとうございます。
サーバ監視所のほうにも書きましたが直ったみたいです。

CGIがユーザ権限で実行されるサーバを借りました。
が、ユーザ権限で動作するためか、
環境変数REMOTE_ADDRがサーバのIPになってしまいます。
アクセス者のIPアドレスを得る方法はないものでしょうか。

$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);
これ試してミソ

#!/usr/bin/perl
$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);
print"Content-type: text/html\n\n$host";
__END__

あれ？質問の意味取り違えた。ごめんちゃい

どもです。
上手くいったようです。ありがとうございました。

超初心者なのですが、失礼します。
$test{'test1'} = "a";
$test{'test2'} = "b";

$verd = 1;
foreach(0..$verd){
print "$test{'test$verd'}";
$verd += 1;
};
で、処理結果がabになるようにしたいのですが、どうやってもうまく行きません。
どうすれば上手くいくのか、よければ教えてもらえないでしょうか？

>>302
$test{'test1'} = "a";
$test{'test2'} = "b";

$verd = 1;
foreach(0..$verd){
print qq($test{"test$_"}); # ダブルクォーテーションじゃないと変数展開がされない
}

なるほど…そうするのですか。
303さん、どうもありがとうございました。

昨日かんたんperl/cgi入門という本を買い
初めてCGIを勉強しはじめたど素人なんですが
９行目付近が間違っていると
perlチェッカーで出るのですがさっぱりわかりません
どう間違っているのかご指摘いただけませんでしょうか
よろしくお願いいたします

#!/usr/bin/perl/

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>げすとぶっく♪</title>\n";
print "</head>\n";
print "<body bgcolor="#FFFFFF" text="#000000">\n";
print "<CENTER>\n";
print "<p>\n";
print "<font size=2 color=white>げすとぶっく♪</font>\n";
print "<br>\n";
print "<font size=1 color=white>あしあとぺたぺた</font>\n";
print "</CENTER>\n";
print "<HR>";
print "(半角カナは使用しないでね♪)\n";
print "<form method=\"post\" ACTION=\"guestbook.cgi\">\n";
print "<font size=1 color=white>あなたのお名前:</font><INPUT NAME=\"name\" TYPE=\"text\" SIZE=30><br>\n";
print "<font size=1 color=white>Eめーる:</font><INPUT NAME=\"email\" TYPE=\"text\" SIZE=40><br>\n";
print "<font size=1 color=white>こめんと:</font><TEXTAREA cols=40 ROWS=4 NAME=\"comment\"></TEXTAREA><br>\n";
print "ほーむぺーじ:";
print "<INPUT NAME=\"url\" TYPE=\"text\"VALUE=\"http://\"SIZE=40<br>\n";
print "<INPUT TYPE=\"submit\" VALUE=\"かきこみ♪\">\n";
print "</form>\n";
print "</body>\n";
print "</html>\n";

_END_

>>305
ヒアドキュメントが載っていないような本は捨てましょう。

print <<EOD;
Content-type: text/html

<html>
…
</html>
EOD
__END__

>>305
print "<body bgcolor="#FFFFFF" text="#000000">\n";

この行を見て何も感じない不感症なキミは逝ってよし

>>305
エディターを変えればわかるかも。

誰も一行目と最終行には突っ込まないのナ（ｗ

>>306さん
こんな方法があったのですね！
昨日検索かけてたくさん調べてみました
凄く便利なので使わせていただきます！

>>307さん
大文字小文字が混じってて気持ち悪いと言うことでしょうか？

>>308さん
今はＥＭエディターで拡張子をいちいちtxtからcgiに変えてやっているので
秀丸エディターに変えてみます

>>309さん
えっと最初の行はサーバーに合わせて書いたつもりなのですが
おかしいのでしょうか？
最後は__END__でよろしいでしょうか？

初歩的なことですいません

print "<body bgcolor="#FFFFFF" text="#000000">\n";
　　　　　　　　　　　　　↓
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";

>310
ヒアドキュメントにすると通るので、なんで通るのか考えてみよう。

>>310
『\』の使い方も載ってないのにホントに入門本なのか？

>かんたんperl/cgi入門
ここが今日のポイントだ。試験に出すから覚えとけよ〜。

>>311さん
ご丁寧にありがとうございます
\が抜けてたんですね、本に書いてある通りではなく
そこは少し自分で変えていました
本にはprint "<body bgcolor=WHITE>\n";とかいてありました
私のミスだと思います。

>>312さん
ヒアドキュメントにすると通るわけですね
調べてみます、結構丸暗記でやっているので
理解しながらやった方がいいですよね。

>>313さん
はじめての人のためのと書いてあったので買いました
\の使い方はいまいち私がまだわかってないだけだと思いますので
じっくり勉強します。

>>314さん
はっはぁ・・・

其の本には最初の行について何て書いてあったのか知りたい気がする

あと、\がたくさんついてると気持ち悪いのは俺だけか
最初はしょうがないかもしれないけど

わかりやすそうな解説だったのですが
とりあえずこの本に書いてあることぐらい
簡単に理解できるように頑張ります
ちなみに間違っている点は
一番最初の行の#!/usr/bin/pirl一番最後につけていた/の
ためにエラーが出ていたようでした
皆様いろいろご指導いただきありがとうございました

>>315
Perlは色々な書き方があるから、本屋とかで立ち読みして見比べたら良いかと。

>>317
率直に言おう。"" の中で "" を使うとエラーになります。
' (シングルクォート)と使いわけよう。

>>318さん
はい、いろいろと読み比べてから本は買うようにします
いろいろありがとうございました

>>319さん""の中で""を使うときは'を使い分けていくわけですね
では\を使って""の中に""を使うやり方は違うのでしょうか？
それともこれでも良いのでしょうか？
とりあえずいろいろ調べてみます！

Win2K+Apache+ActivePerl でサーバを立てようと思っているのですが、
Perlだけなかなか正常に動いてくれません。
cgi実行すると「Internal Server Error」が出てしまいます。

DOSプロンプトから直接実行は問題ありませんでした。（>perl test.cgi）

cgiスクリプトの１行目のperlパスの指定も間違ってません。
(#!D:/Server/Perl/bin/perl ←インストールディレクトリ)

でもApacheエラーログでは、
malformed header from script. Bad header=test: d:/server/apache/cgi-bin/test.cgi
と１行目が間違ってるという風に言われます。

httpd.conf の設定も大丈夫だと思うのですが・・・

ほかにどのような原因がありうるでしょうか？
お助けくだされ・・・。

ヘッダの出力が間違っている。

>>322
むむっ！！もう少し詳しく教えてください。

header＝HTTPヘッダが変、もしくは無いってことだと思います。

>>324
どうもです。でもまだ分からない（ｗ
もう少し教えてください。
具体的にどこをどのように見直すべきですか？

＞Perl初めて
悪いが君はプログラムに向いてないのかもしれない。
もちろん努力すれば何とかなるけど、今の態度を見るにあまり期待も出来ない。

""の中になぜ"を使ってはいけないか？
考えてみなさい。
print "a"b";
とあって、printは
全体の""の中身であるa"bをprintするべきか
最初の""の中身であるaをprintするべきか
最後の""の中身であるbをprintするべきか。
どれだと思う？
答えは２番目だ。

最初の"からその次に現れた"までを""の中身と判断する。

ではそうなったらb"はどうなるか？
どうにもならない。
ただb"って書いてあるだけとしか思ってくれない。
そしてそれは構文になっていない。
結果として構文エラーになる。

\"を使うのは「これは"の終わりではない文字列としての"ですよ」という目印だ。
print "a\"b";
と書けば、真中の"は文字列として認識されるから、そこで"が終わらない。
つまり、そういう事。
'を使えば大丈夫なのも、「"から"まで」という認識の邪魔をしないからだ。

これは「知ってなきゃわからない」事かもしれないが、「考えてわからない」事じゃないと思う。
それを考えてわからないなら、君はそのセンスがないのかもしれない。
もしPerlを本格的にやりたいなら、センスを磨きな。

長文スマソ。

>Perl初めて
http://script.lovely.to/bbs/infolng.cgi?print+200106/01060024.txt
今後はマルチポストはやめるように

それでもヒアドキュメントを使わないその根性に脱帽（ｗ

>>325
print "Content-Type: text/html\n\n";
こういう出力をしてないとか、ケツの改行が1個しかないとか。

>>305
これ見てﾜﾗﾀ

　　　　　　ﾊﾞｰｶ
　　ﾆﾄﾞﾄｸﾝﾅ!ﾍﾟｯﾍﾟ!!
　　　　　　　　,, .: 。
　　 ＼( ﾟ´3ﾟ)- = 。 ﾟ
　　　（ 　　）` :: .
　　　ノ　＼

gethostbyaddr()でホスト名を取得しようとしているのですが
うまくいきません。（IPアドレスが表示されます）
他のCGIではgethostbyaddr()でホスト名が取得できているので
サーバがgethostbyaddr()が使えないということではないと思うんですが…
どのような原因が考えられるでしょうか？

>>332
CGIのミス。

ホスト名取得は以下のようにしてるんですけど、
どの辺がおかしいでしょうか？

$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};

if ($host eq "" || $host eq "$addr") {
　　　　$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
}
if ($host eq "") { $host = $addr; }

>>329
まさにそのとおりでした。
どうもありがとうございます。
助かったdeath.

>>332＝334
Netfirmsは、gethostbyaddr()関数を使えない。

>>336
Netfirmsっていうのはサーバのことでしょうか？
うちはhi-hoのサーバを使っています。

一見普通の画像(jpg)だけど裏でCGIを実行させるにはどうしたら良いのでしょうか？
（画像の中にCGIを埋め込むには？の方が言い方としては正しいのかな？）

Apacheならhttpd.confに

AddHandler cgi-script .jpg

を加える。

↑
(ﾟДﾟ)ﾊｧ?

>>338
おれも>>339を最初に思いついた。
あるいはPATH_INFOから引数をとるような画像表示CGIを作り、
拡張子なしのファイル名を付けて、URLでごまかす。

>>340
┐(´ー｀)┌

そうやって初心者を潰すから嫌われるんだよ。

apacheのルートではsuEXECって動かないの？
ユーザディレクトリではsuEXECで動いているんだけど、
/usr/local/apache/cgi-binではwwwで動くんだよね。

ユーザディレクトリ以外では
httpd.confの
User www
Group www
の権限で動きます。

ああ、そうなんだ。
んじゃぁ、ユーザーディレクトリをエイリアスに設定させれば
動くかな？
Alias /test/ "/home/test/public_html/"みたく

自分のＨＰにおけるチャットで一番使いやすいのってなんでしょうか？

ヤフーのチャットをおいてたけど、いろいろ不満もあって・・・。
いい、チャット知ってたら教えてください。

IRC

IRC?
それってＨＰにおいて使えるんですか？

では、早速やってみます。
ありがとうございました。

ﾌﾟ

http://irc.2ch.net/

掲示板等のCGIのスクロールバーの色を変えるには
どうすればいいのですか?

>>351
HTMLとスタイルシートの勉強をする

>>351 HTMLのスクロールバーの色を変える方法を使う

どなたか分かる人いないでしょうか。
まだ解決していないのです・・・

>>332
hi-hoのPerlがおかしいから。

>>355
Perl がおかしい？

掲示板レンタルサービスを作るつもりなんだけど、
データの保存形式はどうしたらいいだろう？
俺的には、
設定情報＋記事ファイル
会員情報はSQL
みたいな感じだけど。
設定と記事は分けた方がいいかな？同じにすればファイルを２度開かなくてもいいかなと思ってるんだけど。
因みに、設定は１０項目くらいタブで区切るつもり。

配列の名前に変数を使うことはできますか？
$hairetu[$hensuu]ではなく、
$haieretu 変数 [1]　という風にしたいのですが。

age

age

>>358
${hairetu}{$hensuu}[1]
${$hensuu}[1]

>361
回答ありがとうございます。
さっそく試してみます。

こちらで聞いてよいでしょうか

Perlで掲示板をつくってprohostingのサーバに置きました。めでたく書きこみが出きるまでになりました

そこで一つわからないことがあります。
その掲示板でリロードしようとすると、ダイアログが開いて「このページは
再送信しないと更新できません」とでるのです。それに従って更新すると、
同じ内容の書きこみが二つになってしまいます。このようにならないように、
リロードするにはどうしたらよいでしょうか

>>363
１：アンカータグでリロードボタンを作る
２：フォームでリロードボタンを作る
３：書き込みが終わった後Locationで移動させる
４：書き込み後に「書き込みが完了しました」とクッションページを置く

>>364
ありがとうございます。
ＩＥの更新ボタンで更新できるようにしたいのですが（２たんねるのように）
その場合は３．のでよいですか？

>>365

364じゃないけど、３でおっけーです。

質問させて頂いてもよろしいでしょうか？

特定のIP＆プロ串経由でのアクセスをピンポイントで制限するというCGIをPerlでつくり、
WAKWAKのサーバーに置き、ちゃんと動作してくれたので、旧INFOWEBのサーバーに設置してみたところ
「Internal server error」　が出てしまいました。

あるサーバーでは上手く動作しても、あるサーバーでは上手く動作しないということは、
CGIスクリプトと、鯖との相性なんでしょうか？

まあ、大体Perlのバージョンの絡みとかかな。

偶に、perlのパス確認せずに騒ぐﾄﾞｷｭｿも居るけど（ｗ

>>367
１：Perlにパスが通ってない
２：requireなどのパスが通ってない
３：Win鯖とUnix鯖だったりする
４：Perlのバージョンが違う
５：サーバーで許されている関数に違いがある
６：.plファイルのCGI起動を許可されていない
７：cgi-binに入れないと動かない

後はなんだろう？

質問です。
2chのIDのようにIPに基づいて成り立つIDをPERLで作成するにはどうしたらいいのでしょうか

367です。

>>368
Perlへのパスは何度も確認してます。

>>369
わっかりました。
もう一度、ソースを見直してみます。

>>370
srand($ENV{'REMOTE_ADDR'});
$xx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  . "abcdefghijklmnopqrstuvwxyz"
  . "123456789./";
foreach(1..8){
  $ID .= substr($xx, int(rand(65)), 1);
}

srandにIPを入れることで常に同じ結果が返される。

あくまでサンプルとしてね。
他にも色々と方法はあると思う。

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

IPアドレスからユーザー名ってとりだせませんか？

>>374
(ﾟДﾟ)ﾊｧ?

sendmailが使えない鯖でcgiからメールを送る方法ってあります？

>>376
そけっと使うんだよ。（自分はやったことないけど…汗） SMTPサーバと
お話ししたら大丈夫。

＞Ｔ女
も少し具体的に教えてください。
あと、やらせてください。

>372
2chのIDってcryptで生成していると思ってた。

372さんのでやっているんですが、
IPが違っても同じIDになることがたびたびあります。
初心者なもんで全然わからないんですが、どう対処したらいいのでしょうか

>>370
http://curry.2ch.net/megane/index2.html

>>379
その方が効率的かも。
サンプルきぼん。

$packip = join "", map{ chr } split /\./ $ip;
print crypt($packip);

とか。

>>363=>>365です
location文をどのように挿入すればよいかわからないです
どなたか教えていただけないでしょうか

>>384
Content-type:と同じやりかたでオッケー

>>385
locationを試してみたところ、リロードしてもcgiが読み込まれなくなってしまいました
サーバはProhostingです

>>377
Sendmailが使えないサーバなら、Socketもまず使えないだろう。

>>383
そのままコピペして試したら鰓出たんで自分なりにアレンジしてみました。

$packip = join "", map{ chr } split /\./,$ip; # ,を入れてみた
print substr(crypt($packip,$ip),2,8); # saltを入れてからsaltの分を削除してみた

こんな感じでいいのかな？

Shift_JISの1バイト目だけの中途半端な文字コードを削除する正規表現
って書けますか?

<form method='POST' action="http://aaa/ssss.cgi">
<input type=hidden name="get" value="143242341324">
<input type=submit value="abcd">
</form>
これをTELNETで見ようと思ってもサッパリ分かりませんでした
いま将棋にはまってます
このCGIの出力結果を見るにはどんな文ををサーバーに送れば見ることが出来ますか？
詳しく分かりやすく専門用語を使わずに教えてくださいおしえてください

>>389
中途半端なコードが１個でもあったら、それ以降すべて削除。
というの作ってみた。

$re_sjis_zen = '[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]';
$re_sjis_han = '[\xA1-\xDF]';
$re_ascii = '[\x20-\x7E]';

$s =~ s/^((?:$re_sjis_zen|$re_sjis_han|$re_ascii)*).*/$1/;

>>390
君の場合「専門用語を使わず」にとか言う前に、
日本語を勉強した方が良いと思われ。

>>388
あぁすまん。コンマ忘れたわ。

Apacheを使っています。ここに存在はするがindex.html
はないディレクトリにアクセスした場合はindex/xxxという
ファイルの一覧になりますよね。

ここをファイル一覧にはせずに、そのままFile Not Foundの
ようなエラーページに飛ばす方法はApacheにはあるのでしょう
か？いろいろ見たけれどわからないです。

@niftyなんかはこういう風な仕組みになってますが、あれは
CGIとかでやれるのでしょうか？

Options -Indexes

>>394
http://www.mikeneko.ne.jp/~lab/cgi/htaccess/directory.html

>>395
>>396
ありがとうございました、うまくいきました。

$packip = join "", map{ chr } split /\./,$host;
$ID .= substr(crypt($packip,$host),2,8);

これでできたIDからIPに戻すとかはできます？

crypt は一方向性のハッシュ関数を使用しているため、計算で求めることはできません。

# DES を使用している場合でも、単なる一方向性関数としての利用です。

よくある投票ＣＧＩで多重投票をしたいのですが、１回しただけで次から規制されてしまいます
ネットを切ること無しに多重投票ができる方法はありますでしょうか？
また、効率のいい投票方法、ツールなどありましたら教えてください

>>400
方法はあるけど…
多重投稿をして欲しくないから、そういう機能があるのだと思われ。（ﾜﾗ

あきらめて逝ってください。

>>400
アンケート荒らしは死ね。

>>382
http://member.nifty.ne.jp/hippo2000/perltips/perlmail.htm

以前掲示板リロードとlocationについて質問したものです
リロードによる二重書き込みが無くなりました！！！
なんとお礼を言っていいやら・・！！ありがとう

　　　 ／＿　　　　　　|
　 　 /.　＼￣￣￣￣|
　　/　　／　 ―　― |
　　|　 /　　 　-　　- |
　 ||| (6　　　　　　>　|
　| | |　　　　 ┏━┓|　　 ／￣￣￣￣￣￣￣￣
| | | | 　　　　┃─┃|　 ＜　正直、どういたしまして。
|| | | | 　＼　┃　 ┃/　 　 ＼＿＿＿＿＿＿＿＿
| || |　|　　　￣　￣|

よくCGIのサンプルでPOSTかGETか判定して分岐しますが、
同時に使おうとするとなにか問題があるんでしょうか？
変数名がかぶるとか回避できますよねえ。

>>406
同時に使おうとすると判定処理が増えるからじゃない？

>>406
同じデータをPOSTでもGETでも受け付け可能にするってこと？
掲示板なんかでPOSTとGETの両方オーケーにすると
<img src=".../bbs.cgi?text=hoge">みたいなリンクを貼りまくる
荒らし厨房がわいてきそうでいや。

別々のデータをPOSTとGETで分けて受け取るスクリプトの話なら、
まえにそういう掲示板
（テキストをPOSTで受けて、動作モードをQUERY_STRINGで指定）
を書いたけど、そのときは問題なかった。
Apache以外のWEBサーバだと、問題あるらしいとの噂も聞いたが。

>>399
そうですか〜
ありがとうございます。

>（テキストをPOSTで受けて、動作モードをQUERY_STRINGで指定）
まさにそれです。Perl勉強中なんで問題があるのかと、、、
# フォームからのデータを連想配列に格納
read(STDIN, $buffer1, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer1);
foreach $pair (@pairs)
{
($name,$value) = formdec(split(/=/, $pair)); # フォーム形式のデコード
if(exists($FORMS{$name})) { # 既にキーが存在した場合
$FORMS{$name} = $FORMS{$name}.",".$value; # FORMSに, 区切りで格納
} else {
$FORMS{$name} = $value; # 連想配列FORMに格納
}
}
# クエリーからのデータを連想配列に格納
@pairs = split(/&/, $ENV{'QUERY_STRING'}); # 引数を格納する
foreach $pair (@pairs)
{
($name,$value) = formdec(split(/=/, $pair)); #フォーム形式のデコード
if(exists($QUERYS{$name})) { # 既にキーが存在した場合
$QUERYS{$name} = $QUERYS{$name}.",".$value; # QUERYSに, 区切りで格納
} else {
$QUERYS{$name} = $value; # 連想配列QUERYSに格納
}
}
# クッキーデータを連想配列に格納
@pairs = split(/;\s*/,$ENV{'HTTP_COOKIE'});
foreach $pair (@pairs)
{
($name,$value) = formdec(split(/=/, $pair)); # フォーム形式のデコード
if(exists($COOKIES{$name})) { # 既にキーが存在した場合
$COOKIES{$name} = $COOKIES{$name}.",".$value; # COOKIESに, 区切りで格納
} else {
$COOKIES{$name} = $value; # 連想配列COOKIESに格納
}
}
# フォーム形式のデコード
sub formdec {
,,,
Multipulなのはsplitして使うと。

>>410
問題は要するに「POSTしたときもQUERY_STRINGは有効なのか？」
ってことだけど、
こりゃCGIスクリプトじゃなくてWEBサーバの動作の問題だね。
経験則だけど、Apacheはオーケー。
他のWEBサーバは知らないけど、たぶんApacheコンパチでないの？
>>408の「Apache以外で問題あり」なんて話は聞いたことない。

　すいません、質問です（別板でこちらの板に来る様に言われましたので参りました）。
　データファイル（ログファイルやデータベース用のテキストファイル）の漏洩問題に
対処するためにこのデータファイルをドットファイル（拡張子部分は固有名詞を使わない
任意の文字列）にすれば、ある程度データファイルのセキュリティーは高まるのでしょう
か？ どのくらいの安全性なのか、あるいは危険性はあるのか、どうか教えてください（
本の知識です）。 よろしくお願いします。
　ちなみに別板で最初に書きこんだ時のその板の皆様のご返答は・・・
　・貸し金庫よりドットファイルは安全だ。
　・パーミッションを640にしろ。
　・拡張子を.cgiにして保存しろ。
　・この板（このスレの板）に逝って質問しろ。
　でした。悩める厨房にどうか教えてください。混じれ酢希望です。

>412
基本的はドキュメントルートの外に置けばいいんじゃない？

412です。
>>413
早速有難うございます。ただその外に置く方法が分からないのです。
今使っている鯖（レンタル）は、やり方は分からないのですが、そ
の「/」の上の階層にファイルを置けないようなのです。マジでセキ
ュリティーのことを考えて色々思考錯誤しているのですが・・・。
　一つ一つ勉強ですが、回りに詳しい人間もいず、本で読んでも
理解するのが遅すぎて。。。だけど有難うございます。
　他にはどうでしょうか？いい機会（迷惑？）ですので教えて下さい。

>>414
そのサーバはHTMLやCGIを「/」の下に置くようになってんですか？
public_htmlがあるなら、そこが「ドキュメントルート」だよ。
つまりpublic_htmlディレクトリの外にデータを置けばいいということ。

あと、共有サーバで他のユーザにデータを見られないようにする
てゆー問題もあるね。
CGIが所有者権限で動くWEBサーバなら、データのパーミッションを600に。
そうじゃないWEBサーバなら、あきらめる。

412です。皆さんありがとうございます。
>>415
そうなんです。/の下にcgi-binディレクトリを置いたりやHTMLファイルを転送します。ただtelnetがその鯖では使えず、普通のftpソフトでは/より上に行くことができませんし、鯖の方も許可していないようで
す（←ただ私の言うことですので信用できないかもしれませんが・・・）
　こういう鯖ではルート以外におく方法の次善の手としてどういう方法があるのでしょうか（←416でパーミッション600という手を教えて頂きました）？
>>416
はい、共有鯖です。外に置いたら（というか置けると仮定したら）、やはり他人に見られますよね。そう言う場合600にすれば確かに最も安全ですよね。　ただこのデータファイル、不特定多数の人間が実行するスクリプトから
読みこんだり書きこんだりする代物ですので、600だとちょっと不都合が・・？
　結局、
＞そうじゃないWEBサーバなら、あきらめる。

　やはり「外に置く」以外のセキュリティーはどれも似たり寄ったりなのですか？

>>417
>普通のftpソフトでは/より上に行くことができません
あー、そういう設定か。確かにそういうサーバありますね。
困ったもんだ。せめてもう一個上まで行けるように
設定しといてくれればいいのにね。

>不特定多数の人間が実行するスクリプトから
>読みこんだり書きこんだりする代物ですので、600だとちょっと不都合が・・？
「CGIが所有者権限で動くWEBサーバ」なら、600で不都合は
起きないから大丈夫です。
誰が実行しても、CGIファイルの所有者（あなた）が読み書き
してるのと同じことになります。

>やはり「外に置く」以外のセキュリティーはどれも似たり寄ったりなのですか？
いや、外に置くのも拡張子を".cgi"にするのも結局似たようなもので、
共有サーバの別ユーザから見られる危険性は一緒。
ひとつだけその危険がないのが、パーミッション600です。

とにかくそのサーバで、CGIが所有者権限で動くか
（別の言い方すると、CGIがSUEXECで動いてるか）を確かめるのが先ですな。

412です。
丁寧なご返答有難うございます。（感謝
渦巻いていた疑問が晴れました。
こんな厨房の意見に混じれ酢をして頂いて本当に恐縮です。
鯖の設定と手元の本をもう一回確認して色々と試してみます。
ありがとうございました。

>>412
ドットファイルが安全というのはどういう意味か分からん。
WINDOWSのHIDDEN属性と近藤しちゃいないか？

↑の説を言い出したのが412氏じゃないことは分かっているけど。

最近のApacheは .ht で始まるファイルがデフォルトで外部から見えない
ようになってるという話と混同してるのでは?

やれなかったのか
やらなかったのか
どっちかな

　　　　　＿＿＿＿_＿
　　　 ／＿　　　　　　|
　 　 /.　＼￣￣￣￣|
　　/　　／　 ―　― |
　　|　 /　　 　-　　- |
　 ||| (9　　　　　　>　|
　| | |　　　　 ┏━┓|　　 ／￣￣￣￣￣￣￣￣
| | | | 　　　　┃─┃|　 ＜　600デキナイサーバカリナイジョウシキ
|| | | | 　＼　┃　 ┃/　 　 ＼＿＿＿＿＿＿＿＿
| || |　|　　　￣　￣|

412です
皆さんレス遅れてすいませんでした。そして有難うございます。
>>420
ドットファイル（例：.hogehoge1233455）にすると、.txt .log .csvなどに
比べて外部からのアクセスによる不正なデータ閲覧を少しは防げる、というもの
でした。早速試したところ、確かにブラウザでの閲覧（ファイルを直接URLで指
定）を試みると、見れません。またファイル転送時にﾊﾞｲﾅﾘにすると良い様でし
た。ただいかんせん私のレベルは皆さんから見ればお粗末なもので・・・皆さん
にかかれば、あまり意味のない防御方法かもしれません。
>>421
例えば.hthogehoge1232344のようにすれば、上記の様なファイル名よりかは
安全性が高まると言うことでしょうか？う〜ん？もしよろしければ詳しく教えて
下さい。お願いします。
>>422
ルートディレクトリの外に置けるサーバーではありませんし、600にしたらスク
リプトが動きませんでした。従って
>>423
さんのように、よ〜〜〜〜く調べて鯖を変えなくては逝けないかもしれませんね。
しかしどうやったら調べられるんでしょうか？？

>>424
Apacheのデフォルト設定で、
.hogehoge1233455 → ブラウザのURL直接指定で表示できちゃう
.hthogehoge1232344 → URL直接指定でエラーになって見れない
となってた時代があったんよ。
こういうのApacheのバージョンによってころころ変わんだけど、
もしかして現在のApache1.3.20だとドットファイルは全部アクセス不可？

なんにせよ、これはあくまでもデフォルト設定であって、
あとでいくらでも変えられるので、サーバごとに事情は異なる。
「ドットファイルは絶対アクセス不可」と思ってはいけない。
ただし自分で.htaccessを書いて「ドットファイルはブラウザからアクセス不可」に
設定することはできる。

レンタルサーバでデータのパーミッション600が可能か調べるには
そこのサポートにメールして聞けばいいんじゃない。
「CGIはsuEXECで動作してますか？」で相手はわかると思うよ。

>>424です
　>>425さん、ありがりがとうございます。かなり理解が深まりました。

　正直、セキュリティー（今回のドットファイルも含め）に関する情報って、
結構見つからないですよね（当たり前なんですけどね。ヘタレ厨房がス〜グ
悪用するから）。だから情報集めてそれを自分で噛み砕くのは本当に大変で
す。

　ありがとうございました。また分からないことがあったらこちらで質問
させて下さい。

＃　＞そこのサポートにメールして聞けばいいんじゃない。
＃　サポートがなっていない鯖も多いようですので参考にしながら
＃　別板・別スレで情報を集めます・・・。

perlで掲示板を作っているのですが、$mymail（メールアドレス欄）に
☆┌|∵|┘♪└|∵|┐♪┌|∵|┘ ☆(∂v∂)☆(ノ^0^)ノ☆＼(＾○＾)／☆(∩.∩)☆(〃＾∇＾)o_彡☆(Ｖ)o￥o(Ｖ)
↑このような文字列を入れるとアンカータグが閉じられずに、他の発言にも
リンクが及んでしまいます。これを改善するにはどうしたらよいでしょうか？

# Emailからタグを作成
if ($mymail ne '') {
$mymail = "<A HREF=mailto:\"$mymail\"><b>$myname</b></A>";
}else{
$mymail = "<font color=\"#228b22\"><b>$myname</b></font>";
}

# 一行に変換する
&auto_link($mycomment);
$mycomment =~ s/\r\n/<BR>/g;
$mycomment =~ s/\n/<BR>/g;
$mycomment =~ s/<BR><BR>/<BR> <BR>/g;

# 書き込みメッセージ構成
$message = "<dt>$mymail　<font size=\"2\">投稿日：$datestr</font><dd>$mycomment<P>";

ちなみにここです。色々テストしてみたらあなだらけでした
http://www30.tok2.com/home/muchm/bbstok2.cgi

代替文字で解決しようとしたのですが、
＆nbsp;＆quot;のような文字（＆は半角）がそのまま出てしまいます
このように書きました

$mymail =~ s/</</g;
$mymail =~ s/>/>/g;
$mymail =~ s/"/"/g;
$mymail =~ s/ / /g;
$mymail =~ s/&/&/g;

ごめんなさい！自己解決しました
最後に”&”を置き換えてました

Sakura Upload Boardでアドレスに
http://〜/cgiwrapDir/cgiwrap/sakura.cgi?new
とよけいな/cgiwrapDir/cgiwrap/という文字列がくっついてしまうのですが
どこを書きかえればよいですか。

$ENV{'SERVER_NAME'}
$ENV{'SCRIPT_NAME'}

http://www.makani.to/akutoku/bbs/upload/dat/408.txt
これですがどなたかおしえてください。

C言語でURLエンコード､デコードする関数を教えてください。

>>434
そういうライブラリ探すべし。
検索キーワードは「C言語」「ライブラリ」「URLエンコード」

$FORM{'submit'}を見れないんだけど、どうしたらよいのでしょう？

<form action="./temp.cgi" method="post">
<input type="text" name="name">
<input type="submit" name="submit" value="書き込む">
</form>

temp.cgi 側

#!/usr/local/bin/perl

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

my $query_string = undef;
my (@m_elements, $m_element, $name, $value);
use vars qw(%FORM);

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
@m_elements = split(/&/, $query_string);
foreach $m_element (@m_elements) {
($name, $value) = split(/=/, $m_element);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}

print <<"EOT";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<META CONTENT="TEXT/HTML; CHARSET=SHIFT_JIS" HTTP-EQUIV="CONTENT-TYPE">
<TITLE>出力結果</TITLE>
</HEAD>
<BODY>

<H3>出力結果</H3>
本文 $FORM{'name'} です。<BR>
実行 $FORM{'submit'} です。
</BODY>
</HTML>
EOT

exit;

>>434さん
http://www.coara.or.jp/~tkuri/DOWN/urled.cpp
バグあったらごめんなさい。

>>436
type=submit って、見えたっけ？

おしえておくれ・・・

>>439
Sakura Upload Board なんてマイナーなCGIをソースも出さずに
何処直しゃ良いなんて教えられるわけねーだろ。

お前が知ってるCGIは全員知ってるとでも思ってんのか？

>>437
さんきゅさんきゅさんきゅ

>>438
ttp://www.cec.co.jp/usr/hasegawa/Docs/CGI/form-example/two_button.html

Perlの質問です。
フォーム入力で「aaaa"bbbb」と入力されたとする。
CGIのデコードで
~s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c",hex($1))/ge;
として、確認画面で「name=aaaa"bbbbです」と表示した。
その同画面で
print "<input type=\"hidden\" name=\"name\" value=\"$name\">\n";
と言う風に出力し（仕様）、さらに表示させようとすると
valueの中身が「aaa」で切れてしまう。
これを解決する方法を教えてください。

>>431
答えただろうがﾎﾞｹｶﾞｧ!!

>>443
$value =~ s/"/＆quot;/g;

>>440
>>433に書いておいたはずだけど。

http://www.makani.to/akutoku/bbs/upload/dat/584.txt
はい。

>>445
ありがとうございます。
このようにやると、
name=aaaa"bbbbと表示されますが、ソースは
<input type="hidden" name="name" value="aaaa＆quot;bbbb">
となりますよね？
これはまた＆quot;を元に戻す処理を入れ、ファイルなりに落とすという
方法（ファイルに落としたい）をとるしかないのでしょうか。

アングラ野郎は 初級ネット板 or ダウソ板 へ

>>448
ソース上は「&quot;」になりますが実際に送られるのは「"」です。
つーかまず試してから物言え。

>>442
ｻﾝｸｽｺ
見えるんだ…ｼﾗﾅｶｯﾀﾖ

>>436
お詫びにこっちの環境で動作テストしてみたよ。
上のForm部分を HTMLに入れて、
下のソースは temp.cgiとして実行。
環境[ Apache 1.3.14 + Perl 5.2.2 ]

で…問題なく見えたけど。
ボタンを複数にした場合も、それぞれの Value値が渡ってきたよ？
ソース以外に問題がある可能性が高いと思われ。

>>451
記入漏れ…
Win32(Win2KServer)環境なの。

ありがとうございます。
当方 VirtualAvenue です。
$FORM{'name'} しか見えません。

ブラウザは関係あってもサーバが関係あるはずないだろ
実験に使ったブラウザの名前を書けよ

>>454
は ?
CGIが出力したHTMLに何も書いてないから
何も表示されないわけで，ブラウザとは無関係だろ．．．

>>454
「あるはずない」って断言するのはどうだか知らんがね。
そもそもブラウザがデータを渡してない可能性がある…ってことか？
だったらそう言えや。

IE5.5 と NC4.75で確認したけど、どちらも動作を確認。
ちなみに、俺の婆茶のアカウントで試したが、やはり動作を確認。
Freewebアカウントでも動作を確認。
仕事でやってるなら、更に IEバージョンごとにテストするところだが、
今は面倒なのでやらない。（ﾜﾗ

結果、>>436 氏の環境の問題である可能性が高くなった。
これで満足か？

レス遅くなりました。IE5.0 です。

それで、同じ作業を(単にフォームに適当な文字を記入して送信)
繰り返してると、たまに

実行 書き込む です

が見えるようになりました。
同じ文字を入力しても、見える時と見えないときがあります。
私の IE がｳｿｺなんでしょうか？
それとも IE の設定に関係あるんでしょうか？

>>457
format c:

>>458
つまんないから氏ねよ

やっと原因が解りました!!

サブミットボタンをマウスでクリックすると上手く逝き、
リターンキーで送信すると上手く逝きませんでした!!
私は Win では殆どマウスを使わないので
(ショートカットキーやタブで済ます)、気付きませんでした。。。

原因が暫く掴めなかったので、Linux に
Apache 2.0.16 βとMozilla 0.9.2 を入れてローカルでも
実験しました。それでも$FORM{'submit'} が
たまにしか表示されないので、もう諦めて
回線切って氏のうかと思ってましたが、
解ってよかったです。お騒がせしました。

>>460
あぁ、それが原因だったのか。
よく考えたら俺も昔同じ事に引っかかってた事があった。（ｗ；
気付かずスマソ。

パターンマッチについて質問します。

数字１文字か２文字、または、半角カタカナだったら真、
それ以外は偽、という正規表現ではまってます。
どなたか、お答えお願いします。

>>462
ttp://www.din.or.jp/~ohzaki/perl.htm#JP_Trans
あたりを読むと良い鴨。

CGI設置したんですが
拡張子を他のものに変更したいんですが、、無理でしょうか
よく掲示板なのにindex.htmlとかありますよね？
あれってどうやるんですか？

>>464
書き込みをされる度に、データファイルと一緒にindex.htmlを書き換える。
それでその中に<form action=bbs.cgi>と入れておく。
書き込み記録はCGI。
記入欄はHTML。
わかるかな？

基本的な質問スイマセン。
掲示板を作ったはいいんですが、ログファイルを
直リンとかURL直入力で落とされない様にする為にはどうしたらいいですか？
IPアドレスを記録していますので、管理者（＝自分orSU）以外から見られないように
何らかの方法で設定したいのです。

ちなみに、サーバは skipup.com です。

HTTPで見られるところ以外に置けばよろしい。
たとえば、~/public_html/ 以下のみが見られるようなら、
~/log/ にでも置きましょう。

>>467
早速ありがとうございます。
その方法を試してみたのですが、skipup.com では無理でした…
/web/* にHTML文書があり、/web/cgi-bin/* にCGIをおくというのが
skipup.com の設定なのですが、
どうやらCGI上でも/web/と同レベルの他ディレクトリ(/cgi-data/*)には
アクセスできないようです。
念の為絶対パス指定も相対パス指定も試したのですが、ダメでしたxx

IPアドレスは暗号化して、IP調査はダウンロードして復号する、という方向で
外的な匿名性を持たせる方向ですすめます。

↑パーミッションを600にすればいいだけだと思うが。

mod_perlを使用すると、親切にもmainに相当するパッケージ名
を自動的に割り当ててくれますが、スクリプトを作る場合は
これに素直に従い、サブルーチン等に自分でパッケージ宣言
しない方が吉なんでしょうか。

１、CGIでURLエンコードするときのデフォルトの文字コードは決まってるんでしょうか？
２、SJISのエンコードは %XX で言いと思うんですが、他の文字コードのエンコードは
どうやってやるのでしょうか？
UNICODEとかの場合は %XXXX で良いのでしょうか？

>>470-741
まずは試してみろ。
うまくいかなきゃまた聞きに来い。

>>470-471
試すのはいいけどローカルでな。
自分で試すことによって他の問題が出た時も対処がしやすくなる。
頑張れ。

http://www2.to/05F

CGIの実行速度を測ってくれるサイトってありませんか？
Kentのは重いって聞いたんですけど、実際他と比べてどうなのかなと。

use Benchmark
times()

できればもう少し詳しくお願いします。

君は少しでも476に書かれた事について調べましたか。
http://www.google.com/search?num=100&hl=ja&safe=off&q=perl+use+Benchmark+times%28%29&lr=lang_ja

>>477
478に禿げしく同意。
せめて検索くらいしましょう。
それから、perldocくらい自分で見れるようになってください。

掲示板作成時、デザインとプログラムを分けて作りたいんだけど、
HTML::Templateモジュールとかのオブジェクト指向でないスクリプト
で良い物ってありますか？

>>480
自分で掲示板作るんだよね？
モジュールって基本的に再利用可能でカプセル化されたものだから、
オブジェクト指向はついて回ってくるというか。

Exporterで関数指向にしてしまう。これは改変だけど。
自分で作る。

こんなとこかしら。答えになってないようで悪いが。
せっかく便利なものがあるんだから、使ったほうがいいと思うよ、でも。

>>481
オブジェクト指向ど素人やからしょうもない事、
聞いてしまいました;;

てーねーなレス感謝。

オブジェクト指向なんて慣れてしまえばどうってことはない。
俺はリファレンスを理解する方が苦労したYO！

ＣＧＩ ではなく フォームの質問なんですが…。

フォームが表示されたときに、特定のテキストエリアにフォーカスが
行っていて、マウスでクリックしなくても、入力を始められるようにする
にはどうすれば良いでしょうか？

>>484
JavaScriptの勉強をしよう。

>>485
JavaScript の勉強をしてみました。

　　　<input type=text name=text1 onLoad="this.focus()">

ここまで書いてみて挫折。うまく移ってくれません。
onLoad というのが違うようなのですが…。

>>484
onLoad()は<body>に書くがよろし。
つーか板違いか、これ（ｗ
詳しく聞きたいならWeb製作板にいきましょう。

>>486
JavaScriptスレに逝け。

できましたー。
皆様ありがとうございました。

現在PerlでCGIを作っています。
テストはもちろんローカルで行っています。
そこで、もし無限ループに陥った場合は再起動すればいいのでしょうか？

>>490
俺はPerl.exeを強制終了させてる。

>>491以外の方法は思いつかないが…

既出かもしれないんだけど、トップページでCGI使う場合（検索エンジンとかで）
トップページのアドレスが長くするのを防ぎたいんですが
フレームを使う以外の方法ありませんかね？板違いだったらスマソ

<!--index.html-->
<form acrion="foo.cgi"></form>

s/acrion/action/

493が何を言ってるのか判らないのは俺だけですか

>>496
俺もわからない

あっすみません

CGIをトップページにもってくると、ページのアドレスが
ttp://www.XXX.ne.jp/~XXX/cgi-bin/（スクリプト名）/XXX.cgi
っていう風に長くなっちゃうんですが、

ttp://www.XXX.ne.jp/XXX
という風に短くしたいのですが。

>>498
.htaccess

DirectryIndex だっけ？
アレってファイル名じゃなくてディレクトリ名まで指定できるの？

あの〜厨房な質問で申し訳ないんですが・・
DUKEってなんですか？
これって何に使うの？

>>498
cgi-binでしかcgiが動かない設定なのか？

>>501
厨房が自分の力を誇示する為に使うツール。

DUKEを使う＝ゴリラのドラミング（胸を叩くアレ）のようなもん

DUKEってまだ使ってるやついるのか？(^^;

>>500
できるよ。
DirectryIndex ./cgi-bin/hoge/hoge.cgi
とかね。うちのtopは掲示板だし(わ

if (!open(NOTE,"+<$visit_file")) { &error("書けない"); }
flock(FILE, 2);
truncate(FILE, 0);
seek(FILE, 0, 0);
print NOTE @DATA;
close(NOTE);
↑こういうふうにopenとflock,truncate,seekの
ファイルハンドルが違っていてもOKなんでしょうか？
ファイルハンドルを合わせなくても正常に動作しているような
気はするけど、実際のところが知りたいす。

$a += 10;
$b *= 2;
$b -= 5;

↑こういうふうに"+="演算子と"*=", "-="演算子の
変数が違っていてもOKなんでしょうか？
変数を合わせなくても正常に動作しているような
気はするけど、実際のところが知りたいす。



*a = *b
とすれば正常に動くがな。

>>507
意味不明。日本語で書いてください。

>>508
507は506を馬鹿にしてるだけだと思われ。

掲示板スクリプトで、
x.cgi ->（実行ファイル）と
y.pl -> （環境設定ファイル）があったとして、
実行ファイルに環境設定ファイルを読み込ませる場合、普通に

require './y.pl';

としてる物と、サブルーチンで設定変数の読み込みをさせてる物とがあるが、
どっちの方がいいか？
またそれぞれのメリットなど教えて下さい。

freewebのページで「ずるぽん+擬古猫　2000年10月26日版」
の、アプロダを設置しようとしても500エラーが出てしまいます
アスキーでftp転送し、パーミッションもあってるはずなんです。

原因として考えられることををご教示ください。
すれ違いなら素直にそういってください。夏厨房でｽﾏｿ

同じファイルハンドルにしないと効かないんすね。
配布されていたスクリプトがなぜかファイルハンドルを
別にしていたので1年くらいずっとそのままで使っていた。
わざわざスイマセンした。

最近本を読めば分かるようなことを聞いてくるやつが多いな。

>>510
どっちでも大差ないと思うが。
というか「サブルーチンで設定変数読み込み」ってなんだ？
open-parse-closeで値を取得するくらいならrequire/doの方が早いと思うぞ。

>>511
一行目が違う。

それでもだめならKCatch.pmを使え。

>>511
一応…広告ちゃんと入れてる？

>>511
無理じゃない？
わしはあきらめた。

CGIのデコード処理が解りません。
0から教えてください。

まず精神統一をします

てゆうかデコード処理しないとやばい？

まず座禅を組みます。

…と、その前に滝に当たった方がいいだろうか？

すいませんけどマジメに答えて下さい。
本当に困っているんです。

>>519
まず頭を剃らなくては。

0から、か。
ならまず
#!/usr/bin/perl
0
__END__
これをやってみろ。

>>520
そこまで言うならマジレスするけど、貴方の質問には不足が
有り過ぎです。

・『0から教えてください』って、自ら努力しない人に教えるほど人は
出来てないの、私は。
・どう言うシチュエーションなのさな？コードくらい書いて例示しろっての。
・そもそも『CGIのデコード処理』って何の事よ？

少なくとも、らくだ本の前に国語の教科書を見なおしてくれ。

>>523 ・そもそも『CGIのデコード処理』って何の事よ？

逝って良し!!

CGIオタクが解りません。
0から教えてください。

>>524=CGIｦﾀ
(ﾌﾟ

CGI:
　WWWで, WWWブラウザからの要求に対してサーバが別のプログラムを起動実行し,
　結果をWWWブラウザに返す処理を行なうためのインターフェイス.

コイツをデコードしてどうするつもりだよ（ﾜﾗ

とりあえず「CGI デコード」を google 検索の結果
http://www.google.com/search?num=100&hl=ja&safe=off&q=%43%47%49%20%83%66%83%52%81%5B%83%68&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
って，このくらいは調べたんだよね…調べた上での質問だよね…．
いやしかし，調べたら 0 よりは進歩してそうな気もするし…．

>>526
自分の命がかかった場面でもなお相手とのやり取りでそういう構文エラー出してみせるなら
その時は褒めてやるけどね。

>>520
自分の命がかかった場面でもなお相手とのやり取りでそういう日本語と
態度を出してみせるなら その時は褒めてやるけどね。

要するにアホ同士の極めてアホなやりとりというわけで。

がいしゅつかもしれませんが優しく教えてください。

J-SKY対応のメールフォームCGIを探しています。
どこかのサイトで配布していませんか？
おしえてください！！

CGIに限った話ではないが、
掲示版やチャットなどでよく使うので質問します。
ｸﾘﾌﾟﾄの塩って、どうやって決めればいいのですか?

「ｸﾘﾌﾟﾄの塩」って何だよ。

>>532
漏れはユーゼ名を塩にしてパスをCRYPTしてるが、塩を忘れないからいいのでは。

>>532
time()とか[a-zA-Z0-9/.]とかかな、俺は

>>531
ですが、教えてくださいませ････

スレ違い
http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987&ls=100

>>533
無知って怖いねー
ｸﾘﾌﾟﾄ＝crypt
塩＝salt
ﾈﾀだったらｽﾏｿ
ってかこれで間違っててもｽﾏｿ

ｸﾘﾌﾟﾄの塩などとわざわざ難解な表現をするあたりでまともに聞く気があ
るとは思えんのだが
ﾈﾀだったらｽﾏｿ

ちなみに、saltもどこかに保管しておかなければいけないですね。
そうすると、たとえばユザー認証用のファイルを作るとすれば
username, crypted pass, salt
ってかんじでいいのかな。
ちなみに、saltがばれたり容易に推測できるのはやばいのかな
phpマニュアルでは、saltに乱数使ってるよ。

クリプトの塩って、チュニジアあたりでとれる良質の岩塩のことだったような気が

>>540
saltの保管は照合するため？
通常はcrypted passの頭2文字がsaltだから要らない気が。
MD5とかだったらちょい違うけど。
って外してたらｽﾏｿ

DESの時は先頭2文字が、MD5の場合は "$" で挟まれた2番目に salt が入ります。
でも、照合するときには crypt の第2引数にそのまま入れればOK。わざわざ salt を抜き出すのは移植性の低下につながります。

die "sage" if(not crypt($input_passwd, $crypted_passwd) eq $crypted_passwd);

わざわざ salt を使うのは /etc/passwd が誰でも読めた時代の名残か? (単なる一方向性関数だけだと、たまたま同じパスワード使っている場合にヤバそう。)

Web制作板で聞いたらこちらの板の方をすすめられたのでおじゃましにきました。

シンプルな掲示板CGIを探しています。
・スタイルはTcup風。ごちゃごちゃしていない。
・過去ログ生成を自動でやってくれる。
・ドコモ、Jフォンからもアクセスできる。
・URLやメアドがそのままでない。（「URL」「Mail」とかいう文字にリンクしてくれる）
・文中に書き込んだURLはオートリンクされる。

もうずっといろいろ探してるんですが、
これらの条件を満たすものが見つかりません。
どなたかこういった掲示板CGIに心当たりありましたら教えてください。

>>544
こちらへどうぞ。
http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987&ls=50

http://www2.to/05F

http://www2.to/03F

http://www2.to/01F

http://www2.to/02F

http://www2.to/04F

Linux Apachでイントラネットのウェブサーバを立てていますが、
アクセスしてきたクライアントのIPアドレスはわかるのですが、windows機のログインユーザ名を取得するにはどうしたらいいですか?

Windows2000付属のWebServerでＣ言語CGIって可能ですか？
コンパイルしたオブジェクトの拡張子を.cgiにしてもエラーが出てしまうのですが・・・・

>>547
ログインユーザ名？
認証かかってるページへのユーザ名の事？
それなら環境変数 REMOTE_USERでとれる。Apacheのログにも残る。
Winが立ち上がった時にでるヤツのは知らん。
つかそんなモンセキュリティ上取れるのか？
ってIEの事だから穴突いたりしたら取れるんだろなぁ・・・。

>>548
PerlのCGIを動かす場合、IISは拡張子.cgiのファイルに対し、
c:\path_to_perl\perl.exeを使って実行する。
つことはCで作ったCGIも拡張子.cgiにすると、c:\path_to_perl\perl.exe
を使って実行しようとしてしまう。

んでCは単体で動くから多分拡張子は.exeにすれば良いと思う。

>>547
初回のアクセスでVBスクリプトなどでコンピュータのユーザ名を取得(わからないけど、VBスクリプトだったら、Win固有のことができるのでは?

で、そいつをクッキーでもらう。次回からそのクッキーを使ってアクセス管理。

VB使いの人、教えてやってくれ。

>>549さん
レスありがとうございます。
しかし拡張子を.exeにしても

「ＣＧＩエラー 指定された CGI アプリケーションは、HTTP ヘッダーを 一部しか返していません。返されたヘッダーは:」

というエラーが英語で出てしまいます。
しかしパーミッション・ヘッダーに誤りはないと思います。
試しに実行ファイルをループさせたり色々実験しましたが
どうやら実行すらされていないようです。
色々調べた結果、Pathが設定されていない場合にもこのエラーが表示されるようですが・・・・
(例えばc:\path_to_perl\perl.exeを使って実行するように設定してあるがperl.exeが存在していなかったり、
　　　　.dllが存在しなかった場合）

win2000+IIS+C言語でCGIを実現できた方アドバイスお願いします。
コンパイラはgccを使っています。

>>551
ちゃんと環境に合わせたコンパイルをしたんでしょうか？
例えば、LinuxでコンパイルしたものはLinuxでしか動きません、通常は。

試しに拡張子exeでコマンドラインから入力してみるとか

CGIファイルの中身をテキストで開いて変更したのですがそのまま保存しますとテキストでの保存となってしまうのです。
中身を替えた後もう一度CGIファイルのままで変更の設定を保存するにはどうすれば良いのでしょうか?
素人なので申し訳御座いませんが教えて頂けないでしょうか。

>>554
$ mv foo.txt foo.cgi
C:\> ren foo.txt foo.cgi

すいません。555さんちょっと意味がわからないのです・・・

ネタは他でやれ。

ネタじゃないならWin使ってるならWin、Unix使ってるならUnix、
MS-DOS使ってるならMS-DOS、BeOS使ってるならBeOSの勉強しろ。

Macは俺が嫌いだから捨てろ。

夏休みだよ･･･勘弁してくれ。

>>554 メモ帳を使っているなら、ファイル名をダブルクォーテーションでくくって保存すべし。
例　"abcd.cgi"。　これをしないと　abcd.cgi.txt となる。

ﾈﾀ に ﾏｼﾞﾚｽ ｶｯｺﾜﾙ（ぷ

このスクリプトで2>&1は何のために行っているのでしょうか。
標準エラー出力を標準出力に変更するということらしいのですがそうする意味がわかりません。
ちなみにこれはあるスクリプトから他のスクリプトを実行させる物のようです。

open(EXEC,"| abc.cgi 2>&1");
while (<STDIN>){
print EXEC;
}

それとこのとき、実行されたスクリプトがはき出した内容を受け取るにはどうすればいいのでしょうか。

age

>>561
man sh すれ。

[n1]>&n2
duplicate stdout (or file descriptor n1) to file descriptor n2
(FreeBSD General Commands Manual より)

0 = stdin
1 = stdout
2 = stderr
なので、標準エラー出力を標準出力にリダイレクトすることを表す。

今CGI動かしてる鯖が結構不安定なので、前回アクセス時から1時間以上経過していれば
別鯖にデータファイルのみを転送したいと思っています。
Perlで可能でしょうか？

>>561
ということは単に実行するスクリプトがはき出したstderrも一緒に出力するため
っていうことでいいのでしょうか？

後の方の質問ですが
$_ = <EXEC>;で普通に読み出すことができました。
これで読み出さなければ勝手に標準出力に出力してしまうのでどうやって
読み出すのか迷っていました。これはperlの仕様なのでしょうか？？

Perlの仕様っていうか、とりあえず一般的なプログラム言語のI/Oの復習とか。perldoc -f print とか。

>>561
書き忘れた。

IPC::Open2 を使いなさい。

SYNOPSIS
use IPC::Open2;
$pid = open2(\*RDR, \*WTR, 'some cmd and args');
# or
$pid = open2(\*RDR, \*WTR, 'some', 'cmd', 'and', 'args');
(man IPC::Open2 より)

open3 もあるので、用途によって適当にどうぞ。

>>566
perldocを見てみましたがなぜ勝手に出力するのかについては書いていませんでした。
かなり適当なコードを書いても動いてしまうので曖昧な理解で終わってしまいます。
自分のマニュアルの読み方がまずい＆UNIXに関する知識が乏しいせいかもしれませんが・・・。

>>567
調べてみたところこれは直感的でいい感じですね。
教えていただいてありがとうございます。

Portlandって所のアカウントでKENTのCGIを使うと500が返ってくるんですけど、
何か対策出来ないものでしょうか。(http://www.portland.co.uk/)
VirtualAvenueやHypermartでは問題なく使う事が出来ます。

>>569
Perlのパスが違うというオチは勘弁。

>>569
改行コードが違うってオチは禁止。

>>570-571
いえ、どちらも大丈夫です。
Our machines are very strict when executing Perl, and bad code is always rejected.
こう書いてあったので、「悪いコード」があるって事らしいのですが、
他で使えたものでどこが悪いのか分からなくて・・・。
ものはYY-BOARDです。

use strict環境下でしか動かないとか。
デフォルトで-wTとかで動くようになってるとか。

>>572
KCatch.pmを使え

>>574
これって、何も出ない方が良いんですよね・・・？
見るのも嫌なほどぎっしり埋まってくれてます・・・

その内容を書けよ

tok2で掲示板を作っています。cookie文字列がおかしくなってしまいます。
Location問題解決のためにmetaタグでrefleshをするのですが、[書き込む]→[refleshページ]→[掲示板表示]のとき
[掲示板表示]でのみcookieが文字化けしてしまいます。解決する方法はあるでしょうか
perlソースの日本語に関係している部分です↓

# &init_form('euc');
sub init_form {
local($query, @assocarray, $assoc, $property, $value, $charcode, $method);
$charcode = $_[0];
$method = $ENV{'REQUEST_METHOD'};
$method =~ tr/A-Z/a-z/;
if ($method eq 'post') {
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
} else {
$query = $ENV{'QUERY_STRING'};
}
@assocarray = split(/&/, $query);
foreach $assoc (@assocarray) {
($property, $value) = split(/=/, $assoc);
$value =~ tr/+/ /;
$value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value, $charcode);
$form{$property} = $value;
}
}

>>577
とりあえず
jcode::convert(\$value, $charcode);にしたら？
直るかどうかは別として。

tok2で作らずにローカルで作りましょう。

すみません、ここのアップローダーについて教えてください。
http://zurubon.virtualave.net/upload.txt

240〜270行目までのパスワード設定についてよくわかりません。
投稿者がパスワードを設定して自由に自分がアップしたものを削除でき、
且つそれを管理者も自由に削除できるようにしたいのですが
うまくいきません。
どっちも使用するにすると、投稿者のファイルを管理人が
管理パスワードで削除しようとすると
「削除禁止ファイルです」等、エラーが出て投稿者以外削除できなくなります。

http://zurubon.virtualave.net/crypt.cgi
ここの設定が悪いのでしょうか。
$val = crypt(　　　,　);は空白が2つありますけど
どっちに何を入れたらいいのですか？
表示されるInput: Seed: Out: の三つのうち、どこに何を入れたらいいのですか？
よろしくお願いします。

# 投稿ファイル削除パス生成時の'種'
$del_seed = 'z8';

# 投稿ファイルの管理者削除
$admindel_enable = 0;

# 管理者パスワード
$adminpass = '';

# 管理者パスワードの'種'
$adminseed = 'z8';

作者に聞きませう！

ENCTYPE="multipart/form-data"で送信すると、STDINに
-----------------------------**********

Content-Disposition: form-data; name="aaa"



aaa
（以下略）
のようなものが入ると思うのですが、これはどのブラウザでも同じ書式（？）なんでしょうか？
どうか教えて頂きたいです。

>>581
そんなー（ﾟдﾟ)
アップローダーつったらこれが殆どみたいだし、
使ってる人も多ければ教えてもらえるかな、と思ったのに・・。

>>577 =~ s/reflesh/refresh/g;

>>583
スクリプトはよく見てないけど、
crypt(パスとして使いたい文字列,z8);
として、出てきたものを管理者パスワードとして設定すればいいんじゃないかな。

サブルーチンを別ファイルにまとめ、メインのスクリプトの頭で
require '../libdir/hoge.pl' してmod_perl(Apache::Registry)で
動かしているのですが、時々最初のサブルーチンを呼ぶところで、
Undefined subroutine が出て困っています。require をフルパス
指定にしたり、startup.plで use lib qw(/full/path/libdir) 等
を試しているのですが、不定期にエラーが出続けています。
何か原因推定できるでしょうか。
動作環境はApache-1.3.20 + mod_perl-1.26 + perl-5.6.1(スレッド
オプション無し)で Solaris8で使用中。

>>586
名前空間の問題じゃなかろうか。
そんな話を耳にした記憶が。
詳しくはmod_perlのドキュメントでも見てくれ。

>>585
ありがとうございます。
でもhttp://zurubon.virtualave.net/crypt.cgi には
$val = crypt(ココ　,ココ);みたいに空白が2つありますけど。
何を入れたらいいのか教えてください。

>>588
$val = crypt ( 暗号化する文字列 , 種 );
Seedを$adminseed、Outを$adminpassに設定

@nifty じゃ Referer 変数って取れないの？
つーか、@nifty 使うのはシロート？

　クライアントがサーバーからファイルをダウンロードできるような
CGIを書いてます。（ドキュメントルートに置きっぱなしにして、直リン
されたら困るようなファイルを、その都度送信してあげるようなCGIです。）

Content-typeとContent-Dispositionの並び順は次で正しいのでしょうか？

１行目；Content-Disposition: attachment; filename=hoge.bin
２行目；Content-type: application/octet-stream<CR><CR>

ＩＥ5.5（SP1非適用）だとこの順番でないとダウンロードのダイアログに
表示されるファイル名が"hoge.bin"にならず,CGIのファイル名になって
しまうのですが、なんとなく本当は逆？のような気がするのですが。

>>587
mod_perlのドキュメントは、いろいろ見てはいるんですけど、
英語ドキュメントばかりで、なかなか進まない。(泣
特にpackage宣言はしていません。サブルーチンのファイルは、
mod_perl用のスクリプトでは無い、普通のCGIスクリプトからも
共有でrequireしてるのがマズイのか？鬱だ。

追加。
一行目の最後にも改行コードが入ってます。

>>586
Perlはrequireとか順番に実行しないような気がした。
BEGIN { require '../libdir/hoge.pl' };
でどう？

>>586
参考になるかも。
http://www.din.or.jp/~bigstone/cgilab/cgitips/mod_perl.html
http://www.din.or.jp/~bigstone/cgilab/cgitips/mod_perl1.html

>>591
順番は関係ない。
ただし、改行コードは CR じゃないぞ。

厳密に言えば、CRLF である必要がある。
空行に関して言えば、LF でも構わない。

IEは微妙に変なので、http://example.com/cgi-bin/hoge.cgi/hoge.bin
みたいに呼び出してやればok。

ZZ

>>590
HTTP_REFERER は取れる。
＠niftyで取れないのは、REMOTE_HOST。

>>596
情報感謝です．
>>IEは微妙に変なので、http://example.com/cgi-bin/hoge.cgi/hoge.bin
>>みたいに呼び出してやればok。
こういう呼び方は始めてみました。
　クライアントはドキュメントルート上のファイルをGETするのと同様に振舞える
わけですね。
　しかしこの場合、CGI側はどうやって自分にGETリクエストが来たことと、
"/hoge.bin"を知るのでしょうか？
うむ、基本をわかってないことを実感（TT

えっ！　(^^；

環境変数を確認できるCGIのURLに /hoge.bin　という文字列を
付け加えてアクセスしてみましょう。

CR -> 復改
LF -> 改行

>>594 実験しましたが、ダメでした。
>>595 あ、そこ見てます。下のページの2.が、なんか不吉な感じ
がしますが。

今日気づいたのですが、ここが関係してるのかも知れない。
http://stason.org/talks/apachecon2000/OR093/html/porting.html#Name_collisions_with_Modules_and
>>587氏指摘の通りかな？とりあえず、実験してみます。

>>598
PATH_INFO

>>586
同一人物です。が、そんなことはいいとして。
多分requireしてるライブラリに問題が、でしょう。
OOPなモジュールに書き換えてuseするのが吉かと。
頑張ってください。

質問掲示板で、レスがつくごとに親記事を書いた人に
sendmailを使って自動的にメールを送るようにしたいんですが、
もしメールアドレスが存在しなかった場合、
サーバーエラーが出たりするのでしょうか？

おいらのiモードにスパム送ってきたところPCで覗いたら、
SPAM送信ツールが、丸見えになってました。
ココ的にこのプログラムのできはどうですか？

■トップページ
ttp://onyanko.org/summer/
■SPAMツール
ttp://www.onyanko.org/svpro/

このプログラムで[email protected]に送ってあげよう

おいおい、5万人近くの利用者のメアド＆tel番がそのままおいてあるよ、、

http://www.onyanko.org/svpro/addr/addrfile.txt
http://www.onyanko.org/svpro/log/sendlog.txt
アドレステキスト晒しアゲ

>>600
試してみますー。ありがとでした。

whois警報発令中？

http://www.onyanko.org/summer/user/
ココの利用者晒しさげ

>>603
結局名前空間の問題のようです。601のリンク先に従い、
requireされている側でpackage宣言して、サブルーチンと
グローバル変数をエクスポートし、呼出しをrequireから
useに変えて(要はモジュール化した訳ですが)1日順調に
動いています。ダーティなスクリプトの書き換え優先で
OO化までは手が回りませんが、>>587,>>603で指摘された
通りと言うことで、どうもありがとうございました。

>>604
どこに届くかはReturn-Pathの設定によるね（藁

>>605
http://onyanko.org/platinum.zip
CGI一式発見！！

http://www.megabbs.com/program/index.html

ボタンをクリックするとサーバー上のファイルをダウンロード
するにはどうすればいいのでしょうか？
HTMLに記述？それともcgiでやるの？

>>617
ダウンロード回数とか調べる必要が無いならHTMLで。

htmlじゃ絶対に無理だと思うが。

いやそれがそうなんだってば今の季節
<a href="hogehoge">hoge</a>　きっとこれだ!　ｗ

>>617
確認の為に聞く。
ダウンロードは、自分のPCにDLするんだよな？
だとしたら>>620で右クリックでもして「対象を保存」で十分。
ただし、Win鯖の場合exeファイルをDLできないことがあるので注意。
実行されちまったりするからな。


もしA鯖のファイルをB鯖にDLしたいんだとしたら、LWPかSocketだな。
この場合DLと言わないと思うが。

質問です
ttp://ipveov.virtualave.net/hope/index.html
ここの「素敵メーラー Ver0.7」をomosiro.comに置くと
check.htmlが表示されるところで
formのactionが
<form method="POST" action="included://***.omosiro.com/cgi-bin/mail.cgi" enctype="multipart/form-data">
このようになってしまいます。
どうにかして対策できないでしょうか

>>619 HTML勉強しなおせ。Web製作板でな。

えいと、いや
「クリックするとサーバにのってるデータをcsv形式で
サーバのどこかに一回保存して、それを自分のPCに
名前を付けて保存」
しようと考えたのだ。
いいや、できそうにないんでFTPでやるから。

サーバのどこかに一回保存する必要があるのか?
あるとしてFTPならできるのか?
馬鹿?

>>617
CGIでやりたいことは出来るかと思いますが。

http://www.google.com/search?q=content-type+csv&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=lang_ja

あ、>>617です。

>>627
ども。
勉強します。

>>623
いや、文章をよく理解する能力を付けた方がよかった。

鯖にアプロードする事かと思ったんよ。

>>630
アプロードもできると思うが。

アプロードがHTMLだけでできるの？
frontpage extension とか mod_dav などが入ってるの前提？

ブラウザに送らせることはできるけどサーバ側で受け取る方法が…。

ブラウザでしかファイルのアップが出来ない鯖に
自動でファイルを転送するプログラムを組みたいのですが、
<INPUT TYPE="FILE" NAME="filename" …
のタグの部分のパラメータをうまく渡すことが出来ません。
他のHIDDEN等と一緒に filename="c:\index.html"&… のようにしているのですが
どこか間違えているのでしょうか？

スレ違いの予感

>>634
それはセキュリティに問題が出るので出来ないことになってます。
例えば特定のファイルを決めうちで設定してJavaScriptとかで
OnLoad時にsubmit()やられたら勝手にファイルもってかれちゃうでしょ

ん、、質問の内容を取り違ってるんかな
タグの部分のパラメタってなに？
渡すとはどっちからどっちへ？

>>635 どのスレが適切でしょうか？
>>636 なるほど・・・

パラメタは NAME と VALUE 。つまりアプするファイル名情報。
渡すのは、こちらのプログラムによって「ローカルHDD」から「サーバー」へ。

うーん、説明下手でスマソ。。

>>638
あーわかったよ
FILEだから、ENCTYPE="multipart/form-data" なんだよね？
標準入力を全部表示して見りゃわかるとおもうが、
ライブラリ等使用してるなら、multipart/form-dataのときの
値の取り出し方をライブラリのドキュメントとかでさがしてみたらいいかも。
そゆことでない？

http://onyanko.org/platinum.zip

↑こわれてる？　解凍できないけど

>>608-615 >>640
http://onyanko.org/summer/infomng.cgi
ん、、こんなSPAM送ってくるところに、
よくこんなに登録するやついるよな？

>>641
それが不思議なんだけど、いるからSPAMが絶えないんだよな

登録する人たちにとってはあれはSPAMじゃなくて
「出会いの場を提供してくれる素敵なメール」
なのではないかと。

質問させてください。
ローカルサーバーをたてて、カールさんの掲示板CGIをデフォルトのまま
各所定のファイルをおいて設置してる最中なのですが、
設置したアドレス
http://192.168.0.10/cgi-bin/bbs/che.cgi
に、アクセスすると真っ先にデフォルトの文部省にとばされます。

検索したところ同じような事例があったのですが、解決できませんでした
http://mentai.2ch.net/hp/kako/957/957253797.html
この方と同じ状態です。
解決方法ご存じの方は教えてください。宜しくお願いします

「ダウンロードしなおしたら動いた」ってどこかで見た気がする

恐縮ですがお答えいただければ助かります。
http://www.futomi.com/library/accs.html
の、ログ解析を設置したのですが、なぜか
「対象のが1件もありません」と言われて困っています。

最初acc.cgiのパーミッションが704では動かなかったので705に変えて見たら動きました。
704に戻すと高負荷になる原因があるかプログラムミスがあると出てしまいます
他は変更なしでも今のところ動くようです。
ログが1件もないと表示されるだけで・・・・すみません、動いてないです。

設置したいところはhttp://www.lovelys.net/で借りたところです。
どこをミスってるんでしょか。。
以前も失敗して再チャレンジしてみましたが力尽きてしまいました。
どうかお願いしますです。

質問です。たとえば30項目のテキストフィールドのデータを
GETでCGIに渡すとき、カンマ区切りの一つの文にしてCGIに
送り、サーバ側でカンマで分割させるのと、"?xxx=yyy&fff=aaa"
とひとつひとつ30項目GETのクエリで渡すのとどちらが
サーバ側に負担をかけないでしょうか？

>>646
製作者にメールで聞いたら？
正しい答えが返ってくる可能性一番高いよ。

>>647
どっちかというと前者の方が負担は少ないと思うが、
差は気にするほどじゃないと思われ

>>644
a-men.dat(たぶん)が0バイトのファイルじゃないと飛ばされる。
改行一個でもあると空文字がマッチする。
…だったと思うヨ。

http://sasurai.gaiax.com/home/maya1986/main
クソページ

>>648
それが質問は受け付けてないとのお答え
いっそのこと金払ってサポート受けるのがいいんでしょうかね。ｗ；

フォームメールを作っててちょっと困ってるんですが、
Webのフォームに入力して、送信ボタンで指定アドレスにメールを送るんですが、
ネスケのメーラーで受信した時だけ文字化けしてしまいます。
Outlook, Outlook Express, EdMax は大丈夫でした。

「ネスケは無視」で済ませられないので何とかお願いします。
誰かこんなケース知らないでしょうか？

>>653
文字コードちゃんとしてるか？

全部JISにしてるはずなんですけどねえ。
っていうかそれにしたって他のメーラーでは大丈夫でネスケメーラはダメ
ってのはなんなんでしょう。

他のメーラーは文字コードが不正(というか変)でも補正してくれるんだろうか…

>>655
そういうメーラーもある。

Netscape6が6.1になっても相変わらずContent-dispositionを
無視してくれやがりますがどうしたらいいですか？
4.xだとちゃんと動くのに・・

あう、
Content-Disposition: filename=
でのファイル名指定っす。

それって6からなのかな?　2バイト問題じゃなくて、、
色々やったけどもう忘れちゃった　　ｗ

ぎょえー、間違えた
この辺見れば何となく解るかも、ちょっと古いとおもうけど
http://www.tsden.org/ryutaroh/fileupload-j.shtml
http://www.hk.airnet.ne.jp/~ahero/cgi/cgiex11.html
イチゴのスレ
http://www22.big.or.jp/~15ch/readres.cgi?bo=proglam&vi=0005

知ってると思うけどRFCは無視ね　　（ﾜﾗ

FreeBSDにapacheをいれました。
そして、ためしに、定番のhallo.cgiなどを
ブラウザ経由で、表示してみると、見事成功するようになりました。
(hello worldとでる)

しかし、
次に、ある本に入っていた掲示板用cgiスクリプト(discussion.cgi)
を/cgi-bin/におき、
ブラウザ経由で、
/localhost/cgi-bin/discussion.cgi
にアクセスすると、
Internal Server Errorとおこられます。
しかし、terminalで
％perl discussion.cgi
とすると、
問題なく、html形式のソースをはいてくれました。
そのhtmlファイルを用いてブラウザで表示するとちゃんと、掲示板
がでてきました。

そこで、困ったと思い、いろいろ調べ、
http://www2.startshop.co.jp/~68user/webcgi/intro-perl.html
にある、wrapper.cgiをcgi-bin/にいれて、
(僕のlocalサーバのルートのサブディレクトリにcgi-binはあります)
/localhost/wrapper.cgi/cgi-bin/discussion.cgi
としてみると、
Not Found

The requested URL /wcgi-bin/discussion.cgi was not found on this server.
といわれます。
どこがだめなのでしょうか？

>661
ネタ?それとも、エラーメッセージも読めない厨房?
厨房なら逝ってよし！

質問です。
掲示板の入力フォームにパスワードを入れるテキストを作り、トリップのようなその人専用のIDを作りたいです。

どなたかトリップ部分のサンプルお願いします。

よく分からんけど、その端末から操作した時には
ヘッダは吐いてたの?
Cotent-type････ってやつ

664は>>661ね　人多いなあ。。

>663
スレ違いかな？
http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987&ls=50

>664
ネタにマジレス（ｗ
ｶｺﾜﾙｲﾖ

>>664
Content-type: text/htmlのことですね。
はいています。

>>662
どういうことでしょうか？
そうそう、エラーメッセージ
The requested URL /wrapper.cgi/cgi-bin/discussion.cgi was not found on this server.
でした。
これは、上であげたページにのっていたんですが、
cgiファイルでのブラウザからのアクセスは
このような、アクセス法でいいみたいなんです。
一見wrapper.cgiがディレクトリみたいになってますが。

まじでネタじゃないので、どこが問題かお願いします。
僕は初心者なので、みなさんからみたらネタレベルの
低レベルなことを尋ねているのかも知れませんが。

ラッパーって何だ?　（´Д｀；）
それだと意図した様に/discussion.cgiがPATH_INFOに入ってないと思う。
/wrapper.cgi　　はちゃんと動くよね??
"foo.cgi をデバッグしたい場合は、〜〜〜"って出てる?
つーか他のスクリプト（既存の）は動くの?
お役に立てそうにないかな、、

/wrapper.cgi/discussion.cgi 　　こうか、、

>661
そもそもrootディレクトリにcgiの実行権限を与えてるの？
/localhost/wrapper.cgi/cgi-bin/discussion.cgi

hallo.cgiを動かしたときには、どのように実行したの？
ちなみに、hello.cgiじゃないんだよね（ｗ

あなたの設定環境などが我々には分からないのだから、
もうちょっと詳しくApatchの設定内容等書かないと
レスつけても勘違いになることがあるかも知れないので
これ以上書きようがないよ。

Apatchはいかんだろ（ｗ

強ち間違いでも無いかも知れんぞ　　:-）
http://www.google.com/search?q=Apatch&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=lang_ja

何となく思うんだけど、PATHの設定とかhttpd.confをもう一度良く
見直した方が良いんじゃ無いかな。
notfound出るのはおかしいよ、servernameとかExecCGI辺りが上手く
設定出来るか、良く調べてみて。 ちょと板違いだけど　　ｗ
もうどっか行っちゃったかな?

ありがとうございます。
apacheの設定は、
１、httpd.confにおいて、
<Directory "/usr/local/www/*">
からはじまるところにある、
全てのOptionsにExecCGIを付け加えた。

２、ScriptAlias /cgi-bin/ "/usr/local/www/data/cgi-bin/"
もかいた。

３、AddHandler cgi-script .cgiもかいた

３、/data/cgi-binのパーミッションを755にした。

というところです。

>>672
>そもそもrootディレクトリにcgiの実行権限を与えてるの？
>/localhost/wrapper.cgi/cgi-bin/discussion.cgi
http://www2.startshop.co.jp/~68user/webcgi/intro-perl.html
によると、wrapper.cgiはcgi-binに放り込め。と書いてあります。
このcgi-binにだけ、実行権限は与えてあります。
/localhost/wrapper.cgi/cgi-bin/discussion.cgi
というのは、上のページを参考にして、このような、
ファイルへのアクセスのしかたでいいように思われました。
一応/localhost/cgi-bin/wrapper.cgi/discussion.cgi
としても同じ結果がでます。

そもそもwrapper.cgiを使っているのは間違いなのでしょうか？

hello.cgiは/localhost/cgi-binにあります。
ソースは、
#!/usr/bin/perl

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

print "<html><body>";
print "Hello world.";
print "</body></html>";
で、
ブラウザからみると、ちゃんと、
Hello world.とでてきます。

age

サゲ

◆綺麗なおねぇさんは好きですか？◆
http://www.futomomo.com/netidol/sister/megu/
◆アイドル画像秘宝館◆
http://www.futomomo.com/netidol/idolhappy/maki/

wdewter

675です。
どなたか分かる人お願いします。

>>679
まず、wrapper.cgiはちゃんと動いてるの？
http://localhost/wrapper.cgi
だけ入れるとそれなりにエラーメッセージが出るはずだからそれを確認すべし。
実は、
http://localhost/cgi-bin/wrapper.cgi
だったりしない？

みんな色々書いてるからそれを一つずつ確認しないと
パスミスとか鯖名が通ってないとか確認してるの?
まずhtmlを表示→hello.cgi動作確認 で、自作のは置いといて
出来合いのスクリプトもうちょっと動かしてみて

つか404出ますとか言われると 仮想パスとか解ってないのかなぁ
と思って 説明以前にもどっちゃうのね

> しかし、terminalで
> ％perl discussion.cgi
これじゃダメ、実行権限与えて（7**）
%./discussion.cgi 　　　これで動く？
perlのパスはあってる?　perl5とかになってない?

っつーか、perl discussion.cgi で動くなら、wrapper使わんでいいでしょ。
で、500 Internal Server Errorってことだから、
定番で #!/path/to/perl が間違ってるか、CRLFの問題。
とりあえず、disccussionの先頭行を
#!/usr/bin/perl --
（最後の--が重要）にしてみよう。

A pacth!!

みなさま、有難うございます。できるようになりました！
682さんのおっしゃるように、
#!/usr/bin/perl --
で動きました。
#!/usr/bin/perl
ではずっとinternal server errorがで続けていました。
この--ってどういう意味なのでしょうか？

ここでしていい質問なのかわかりませんが、
CGIの中にあるURLのアドレスがわかりません。
具体的にいうとチャットの中にあるアドレスがわからないのです。
プロパティをみても正確でないし、ソースをみてものっていません。
これはHP製作者が隠していると思うのですが､場所を知る方法ありませんか？
別に変なことにつかうのでは全くありません。

意味不明

>>685
要は、改行コードの問題なんだけど。
FreeBSDだとLFが改行だけど、WindowsだとCR+LFが改行になる。
#! から改行の前までに書いてあるコマンドを実行しようとするから、
/usr/bin/perl(LF)
ってのを実行しようとして、そんなコマンドないよ→Internel Server Error
で、 -- をつけると、これ以降の文字が無視されるから大丈夫になる。
まぁ、自分で「CGI 改行コード」とかで検索したほうがいいとおもうけど。

そう言う意味だったのか、、、
今まで使ってたけど意味は知らなかった　（´Д｀；）
漏れも勉強になったよ。　3Q!!>>688

>>688の4行目
/usr/bin/perl(CR) だ。鬱。

基本的なＢＢＳプログラムの組み方（フローチャート）
を教えてください。こんな感じでよいですか↓

10 ＰＯＳＴされたメッセージを解析
20 削除要求があれば 50,なければ次へ
30 書込要求があれば 60,なければ次へ
40 100へ
50 指定されたメッセージを削除して 100へ
60 指定されたメッセージを追加して 100へ
100 ＢＢＳをＨＴＭＬ化110 終了

CGI入れてるディレクトリのパーミッションはなんにすれば
いいんですか？
今755にしてるんですが外部からみえまくりです。
掲示板設置してるんですけど、600にしたら掲示板みえなくなっちゃうんです。
お手数ですが教えて下さい。

>>692
流石にそれは簡単すぎる問題。2chで聞くべき問題じゃないぞ。
YAHOOで"パーミッション"とか調べると良い。

>>692
http://permission.jp.org/
ほれ。

>>692
ﾃﾞｨﾚｸﾄﾘに制限かけるなら".htaccessの設定方法"で検索してくれ

>>693
ハイ。その通りです。
検索したらわかりました。
701が正解・・・でいいんですよね？

とりあえずindex.htmlは置いたほうがいいんじゃないかと思った

>>696
ディレクトリの内容を読みたいCGIとかだと705の方じゃなきゃだめだったりするよ。
（中身見えちゃうけど）
あと、suexecとかで動いてるところなら700にするとか。
705でindex.htmlを置いておくのが安定だと思う。

サーバによってまちまちだな。
700でも動くところはあるし、777でもログ等のファイルは見られないようにしてあるところもあるし。
動く範囲でなるべく低くすれば良いんじゃないかと。

まぁ、ファイルを直接見られたくないのなら
そのファイル自体のパーミッションを変える方が適切だけど。

>>660少し頑張った人
めちゃくちゃ遅レスですがありがとうございました。
会社2ﾁｬﾝﾈﾗなもんで。えへ。

で、リンク先を参考にしたらうまい事動きました。
Content-Disposition: filename=hoge.hog
じゃなくて
Content-Disposition: form-data; filename=hoge.hog
にすれば動きました。書式が間違ってたとは・・
前者でもIE,NN4.xだとちゃんと動くんで気付きませんでした・・

ここで良いのかどうかよくわからないんですが
質問させてください。
FTPを使わずに直接パーミッションを変更する方法は
どうやるのでしょうか？
意味不明だったらすみません！

>>701
telnetまたはchmod()関数

質問だけど、f2sであやしいあぷろだは使えるのかな？

レン鯖板でそんなスレが有ったよ、何だか調子良くないみたい。
あそこはとにかくドンドンデータが壊れていくです　　(-、- )
ちょと鼬外だからリンク
http://natto.2ch.net/test/read.cgi?bbs=perl&key=981081855

なまえ消し忘れた　ぁぁぁ〜

鯖 管理者にログファイルを見れなくするために
パスワードをかけて開けないようにできませんかね？
たとえば、zipみたいにデレクトリー事とか...

>>706
> たとえば、zipみたいにデレクトリー事とか...
この行の意味が全然わからないけど・・・

サーバ管理者は何でも出来るので無理。

>>706
何のログファイルか知らんけど、掲示板とかだと
利用者が投稿（データ送信）した時の全てのデータが鯖のログに残るからどうしようもないと思う
普通 サーバー管理者は見ないだろうけど・・・・

自鯖を立てる！
これしかないでしょ。

>>706
ログデータに crypt かけて保存とか。
それ以前に信用できない鯖管のいるところは止めるのが先だな。

FreeBSD、apacheでcgiファイルをみると、いっつも文字化けします。
ブラウザの文字コードをいろいろ変えてもだめです。
qkcで文字コードをためしに、
qkc -eu *.cgi としたり
qkc -ms *.cgi としても、
どうやっても文字化けします。どうしてでしょうか？

>>710
crypt(3) は不可逆。
crypt(1) (aka enigma)を使うにせよ、鍵は平文で保存する必要があるので無駄。

>>711
CGI ファイルを何でどのようにして見たのですか?

http://www2.startshop.co.jp/~68user/webcgi/bbs-perl-1.html
をみて掲示板をためしに、つくっています。
ソースコードは、ほとんど上のページと同じにしてつくってみましたら、
掲示板の最初の画面(入力する前の画面)では、送信ボタン
以外文字化けします。(掲示板という文字等が、化けます)

しかし、いったんフォームに文字入力後に送信すると、
全てちゃんと日本語で表示されるようになります。

どうしたところが問題なのでしょうか？

>>713
charsetを吐いてみるとか

>>714
charsetってどうやってはくのでしょうか？

◆◆◆（新）芸能人彼氏とＨ芸能界の表裏画像動画大公開◆◆◆
◆アイドル画像秘宝館◆
http://www.futomomo.com/netidol/idolhappy/maki/
◆綺麗なおねぇさんは好きですか？◆
http://www.futomomo.com/netidol/sister/megu/
◆セーラー服◆
http://www.futomomo.com/netidol/sailor/miku/
◆モーニング娘 ◆
http://www.futomomo.com/netidol/morning/mai/

◆◆◆（新）芸能人彼氏とＨ芸能界の表裏画像動画大公開◆◆◆
◆アイドル画像秘宝館◆
http://www.futomomo.com/netidol/idolhappy/maki/
◆綺麗なおねぇさんは好きですか？◆
http://www.futomomo.com/netidol/sister/megu/
◆セーラー服◆
http://www.futomomo.com/netidol/sailor/miku/
◆モーニング娘 ◆
http://www.futomomo.com/netidol/morning/mai/

;o;:o:op

print "Content-type: text/html; charset=Shift_JIS\n\n";
#など

質問です！！

会員制のページを作りたいと思います。会員登録ページでパスワー
ドを登録するとcrypt()によりhtpasswdファイルにユーザー名とパス
ワードを追加するプログラムまでは簡単にできました。

次にログインするときに、htaccess制限されたディレクトリの中に、
パスワードダイアログではなくて、フォームにユーザー名とパスワ
ードを入力させてログインさせることってできますか？？

デザイナーの方、お願いします。

なぜデザイナー？

>>718
できるけど、普通に認証しときなさい。

>>719
デザイナーの方はデザインにこだわるので、認証ダイアログのような無機質な
ものを嫌うと思ったからです。
どちらかといえばやっぱりログオン画面もきれいな方がいいですよね？

それと、会員の入会した週によって飛ぶページを変えたいのです。なので、ど
うしてもCGI処理する必要があり、上のような質問になりました。
もちろん、デザイナーの方でなくてもかまいません。

いまいち何をやりたいか理解できないんだけど、
単に Cookie 使えば良いんじゃない?
でも、こういう話もあるので十分注意してね。http://www.japu.org/cgi/security/session_vulnerability.html

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃　　ただいま、ラウンジで大盛り上がりのブラウザ戦争ゲーム！　.　 ┃
　ﾋﾞﾋﾞｰ　　　　 　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　［>>8888888　 ‖|＊ENDLESS BATTLE@2ch＊|‖　　 　　 . ＼冂／
　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣　　　　　. E´∀｀ ﾖｉ /7
　逝って良し！を発動。　　 . ミ从､;､;从 彡　　 ﾎﾞｼｭｯ .()) 　「/~'ー'~~ 7/￣ |
　￣￣∨￣￣￣￣￣￣　http://corn.2ch.net/test/read.cgi?bbs=entrance&key=997943180　.┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

JAPU氏ね

本当にくだらない質問なのですが
NULL文字のTEXTファイルをWin98のメモ帳で
表示させる方法って無いでしょうか？
よろしくお願いします。

>>725
NULL文字のTEXTファイルとは何ですか

>>726
レス有難うございます。
Mac愛用者の知人からもらったファイル(NULL文字の）なのですが。。。
Winだと何も表示されないのです。

だーかーらー
>>727
>>ファイル(NULL文字の）
ってなんだ？

>>728
きっとファイル名から内容からNULL文字(\x00)で埋まってるファイルだ
おいらマカーだけど作れないことはない。

>>725はマックバイナリの話から勉強すれ

>>730
レス有難うございます。
Winだと無理ってことですね。

ラウンジのトリップスレから来た人と見た

どうせサイズ0のファイルとかだろ

ＥＮＶチェッカー作ってるんですけど、プロキシサーバー等の
反応時間（速さ）を知るためにはperlではどうしたら値を取得
できるでしょうか？

流れとして 時間の取得 ⇒ ＥＮＶチェック ⇒ ２回目の時間の取得
として　２回目の時間−１回目の時間の取得とすればＯＫと思って
たんですがこれだとＥＮＶチェックにかかった時間しか取得できま
せん。あたり前ですね。
くだらない質問ですがお願いします。

一行掲示板のshortmessage
http://shortmessage.hypermart.net/
でIPかホストを取得してログファイルから参照できるようにしたいのだが、
どのような文をどこに注入したらよいのか教えてくれ。
自力でやったが無理だった。

>>735
改造はここかと。

スクリプト改造工房 Part3
http://corn.2ch.net/test/read.cgi?bbs=php&key=988808396

>>734
普通はPINGとかじゃないかな。
サーバー間の接続環境で変わるからあんまあてにならんけど。
使ったことないけどNet::Ping.pmあたりでできない？

thanx>>736

フォームのテキストボックスのフォントを等幅フォントにしたい場合、
どの様にすればいいのでしょうか？

がいしゅつ？