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

**名無しさん＠お腹いっぱい。** · 2001/05/01(火) 23:37

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/01(火) 23:38

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 01:07

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 01:32

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

1 · 2001/05/02(水) 01:55

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

ブチ · 2001/05/02(水) 02:05

$_ = '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'<>;
だとちょっと違う動作するけど。

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 02:11

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

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

になってほしいです。

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 04:07

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

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

ブチ · 2001/05/02(水) 07:32

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

7 · 2001/05/02(水) 08:27

>>9
語尾が <> だし

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 09:25

>>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;
の方が確実かな？

7 · 2001/05/02(水) 12:02

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

ブチ · 2001/05/02(水) 12:27

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 16:45

>>8
forkしてみるとか。

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 20:32

質問です。

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 21:03

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 21:34

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

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 21:38

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

16 · 2001/05/02(水) 21:51

>>18
おー、あんがとね

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 23:20

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

17 · 2001/05/02(水) 23:33

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

15 · 2001/05/03(木) 00:18

>17、20

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

**コブラ** · 2001/05/03(木) 08:39

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

**コブラ** · 2001/05/03(木) 09:25

>>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;

7 · 2001/05/03(木) 11:32

>>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個とは限らない。
だからダメ。

**コブラ** · 2001/05/03(木) 12:23

>>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;

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 12:30

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

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 15:37

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

28 · 2001/05/03(木) 15:41

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

7 · 2001/05/03(木) 17:52

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

**山田十** · 2001/05/03(木) 21:20

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

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

**コブラ** · 2001/05/03(木) 23:03

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

#!/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;

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 01:06

>>30 ほれ。

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 01:35

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 03:07

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 03:11

厨房っぽい質問いいですか？
下の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' );
とすればいいんですよね？
どうしたらいいか教えてください。

7 · 2001/05/04(金) 03:42

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 04:03

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 06:05

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 12:02

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 12:06

めちゃくちゃになってしまいましたごめんなさい
$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;
??に入るのが知りたいんです。

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 12:31

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 13:00

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 16:49

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

43 · 2001/05/05(土) 01:48

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

**初心者** · 2001/05/05(土) 06:12

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を消しただけだと日付けなどがでたらめになってしまいました。

**山田十** · 2001/05/05(土) 06:17

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,);

}

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 06:20

>オタクくさい構文
??

46 · 2001/05/05(土) 06:54

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 17:08

すみません、もう一回教えてもらえませんか。
スクリプト中の自動リンクの表示色を変えたいのですが。
どうしても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;
}

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 17:19

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 18:07

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 20:01

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 20:09

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 20:18

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

**山田十** · 2001/05/05(土) 21:31

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

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

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

**山田十** · 2001/05/05(土) 21:35

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/06(日) 00:10

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

**名無しさん＠お腹いっぱい。** · 2001/05/07(月) 20:33

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

**ミ,,ﾟДﾟ彡** · 2001/05/07(月) 20:59

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

$i = 0;
foreach (@array){

#何か処理

$i++;
}

**名無しさん＠お腹いっぱい。** · 2001/05/07(月) 21:32

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/07(月) 22:07

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/07(月) 22:24

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

どんな感じよ。

**ミ,,ﾟДﾟ彡** · 2001/05/07(月) 22:46

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

**タコ初心者** · 2001/05/07(月) 23:15

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

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

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/07(月) 23:26

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

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

**タコ初心者** · 2001/05/07(月) 23:44

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 00:00

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

61 · 2001/05/08(火) 00:21

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

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

59 · 2001/05/08(火) 01:08

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 10:08

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 11:40

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 11:45

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 12:00

>>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させればＯＫ。

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 12:07

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

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

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

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

75 · 2001/05/08(火) 12:08

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

71 · 2001/05/08(火) 12:19

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 12:34

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 12:38

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 12:40

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 12:42

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/09(水) 01:58

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

**名無しさん＠お腹いっぱい。** · 2001/05/09(水) 02:27

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

**名無しさん＠お腹いっぱい。** · 2001/05/09(水) 10:42

こんにちは。
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使わないほうが楽そうですが･･･
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 2001/05/09(水) 15:23

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

**名無しさん＠お腹いっぱい。** · 2001/05/09(水) 17:04

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

**名無しさん＠お腹いっぱい。** · 2001/05/09(水) 18:57

>>84
DBI

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

82 · 2001/05/10(木) 01:58

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

**名無しさん＠お腹いっぱい。** · 2001/05/10(木) 02:37

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

**名無しさん＠お腹いっぱい。** · 2001/05/10(木) 19:56

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

90 · 2001/05/10(木) 20:07

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/10(木) 22:17

クッキーについて教えてください。
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には値が入っていませんでした。

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

**名無しさん＠お腹いっぱい。** · 2001/05/10(木) 22:56

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

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/10(木) 23:03

>>93 さん

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

他に手はありませんか？

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/10(木) 23:17

>>93 さん

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 00:39

>>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も同様
#--
つぶれたインデントはソース見てくれや

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/11(金) 04:14

