ＣＧＩだけど、なんか質問ある？Part 5

**名無しさん＠お腹いっぱい。** · 01/12/26 10:51

■過去ログ
　Part 3 http://pc.2ch.net/test/read.cgi/php/988727833/l50
　Part 4 http://pc.2ch.net/test/read.cgi/php/1000804655/l50

その他参考になるスレッドを >>2 に纏めたので、十分に調べた上で質問して下さい。

**買物カゴ** · 02/02/17 14:48

厨でスミマセン。
行頭を下げて、投稿する方法がわかりません。
あきらめました。とほほ。
ご迷惑をおかけしました。

**名無しさん＠お腹いっぱい。** · 02/02/17 15:07

著作権的に問題ないのか？
市販の書籍のコード晒すの。

**名無しさん＠お腹いっぱい。** · 02/02/17 18:57

配列要素の参照に@…？まさかッ！Perl6のコードかッ！

**名無しさん＠お腹いっぱい。** · 02/02/18 18:17

>>696
偶にいるんだよね、こーいうことしちゃう奴。
んでもスライス扱いになるから、意図した動きになるみたいよ。
だから、こーいう書き方したいなら、

($scalar) = @list[1];

とかって書いた方が気持ちよいけど。

**名無しさん＠お腹いっぱい。** · 02/02/19 04:59

>>692
そのソースだと，これくらいしかわからなかった。
@kazuを処理して， %datareg1と %datareg2に結果を入れてる。
そのあとクッキーを読んで，%data1と %data2に結果を入れてる。

**名無しさん＠お腹いっぱい。** · 02/02/19 11:49

改行を含んだ変数($tegami)があるんですが、
この変数を1行毎に処理したいのですがどうしたらいいのでしょうか？
while とか foeach とかでやろうと思っているのですが分かりません

**名無しさん＠お腹いっぱい。** · 02/02/19 11:51

>>699
while($data ne "")
{
$data =~ s/(.*?)\n//;
push(@data,$1);
}

**名無しさん＠お腹いっぱい。** · 02/02/19 11:52

>>700
ごめん。

$data -> $tegamiで。

**名無しさん＠お腹いっぱい。** · 02/02/19 12:21

>>700-701
速レスありがとうございました！
無限ループさせてしまっていました、、、
助かりました

**名無しさん＠お腹いっぱい。** · 02/02/19 12:34

>>700
役に立ったかな？

$data =~ s/^(.*?)\n//;

の方がより良いかも。

**名無しさん＠お腹いっぱい。** · 02/02/19 12:58

foreach ($tegami =~ /([^\n]*?\n)/g) {
　　chomp;
$_ ...
}
とか

**名無しさん＠お腹いっぱい。** · 02/02/19 14:59

A子さん　　　はじめまして
B子さん　　　どうも
A子さん　　　どうも

こんな感じでログファイルに保存してあったとして
B子さんの発言のみをログファイルから読み込んで
表示するにはどのように記載すればよいのでしょうか？

**Perl勉強中** · 02/02/19 15:13

open(OUT,"$logfile");
while(<OUT>){
@log=split/\t/;
if ($log[0]=B子さん){
print @log;
last;
}
}

かな？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:16

>706
それだと、if文のところで、$log[0]がすべてB子さんに書き変わる。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:18

>706
そして、それだと、Ｂ子さんが一回でてくるとそこで終了してしまう。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:19

>706
さらに、openしたOUTはいつクローズしてもらえるかとうずうずしている。

**Perl勉強中** · 02/02/19 15:21

あれ？そうですか？
じゃぁ
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0]=B子さん){
print @hoge;
exit
}
}
でどうですか？

**Perl勉強中** · 02/02/19 15:22

B子さんが一つ以上あるなら
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0]=B子さん){
print "@hoge\n";
}
}
で

**名無しさん＠お腹いっぱい。** · 02/02/19 15:24

>710
だから、そのif文だと
もし($hoge[0]にＢ子さんを代入できたら)｛@hogeを出力して実行終了}
だろ？
@hoge[0]にＢ子さんを代入することを阻害する要因が何一つこれっぽっちもない以上
一行目の配列で終了だよ。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:25

>711
いつ気付くんだろ・・・・

**Perl勉強中** · 02/02/19 15:26

B子さんが一つ以上あるなら
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] eq B子さん){
print "@hoge\n";
}
}

こうか？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:26

>714
そうだ

**名無しさん＠お腹いっぱい。** · 02/02/19 15:27

「closeしろ」の意味を取り違えてる、とか
B子さんをクォートしなくても良いンか、とか。

**Perl勉強中** · 02/02/19 15:28

open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] == "B子さん"){
print "@hoge\n";
}
}
これでも良し？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:32

んで、俺ならこうする。

open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file) {
@hoge = split(/\t/,$_);
if ($hoge[0] =~ /Ｂ子さん/) { print $_; }
}

**名無しさん＠お腹いっぱい。** · 02/02/19 15:33

>>717
文字にはeqじゃないの？　==でどうなるかわからんけど。
foreach内単に

print if (/^Ｂ子さん/);

ではダメなのだろうか？

OUTって名前が気持ち悪いのは俺だけ？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:33

>717
それだとどうかしらん。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:35

>719　
ぜんぜんおっけーっしょ？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:43

そういやなんでOUTなんだ？普通INとかそれ系だろ。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:44

open IN, "<$logfile" or die;
while(<IN>){
print if /^B子さん\t/;
}
close IN;

**705** · 02/02/19 15:51

>>706-723
こんない沢山のレスありがとうございました。
参考にさせて頂きます。

**705** · 02/02/19 15:51

こんない×
こんなに○
すいません間違えました。

**705** · 02/02/19 16:01

度々すみません。
追加の質問で
B子さんの名前の場所と
コメントの場所を調整するにはどうすればいいのでしょうか？

B子
どうも

こんな感じです。

**Perl勉強中** · 02/02/19 16:23

懲りずに挑戦
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] eq "B子さん"){
print "$hoge[0]<br>$hoge[1]<br>";
}
}
又は
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] eq "B子さん"){
@hoge=~s/\t/<br>/g;
print "@hoge<br>";
}
}

でどうでしょ？

**名無しさん＠お腹いっぱい。** · 02/02/19 16:45

>>727
脳内で完結しないで試してから書き込むように。
#!perl
open IN, "<$logfile" or die;
while(<IN>){
if(/^B子さん\t/){
s/\t/<br>\n/;
print;
}
}
close IN;

**名無しさん＠お腹いっぱい。** · 02/02/19 17:05

>>728
s/^(Ｂ子さん)\t/\1<br>\n/;

**名無しさん＠お腹いっぱい。** · 02/02/19 17:08

s/Ｂ子さん/Ｂ子ﾀﾝﾊｧﾊｧ(;´Д｀)/eg;

**名無しさん＠お腹いっぱい。** · 02/02/19 17:58

>>730 コンパイルエラーやんけ

**名無しさん＠お腹いっぱい。** · 02/02/19 17:59

>>729
その場合は\1じゃなく$1奨励な。

**名無しさん＠お腹いっぱい。** · 02/02/19 18:04

>>732
あ、ほんとだ。
外で\でも通っちゃうのか

**名無しさん＠お腹いっぱい。** · 02/02/19 20:42

もしよろしければ教えてください。