>>95 さん

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 13:14

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 13:48

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

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

98 · 2001/05/11(金) 13:53

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 13:59

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 15:47

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 16:40

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

**_gunzip** · 2001/05/11(金) 17:43

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だよ。

**_gunzip** · 2001/05/11(金) 17:45

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

99 · 2001/05/11(金) 18:45

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/11(金) 18:47

ものすごく基本的な質問でもうしわけないのですが、以下の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>";

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

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

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

侮ｦできない。

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

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

**_gunzip** · 2001/05/11(金) 18:55

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/11(金) 19:08

>>108さん

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 19:28

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

こんな手もある。

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

**110** · 2001/05/11(金) 19:29

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

**名無しさん＠お腹いっぱい。** · 2001/05/11(金) 19:43

EUCで書くという手も

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

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

**つーか** · 2001/05/11(金) 19:45

尻Pはヤメレ

**W3C信者** · 2001/05/11(金) 19:58

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 00:16

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 01:50

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 02:44

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 06:40

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 08:57

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 10:25

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 11:07

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 11:24

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 13:22

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

**JAPU** · 2001/05/13(日) 14:36

LWP
http://search.cpan.org/

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 14:51

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

**123** · 2001/05/13(日) 15:25

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 21:58

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 22:05

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

**121** · 2001/05/13(日) 22:23

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 22:40

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 22:54

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

75 · 2001/05/13(日) 23:25

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 23:27

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 23:42

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

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 23:45

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

**127** · 2001/05/14(月) 00:06

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

**115** · 2001/05/14(月) 00:09

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 11:21

掲示板に書き込みすると

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 11:46

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 11:48

chopの予感

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 11:49

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

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

**138** · 2001/05/14(月) 11:52

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 11:55

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 11:55

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

**143** · 2001/05/14(月) 12:00

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

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

**138** · 2001/05/14(月) 12:58

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/14(月) 15:04

いつもお世話になっております。
今日は、「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の部分を
（１）（２）（３）で使い分ければ安全でしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 15:11

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/14(月) 15:18

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/14(月) 15:35

追加質問です。こういう方法で良いでしょうか？
（さきほどの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);
------------------------
という感じに使い分けてみました。こんな感じで大丈夫でしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 18:04

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

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

**Σ(ﾟдﾟ|||)デキナイ～** · 2001/05/14(月) 20:34

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 21:09

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 23:43

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 01:05

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 02:06

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 03:56

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 21:37

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 22:19

gethostbyaddrが使えないから。

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 01:02

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

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 01:46

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

**158** · 2001/05/16(水) 21:11

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

**JAPU** · 2001/05/16(水) 21:18

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

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 21:21

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

**158** · 2001/05/16(水) 22:04

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

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 22:30

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

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 22:34

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

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 02:00

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

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 02:04

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

**40-41** · 2001/05/17(木) 19:33

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

**155** · 2001/05/17(木) 22:51

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

**名無しさん＠お腹いっぱい。** · 2001/05/18(金) 04:31

掲示板にカウンターを取りつけたいと思ってます。
とりあえず、ここの
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をアップするとエラーが出てしまいます。
どうかよろしくお願いします。

**143** · 2001/05/18(金) 07:28

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

**173** · 2001/05/18(金) 07:30

クッキー消し忘れ。
鬱。

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

**名無しさん＠お腹いっぱい。** · 2001/05/18(金) 09:44

バックスラッシュより

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

の方が好きだ。

**173** · 2001/05/18(金) 13:01

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

**名無しさん＠お腹いっぱい。** · 2001/05/18(金) 21:05

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

**172** · 2001/05/19(土) 01:10

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

**ルーキー** · 2001/05/22(火) 10:08

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

見積＆発注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へ追加する方法が判りません。

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 10:30

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

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

**ルーキー** · 2001/05/22(火) 10:59

>>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";
の直前かと思うのですが・・・

よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 11:24

>>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";
このやり方だと、チェックボックスの意味がなくならないかい？

**ルーキー** · 2001/05/22(火) 11:48

>>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にしたいのです。

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 12:49

こんな感じかのー

#!/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__

**182** · 2001/05/22(火) 13:12

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

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

**ルーキー** · 2001/05/22(火) 13:42

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

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

**ルーキー** · 2001/05/22(火) 14:01

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

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

**182** · 2001/05/22(火) 14:22

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

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

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

**182** · 2001/05/22(火) 14:23

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

**ルーキー** · 2001/05/22(火) 16:42

>>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";
}

ご面倒かけます・・・

**182** · 2001/05/22(火) 17:01

いや、$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);
}
をそのままコピペしてないよね？
見やすいように全角スペース使ってるから、そのままコピペしたら当然エラーが出るけど。

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

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

**ルーキー** · 2001/05/22(火) 17:34

＞いや、$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）====================

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

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

**182** · 2001/05/22(火) 19:05

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

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

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

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 19:09

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 19:21

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 19:22

s/回答/展開/

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 19:27

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

**ルーキー** · 2001/05/22(火) 19:27

>>182さん
できました。

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 20:30

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 21:33

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