文字列を保存ファイルから読み出して、１文字ずつに区切りたいのです。split(//,$aiueo);
半角文字(1とかa)は成功するのですが、全角文字(１とかＡ)が保存されているとその部分だけ文字化けしてしまいます。
どのようにすればうまくいくのでしょうか??。

**名無しさん＠お腹いっぱい。** · 02/02/19 21:15

>>734
だって全角文字って２～３バイトだし(EUC,SJIS)。
JPerl使うって言ったら怒られるだろうなぁ・・・。

**名無しさん＠お腹いっぱい。** · 02/02/20 00:42

なんかマルチバイト関数とかってなかった？

**名無しさん＠お腹いっぱい。** · 02/02/20 01:11

>>734
Perlメモにそのままのがあったよ。
www.din.or.jp/~ohzaki/perl.htm#JP_Split

それともUTF-8使ってみるとか。

#utf8プラグマを使ってみるてすと。
#このソースの文字コードをUTF-8にすること。
use strict;
use 5.6.0;
use utf8;
use Data::Dumper;

my $str = "あいうえおabcde";
my @strs = split "" , $str;

print Dumper @strs;

結果
$VAR1 = 'あ';
$VAR2 = 'い';
$VAR3 = 'う';
$VAR4 = 'え';
$VAR5 = 'お';
$VAR6 = 'a';
$VAR7 = 'b';
$VAR8 = 'c';
$VAR9 = 'd';
$VAR10 = 'e';

とりあえずは成功。でもほかのファイルから文字列を取り出して処理する場合はどうなるか・・・。

**名無しさん＠お腹いっぱい。** · 02/02/20 02:34

> 734
環境は？文字コードは？それがないことには答えようがないYO!

**名無しさん＠お腹いっぱい。** · 02/02/20 02:44

質問すみません。

投票ボタンを押すとカウントが1増えると言う感じの
CGIを作るにはどう記載をするにはどうすればよいのでしょうか？

1番簡単な記載の仕方を教えていただきたいです。

**名無しさん＠お腹いっぱい。** · 02/02/20 07:59

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

open(DATA,"dat");
$count = <DATA>;
close(DATA);

open(DATA,">dat");
print DATA $count++;
close(DATA);

print "CONTENT-TYPE:text/plain\r\n\r\n$count";

**名無しさん＠お腹いっぱい。** · 02/02/20 10:26

>>738
Perl5です。
jcode.plを使って、EUCに統一しています。

ご迷惑をおかけしてすみません。（初心者）

**739** · 02/02/20 13:25

>>740
740様ご教授ありがとうございます。

宜しければ

フォームの中身が
name=普通
name=簡単

ログファイルの中身が
普通 1
簡単 2

のような形になるような記載の仕方を教えてください。

**739** · 02/02/20 13:28

度々すみません。

ついでに投票率もわかるようにして頂けると
助かります。

**名無しさん＠お腹いっぱい。** · 02/02/20 15:06

>743
投票率ってなんだよ。対象分母がわからないのに、なんでそんなもんがわかるんだよ。
と、おきまりの煽り文句入れて於いて。
得票率は、全体の件数と選択項目あたりの票とのかねあいだから、
表示ルーチンで逐次計算する必要があるね。
データを集計するルーチンで逐次カウントするか、集計時にあらかじめ、分子と分母
作っておくか選択するわけだね。

**名無しさん＠お腹いっぱい。** · 02/02/20 15:10

>742
その質問は、Web制作板ずら。

最初から、
<input type=radio name=name value=1>普通<BR>
<input type=radio name=name value=2>簡単<BR>
にしたら？

**こっちへ逝ってよし** · 02/02/20 15:12

http://px.a8.net/svt/ejp?a8mat=BZGKH+96FLIQ+1I6+5Z6WX
↑と↓どっちのサイトがいい？？
http://px.a8.net/svt/ejp?a8mat=C17UJ+8D9CVM+A0+1NJRXD

**名無しさん＠お腹いっぱい。** · 02/02/20 15:18

>746
ブラクラ

**739** · 02/02/20 15:29

744様,745様
ほんとに単発質問申し訳ございません。
書き込んだ後に気がつきまして対処ができなくどうしようか困っていました。

#! /usr/local/bin/perl

open(DATA,"dat");
$count

**739** · 02/02/20 15:31

......
のやり方をコピペでためしたらDL状況になってしまいました。
どうすれば動作が可能になるのでしょうか。。。

**名無しさん＠お腹いっぱい。** · 02/02/20 15:35

>749
シェルから、which perlとして、Perlの在処を調べる。
また、cgiが実行可能かどうかも調べる。
さらに、httpd.confで、perlをexecにしなければいけないかどうかも考える。

大変だね。

**739** · 02/02/20 15:42

750様
レスありがとうございます。
フォームにしてみたらできました。

しかし、カウントされません。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:22

ここ見てるかぎりじゃ何もせず他人にコード書かせてるようにしか見えないのだが。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:30

>752
ｿﾚﾀﾞ！(◕ฺ∀◕ฺ)

**739** · 02/02/20 16:53

ほか行きます。

**名無しさん＠お腹いっぱい。** · 02/02/20 21:36

すんません、このアクセス解析なんですが、
ttp://www.din.or.jp/~himura/at-works/access/access.html

@niftyで動かしてる人います？replist.cgi?checkでは全部OKと表示される
んですが、パスワード打って解析結果表示させようとすると500エラーが・・。
main.htmlをmain.plにしたり、homepageディレクトリに置いてみたりと

色々やってみましたが、何度やっても「500 内部サーバーエラー」っス（;´Д｀）
パーミッションや転送モードを何度も確認してみましたがダメでした・・。
ちなみにkentさんの「Access Repport」はちゃんと動くので、この改造版の
main.htmlが原因なんでしょうか？サポート掲示板閉鎖してるしもうお手上げッス・・
どなたかご教授ください・・。

**名無しさん＠お腹いっぱい。** · 02/02/20 21:41

>755
それはきっとあなたの設定ミス。
そうでなければ、バグがあるスクリプトを配布している。

**名無しさん＠お腹いっぱい。** · 02/02/20 22:17

携帯用サイトの掲示板を作ってるんですが、
漢字コードは何がいいんですか？
携帯会社によって違うんですか？

**名無しさん＠お腹いっぱい。** · 02/02/20 22:17

>>757
SJIS。

**名無しさん＠お腹いっぱい。** · 02/02/20 22:19

ありがとうございます。常識ですか？
解説サイトご存知でしたら、よろしければお教えください。

**名無しさん＠お腹いっぱい。** · 02/02/20 22:20

>>759
検索。

**755** · 02/02/20 22:25

>>756
ありがとうございます。マジすか・・もう一度確認してみます。
サーバー別の解説みたいなのに@niftyもあるんですが・・niftyじゃ
無理なのかなぁ・・

**名無しさん＠お腹いっぱい。** · 02/02/20 23:21

>760
掲示板できました。ありがとうございます。

**名無しさん＠お腹いっぱい。** · 02/02/21 01:09

素朴な疑問なんですが、転送ＵＲＬ（www2.to）を使っていて
さらにアクセス解析をつけてます
普段リファラで引っかかるアドレスは、当然転送ＵＲＬのアドレスなのですが
たまにリンク元のアドレス（もちろん転送で貼ってもらってる）が引っかかる場合があるのです
もし原因が分かる方がいらっしゃいましたら、
教えていただけないでしょうか…
よろしくお願いします。

**７６３** · 02/02/21 01:11

あ、ちなみにアクセス解析はレンタルの物とat worksさんのもの
それからTacky's Roomさんの物で同じ結果が出ましたです

**名無しさん＠お腹いっぱい。** · 02/02/21 01:13

>>763
IEはたまにrefferを取りこぼしたりすることがある。

**７６３** · 02/02/21 01:30

>765
さっそくありがとうございます。
でも今見てきたところ、そういう風に引っかかってるのが
Netscape 4.～の方のようなのです
６の場合は普通に転送アドレスで来るようなのですが…

**あぼーん** · 02/02/21 01:34

ホームページでフォームに入力した内容をメールで送るってやつレンタルで使ってるんですけど、たまにいたずらメールが来るんです。
送信元IPはわかるんですけど、送信元のメールアドレスもわかるっていうCGIを無料でレンタルさしてくれるサイトがありましたら教えてもらえませんでしょうか。

**名無しさん＠お腹いっぱい。** · 02/02/21 01:47

>>767
冷静に考えろ？
お前のメールフォームにはメールアドレス書く欄があるか？
書いてもいないものをどうやって送信するって言うんだい？

**あぼーん** · 02/02/21 01:51

>>768あります。でも嘘かかれたらそれでおしまいなのれす。かかないでわかる方法ないでしょうか？
たとえばメールソフトを間接的に使用するっていうCGIとか

**名無しさん＠お腹いっぱい。** · 02/02/21 01:53

レンタル探してるなら板違い

**名無しさん＠お腹いっぱい。** · 02/02/21 02:01

>>769
サーバーサイドで動いてるのにクライアントのメールソフトを制御できるの？
セキュリティホールってやつじゃあ。。。

**名無しさん＠お腹いっぱい。** · 02/02/21 02:03

>>768
メーラーを使う？それなら簡単。

<form action="mailto:cgiChu@uzaishi.ne.jp">

</form>

**名無しさん＠お腹いっぱい。** · 02/02/21 02:57

>>771
すくなくともサーバ側でクライアントの環境をいじりたいとか
思う人って他人のプライバシとか全然関係なしって感じが伝わっ
てくるよ。
そこまでe-mailを確認したいのなら、パスワードで入れないように
して、希望者にメールでパスワードをいれるように全体を変更したら
どうよ。

**ていうか** ◆16H8/cmo · 02/02/21 04:57

複数ファイルと文字列を同時にアップロードするcgi作りたいんだけど、データをどう切り分けるか悩んでる。
一行ごとにやるのはだるいから、なんか上手い方法ないかな。

教えて～！！

**ていうか** ◆16H8/cmo · 02/02/21 04:57

↑あ、ＣＧＩ．ｐｍとかは使う気ないからよろしく。

**名無しさん＠お腹いっぱい。** · 02/02/21 04:59

↑あ、教える気ないからよろしく

**名無しさん＠お腹いっぱい。** · 02/02/21 05:00

777げっちゅー

**ていうか** ◆16H8/cmo · 02/02/21 05:03

↑意味ねーぢゃん。うせろ！

でもナイス突っ込み(w

**名無しさん＠お腹いっぱい。** · 02/02/21 06:11

http://www.kankyo.metro.tokyo.jp/cgi-bin/tokyokh/bunpu1/p101.cgi
↑こういうのを作りたいのですが｡
データベースの数字と画像の矢印がリンクしていて，「次の時間へ」を押すと、画面が切り替わる｡
どんなプログラム言語やソフトを使えば、できますか？

**名無しさん＠お腹いっぱい。** · 02/02/21 09:00

>>774
よく考えて好きなセパレータ使え。

**名無しさん＠お腹いっぱい。** · 02/02/21 09:01

>>779
まずはHTMLの勉強だ。クリッカブルマップ。サーバサイドとクライアントサイドがあるからどちらもな。

**名無しさん＠お腹いっぱい。** · 02/02/21 09:05

>>779
自分でサーバー用意するならなんでもいいけど、
数あるサーバーで動くのはperlだろうな。

ActivePerlと、WinならAnHttpd、あるいは適当なhttpd、
あと、とほほのperl入門を読め。

**名無しさん＠お腹いっぱい。** · 02/02/21 09:15

>>782
誤爆ですか？

**名無しさん＠お腹いっぱい。** · 02/02/21 14:01

>780
デリミタ？

**名無しさん＠お腹いっぱい。** · 02/02/21 22:00

掲示板のスクリプトです。

ローカルのanHTTPdでは、IEでもNNでも正常に動くのですが、
トクトクサーバーにアップすると、NNでは「モジュール違反です」という
表示がでて、オチてしまいます。

IEでは正常です。

どんな原因が考えられますでしょうか。
IEでは全然平気なのですが。

ローカルで動かしてるかぎりはそうはならないのですが。

**785** · 02/02/21 22:01

あげさせてください。

**名無しさん＠お腹いっぱい。** · 02/02/21 22:02

>>785
広告込みのHTMLが変過ぎる。とか。

**785** · 02/02/21 22:11

>>787
Perlのせいではなかったです。
言われてぴぴんときてjavascript Offにしてみたら動いた…。

ローカルでは動くんだから広告が悪いのかなぁ。

どうもすいませんでした。Javascriptと判ればスレ違いです。
ありがとう。

**名無しさん＠お腹いっぱい。** · 02/02/21 23:22

とあるゲームCGIの説明(?)か何かに、
ログファイルをバイナリデータにしたので処理が速くなった
というような事を書いてあったんですが、
実際にテキストよりもバイナリの方が処理が速いんでしょうか。

**名無しさん＠お腹いっぱい。** · 02/02/21 23:27

>>789
たとえば3という値を保存するとする。

テキストで3を保存すると6bitかかる。
バイナリで3を保存すると2bitですむ。
（これを言うとintは32bitじゃあとかお叱りを受けそうだけど）

後、コンピュータはバイナリでしか数値計算ができないので、数字のテキスト-＞バイナリ変換作業が必要になる（Perlは裏でやってくれる）。

**名無しさん＠お腹いっぱい。** · 02/02/21 23:43

ttp://www.din.or.jp/~himura/at-works/access/access.htmlとか
ttp://dream.lib.net/room/cgi/e_analize.html

この二つはJavaScript有効になってないと解析してくれないんですか？
JavaScriptオフでもログ取ってくれるやつってないんでしょうか？
ちなみにSSIは使えないサーバなんですが・・無理ですか？
kentさんのやつはオフでもリンク元以外は取ってくれるみたいだけど・・
上の二つもそうですか？

Strictなんで<noscript><img～ともできないっス・・。

**名無しさん＠お腹いっぱい。** · 02/02/21 23:47

>>791
ログは取れる。reffererが取れないだけ。
Javascriptで生成している部分をHTMLに直接書けばいい。
その代わりreddererはあきらめる。

**名無しさん＠お腹いっぱい。** · 02/02/21 23:52

>789-790
そういうこととは別に、ログをバイナリハッシュに変えれば、テキストのログよりも
かなり高速化する。
dbm使うっていうのが近似値だけど。

**名無しさん＠お腹いっぱい。** · 02/02/22 00:00

>>793
質問者でも回答者でもないんだけど、
ログをバイナリハッシュに変えるってどういうこと？
ハッシュのキーをバイナリにして短くするってことなの？
でもハッシュっていうぐらいだから長いキーでも短くなってんだよね、内部的には。

おもしろそうなのでもっと教えて。