プログラム質問箱一括表示
［表示範囲：487〜564］［スレッドモード］

フォロー記事投稿

記事のキャンセル

いしどう＠そろそろ帰ろうっと。

3月27日に、こじろぉさんは書きました。

＞素速いフォローありがとうございます(^-^

あ、どういたしまして (_ _) ちょうどいま使ってたんで。

＞cgi-lib.plを使って単純にWebサーバの固定ディスクに
＞ファイルを転送するには具体的にどんなソースになるんでしょう？(^-^;;
＞（え？Perlを一から勉強しろって？）(^-^;;;

上でご紹介したページに、Perl 4の例とPerl 5 の例が出てます。

＞＞同じような環境です。
＞＞＃ Perl for Win32 Build315 の Perl IIS で rename() が動かなくって、はまってしまいました (^o^)
＞
＞おぉ！ＮＴユーザーだ(^-^
＞ＡＳＰでも出来ますかね？(^-^;;;

さぁ… (^o^;; 理屈からいえばできるんでしょうが、どんなスクリプトを書けばいいのか、
とんと見当がつきません。
いま作ってる物は UNIX でも動くようにと Perl の CGI-BIN にしてるもんで…（パス名さえ
変えれば UNIX でも動く…つもり）

フォロー記事投稿

記事のキャンセル

＃ ファイルアップロード関係は次版のうぇぶ会議室には入れると言いつつも、
＃ まだインプリメントしてないんで(汗)役立たずですが...

3月27日に、Hironobuさんは書きました。

＞ところで（これが本題）NT Option packなるものが出ていますが、インストール
＞されました？
＞ＩＩＳ４もあるらしいのですが、私のところではまだ怪しそうなので入れていません。
＞ＩＩＳにはなにかと機能足らずで困ったちゃんですが、４でいくぶんか
＞改善されていればいいのですが。
＞
NT関係の話題なら、寺田さんの所の会議室が詳しいので、そちらで聞いてみては
いかがでしょうか?

＃ って、実は(あたしはROMに徹している)MLの方で話題が出てたので、
＃ 聞けばどなたか答えてくれると思います。(^^)

フォロー記事投稿

記事のキャンセル

3月27日に、Hironobuさんは書きました。

そんなライブラリを知らずに、チマチマ解析してスクリプトを書いた頃が懐かしい・・・。
（cgi-lib.pl的なものの存在は知ってたのですが・・・。）
うまくいったと思って、(いつもはネスケなんですが)IE3の場合に
微妙に出力が違うようで、うまくいかなかったりして、やたらと面倒だった
記憶があります。

＃うーむ。もうすぐトップのカウンタがあふれますね(^^)

フォロー記事投稿

記事のキャンセル

随分昔に にあさんは書きました。
＞Meshで使っているNetscape Commerceには、当然DNS逆引きの機能は備わっていますし、
＞実際最初は逆引きを行なっていました。ところがある時点から逆引きをするのを止めています。
＞これはセキュリティー上の配慮と言うよりネットワーク負荷が主な原因だと考えています。

さっき気がついたのですが、infowebのユーザーホームページでは
gethostbyaddr関数を使っても逆引きでないようになっている。

自分で関数を作る代りになるものはないでしょうか？

フォロー記事投稿

記事のキャンセル

5月1日に、satoshi kusunokiさんは書きました。

＞さっき気がついたのですが、infowebのユーザーホームページでは
＞gethostbyaddr関数を使っても逆引きでないようになっている。
＞自分で関数を作る代りになるものはないでしょうか？
＞
つまり、サーヴァのOS自体がDNSを引かない設定に変えられてしまった、と
言うことですか?

うーむ、そうまでしてDNSサーヴァの負荷を下げようとしている時に、自分で
DNSを引くような設定をしてしまって良いのかどうか? と言う問題はありますね。

また、実際問題としてDNSサーヴァとやり取りして名前解決を計るのは
面倒な作業ですから、出来合いのルーティン群を使うのが簡単ですが、
そう言うルーティン群はデフォルトではインストールされていないで
しょうから、自分でインストールしなくてはなりませんね。(^^;;

取りあえず、perl5を使っているのなら、Net::DNS(現行ヴァージョンは
Net-DNS-0.12.tar.gzですね)を使うのが簡単だと思います。

例えば、以下のようなテストスクリプトを書いて見ました。

#!/usr/local/bin/perl

use Net::DNS;

$address = '133.205.10.1'; # 試しにここのアドレスを入れてみましょうか。
$nameserver = '127.0.0.1'; # ここはもちろん実際にはDNSサーヴァのIPアドレスにします。

printf("%s -> %s\n", $address, &gethost($address));

exit(0);

sub gethost {
	my ($address) = @_;
	my $res = new Net::DNS::Resolver;
	$res->nameservers($nameserver);
	my $query = $res->search($address, 'PTR');
	if ($query) {
		foreach ($query->answer) {
			next if ($_->type ne 'PTR');
			return($_->rdatastr);
		}
	}
	return($address);
}

実行すると、

133.205.10.1 -> www2.biglobe.ne.jp.

と出力されました。(^^)

＃ perl -MCPAN -e 'shell' するようになってから、うちのサーヴァは
＃ Moduleてんこ盛りになっています。新しいのが出るとすぐ入れるし。(^^;;;

フォロー記事投稿

記事のキャンセル

にあさん、ものすごくお久しぶりです。

5月1日に、にあさんは書きました。
＞つまり、サーヴァのOS自体がDNSを引かない設定に変えられてしまった、と
＞言うことですか?

perlで「gethostbyaddr(pack('C4',split(/\./,$host)),2)」式のことをや
ると""が返ります。shellを開放していないし、あそのこOSはSolarisだったと
思いますが手もとにそのコンパイラーもないので、それ以上は詮索していません。

＞うーむ、そうまでしてDNSサーヴァの負荷を下げようとしている時に、自分で
＞DNSを引くような設定をしてしまって良いのかどうか? と言う問題はありますね。

一人がやるとあっというまにひろまるでしょうね。そしてまた禁止事項が増える。

.htaccessにもIPアドレスを書くことになりますから、エライ面倒。最近逆引きし
ないプロバイダーが増えているそうですが、gethostbyaddrまで使えなくなってい
るところは珍しい？

＞取りあえず、perl5を使っているのなら、Net::DNS(現行ヴァージョンは
＞Net-DNS-0.12.tar.gzですね)を使うのが簡単だと思います。

スクリプトまでご教示いただいて恐縮ですが、shellを開放していない||同じOSが
手もとにない、のでインストールは無理ですね。あきらめましょう。

フォロー記事投稿

記事のキャンセル

ＣＧＩでメール送信する時のヘッダに関する質問です。

Cc:ヘッダなどで、複数の宛先を指定したい場合、どういうふうに
出力してやればいいのでしょうか？

質問はこれだけです(^^;

よろしくお願いします。m(_ _)m

フォロー記事投稿

記事のキャンセル

5月15日に、でんでんさんは書きました。

＞Cc:ヘッダなどで、複数の宛先を指定したい場合、どういうふうに
＞出力してやればいいのでしょうか？
＞
カンマ(",")で区切って複数の宛先を書けば良いです。

...って、きっとそう言うことを聞きたいのじゃ無いですよね。(^^;


多分聞きたいことは...

Q. Cc: に沢山のアドレスを書くと行がとても長くなってしまうのですが?

A. 任意の空白の所で継続行の処理が出来ます。例えば、

Cc: user1@host1.domain1, user2@host2.domain2, user3@host3.domain3

は

Cc: user1@host1.domain1,
	user2@host2.domain2,
	user3@host3.domain3

の様にfoldする事が出来ます。

...とか

Q. To: や Cc: に書いたアドレスにメールが配送されないんですが?

A. sendmail を使っている場合、実際に配送されるアドレス(エンペローブに書かれる
宛先アドレス)とメール本文に書かれる宛先アドレスとは独立した処理になっています。

例えば、

/usr/lib/sendmail user1@host1.domain1 user2@host2.domain2 user3@host3.domain3

として実行すれば、本文中の To: や Cc: に関わり無く、3人に送られます。
本文中のTo: や Cc:、Bcc: を解釈してそこに送りたいなら、

/usr/lib/sendmail -n -t

としてコマンドラインでは宛先を付けずに呼び出します。
またCGI等で固定の宛先ではなく、変数で指定できる宛先に送る場合に、

/usr/lib/sendmail $email

等としてしまうと、重篤なセキュリティホールになってしまいますので、必ず、
本文中の宛先を解釈するモードを使って送り、任意文字列が sendmail の引数として
渡らないようにして下さい。
＃ 送り先を本文中に見せたくない場合には Bcc: を活用しましょう。

...とかでは無いでしょうか?

フォロー記事投稿

記事のキャンセル

早速のレスありがとうございます。
（長いですが引用します）


5月15日に、にあさんは書きました。

＞5月15日に、でんでんさんは書きました。
＞
＞＞Cc:ヘッダなどで、複数の宛先を指定したい場合、どういうふうに
＞＞出力してやればいいのでしょうか？
＞＞
＞カンマ(",")で区切って複数の宛先を書けば良いです。
＞
＞...って、きっとそう言うことを聞きたいのじゃ無いですよね。(^^;
＞
＞
＞多分聞きたいことは...
＞
＞Q. Cc: に沢山のアドレスを書くと行がとても長くなってしまうのですが?
＞
＞A. 任意の空白の所で継続行の処理が出来ます。例えば、
＞
＞Cc: user1@host1.domain1, user2@host2.domain2, user3@host3.domain3
＞
＞は
＞
＞Cc: user1@host1.domain1,
＞	user2@host2.domain2,
＞	user3@host3.domain3
＞
＞の様にfoldする事が出来ます。
＞
＞...とか
＞
＞Q. To: や Cc: に書いたアドレスにメールが配送されないんですが?
＞
＞A. sendmail を使っている場合、実際に配送されるアドレス(エンペローブに書かれる
＞宛先アドレス)とメール本文に書かれる宛先アドレスとは独立した処理になっています。
＞
＞例えば、
＞
＞/usr/lib/sendmail user1@host1.domain1 user2@host2.domain2 user3@host3.domain3
＞
＞として実行すれば、本文中の To: や Cc: に関わり無く、3人に送られます。
＞本文中のTo: や Cc:、Bcc: を解釈してそこに送りたいなら、
＞
＞/usr/lib/sendmail -n -t
＞
＞としてコマンドラインでは宛先を付けずに呼び出します。
＞またCGI等で固定の宛先ではなく、変数で指定できる宛先に送る場合に、
＞
＞/usr/lib/sendmail $email
＞
＞等としてしまうと、重篤なセキュリティホールになってしまいますので、必ず、
＞本文中の宛先を解釈するモードを使って送り、任意文字列が sendmail の引数として
＞渡らないようにして下さい。
＞＃ 送り先を本文中に見せたくない場合には Bcc: を活用しましょう。
＞
＞...とかでは無いでしょうか?


１番（宛先のセパレーター）と、３番（コマンド行部分とヘッダ部分の宛先）、
当たりです(^^;　質問よくなかったみたいで、ごめんなさい。

メールやＣＧＩ関連のサイト回ったんですが、宛先のセパレーターに触れ
てるサイトが見付からずに困ってたんです。
（でんでんが おバカなだけかな？(^^;　なんか最近、こういうちょっとした
トコでよくつまずきます(TT)）

あと、セキュリティーホールの件は、おっけーです。

えっと、上に書かれている記述から察するに、コマンド行部分では、「ス
ペース」で、ヘッダ部分では「カンマ」で良いのですよね？
もし間違ってたらレスください(^^;

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

フォロー記事投稿

記事のキャンセル

5月15日に、でんでんさんは書きました。


＞
＞5月15日に、にあさんは書きました。
＞
＞＞5月15日に、でんでんさんは書きました。
＞＞
＞＞＞Cc:ヘッダなどで、複数の宛先を指定したい場合、どういうふうに
＞＞＞出力してやればいいのでしょうか？
＞＞＞
＞＞カンマ(",")で区切って複数の宛先を書けば良いです。
＞＞
＞＞...って、きっとそう言うことを聞きたいのじゃ無いですよね。(^^;
＞＞
＞＞
＞＞多分聞きたいことは...
＞＞
＞＞Q. Cc: に沢山のアドレスを書くと行がとても長くなってしまうのですが?
＞＞
＞＞A. 任意の空白の所で継続行の処理が出来ます。例えば、
＞＞
＞＞Cc: user1@host1.domain1, user2@host2.domain2, user3@host3.domain3
＞＞
＞＞は
＞＞
＞＞Cc: user1@host1.domain1,
＞＞	user2@host2.domain2,
＞＞	user3@host3.domain3
＞＞
＞＞の様にfoldする事が出来ます。
＞＞
＞
＞えっと、上に書かれている記述から察するに、コマンド行部分では、「ス
＞ペース」で、ヘッダ部分では「カンマ」で良いのですよね？
＞もし間違ってたらレスください(^^;
＞

　一応　念のため（重箱の隅っこだけど）

　２行目以降は確か先頭にスペースが必須（だったハズ）
　先頭の空白文字でその前の行の続きである事を意味する。

　こうゆう事はＲＦＣにかなり詳しく書いてあります
　MIMEヘッダーで検索すれば　沢山出てきます。
　私もＲＦＣを参照してメール送信ＣＧＩを作成しました。

フォロー記事投稿

記事のキャンセル

5月15日に、^\^ Shigeさんは書きました。

＞　一応　念のため（重箱の隅っこだけど）
＞
＞　２行目以降は確か先頭にスペースが必須（だったハズ）
＞　先頭の空白文字でその前の行の続きである事を意味する。
＞
＞　こうゆう事はＲＦＣにかなり詳しく書いてあります
＞　MIMEヘッダーで検索すれば　沢山出てきます。
＞　私もＲＦＣを参照してメール送信ＣＧＩを作成しました。


ありがとうございました。
検索かけてみますね。(^^;

フォロー記事投稿

記事のキャンセル

あと、もうひとついいですか？(^^;

えっと、To:の場合は、宛先を複数指定できないんでしょうね？
とすると、宛先を１つづつ入れてメール１通丸ごとループさせる
しかないんでしょうか。

それと、Bcc:の場合は、Cc:と同じように指定すればいいんですか？
Bcc: foo@foo.foo, foo@foo.foo　みたいな感じで・・・。

レスお願いしますm(_ _)m

英語が全くダメなもんで、日本語でsendmailとかの解説してる
所とかないもんでしょうか・・・(^^;

フォロー記事投稿

記事のキャンセル

5月15日に、でんでんさんは書きました。

＞あと、もうひとついいですか？(^^;
＞
＞えっと、To:の場合は、宛先を複数指定できないんでしょうね？
＞とすると、宛先を１つづつ入れてメール１通丸ごとループさせる
＞しかないんでしょうか。
＞

　できます　私はやりました

＞それと、Bcc:の場合は、Cc:と同じように指定すればいいんですか？
＞Bcc: foo@foo.foo, foo@foo.foo　みたいな感じで・・・。
＞

　同じです　キット　こっちはやってないですが
　普段使ってるメーラーの作成するヘッダー見れば一目瞭然（Toの方も）

＞レスお願いしますm(_ _)m
＞
＞英語が全くダメなもんで、日本語でsendmailとかの解説してる
＞所とかないもんでしょうか・・・(^^;

　日本語のmanがあればいいんでしょうけどねぇ(^_^;)

　私は中学生以下の英語レベルですが
　それでも何とかなりましたよ？

　取り敢えずは，にあさんのＲｅｓ．されてるオプションでいけるハズですがね

フォロー記事投稿

記事のキャンセル

レスありがとうございます。

5月16日に、Shigeさんは書きました。

＞＞えっと、To:の場合は、宛先を複数指定できないんでしょうね？
＞＞とすると、宛先を１つづつ入れてメール１通丸ごとループさせる
＞＞しかないんでしょうか。
＞
＞　できます　私はやりました

できるんですか？　Ccと同じ要領でですか？
届くメールのヘッダ部分は、単一の宛先しか表示されないんですか？


＞＞それと、Bcc:の場合は、Cc:と同じように指定すればいいんですか？
＞＞Bcc: foo@foo.foo, foo@foo.foo　みたいな感じで・・・。
＞＞
＞
＞　同じです　キット　こっちはやってないですが
＞　普段使ってるメーラーの作成するヘッダー見れば一目瞭然（Toの方も）

これも、ちゃんとブラインドされるんでしょうか？
（それがちょっと心配）

やってみればわかるんでしょうね(^^;
いろいろやってみます(^^;;

フォロー記事投稿

記事のキャンセル

5月16日に、でんでんさんは書きました。

＞5月16日に、Shigeさんは書きました。
＞
＞＞＞えっと、To:の場合は、宛先を複数指定できないんでしょうね？
＞＞＞とすると、宛先を１つづつ入れてメール１通丸ごとループさせる
＞＞＞しかないんでしょうか。
＞＞
＞＞　できます　私はやりました
＞
＞できるんですか？　Ccと同じ要領でですか？
＞届くメールのヘッダ部分は、単一の宛先しか表示されないんですか？
＞
＞
＞＞＞それと、Bcc:の場合は、Cc:と同じように指定すればいいんですか？
＞＞＞Bcc: foo@foo.foo, foo@foo.foo　みたいな感じで・・・。
＞＞＞
＞＞
＞＞　同じです　キット　こっちはやってないですが
＞＞　普段使ってるメーラーの作成するヘッダー見れば一目瞭然（Toの方も）
＞
＞これも、ちゃんとブラインドされるんでしょうか？
＞（それがちょっと心配）
＞

　ToもCcもBccも　その意味がちょっと違うだけで基本的に同じように使います。
　Toで複数の宛て先を指定するとCcで複数指定した場合と同じように
　全部見えるはずです。（使用するメーラーによって見え方は違うでしょうけど）

　ブラインドは・・・うーんsendmailが切り落とすのかな？
　とすれば、よほどの事が無い限りブラインドされるはずです。
　前にも書いた通り、先頭に空白文字があればその前の行の続きを意味しますから

　それではRFCも示しておきましょう
　2045,2046,2047,2048,2049辺りでその中で古いドキュメントも
　示されていますから、そちらも参照して下さいね（手抜きだぁ）

　他には、上記の2045〜2049の中で拾ったキーワードを元に探せば色々と・・・
　私の手元にあるのは英語版ですが、日本語に訳しているグループがあるので
　日本語版もあるかもしれません（全部は約されていないです）

＞やってみればわかるんでしょうね(^^;
＞いろいろやってみます(^^;;

　手前味噌ですが　私が作ったメールＣＧＩはここにあります。
　あんまりきれいなコードではありませんが、まぁ参考になれば・・・

フォロー記事投稿

記事のキャンセル

5月16日に、Shigeさんは書きました。

＞　ToもCcもBccも　その意味がちょっと違うだけで基本的に同じように使います。
＞　Toで複数の宛て先を指定するとCcで複数指定した場合と同じように
＞　全部見えるはずです。（使用するメーラーによって見え方は違うでしょうけど）
＞
＞　ブラインドは・・・うーんsendmailが切り落とすのかな？
＞　とすれば、よほどの事が無い限りブラインドされるはずです。
＞　前にも書いた通り、先頭に空白文字があればその前の行の続きを意味しますから

なるほどなるほど。
いろいろと試してます。が、苦戦してます(^^;

もうすこしいぢってみます・・・。


＞　それではRFCも示しておきましょう
＞　2045,2046,2047,2048,2049辺りでその中で古いドキュメントも
＞　示されていますから、そちらも参照して下さいね（手抜きだぁ）
＞
＞　他には、上記の2045〜2049の中で拾ったキーワードを元に探せば色々と・・・
＞　私の手元にあるのは英語版ですが、日本語に訳しているグループがあるので
＞　日本語版もあるかもしれません（全部は約されていないです）
＞
＞＞やってみればわかるんでしょうね(^^;
＞＞いろいろやってみます(^^;;
＞
＞　手前味噌ですが　私が作ったメールＣＧＩはここにあります。
＞　あんまりきれいなコードではありませんが、まぁ参考になれば・・・

ありがとうございますー。
早速拝見します。

フォロー記事投稿

記事のキャンセル

あと、もういっこ・・・(^^;

sendmailのオプションで、-tってのは分かるんですが、
にあさんの書かれてた-nって何ですか？

他にもオプションあるんですか？（ありそうですが）
２日かけてinfoseekやらYahooやら探しまわったんですが、
オプションのこと書いてるサイトを見つけられませんでした(TT)

オプション一覧とか解説とかあるサイトありましたら教えて
ください　m(_ _)m
（オプション教えて下さい・・・ってのはずうずうしいかな(^^;;）

フォロー記事投稿

記事のキャンセル

5月17日に、でんでんさんは書きました。

＞あと、もういっこ・・・(^^;
＞
＞sendmailのオプションで、-tってのは分かるんですが、
＞にあさんの書かれてた-nって何ですか？
＞
＞他にもオプションあるんですか？（ありそうですが）
＞２日かけてinfoseekやらYahooやら探しまわったんですが、
＞オプションのこと書いてるサイトを見つけられませんでした(TT)
＞

　コマンドオプションはmanコマンドで調べられます。
　telnetで実行できなければmanを実行するCGIを作れば取得できます。

＞オプション一覧とか解説とかあるサイトありましたら教えて
＞ください　m(_ _)m
＞（オプション教えて下さい・・・ってのはずうずうしいかな(^^;;）

　因みに

         -n   エイリアス処理を行いません。

　です。
　全部書くのはちょっと・・・(^_^;)かなり長いので気が引ける
　ＯＳによって微妙に違うこともありますし

フォロー記事投稿

記事のキャンセル

5月17日に、Shigeさんは書きました。

＞　コマンドオプションはmanコマンドで調べられます。
＞　telnetで実行できなければmanを実行するCGIを作れば取得できます。

あ、manでＯＫなんですか・・・(^^;　いやー、サイト探しばっかり
していて見落としていました。早速調べてみます。


＞　因みに
＞         -n   エイリアス処理を行いません。
＞
＞　です。
＞　全部書くのはちょっと・・・(^_^;)かなり長いので気が引ける
＞　ＯＳによって微妙に違うこともありますし

なるほどなるほど。ありがとうございますー。m(_ _)m

フォロー記事投稿

記事のキャンセル

Server Errorってなんか　処置できないんでしょうかねぇ？

自分のコードが悪いのかどうかも分からん(^_^;)
・・・Server Errorとする条件を調べればいいのか　うーむ

フォロー記事投稿

記事のキャンセル

5月17日に、Shigeさんは書きました。

＞Server Errorってなんか　処置できないんでしょうかねぇ？
＞
やっぱり、Yasu.FさんのsuEXECパッチを当ててもらうとか。(^^)
＃ チョットYasu.Fさんの移転先が安定してないようで、アレなんですが。

そういえば、S号機以外で既にSetUID CGIになったサーヴァでもerrors.txtの
サーヴィスをするようになったのでしょうか? ＞ SetUIDサーヴァの皆様。

フォロー記事投稿

記事のキャンセル

5月19日に、にあさんは書きました。

＞5月17日に、Shigeさんは書きました。
＞
＞＞Server Errorってなんか　処置できないんでしょうかねぇ？
＞＞
＞やっぱり、Yasu.FさんのsuEXECパッチを当ててもらうとか。(^^)
＞＃ チョットYasu.Fさんの移転先が安定してないようで、アレなんですが。
＞
＞そういえば、S号機以外で既にSetUID CGIになったサーヴァでもerrors.txtの
＞サーヴィスをするようになったのでしょうか? ＞ SetUIDサーヴァの皆様。

　errors.txt使えてます　www2h　(^_^)ｖ
　おかげさまで余所様で使っていただいてるスクリプトのトラブルシュートがかなり楽に・・・

＃　仕事でも同じようなことしてる　私ってば一体(ーー；
＃　やっぱりＰｅｒｌはお気楽＆お手軽だなぁって感じる今日この頃(^_^;)

フォロー記事投稿

記事のキャンセル

5月19日に、Shigeさんは書きました。

＞＞そういえば、S号機以外で既にSetUID CGIになったサーヴァでもerrors.txtの
＞＞サーヴィスをするようになったのでしょうか? ＞ SetUIDサーヴァの皆様。
＞
＞　errors.txt使えてます　www2h　(^_^)ｖ
＞
なーるほど、errors.txtのサポートもされてますか。それは良かった。(^^)

＃ これで心置きなく、Mesh1号機専用ペーヂが閉鎖できる。(^^;
＃ エラーログのブラウズサーヴィスだけは無いと困る人も居そうだったので。

フォロー記事投稿

記事のキャンセル

5月19日に、Shigeさんは書きました。

＞　errors.txt使えてます　www2h　(^_^)ｖ
＞　おかげさまで余所様で使っていただいてるスクリプトのトラブルシュートがかなり楽に・・・
＞
＞＃　仕事でも同じようなことしてる　私ってば一体(ーー；
＞＃　やっぱりＰｅｒｌはお気楽＆お手軽だなぁって感じる今日この頃(^_^;)

　うーん。errors.txtいつのまにか数十行書き込まれてました。
が、どのHTMLからCGI呼び出しのかが分からない・・・。（＾＾；
もうちょっと情報があると、便利なのになぁ。

ところで、socketまわりを触っているところで、
Connection refused at 〜
というのが何十行もあるのですが、これは、evalで囲めばなんとかなるのかな？

あと、こんなのもありました。これは一体・・・。
〜: Exec format error

ところで、STDERRをSTDOUTに回すようなスクリプトを通してCGIを走らせれば、
エラーメッセージってブラウザから読めますよね。あと、syntax error類は、
localにperlを用意して試した方が早いですよ〜。

＃結局、やっかいなのは、たまに起こるServer Error。

フォロー記事投稿

記事のキャンセル

5月19日に、TAKuさんは書きました。

＞5月19日に、Shigeさんは書きました。
＞
＞＞　errors.txt使えてます　www2h　(^_^)ｖ
＞＞　おかげさまで余所様で使っていただいてるスクリプトのトラブルシュートがかなり楽に・・・
＞＞
＞
＞　うーん。errors.txtいつのまにか数十行書き込まれてました。
＞が、どのHTMLからCGI呼び出しのかが分からない・・・。（＾＾；
＞もうちょっと情報があると、便利なのになぁ。
＞
＞ところで、socketまわりを触っているところで、
＞Connection refused at 〜
＞というのが何十行もあるのですが、これは、evalで囲めばなんとかなるのかな？
＞
＞あと、こんなのもありました。これは一体・・・。
＞〜: Exec format error
＞
＞ところで、STDERRをSTDOUTに回すようなスクリプトを通してCGIを走らせれば、
＞エラーメッセージってブラウザから読めますよね。あと、syntax error類は、
＞localにperlを用意して試した方が早いですよ〜。
＞

　はい　localで動くようにdebug用codeを加えて確かめてからUpしてますので
　Syntax Errorは滅多に・・・いや　偶にしか・・・　うーん　時々しか起こしません(^_^;)
　（修正して、その場ですぐUpすると　よくやるのがdebug modeのままＵｐするミス）


　最近のやつは途中経過をSTDERRに出力してるんですが
　ＯＫなのにその先のMsgが出てこないのです。
　（思いもよらないところに問題があるのでは？　と考えてしまふ）

＞＃結局、やっかいなのは、たまに起こるServer Error。

＃　ですよねぇ(-_-;)

フォロー記事投稿

記事のキャンセル

5月19日に、Shigeさんは書きました。

＞5月19日に、TAKuさんは書きました。
＞
＞＞ところで、STDERRをSTDOUTに回すようなスクリプトを通してCGIを走らせれば、
＞＞エラーメッセージってブラウザから読めますよね。あと、syntax error類は、
＞＞localにperlを用意して試した方が早いですよ〜。
＞
＞はい　localで動くようにdebug用codeを加えて確かめてからUpしてますので
＞Syntax Errorは滅多に・・・いや　偶にしか・・・　うーん　時々しか起こしません(^_^;)
＞
やはり、CGIデバッグはlocalにhttpのサーヴァを立てて実行してみるのが
一番楽なような気がします。もちろんターゲットサーヴァの構成に近い物を
手元に持てばより楽ですが、Win32のサーヴァでも有ると無しとじゃずいぶん
違うのではないかしら。今ならWin32でもApache動きますからね。

＃ 一応手元には、Unix、Win95、Mac上の各種サーヴァ(笑)を取りそろえて居るので、
＃ 機種間互換性チェックなどには威力を発揮します。

＞＞＃結局、やっかいなのは、たまに起こるServer Error。
＞＃　ですよねぇ(-_-;)
＞
結局はサーヴァのエラーログを参照しなければならない事態というのは有りますね、やはり。
ボタン、ポン! でエラーログの最後を読めるようにしておくと便利ですね。(^^)

フォロー記事投稿

記事のキャンセル

5月20日に、にあさんは書きました。

＞やはり、CGIデバッグはlocalにhttpのサーヴァを立てて実行してみるのが
＞一番楽なような気がします。もちろんターゲットサーヴァの構成に近い物を
＞手元に持てばより楽ですが、Win32のサーヴァでも有ると無しとじゃずいぶん
＞違うのではないかしら。今ならWin32でもApache動きますからね。
＞

　この辺は慣れや考え方の違いでしょうかね？
　私の近所にもperlのdebuggerなんて使った事の無い人がいるし(^_^;)
　（彼はApacheユーザー）

　私はperlのdebugger使ったほうが問題を直視できるから
　簡単なように思えて・・・（頭の中で考えられない奴＞私）

＃　debug用のコードも、環境変数の設定さえ出来れば取り敢えずはＯＫなので
＃　一度作れば後は使い回しのようなもんだし
＃　動作確認までできれば、ちょっとしたミスを除いて
＃　概ね、一発で動くから　なんかうれしい(*^.^*)

フォロー記事投稿

記事のキャンセル

5月20日に、Shigeさんは書きました。

＞5月20日に、にあは書きました。
＞
＞＞やはり、CGIデバッグはlocalにhttpのサーヴァを立てて実行してみるのが
＞＞一番楽なような気がします。もちろんターゲットサーヴァの構成に近い物を
＞
＞私はperlのdebugger使ったほうが問題を直視できるから
＞簡単なように思えて・・・（頭の中で考えられない奴＞私）
＞
もちろん通常のプログラムとして見た時のデバッグはあらかた済ませた後、
CGIとしてデバッグをする時には、って言うことです。(^^)

＃ サーヴァが生成するヘッダ類などをいちいち環境変数とか標準入力とかに
＃ 設定してやるのが面倒なので。(^^;; あ、それとも、そう言うのも一渡り
＃ セットしてから実行する環境を作っているのかしら?

もっとも、あたしは滅多にデバッガって使わない(使えない)人なので...(^^;;;
＃ デバッガが必要になるほど大きなプログラムを書いたことが無いともいふ。

フォロー記事投稿

記事のキャンセル

5月23日に、にあさんは書きました。

＞5月20日に、Shigeさんは書きました。
＞
＞＞私はperlのdebugger使ったほうが問題を直視できるから
＞＞簡単なように思えて・・・（頭の中で考えられない奴＞私）
＞＞
＞もちろん通常のプログラムとして見た時のデバッグはあらかた済ませた後、
＞CGIとしてデバッグをする時には、って言うことです。(^^)
＞

　ですよね(^_^;)（それでもdebuggerいらない人ってすごいと思う）

＞＃ サーヴァが生成するヘッダ類などをいちいち環境変数とか標準入力とかに
＞＃ 設定してやるのが面倒なので。(^^;; あ、それとも、そう言うのも一渡り
＞＃ セットしてから実行する環境を作っているのかしら?
＞

　環境変数の設定もdebug codeとしてソースの中に入れています。
　ただ,Postメソッドは面倒なのでGetでやっています。
　その昔は（と言っても数ヶ月ですが）Parseする所まで飛ばして直接変数に設定
　・・・てな具合で評価してました。

＞もっとも、あたしは滅多にデバッガって使わない(使えない)人なので...(^^;;;
＞＃ デバッガが必要になるほど大きなプログラムを書いたことが無いともいふ。

　流石にHTTPに関わる所はオフラインでは出来ませんね(^_^;)
　職場でNetworkモニターを使ってデバッグしてます。（仕事もしてます）
　TracePlus３２ってのを最近Getしたんですが（まだ試用中）
　使い方が良くないのか，ネスケとかはNGなのかパケットが見えませんでした。
　もう少し使って見様とは思いますが・・・何か良いもの知ってますか？

＃　でも，結局はServer Errorには悩まされる(ーー;

フォロー記事投稿

記事のキャンセル

5月19日に、Shigeさんは書きました。

＞＞　うーん。errors.txtいつのまにか数十行書き込まれてました。
＞＞が、どのHTMLからCGI呼び出しのかが分からない・・・。（＾＾；
＞＞もうちょっと情報があると、便利なのになぁ。

　自分で書いたスクリプトなのですが、www2bではちゃんと動いているのに、
www2sだとServer Errorが頻出します。必ずではなく、かなりの確率で出る
という感じ。しかも、errors.txtには何も書かれていませんでした。
設定がまずいだけのことだけかもしれないのでなんとも言えませんけど、
全く同じ事をやっているのにうまく動くことがあるだけに、妙です。

＞＞ところで、STDERRをSTDOUTに回すようなスクリプトを通してCGIを走らせれば、
＞＞エラーメッセージってブラウザから読めますよね。あと、syntax error類は、
＞＞localにperlを用意して試した方が早いですよ〜。
＞＞
＞
＞　はい　localで動くようにdebug用codeを加えて確かめてからUpしてますので
＞　Syntax Errorは滅多に・・・いや　偶にしか・・・　うーん　時々しか起こしません(^_^;)
＞　（修正して、その場ですぐUpすると　よくやるのがdebug modeのままＵｐするミス）
　local用のflagを手で書き換えるより、$ENV{'COMSPEC'}とか見る方が巧いかも。
確実な手ではないですが、自分でやる分には問題ないと思います。
＃って、NTにはCOMSPECはあるのだろうか？

　私の場合は、localで動作テストまですることはほとんどないですね。
パターンマッチングが期待通りに動くかどうか試すくらいで。
perl -cw foo.cgiとやると、syntax errorのチェックができます。

フォロー記事投稿

記事のキャンセル

5月19日に、にあさんは書きました。

＞5月17日に、Shigeさんは書きました。
＞
＞＞Server Errorってなんか　処置できないんでしょうかねぇ？
＞＞
＞やっぱり、Yasu.FさんのsuEXECパッチを当ててもらうとか。(^^)
＞＃ チョットYasu.Fさんの移転先が安定してないようで、アレなんですが。
＞

　ってリンク先を読まずに投稿してしまった(^_^ヾ

　私のページはwww2sにあります。　ですので最初っから恩恵を受けてました。
　が，errors.txtに出力が無いのにServer Errorになってしまうことが多々あるんです。
　これを一概にサーバーのせいにして良いのかどうか・・・

　errors.txtにはコンパイルエラー等の標準エラー出力が繋がってますが
　コンパイルまで通ると　後は要所で dieで殺すなりしてＭｓｇを吐かせないと
　何も情報が得られないのです。
　・・・流石にOut of memoryは見えます(^_^；)

フォロー記事投稿

記事のキャンセル

perl cgiの習作を兼ねた、拙作の掲示板にも、最近荒らしが来るように
なりました。
「ああ、これで一人前の掲示板だね。うんうん。」
なんて、悠長なことも言ってられないので、とりあえず匿名proxyってのは
書き込み禁止にしようかと思っています。

webで調べたところ、
HTTP_PROXY
HTTP_X_FORWARDED_FOR
HTTP_FORWARDED
あたりの環境変数をチェックすれば良さそうですね。

HTTP_PROXYに串名が入って、HTTP_FORWARDEDが空なら匿名proxyと判断していいん
でしょうか。
あと、HTTP_X_FORWARDED_FORというのがよくわからないです。何が入るんでしょ
うか。

なにしろ実際に試せないので、確信がもてないんです。
荒らしが使うってことは、誰でもつかえるproxyサーバってのがあるんですかね。
それとも、多少なりともハックして使っているのでしょうか。

＃やはり、この辺の知識ってのは必要だなあ・・・。
＃あと、IISでちゃんとこの辺のヘッダがENVに入るのかも不安・・・

フォロー記事投稿

記事のキャンセル

5月19日に、Hironobuさんは書きました。

＞perl cgiの習作を兼ねた、拙作の掲示板にも、最近荒らしが来るように
＞なりました。
＞
＃ そ言えば、此処には荒らし来たこと無いなぁ、単発的な書き捨てはあったけど。
＃ まだ、一人前の掲示板とは言えないということだな。(笑)

＞webで調べたところ、
＞HTTP_PROXY
＞HTTP_X_FORWARDED_FOR
＞HTTP_FORWARDED
＞あたりの環境変数をチェックすれば良さそうですね。
＞
どうなんでしょ? HTTP/1.1の規格に入っているのはViaのみですから、環境変数としては
HTTP_VIA
になりますが、proxyとしてよく使われているSquidが付けるヘッダが使われていると
言うことでしょうか。(HTTP_FORWARDEDはDeleGateも付けますね)
＃ 残念ながらあたしはSquidは使ってないので内容は詳しくは知らないです。

＞あと、HTTP_X_FORWARDED_FORというのがよくわからないです。何が入るんでしょうか。
＞
SquidのFAQによれば、元のクライアントのIPアドレスを保存した物のようですね。
ただし、FAQにも書かれている通り、HTTP_何たら と言うのはサーヴァに送られて来た
リクエストヘッダを渡しているだけですから、幾らでもfakeが可能であることを仮定して
処理を考えなくてはいけないところがいまいちですね。

＃ まあ荒らし避けと言うことなら、ヘッダチェックは万全では無いと言うことを
＃ 分かって使っている分にば構わないでしょうが。

＞荒らしが使うってことは、誰でもつかえるproxyサーバってのがあるんですかね。
＞
公開されているproxyサーヴァは多々あるようですね。

もちろんそれらの多くは広域cacheを行なうことでトラフィックの軽減を目的に
公開されているわけで、それを逆手にとってanonymizerとして使うというのは
abuseに当たるのでしょうけど、悪いことに使う連中が後を絶たないため、
公開cacheサーヴァの方でも色々対策はしているようです。

例えばringer.etl.go.jpの広域DeleGateは、掲示板の匿名書き込みを
防ぐためにPOSTメソッドを通さない設定になっています。
＃ "305 Use Another Proxy"が返ります。

フォロー記事投稿

記事のキャンセル

5月20日に、にあさんは書きました。

＞＞webで調べたところ、
＞＞HTTP_PROXY
＞＞HTTP_X_FORWARDED_FOR
＞＞HTTP_FORWARDED
＞＞あたりの環境変数をチェックすれば良さそうですね。
＞どうなんでしょ? HTTP/1.1の規格に入っているのはViaのみですから、環境変数としては
＞HTTP_VIA
＞になりますが、proxyとしてよく使われているSquidが付けるヘッダが使われていると
＞言うことでしょうか。(HTTP_FORWARDEDはDeleGateも付けますね)
＞＃ 残念ながらあたしはSquidは使ってないので内容は詳しくは知らないです。

たしかに、HTTP_PROXY,HTTP_X_FORWARDED_FOR,HTTP_FORWARDEDにはなにも値が入りませ
んでした。
というわけで、さらに放浪してみたところ、HTTP_PROXY_CONNECTION,HTTP_CACHE_INFO,
そして、HTTP_VIAを見るとよさそうですね。
HTTP1.1と書いてますが、サーバがHTTP1.1に対応していないとこれらの情報を受け取れ
無いということでしょうか。だとしたら、IIS3.0では無理ですねえ。

＞ただし、FAQにも書かれている通り、HTTP_何たら と言うのはサーヴァに送られて来た
＞リクエストヘッダを渡しているだけですから、幾らでもfakeが可能であることを仮定して
＞処理を考えなくてはいけないところがいまいちですね。

らしいですね。不正なヘッダを送出できる、それ用のソフトも存在するようですね。
まあ、そこまでやるような人には最初からお手上げなのですが。
とりあえず、抑止効果が少しでも出ればなあ、って感じです。あ、逆に煽ったりして。

どうも、返答ありがとうございました。

フォロー記事投稿

記事のキャンセル

5月20日に、Hironobuさんは書きました。

＞HTTP1.1と書いてますが、サーバがHTTP1.1に対応していないとこれらの情報を受け取れ
＞無いということでしょうか。だとしたら、IIS3.0では無理ですねえ。
＞
基本的には、サーヴァは自分の知らないリクエストヘッダを受け取ったら、
それを大文字にして HTTP_ を付けて環境変数にセットする、となっている
実装がほとんどでしょうから、サーヴァが知らない分には受けられると思います。

＃ サーヴァによっては、リクエストヘッダを選別する物もあるようですが。

チョットたちが悪いのは、サーヴァが知っているので処理するんだけど、
その処理が間違っている様なリクエストヘッダですね。

＃ 昔の Apache サーヴァでは Cookie に関するヘッダの処理が
＃ おかしかったですね。

IIS3.0がチャンと渡してくれるかどうかは良く知らないですが... (^^;;

フォロー記事投稿

記事のキャンセル

5月23日に、にあさんは書きました。

＞基本的には、サーヴァは自分の知らないリクエストヘッダを受け取ったら、
＞それを大文字にして HTTP_ を付けて環境変数にセットする、となっている
＞実装がほとんどでしょうから、サーヴァが知らない分には受けられると思います。
＞＃ サーヴァによっては、リクエストヘッダを選別する物もあるようですが。

HTTP_VIAは空でした・・・。うむむ、ＩＩＳはダメだなあ・・・。
もしかしたら、PerlIS.dllのせいかもしれませんね。次はISAPIをやめて普通の
perl.exeでやってみます。

＞IIS3.0がチャンと渡してくれるかどうかは良く知らないですが... (^^;;

うむむ。ダメっぽいです。

フォロー記事投稿

記事のキャンセル

5月23日に、Hironobuさんは書きました。

＞HTTP_VIAは空でした・・・。うむむ、ＩＩＳはダメだなあ・・・。
＞もしかしたら、PerlIS.dllのせいかもしれませんね。次はISAPIをやめて普通の
＞perl.exeでやってみます。

HTTP_VIAですが、プロバイダからの書き込みでは入っていました。(Squid/1.1.20とありました)
いわいる荒らしさんの使用しているproxyではHTTP_VIAは入りませんが、HTTP_USER_AGENTに
via NetCache version 3.1.1d-Solaris  via proxy gateway  CERN-HTTPD/3.0 libwww/2.17
と入っていました。
ふむ。
というわけで、だからどうした？という感じですが、とりあえず、IIS3に濡れ衣を
着せたみたいなので、訂正させて頂きます。

フォロー記事投稿

記事のキャンセル

なんか作ってみようと昨日始めたのですが、いきなりつまりました(笑)

ソートについてです。
配列@DATAは複数のフィールドを持つとします。
例えばあるキーで３番目のフィールドをソートします。
ここまではいいのですが、この３番目のフィールドが同じ値を持ったときに
次のキーでソートしたいのです。
つまり複数のキーを用いたソート（優先順位はあります）です。

普通にやると個々のソートはうまくいくのですが、最初の結果に対して次のキーを
かけても最初の結果が反映されないのです。何か良い方法はないでしょうか？


これから本屋に行ってみます。
今まで参考にしている本はらくだ本だけです。

よろしくお願いします。

フォロー記事投稿

記事のキャンセル

いしどう っす。

青本はお持ちですか？ (^o^)

8月5日に、素人でＧＯ！さんは書きました。
＞ソートについてです。
＞配列@DATAは複数のフィールドを持つとします。
＞例えばあるキーで３番目のフィールドをソートします。
＞ここまではいいのですが、この３番目のフィールドが同じ値を持ったときに
＞次のキーでソートしたいのです。
＞つまり複数のキーを用いたソート（優先順位はあります）です。
＞
＞普通にやると個々のソートはうまくいくのですが、最初の結果に対して次のキーを
＞かけても最初の結果が反映されないのです。何か良い方法はないでしょうか？

「複数のフィールドを持つ配列」というのがよくわからないんですが…
＃ perlで多次元配列を使った事がないわたし (^^;;
sort の比較関数をうまく作ってやればよさそうな気がします。

フォロー記事投稿

記事のキャンセル

8月6日に、いしどうさんは書きました。

＞青本はお持ちですか？ (^o^)

　いえ、持ってないです(^^;

＞＞ソートについてです。
＞＞配列@DATAは複数のフィールドを持つとします。
＞＞つまり複数のキーを用いたソート（優先順位はあります）です。
＞「複数のフィールドを持つ配列」というのがよくわからないんですが…

　えーと、要するに多次元配列ってことでいいと思います。

＞sort の比較関数をうまく作ってやればよさそうな気がします。

　sort { $hoge{$a} <=> $hoge{$b} }
　みたいな感じでしょうか…一つのキーだとうまくいくんですけどね(;_;)

　具体的な例を出します。

ある配列に
ファーストフードの名前、セットの名前、価格、おいしさ、お姉ちゃんのかわいさ
という内容が書かれているものがたくさんあるとします。

　まずおいしいものを食べたいので、おいしさ順にソートします。
　Ａ〜Ｅの五段階だとします。
　それでも同じものがある場合は価格が安い方がいいですよね。
　というわけでさらに価格の安い順でソートします。
　それでも同じならかわいい子がいる店の方がいいだろう(笑)ということで
　さらにソートします。

　こんな感じで三段階（例えばですが）、ソートできるようにしたいわけですね。

で、第一段階のソートを @sorted とかに入れます。
それを第二段階のソートをかけると、第二段階のソート結果は出るのですが
第一段階の内容が反映されなくなっているのです。

　それをどうにかしたいなぁと思ったのですが、意味は伝わりましたでしょうか？(^^;

　二ヶ月ほど投稿がないので、誰も見ていないかもしれませんがどなたか教えて下さい。
　よろしくお願いします。

フォロー記事投稿

記事のキャンセル

8月6日に、素人でＧＯ！さんは書きました。

＞8月6日に、いしどうさんは書きました。
＞
＞＞青本はお持ちですか？ (^o^)
＞
＞　いえ、持ってないです(^^;
＞
おや、それは残念。いしどうさんが「青本はお持ちですか」と聞いたのは
青本(Programming Perlの新版)のsort()の項には、その物ズバリの
例が載っているからのです(よね?)

＞　まずおいしいものを食べたいので、おいしさ順にソートします。
＞　Ａ〜Ｅの五段階だとします。
＞　それでも同じものがある場合は価格が安い方がいいですよね。
＞　というわけでさらに価格の安い順でソートします。
＞　それでも同じならかわいい子がいる店の方がいいだろう(笑)ということで
＞　さらにソートします。
＞
この例で言えば、まず、

sub 良い店 {
  $おいしさ{$a} <=> $おいしさ{$b}
    or
  $安さ{$a} <=> $安さ{$b}
    or
  $かわいさ{$a} <=> $かわいさ{$b};
}

と言う関数を作っておくと、おいしさの違いで決まりならそれが関数の値として使われ、
同じおいしさなら安さの違いが、同じ安さならかわいさの違いが、関数の値として
使われるので、

@sorted_shop = sort 良い店 @shop;

とすれば、いきなりソート出来るわけです。

＞二ヶ月ほど投稿がないので、誰も見ていないかもしれませんが
＞
ぎくっ (^^;;

フォロー記事投稿

記事のキャンセル

8月6日に、にあさんは書きました。

＞青本(Programming Perlの新版)のsort()の項には、その物ズバリの
＞例が載っているからのです(よね?)

　気になって立ち読み（汗）に行きました。

＞sub 良い店 {
＞  $おいしさ{$a} <=> $おいしさ{$b}
＞    or
＞  $安さ{$a} <=> $安さ{$b}
＞    or
＞  $かわいさ{$a} <=> $かわいさ{$b};
＞}
＞@sorted_shop = sort 良い店 @shop;
＞とすれば、いきなりソート出来るわけです。

　確かにそんなことが書いてありました。
　そこで素人の質問になるわけですが…配列の中に名前を付けるにはどうすればいいのでしょうか？

　@店　の中に　５つ（見つけた日付、おいしさ、安さ、かわいさ、場所）項目があったとします。
　そんな場合にこういうソートをするとき、どのように指定すればいいんでしょうか。
　まだ始めたばかりなので基本ができてない！と叱られそうですが、よろしくお願いします。

フォロー記事投稿

記事のキャンセル

8月6日に、素人でＧＯ！さんは書きました。

＞確かにそんなことが書いてありました。
＞そこで素人の質問になるわけですが…配列の中に名前を付けるにはどうすればいいのでしょうか？
＞
えーと、先の例はperl4でも使えるように、多次元配列は使わずに、個々の比較項目を
別個に連想記憶に入れてからソートするものでしたので、例えば、

#!/usr/local/bin/perl4

while (<DATA>) {
        chop;
        ($date, $tasty, $cheap, $cute, $key) = split(/,\s*/);
        push(@shop, $key);
        $date{$key} = $date;
        $tasty{$key} = $tasty;
        $cheap{$key} = $cheap;
        $cute{$key} = $cute;
}

@sorted = sort good @shop;

foreach $key (@sorted) {
        printf("%s, (%s, %s, %s), %s\n",
                $date{$key}, $tasty{$key}, $cheap{$key}, $cute{$key}, $key);
}

exit(0);

sub good {
        $tasty{$a} cmp $tasty{$b}
                ||
        $cheap{$a} cmp $cheap{$b}
                ||
        $cute{$a} cmp $cute{$b}
                ||
        $a cmp $b;
}

__END__
1998/04/23, D, B, E, 三茶のA
1998/05/10, B, C, A, 広尾のB
1998/05/11, C, A, B, 表参道のA
1998/06/26, B, A, C, 用賀のC
1998/07/05, D, B, A, 外苑前のA

とかなっていると、出力は、

1998/06/26, (B, A, C), 用賀のC
1998/05/10, (B, C, A), 広尾のB
1998/05/11, (C, A, B), 表参道のA
1998/07/05, (D, B, A), 外苑前のA
1998/04/23, (D, B, E), 三茶のA

とかになるわけです。

＞@店　の中に　５つ（見つけた日付、おいしさ、安さ、かわいさ、場所）項目があったとします。
＞そんな場合にこういうソートをするとき、どのように指定すればいいんでしょうか。
＞　
perl5での多次元配列(まがい)を使ってデータを入れてるとすると、配列の添字で指定した方が
やりやすいでしょうね。例えば、

#!/usr/local/bin/perl5

$tasty = 1;
$cheap = 2;
$cute  = 3;

while (<DATA>) {
        chop;
        push(@shop, [split(/,\s*/)]);
}

@sorted = sort good @shop;

foreach $shop (@sorted) {
        printf("%s, (%s, %s, %s), %s\n", @$shop);
}

exit(0);

sub good {
        
a[$tasty] cmp 
b[$tasty]
                ||
        
a[$cheap] cmp 
b[$cheap]
                ||
        
a[$cute] cmp 
b[$cute]
                ||
        $a cmp $b;
}

__END__
1998/04/23, D, B, E, 三茶のA
1998/05/10, B, C, A, 広尾のB
1998/05/11, C, A, B, 表参道のA
1998/06/26, B, A, C, 用賀のC
1998/07/05, D, B, A, 外苑前のA

でも同じ出力になりますね。
多次元配列では無くて、ハッシュの配列を使えば、

#!/usr/local/bin/perl5

while (<DATA>) {
        chop;
        ($date, $tasty, $cheap, $cute, $key) = split(/,\s*/);
        $shop = {date  => $date,
                 tasty => $tasty,
                 cheap => $cheap,
                 cute  => $cute,
                 key   => $key};
        push(@shop, $shop);
}

@sorted = sort good @shop;

foreach $shop (@sorted) {
        printf("%s, (%s, %s, %s), %s\n",
                $shop->{date}, $shop->{tasty}, $shop->{cheap}, $shop->{cute}, $shop->{key});
}

exit(0);

sub good {
        $a->{tasty} cmp $b->{tasty}
                ||
        $a->{cheap} cmp $b->{cheap}
                ||
        $a->{cute} cmp $b->{cute}
                ||
        $a->{key} cmp $b->{key};
}

__END__
1998/04/23, D, B, E, 三茶のA
1998/05/10, B, C, A, 広尾のB
1998/05/11, C, A, B, 表参道のA
1998/06/26, B, A, C, 用賀のC
1998/07/05, D, B, A, 外苑前のA

な感じになりますか。もちろん出力は同じです。

フォロー記事投稿

記事のキャンセル

　丁寧な説明、本当にありがとうございます。
　perl4しかわかりませんでしたが、精進します。
　感動です〜(*^^*)

フォロー記事投稿

記事のキャンセル

12月9日に、のりーさんは書きました。

＞11月13日に、にあさんは書きました。
＞
＞＞＞複数のgifのヘッダを取って、部分画像が複数ある一つのgifに再構成すれば
＞＞＞ヘッダ操作のみで(gifの圧縮/展開しなくても)軽いものができるような気がします。
＞＞＞
＞＞＞絶対誰か作ってるにちがいない。
＞＞＞
＞
＞＞あ、npc.cgiなら、最初の画像だけ全桁出力して、あとはアニメーションする桁だけ
＞＞出力する、と言うことが出来ますね。これだと、転送データ量が減ってうれしいかも。
＞＞＃ 次の版でこのモードを導入してみよう。(^^) アイデアどうもです。＞BEROさん
＞
＞はじめまして
＞私もアクセスカウンタＣＧＩを作っているんですが、ＧＩＦ形式で採用されている
＞ＬＺＷ圧縮方式は確かＵＮＩＳＹＳがパテントを持っているとかでライセンスを取
＞らずに作られたソフトを配布する事は出来ない(たとえフリーソフトでも)と聞いた
＞ことがあるんですが、そのあたりはどのように処理されているんでしょうか。教え
＞て下さい♪

古い話題でアレなんですが、GIFで特許が取られている部分はLZW圧縮だけで、
ヘッダ形式等は問題無いので、(ライセンスを取ったグラフィックツール等で作成された)
数字のGIF画像のヘッダを合成して新しいGIFにすれば、特許に触れるLZW部分が無くても
カウンタが作れるのではないか？ というのが当初の書き込みでした。

フォロー記事投稿

記事のキャンセル

なおきです。
覚えてますか？１年ぶりくらいかなぁ。
久しぶりです。

ところで題名にも書きましたが
パスワードを変更するプログラムを考えているのですが
サーバーはLinuxサーバーです。
たとえば
テキストファイルに
userID Password
naoki  abcnao
naoko  cdenao

というようなデータを作って
パスワードを変更していくプログラムです。
たとえば
# passwd naoki
とやると会話型になってしまいますよね。
それを避ける方法みたいなのが知りたいんですが。
だれかわかる人いますかぁ？

なおき

フォロー記事投稿

記事のキャンセル

いしどう です。

8月20日に、なおきさんは書きました。

＞ところで題名にも書きましたが
＞パスワードを変更するプログラムを考えているのですが

[中略]

＞# passwd naoki
＞とやると会話型になってしまいますよね。
＞それを避ける方法みたいなのが知りたいんですが。
＞だれかわかる人いますかぁ？

Linux だったら、passwd コマンドのソースを読めば
パスワードの生成方法が分かるとおもうんですが…

勉強になりますよ (^^)

フォロー記事投稿

記事のキャンセル

8月20日に、いしどうさんは書きました。

＞
＞＞# passwd naoki
＞＞とやると会話型になってしまいますよね。
＞＞それを避ける方法みたいなのが知りたいんですが。
＞＞だれかわかる人いますかぁ？
＞
＞Linux だったら、passwd コマンドのソースを読めば
＞パスワードの生成方法が分かるとおもうんですが…
＞
＞勉強になりますよ (^^)

RESありがとうございます。
どこらへんにおいてあるんでしょうか？
/usr/src/linux
のあたりかなぁ。

フォロー記事投稿

記事のキャンセル

8月20日に、いしどうさんは書きました。

＞8月20日に、なおきさんは書きました。
＞
＞＞ところで題名にも書きましたが
＞＞パスワードを変更するプログラムを考えているのですが
＞
＞Linux だったら、passwd コマンドのソースを読めば
＞パスワードの生成方法が分かるとおもうんですが…
＞
Programming perl(旧版)の6章の"Real Perl Programs"の所にも
passwd-Password Changing Programと言うのが有りますね。
これは直接パスワードファイルを書き換えるものです。

あと、既存のpasswdコマンドとの間でやり取りしてパスワードを書き換える
プログラムの例として、poppassd-1.4.tar.gzがありますね。
Eudoraの「パスワード変更」などで使っているパスワード変更サーヴァです。
＃ どこから持ってきたか忘れてしまった。archieでもかけて下さい。＞なおきさん

フォロー記事投稿

記事のキャンセル

8月21日に、にあさんは書きました。

＞8月20日に、いしどうさんは書きました。
＞
＞＞8月20日に、なおきさんは書きました。
＞＞
＞＞＞ところで題名にも書きましたが
＞＞＞パスワードを変更するプログラムを考えているのですが
＞＞
＞＞Linux だったら、passwd コマンドのソースを読めば
＞＞パスワードの生成方法が分かるとおもうんですが…
＞＞
＞Programming perl(旧版)の6章の"Real Perl Programs"の所にも
＞passwd-Password Changing Programと言うのが有りますね。
＞これは直接パスワードファイルを書き換えるものです。
＞
＞あと、既存のpasswdコマンドとの間でやり取りしてパスワードを書き換える
＞プログラムの例として、poppassd-1.4.tar.gzがありますね。
＞Eudoraの「パスワード変更」などで使っているパスワード変更サーヴァです。
＞＃ どこから持ってきたか忘れてしまった。archieでもかけて下さい。＞なおきさん


にあさんありがとう早速やってみてます。
サンキュウ！

フォロー記事投稿

記事のキャンセル

皆さん、こんばんは。

早速質問なんですが、よくYahooやあちゃらNavi、Infoseek等でユーザーの
ホームページで検索を使えるようにサーチエンジンのフォームソースを
公開してますよね。
しかし、複数のフォームをいくつもベタベタ貼り付けると邪魔くさいので、
一まとめにしたいんです。
具体的にはフォームの下にラジオボタンを設置して、そこに該当する
サーチエンジンを全てリストにして、チェックされたサーチエンジンの
検索を使いたいと言う事です。
恐らくプログラム的には「○○がチェックされていたら○○の検索エンジン
にキーワードを渡す」と言う感じになると思うんですが、プログラム経験が
全く無いのでわかりません。
どなたか、詳しく教えて頂けませんでしょうかm(_ _)m

＃コレって「作ってくれ」と言ってるのと同じですね（＾＾；

フォロー記事投稿

記事のキャンセル

自己RESです。

＞具体的にはフォームの下にラジオボタンを設置して、そこに該当する
＞サーチエンジンを全てリストにして、チェックされたサーチエンジンの
＞検索を使いたいと言う事です。
メッツと言うソフトメーカーのサイトで、まさに私がやりたい事をやっていました。
少し前にメールで質問したのですが、教えてもらえませんでした(T_T)
上記ページを見て、何となくわかった方は、是非ご教授お願いします。

フォロー記事投稿

記事のキャンセル

10月6日に、ぱーまぁさんは書きました。

　はじめまして　ぱーまぁさん

＞皆さん、こんばんは。
＞
＞早速質問なんですが、よくYahooやあちゃらNavi、Infoseek等でユーザーの
＞ホームページで検索を使えるようにサーチエンジンのフォームソースを
＞公開してますよね。
＞しかし、複数のフォームをいくつもベタベタ貼り付けると邪魔くさいので、
＞一まとめにしたいんです。
＞具体的にはフォームの下にラジオボタンを設置して、そこに該当する
＞サーチエンジンを全てリストにして、チェックされたサーチエンジンの
＞検索を使いたいと言う事です。
＞恐らくプログラム的には「○○がチェックされていたら○○の検索エンジン
＞にキーワードを渡す」と言う感じになると思うんですが、プログラム経験が
＞全く無いのでわかりません。
＞どなたか、詳しく教えて頂けませんでしょうかm(_ _)m
＞
＞＃コレって「作ってくれ」と言ってるのと同じですね（＾＾；

　求めているものは大体分かりました。
　しかし、一体　何から教えていいのやら　さっぱり分かりません

　と言うことで
　まず、何でもいいから”ぱーまぁさんのプログラム経験”を
　作ってみて下さい

＃因みに私は作ってあげません(^_^;)
＃だって　検索エンジンなんてそこら辺にゴロゴロしてるんだもの
＃見つけたお気に入りのやつにリンクを張ればそれで十分ではないのかな？
＃Ｗｅｂってそういうもんだと私は解しておりますが・・・

フォロー記事投稿

記事のキャンセル

はじめまして。会社でNTをいじっているモノです。
（にあさんのnpc.cgiを使わせていただいてます）
今度、レスキューさんのperlスクリプトをＮＴ＋IISに移植しようと
しているのですが、クッキーでつまづいています。

移植しようとしているのはレスキューさんのショッピングカートです。
とりあえずcgiは動くのですが、
クッキーが発行されないために、正しく動作しません。
（最初の画面で注文しても（個数１と入れても）、
　次画面で「何も注文されていません」になってしまう）

NT4.0+IIS3.0で、Perl5.003　ビルド306です。
過去の記事で、北澤＠えぶあねっとさんが、れすきゅーさんの
minibbsのクッキーに成功した、とありましたが、
どのように手を加えられたのでしょうか。

それとも、perlをビルド３１０以上にすれば
cookie関連については手を加えなくても
動作するのでしょうか？

よろしくお願いします。

フォロー記事投稿

記事のキャンセル

10月19日に、emiさんは書きました。

＞NT4.0+IIS3.0で、Perl5.003　ビルド306です。
＞過去の記事で、北澤＠えぶあねっとさんが、れすきゅーさんの
＞minibbsのクッキーに成功した、とありましたが、
＞どのように手を加えられたのでしょうか。

呼ばれたようなので・・・ (^^;
本題ですが、すっかり忘却の彼方へ旅立ってしまいました　ごめん。
ただ、クッキーの記述がいろいろ有るようで、にあさんのクッキーは
何の変更もなく使えるのですが、一部の方が提供されているスクリプトでは
使えない物もありました。　perlの勉強をすれば理解できるのかも知れない
のですが、私には難解でした (^^;

スクリプトを読めないのならば、別物を探した方が幸せになれます (^^)v
で、我が家のサーバーはＮＴを捨てて UNIXに全面移行中です。
最初は敷居が高いと敬遠していたのですが、ちゃんと設定すれば素直に動く
UNIXが気に入っています。　高い・分からない・融通が利かないＮＴくんとは
これでお別れです。　ウェブサーバーだけでもUNIXには移行できないですか？
ＮＴが動かないスペックの機器でも十分に使えますよ。

フォロー記事投稿

記事のキャンセル

10月23日に、北澤＠えぶぁねっとさんは書きました。

＞本題ですが、すっかり忘却の彼方へ旅立ってしまいました　ごめん。

そうですか・・・。古い話題を持ち出してこちらこそすみませんでした。

＞ただ、クッキーの記述がいろいろ有るようで、にあさんのクッキーは
＞何の変更もなく使えるのですが、一部の方が提供されているスクリプトでは
＞使えない物もありました。　perlの勉強をすれば理解できるのかも知れない
＞のですが、私には難解でした (^^;

同じくです。ラクダ本とか言うのを買ってはみたものの、
使いこなすに至っていません。
今のところにあさんやれすきゅーさんの提供してくださるものを
移植するのが精一杯です。

＞ウェブサーバーだけでもUNIXには移行できないですか？
＞ＮＴが動かないスペックの機器でも十分に使えますよ。

替えたいのはやまやまですが、会社のは所管が別なもので
簡単にはいかず。。。
自宅のだけでもLINUXなどにしてみたいと思っています。
こちらのようにインターネット上で無償で提供される
サンプルやノウハウなどの情報量は明らかにＵＮＩＸ系のほうが
質・量ともに豊富で、勉強もしやすいと思うし
そのように訴えたりしてたんですが、
なぜか会社が購入するときはＮＴを買われてしまうんです。

何はともあれ、
コメントありがとうございました。

フォロー記事投稿

記事のキャンセル

サーバー側でブラウザで入力したURLまたはIPを取得する方法があれば教えて下さい。
CGIかpearlで取得可能？

フォロー記事投稿

記事のキャンセル

10月28日に、cobutaさんは書きました。

＞サーバー側でブラウザで入力したURLまたはIPを取得する方法があれば教えて下さい。
＞CGIかpearlで取得可能？

#perlですね。(^^;;

何がやりたいのか、明確には分かりませんが、
とりあえず、サーバ側で実行されたCGIではブラウザから渡されたいろいろな情報を
環境変数という形で参照できます。

試しに私の所においてある環境変数表示用CGI(中身はいたって単純なperlのスクリプトです。(^^;;)
を実行してみて下さい。
CGI側で参照できる環境変数の名前とその値が表示されます。

ブラウザによって、CGIに渡してくれる情報は異なるようですので、
参照できる環境変数も違ってくるということを覚えておいて下さい。
とはいっても、REMOTE_ADDR、HTTP_REFERER、HTTP_USER_AGENTなどよく利用されている
ものはだいたいのブラウザは渡してくれるでしょう。

具体的な参照方法ですが、perlなんかだと以下の様に参照できます。

　%ENV{'環境変数名'}　( 例：%ENV{'REMOTE_ADDR'} )

フォロー記事投稿

記事のキャンセル

10月28日に、ＴＡＤは書きました。

＞具体的な参照方法ですが、perlなんかだと以下の様に参照できます。
＞
＞　%ENV{'環境変数名'}　( 例：%ENV{'REMOTE_ADDR'} )

上記は '%'でなく、'$' でした。( 初歩的な間違いで、すみません。m(_ _)m )
正しくは以下の通り。

$ENV{'環境変数名'}　( 例：$ENV{'REMOTE_ADDR'} )

フォロー記事投稿

記事のキャンセル

こんにちは。

題名のとおりなんですが、Perlでフォームの内容をメール送信する
ＣＧＩで、宛先と差出人を違うアドレスにしたとき、宛先がアドレス間違い
などで届かなかった場合、そのままFromにはエラーが返って来ない
ので、メールクライアントから送信した場合みたくエラーがFromに送信
されるようにしたいのです。

Ｗｅｂで調べてみましたがさっぱり見あたらなくて質問させていただき
ました。

どなたかよろしくお願いいたしますm(_ _)m

フォロー記事投稿

記事のキャンセル

11月4日に、でんでんさんは書きました。

＞題名のとおりなんですが、Perlでフォームの内容をメール送信する
＞ＣＧＩで、宛先と差出人を違うアドレスにしたとき、宛先がアドレス間違い
＞などで届かなかった場合、そのままFromにはエラーが返って来ない
＞ので、メールクライアントから送信した場合みたくエラーがFromに送信
＞されるようにしたいのです。
＞
メール配送においてヘッダに書かれた宛先とか差出人とかと情報はあまり
大きな意味を持ちません。配送時に重要なのは「エンベロープ」と呼ばれる
MTA(メール配送を行なっているプログラム)に渡される実際の配送元/先の
アドレスです。エラーが起こった時には、このエンベロープに書かれた
配送元アドレスに戻ってくるので、此処に正しいアドレスを設定しなくては
なりません。

そのCGIの内容が分からないと詳細は分かりませんが、例えば sendmail を
メールの送信に利用している場合、エンベロープの送信元アドレスは、
sendmail を起動したユーザになります。ですから、サーヴァが全て同じ
wwwの様なユーザ権限で動いている場合、エラーメールがwww宛に戻って
来ることになります。

これだとチョット不便なので、sendmailに -f オプションを付ける事で
エンベロープの差出人アドレスを変えることが出来ます。

つまり、

sendmail -fUSER

として、起動すると、サーヴァ権限で動いている sendmail でも、エンベロープの
差出人を USER に出来ます。ただし、sendmail ヴァージョンが R5 などでは
sendmail.cf で -f を利用できるユーザを設定しなくてはなりません。
現在普通に使われているような sendmail 8.7 以降のヴァージョンでは
sendmail.cf に記載が無くとも -f が使えますが、その代わり、

X-Authentication-Warning:

ヘッダでアドレスを差し替えていることが記載されます。

その他にも、昔は Errors-To: と言うヘッダがエラーが起きた時の戻りアドレスとして
使われていたことがありましたが、RFC822 と言うメール基本を定めている文書に
記載が無いため、現在は廃れつつあります。特に最近の sendmail.cf の設定では
省略時の設定が Errors-To: を解釈しないモードになっていることが多いので、
実質的に無意味になりつつあります。

＃ ちなみに、ヘッダ情報からエンベロープの宛先を決定するオプションは
＃ sendmail -t です。

詳しくは、sendmail のマニュアルや CF 付属の文書などを参照すると良いでしょう。

フォロー記事投稿

記事のキャンセル

レスありがとうございます。たいへんよく分かりました。

一応、Sendmailのmanは見てみて、-fあたりかなと思ってたの
ですが、なにぶん英語ができないので詳しいことが分からない
でいました。

分かりやすい説明ありがとうございました。

とりあえず試してみます。

m(_ _)m

フォロー記事投稿

記事のキャンセル

　おひさしぶりです。
　アクセスログを取ることにしようと簡単なSSIを書いて、HTMLファイルに



と書きこみ、UNIXのコマンドでCGIを呼び出そうとしたのですが、どうやらコ
マンド使用が許可されていないらしくログが生成されません。CGI自体は直接
実行すればログを生成しますので動いているようです。HTMLからCGIを直接呼
び出すには他にどんな方法があるのでしょうか？

フォロー記事投稿

記事のキャンセル

11月5日に、GGGさんは書きました。

＞　アクセスログを取ることにしようと簡単なSSIを書いて、HTMLファイルに
＞
＞<!-- #exec cgi="test.cgi" -->
＞
＞と書きこみ、UNIXのコマンドでCGIを呼び出そうとしたのですが、どうやらコ
＞マンド使用が許可されていないらしくログが生成されません。
＞
書いた行はそのままですか?

SSI構文は <!-- #exec の様に "--" と "#" の間にスペースを入れてしまうと
解釈されません。正しく <!--#exec と続けて書いて下さい。

＃ 続けて書いても解釈されないのなら、SSI が使えないのでしょうけど。

フォロー記事投稿

記事のキャンセル

11月6日に、にあさんは書きました。

＞＞　アクセスログを取ることにしようと簡単なSSIを書いて、HTMLファイルに
＞＞
＞＞<!-- #exec cgi="test.cgi" -->
＞＞
＞＞と書きこみ、UNIXのコマンドでCGIを呼び出そうとしたのですが、どうやらコ
＞＞マンド使用が許可されていないらしくログが生成されません。
＞＞
＞書いた行はそのままですか?
＞
＞SSI構文は <!-- #exec の様に "--" と "#" の間にスペースを入れてしまうと
＞解釈されません。正しく <!--#exec と続けて書いて下さい。

　そうだったのですか。ありがとうございます。
　あ、「HTMLを解釈しない」といっても、半角不等号は消えてしまうんですね…

＞＃ 続けて書いても解釈されないのなら、SSI が使えないのでしょうけど。

　続けていろいろやってみたのですが、やはり呼び出されないようです。
　SSIは許可されていないけれどもログが取りたい、という場合、どうすればよいのでしょ
うか？参考になる書籍などでもよいのですが。
　それから、うちのサーバーはにあさんのカウンタを置くことはできるのですが、これは
「SSI／CGIが使える」のとは関係しないのでしょうか？でもカウンタファイルはコンパイル
してあるし…

フォロー記事投稿

記事のキャンセル

お久しぶり〜、TAKuです。

Perlでちょっとしたプログラムを書いてるのですが、
パスワードの入力を促す際に、どうやっても入力がecho backされて
画面上に出てしまいます。Cで書いたプログラムでも呼べばOKなのでしょうが
Perlのスクリプト単体でパスワードのプロンプトを作る事はできないでしょうか？

フォロー記事投稿

記事のキャンセル

11月6日に、TAKuさんは書きました。

＞Perlでちょっとしたプログラムを書いてるのですが、
＞パスワードの入力を促す際に、どうやっても入力がecho backされて
＞画面上に出てしまいます。Cで書いたプログラムでも呼べばOKなのでしょうが
＞Perlのスクリプト単体でパスワードのプロンプトを作る事はできないでしょうか？
＞
perl単体でデスか? うーんどうかな? そう言う機能は無い様な気がします。(^^;

ではperlではパスワードの入力のようにエコーバックしない入力をする場合
どうするかと言うと、

system('stty', '-echo');
エコーバックしない処理...
system('stty', 'echo');

の様に、sttyを呼び出して制御するのが一般的では無いかしら?

あと、perl5 なら、ほぼ標準的に使われている Term::ReadKey と言うモデュールで
端末制御をすると、stty の様なプラットホーム依存な方法を使わなくて済みます。

フォロー記事投稿

記事のキャンセル

11月6日に、にあさんは書きました。

＞11月6日に、TAKuさんは書きました。
＞
＞＞Perlでちょっとしたプログラムを書いてるのですが、
＞＞パスワードの入力を促す際に、どうやっても入力がecho backされて
＞＞画面上に出てしまいます。Cで書いたプログラムでも呼べばOKなのでしょうが
＞＞Perlのスクリプト単体でパスワードのプロンプトを作る事はできないでしょうか？
＞＞
＞perl単体でデスか? うーんどうかな? そう言う機能は無い様な気がします。(^^;
＞
＞ではperlではパスワードの入力のようにエコーバックしない入力をする場合
＞どうするかと言うと、
＞
＞system('stty', '-echo');
＞エコーバックしない処理...
＞system('stty', 'echo');
＞
＞の様に、sttyを呼び出して制御するのが一般的では無いかしら?
＞
＞あと、perl5 なら、ほぼ標準的に使われている Term::ReadKey と言うモデュールで
＞端末制御をすると、stty の様なプラットホーム依存な方法を使わなくて済みます。

sttyとTerm::ReadKeyですか。試してみます。

＃Lynxでフォローアップを書くのは難しい・・・(^^;

フォロー記事投稿

記事のキャンセル

発言者：三葉工房
タイトル：perl言語の最適の学習法
日時：98/11/19 13:54 


       こないだの，三葉工房です。今回は，もう1つのテスト構文も添えてサポート
　　　　依頼させていただきます。
       私なりに，NIA様のおっしゃられた通り，一通りマニュアルを読みながら勉強
　　　　しています。しかしながら今日にいたり相変わらずperl習得と道は，足踏み
　　　　のままです。1週間近く前に，名前の(JCODE無し)の表示が出来ましたが，
　　　　それから先は，1人の場合だと相当苦労して出来るか出来ないかの気がしてな
　　　　りません。いつまでも足踏みが続きとても悔しい気持ちです。
       perl言語の勉強は，1人で勉強するのは，かなり厳しい感じがします。
       学校でインストラクターと共に学ばなければマスターは難しい物なのでしょうか。
       やはり，perl言語をマスターするのに孤独の環境は，かなりに困難な感じがします。
　　　　
       それでも私としては，どうしてもperlをマスターしたいです。一体どの様に学習すれば
       確実にperl言語を覚えCGIプログラムに応用出来るのでしょうか。
       そして，今回，訂正を加えても同じ結果のJCODEのソース文にもう1つ選択枝の応用して
　　　　未だ未成功のソース文の私の作成しました2種類のテストスクリプトも下記に記述いた
　　　　します。出来れば，どうか改めてアドバイスよろしくお願いします。
       後，パスワード等で使用するパスワード情報のファイルのpassword.txtは，どのように
       記述作成するのでしょうか。それは，マニュアルには，書いてありませんでした。どうか
       お教え願います。
       どうかよろしくお願い申し上げます。
　　
　　　

       スクリプト1
       クライアントhtml=noer.html
       http://www.amy.hi-ho.ne.jp/nature-create/search/noer.html
       ================
       <html><head><title>CGI Test</title></head><body bgcolor="pink"><form method="post"
       action="/cgi-bin/user/nature-create/noeroorhp.cgi"><font color="red" size=4>番号 登録者：<input type=text
       size=15 maxlength=90 name="nese"><p>

       <center>

       <input type=submit value="送信"> <input type=reset value="取り消し">

       </center><p>



       </form></body></html>
       *****************************************************
     cgiファイルnoeroorhp.cgi(　NIA様のおっしゃられた通り構文の順序立てを私なり
に行いましたが，相変わらずjcode.plの存在は無視され漢字文字が16進数コードで出てし
まいます。)
       ================
       #!/usr/local/bin/perl

       require './jcode.pl';
       $|=1;
       read (STDIN,$in,$ENV{'CONTENT_LENGTH'});
       ($parameter,$name)=split(/=/,$in);
  　　 $value=($parameter,$name);
       &jcode'h2z_sjis(*value);
       &jcode'convert(*name,'sjis');
       &jcode'convert(*value,'sjis');
     

       print "Content-type: text/html\n"; 
       print "\n";
       print "<html>\n";
       print "<head>\n";
       print "<title>届きました</title>\n";
       print "</head>\n";
       print "<body bgcolor='#9acd32' text='#000000'>\n";
       print "<font color='maroon' size='5'>こんにちは$nameさん</font>\n";
       print "</body>\n";
       print "</html>\n";
       __END__

       ********************
       スクリプト2
       クライアントhtml=test.html
       http://www.amy.hi-ho.ne.jp/nature-create/search/test.html
       ==============================
       <html><head><title>CGI Test</title></head><body bgcolor="pink"><form method="post"
       action="/cgi-bin/user/nature-create/noeroorhp.cgi"><font color="red" size=4>番号 登録者：<input type=text
       size=15 maxlength=90 name="nese"><p>

       <center>

       <input type=submit value="送信"> <input type=reset value="取り消し">

       </center><p>

       </form></body></html>
       ******************************************************
       cgiファイルtest.cgi(色々文章を変えてみたが結局最後までサーバーエラー500でした。)
       ================================================
       #!/usr/local/bin/perl
       use lib './yourdir';
       require './cgi-lib.pl';
       $|=1;
       &ReadParse(*in_data);
       $nese=$in_data{'nese'};

       print
       "Content-type:
       text/html\n";
       print "\n";
       print "<html>\n";
       print "<head>\n";
       if ($nese < 100){
       print "<title>100以上!</title>\n";
       print "</head>\n";
       print "<body bgcolor="yellow">\n";
       print "<font color="red"size=5>100以下!</font>\n";
       }
       else {
       print "<head>\n";
       print "<title>100以下!</title>\n";
       print "</head>\n";
       print "<body bgcolor="yellow">\n";
       print "<font color="red"size=5>100以下!</font>\n";
       }
       print "</body>\n";
       print "</html>\n";
       __END__



       ===========
       以上です。どうかよろしくお願いします。



























       関連ＵＲＬ：http://www.amy.hi-ho.ne.jp/nature-create/search/index.html



この発言にコメントをつける場合は、下記に記入のうえ投稿してください。
（半角カタカナは使用しないで下さい）


発言者名　　 　　 　：

Ｅ−Ｍａｉｌアドレス：(ここは省略可)

タイトル　　　　　　：

コメント　　　　　　：


関連ＵＲＬアドレス：(ここは省略可)

フォロー記事投稿

記事のキャンセル

11月23日に、三葉工房さんは書きました。

＞perl言語の勉強は，1人で勉強するのは，かなり厳しい感じがします。
＞学校でインストラクターと共に学ばなければマスターは難しい物なのでしょうか。
＞
うーん、今までに他の言語を知っている人がperlを憶えるのは、楽なんですが、
最初に憶える言語がperlだと、それなりに苦労するかも知れません。

やはり、初心者向けの本を見ながらでも、焦らず一歩づつやって行くしか無いんじゃ
ないかしら。あたしはperlの入門書は読んだこと無いので、たしかではないのですが、
人の話では「初めてのperl (ISBN 4-900900-81-8)」が良い、と言うのは
よく聞きますね。

＞そして，今回，訂正を加えても同じ結果のJCODEのソース文にもう1つ選択枝の応用して
＞未だ未成功のソース文の私の作成しました2種類のテストスクリプトも下記に記述いた
＞します。出来れば，どうか改めてアドバイスよろしくお願いします。
＞
チョット見てみましたが、うーん、忌憚の無い所を言うと、残念ながら三葉工房さんは
サーヴァ上でCGIスクリプトの試験をするには、まだ力不足だと思います。

WWWサーヴァは多数の人と共有するリソースですから、一人の簡単なミスでもその結果は
非常に多数の人に迷惑をかけます。まずは自分のパソコンなどの上で十分動作試験を行ない、
完璧だと自信が持てた所で、やっとサーヴァ上での実行が可能になります。
＃ それでも、サーヴァ固有の問題にあたってデバッグが必要になるものですが。

取りあえず、ご自分のパソコン上でperlの実行を行なう環境を整備することが
先決ではないでしょうか? 三葉工房さんのパソコンは何ですか? Windows
マシンなら ActivePerl 辺りをインストールするのが良いかな?
それとも、雑誌の付録にでも付いてるかしら?

＃ パソコン雑誌と言うのも、ここ数年買ってないので良く分からないのですが...
＃＃ 役立たずだな。(^^;;;

フォロー記事投稿

記事のキャンセル

いしどう＠パソコン屋 (^^;; です。

11月25日に、にあさんは書きました。
＞やはり、初心者向けの本を見ながらでも、焦らず一歩づつやって行くしか無いんじゃ
＞ないかしら。あたしはperlの入門書は読んだこと無いので、たしかではないのですが、
＞人の話では「初めてのperl (ISBN 4-900900-81-8)」が良い、と言うのは
＞よく聞きますね。

そこらへんからはじめるのがいいと、わたしも思います。
あと、PerlとCGIの入門書っつーのも２・３冊出てますので、
大き目の本屋さんで探してみるといいと思いますよ＞三葉工房さん

＞取りあえず、ご自分のパソコン上でperlの実行を行なう環境を整備することが
＞先決ではないでしょうか? 三葉工房さんのパソコンは何ですか? Windows
＞マシンなら ActivePerl 辺りをインストールするのが良いかな?

賛成です。とりあえず、手元に Perl で CGI を動かす環境を
構築してから、その上で本を読みながらいろいろ試してみる
のが一番近道だと思います。

Windows用の Perl は、にあさんが紹介している ActiveState
の Active Perl を入手すればいいですし、Web Server は、
AnHTTPd がフリーでWindows95/98/NT上で動くのでいいと
思います（説明も日本語だし）

Macだと、どうなるんだろう…わかんない

と、えらそーなことをいってるわたしとて、最初はインターネット
上のドキュメント（英語）を読みながら、わけもわからず CGI
を書きちらかして(perlは知ってたけど)、動かなくって１ヶ月以上
無駄に過ごしてしまった経験がある（しかも仕事で (^^;;）ので、
ちゃんと本を読んで勉強する事を、強くお勧めいたします。

フォロー記事投稿

記事のキャンセル

こんにちは、NKです。

＞Macだと、どうなるんだろう…わかんない

Macでは、MacPerlとMacHTTPの組み合わせで実現できます。
最近はこれでCGIのテストをしています。

では！

フォロー記事投稿

記事のキャンセル

11月25日に、にあさんは書きました。

＞11月23日に、三葉工房さんは書きました。
＞
＞＞perl言語の勉強は，1人で勉強するのは，かなり厳しい感じがします。
＞＞学校でインストラクターと共に学ばなければマスターは難しい物なのでしょうか。
＞＞
＞うーん、今までに他の言語を知っている人がperlを憶えるのは、楽なんですが、
＞最初に憶える言語がperlだと、それなりに苦労するかも知れません。
＞
＞やはり、初心者向けの本を見ながらでも、焦らず一歩づつやって行くしか無いんじゃ
＞ないかしら。あたしはperlの入門書は読んだこと無いので、たしかではないのですが、
＞人の話では「初めてのperl (ISBN 4-900900-81-8)」が良い、と言うのは
＞よく聞きますね。
＞

　「初めてのperl (ISBN 4-900900-81-8)」でも
　プログラム経験が無い方には難しいようです。

　とはいえ、この辺の本を参考にしながら経験を積むしかないように思えます。
　身近な人で教えてくれる人を捕まえるとかなり楽になるのでは？

　Perlではありませんが、例えばＣマガの後ろの方に初心者向けのコラムがあります。
＃入門講座ではない　一見するとただの読み物のようにも見える
　その辺をＣでなくPerlでやってみるのもいいかもしれませんね

　また、Perlでなくてもプログラミングと言うものを知りさえすれば
　なんでもいいように思えます。Perlならば

フォロー記事投稿

記事のキャンセル

又，三葉工房です。
　すみません，perlの習得はとても難しい物で。

質問する前にperlの習得は私はこう思います。

独学の場合

例えば10人がホームページを作成するとします。
もちろん，初歩的なhtmlページを作成し，
すこし複雑なフォームまで作成します。
この段階までは，全員出来ます。
そして，高レベルのページを作成する為にcgiのページ
を作成する為にperlの勉強をします。
cgiのページが満足に出来るのは，全員は難しく，マスター
した人は，10人の中の3人位と言う気がします。
すみませんか，これは，あくまでも私の想像です。

やはり，にあ様のおっしゃられた通りperlの独学は，よほど
の苦労が必要と思います。
1.C等のプログラムが出来る
2.推察力
3.面接形式でperlを伝授してくれる人やインストラクターが存在する
がある事が私なりの多分perl習得の出来る条件なのでしょうか。

後，これは，とても痛い事なのですが私のマシーンはMACなので
使用できるperlコンパイラもMacPerlと限られます。そして，
MachttpとMacPerlを関連利用して，自分のマシーン内にて，
perlのテストをする(プラウザに反応させる事が出来ない。)事すら
出来ませんるだからテストは，確かに力不足なのですがネット上の
サーバーで実行せざるを得ません。

そして，どうすれば，perlを習得できるのかを自分なりに考え，マニュアル本に
記述してある(今回は，ゲストブック)cgiスクリプトを丸写ししながら，変数や
関数の意味を1つ1つ調べ手書きで書き上げ，Kncov.pmをダウンロードしてcgi-
binのサーバー上のフォルダーに入れてサーバーでテストをしてもあいかわらずサ
ーバーエラー500のままです。また，そのソースー文を下に又記述させていただきます。
どうかサポート宜しくお願いします。どうしてもプロの方に頼らないとperlの習得
は究めて困難です。cgiが作動してperlの習得が成立すると私は思います。
perlの教則本が生かせないというのは，本当に悔しいと思います。
でもあきらめてはいけませんが，自分は，perlを習得するのに向いているのかを
考えなければならない気もします。
愚痴まで記述してすみません。これから何度もサポート依頼すると思いますが
どうか宜しく御願いします。私は，本当にperlプログラミングのプロになって見たいです。

クライアント用html
gestbook.html
http://www.amy.hi-ho.ne.jp/nature-create/search/gestbook.html

<html><head><title>Please input to the yourself.</title></head><body bgcolor="orange">
<form action="/cgi-bin/user/nature-create/gestbook.cgi" method="post">
<p><table bgcolor="#ffcc99" border=5><tr><th><font color="navy"size=4><b>Your name</b></font></th></tr></table><p><input name="name" size=45>
<p><table bgcolor="#ffcc99" border=5><tr><th><font color="navy"size=4><b>Your mail adress</b></font></th></tr></table><p><input name="mail" size=45>
<p><table bgcolor="#ffcc99" border=5><tr><th><font color="navy"size=4><b>Your comment</b></font></th></tr></table><p><textarea name="coment"rows=4 cols=60 wrap="hard"></textarea><p><center><input type="submit"value="Submit"><p><input type="reset"value="Reset"></center></form></body></html>


gestbook.cgi

#!/usr/local/bin/perl
$|=1;
use lib 'yourlib_dir';
require './cgi-lib.pl';
use './Kconv.pm';
$date=localtime();
$file="/nature-create/search/file/gestfile.html";
$url="/nature-create/search/gest/gestfile.html";
$entry_url="/nature-create/search/gestbook.html";

&ReadParse(*in);
$coment=$in{'coment'};
$name=$in{'name'};
$mail=$in{'mail'};

if (not $name) {
&CgiError("No writed to yourname!",
"Please go back around inputpage!");
 exit;
}
elsif (not $body) {
&CgiError("No writed to sentence!",
"Please go back around inputpage!");
exit;
}

$body=~ s/\r\n/<br>/g;
$body=~ s/\r/<br>/g;
$body=~ s/\n/<br>/g;
&tosjis($body);
&tosjis($name);

open GUESTBOOK, ">>$file"
  or &Cgidie("This page can't Writtig!",
"Please try to sumit in more time again!");
print GUESTBOOK <<"HERE";
<hr>
<b>Dear $name</b><a href=\"mailto:$mail\">
$name</a> Writtng time:$date<p>
$body
HERE

close GUESTBOOK;

print <<"HEADER";
Content-type: text/html

<html><head><title>Under stand writed the GUESTBOOK</title></head>
<body bgcolor="yellow">
Thank you! writting to the GUESTBOOK!
Your contents is ascertained in <a href=\"$url\">Entry input page</a>.
Retarnnig to input page.
<a href=\"$entry-url\">Input page</a>
</body></html>
HEADER
exit 1;
--END--

use kconv;



　

フォロー記事投稿

記事のキャンセル

12月3日に、perl習得の才能が問われる三葉工房の管理者さんは書きました。

＞例えば10人がホームページを作成するとします。
＞もちろん，初歩的なhtmlページを作成し，
＞すこし複雑なフォームまで作成します。
＞この段階までは，全員出来ます。

HTMLは少しくらい文法が間違っていても
ブラウザがいいように解釈してくれてそれなりに表示してくれますから、
「HTMLなんて簡単さ」などと思ってしまいがちですが、(私もそうでした...(#^_^#))
ほんとに正しいHTMLが書けているかはあやしいものです。(私もまだまだですが...)

＞そして，高レベルのページを作成する為にcgiのページ
＞を作成する為にperlの勉強をします。
＞cgiのページが満足に出来るのは，全員は難しく，マスター
＞した人は，10人の中の3人位と言う気がします。

perlは別にWEBページを作るためのものではないです。
あくまでもプログラミング言語です。
そこは正しく認識しておいた方がいいです。HTMLとは全く異質なものです。

プログラミング言語であるからには、
文法が間違っていたら絶対に動きませんし、(コンパイルなんかは通らない)
プログラミングしたらその通りにしか動いてくれません。
(コンパイラが適当に補完したり、拡大解釈したりしたら、逆に怖い。)

だから、プログラミング言語は正確に理解する必要があります。

＞1.C等のプログラムが出来る

何らかのプログラミング経験(学習経験)はあった方がいいとは思いますが、
あとは

2.やる気 だけだと思います。

＞どうかサポート宜しくお願いします。どうしてもプロの方に頼らないとperlの習得

三葉工房さんは、「サポート」を期待しているようですが、
誰もお金をもらっているわけではないですし、
暇を持て余しているわけでもありませんから、
何から何まで教えてもらえると思わない方がよいと思います。
プロによるサポートを期待するのでしたら、
しかるべきところでお金を払ってサポートしてもらって下さい。

先ずはどこかでプログラミングの勉強をした方がよいと思いますけど。

フォロー記事投稿

記事のキャンセル

12月3日に、三葉工房さんは書きました。

＞後，これは，とても痛い事なのですが私のマシーンはMACなので
＞使用できるperlコンパイラもMacPerlと限られます。
＞
Macの場合、当然MacPerlを使うことになるんですが、MacPerlと言うのは
一寸癖があって、「ふつーの」perlのテキストを読みながらだと、戸惑うことが
あるかも知れませんね。

MacPerl自身やそれをCGIで使う場合に、UnixやWindowsのperlに対して、
どの辺が違っていて、どこに気を付けたらいいのか、と言うような事に付いては、
よしもとさんがまとめた「MacPerl Differences in CGI Programming」と言う
文書に詳しいですから、MacPerlを使う方は一度目を通してみるとよいと思います。

＃ まあ、この辺に書いてあることが、すらすらわかるのは、大分perlに慣れてから
＃ だとは思いますが。

この文書に限らず、よしもと氏のMacPerl IslandはMacPerlに関するTipsが
いっぱいですから、非常に参考になると思います。もちろん、自分のマシンで
MacPerlのCGIスクリプトを動かす方法等も載っていますよ。

＞そして，どうすれば，perlを習得できるのかを自分なりに考え，マニュアル本に
＞記述してある(今回は，ゲストブック)cgiスクリプトを丸写ししながら，
＞
まず、perlによるCGIスクリプトはあくまでもperlのプログラムであることに
留意して下さい。perlによるプログラムが書けなければperlによるCGIは
かけません。CGIは単なるプログラムに比べて考慮すべき点も多いですから、
一足飛びにCGIを作ることなく、まずは手元のperl環境でプログラムする事を
憶えて下さい。

まずはperlと言う言語自体を憶える事が先決ですね。自分の望む動作を
自在にperlで書けるようになったなら、実はCGIと言うのは全然難しい
ものでは無い事にも気が付くでしょう。

それから、自分のMac上にサーヴァを立ててCGIの実験をする場合には、
福井県立大の田中先生のEasyBBSによる会議室「Web Scripter's Meeting」が
非常に参考になると思います。Mac上でNetworkサーヴァを立てている人が
集まっていますから、Mac固有の問題に付いても解決できるでしょう。

フォロー記事投稿

記事のキャンセル

明けましておめでとうございます。
三葉工房です。
少しは，実行が出来るようになっています。
実は，条件指定がサブルーチンtoppage2に負けてしまって，
スクリプト上部に近い方へ記述にされています条件指定文
if ($in{'inemit'} ge $pope) {
✓
&input;
&toppage;

}
else {&toppage2;}
が$popeに"登録"がプロンプトから代入(サブミットボタンを押すこと)されれば，
真となり，上記のif文が成立するはずですが，サブミットボタンを押して$pope
に登録が代入されても何故か，偽になり，同じ&toppage2のhtml"
ページタイトル(否定一体化掲示板(簡潔スクリプト))が繰り返しリロードされるだけで
他の3つのサブルーチン(✓&input;&toppage;)に実行権が渡りません。
そして，サブミットボタンも別スクリプトでテストした所，$in変数に変換可能な事が
確かめられています。
　ところで，if文が99%成立してもいいのに関わらず，elseにされてしまうのは，
何故でしょうか。問題のスクリプトも下部にコピーいたします。どうかアドバイス宜しくお願いします。
　
(注)ちなみに，&toppageと&toppage2のhtmlページは，見た目は，同じですが，上記の
if文の真と偽に関しての検証目的で，タイトル名とサブミット名を書き替えて，&toppage
のコピーした&toppage2を同一スクリプト内に作成した訳で
タイトルが
&toppageは，一体化掲示板(簡潔スクリプト)
&toppage2は，否定一体化掲示板(簡潔スクリプト)
とやや異なるところと，サブミットボタン名が
&toppageはsubmit
&toppage2はinemitと違い
。その他は，全く同じです。
=================
問題スクリプト=elpence.cgi
http://www.amy.hi-ho.ne.jp/cgi-bin/user/nature-create/elpence.cgi
========================
#!/usr/local/bin/perl
$|=1;
require './cgi-lib.pl';
read (STDIN,$in,$ENV{'CONTENT_LENGTH'});
($sec,$min,$hour,$day,$mon,$year,$wday)=localtime(time);
$mon++;
$seirei=($year+1900);
$wareki=($year-88);
$BaseDir = "$ENV{'HOME'}/html/search";
$NEWURL="http://www.amy.hi-ho.ne.jp/cgi-bin/user/nature-create/entlertg.cgi";


&ReadParse(*in);
$coment=$in{'coment'};
$name=$in{'name'};
$mail=$in{'mail'};
$gurl=$in{'gurl'};
$hpagename=$in{'hpagename'};
$dre='grss.dat';

@week=("日","月","火","水","木","金","土");
$yobi=$week[$wday];
$date=sprintf ("%4d年(平成%2d年)%2d月%2d日  $yobi曜日%3d時%2d分%2d秒"
,$seirei,$wareki,$mon,$day,$hour,$min,$sec);
&ReadParse(*in);
$coment=$in{'coment'};
$name=$in{'name'};
$mail=$in{'mail'};
$gurl=$in{'gurl'};
$hpagename=$in{'hpagename'};
$maxcment="100";
$remaxcment="50";
$wordcnt=length($in{'coment'});
$wordbit=($wordcnt/2-1);
$overtop=($wordbit-$maxcment);
$overdown=($remaxcment-$wordbit);
$pope="登録";

if ($in{'inemit'} ge $pope) {
✓
&input;
&toppage;

}
else {&toppage2;}




sub toppage{
open (SSTBOOK, "$BaseDir/$dre") || &CgiDie("This page can't Writtig!",
"Please try to sumit in more time again!");
@Data=<SSTBOOK>;
close SSTBOOK;



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

print "<html>\n";
print "<head>\n";
print "<title>一体化掲示板(簡潔スクリプト)</title>\n";
print "</head>\n";
print "<body bgcolor=\"orange\">\n";
print "<p>\n";
print "<table bgcolor=\"black\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"orange\"size=5>\n";
print "<b>一体化掲示板</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "<tr>\n";
print "<td>\n";
print "<font color=\"yellow\"size=4>(注意!)此の試験実行掲示板のコメント文字数は，50文字以上100文字以内の範囲に制限されていますので，その範囲内の文字数で御記入願います。</font>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<th>\n";
print "<center>\n";
print "<a href=\"/nature-create/search/index.html\">\n";
print "<font color=\"yellow\"size=4>MISTUBA SEARCHPAGE</font>\n";
print "</a>\n";
print "</center>\n";
print "</th>\n";
print "</tr>\n";
print "</center>\n";
print "</table>\n";
print "<p>\n";
print "<form method=POST action=\"elpence.cgi\" >\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>登録者名</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"name\" size=45>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>Eメールアドレス</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"mail\" size=45>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>登録者のホームページ名</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"hpagename\" size=60>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>ホームページのURL</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"gurl\" value=\"http://\" size=60>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>コメント</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<textarea name=\"coment\" rows=4 cols=60 wrap=\"hard\"></textarea>\n";
print "<p>\n";
print "<center>\n";
print "<input type=submit name=\"submit\" value=\"登録\">\n";
print "<p>\n";
print "<input type=reset value=\"リセット\">\n";
print "</center>\n";
print "</form>\n";
print "<hr size=5>\n";
print "<center>\n";
print "<font color=\"#330066\" size=5>\n";
print "<b>此れ迄の書き込み</b>\n";
print "</font>\n";
print "</center>\n";
print "<hr size=5>\n";

foreach $match(@Data){
@catchin=split(/&&/,$match);
print "<a href=\"mailto:$catchin[0]\">\n";
print "<font color=\"#006600\" size=4>$catchin[1]</font>\n";
print "</a>\n";
print "<font color=\"#000066\" size=3>：$catchin[2]</font><br>\n";
print "<a href=\"$catchin[3]\" target=\"new\">\n";
print "<font color=\"#990066\" size=3>$catchin[4]</font>\n";
print "</a>\n";
print "<font color=\"#330000\" size=3>$catchin[5]</font>\n";
print "<hr size=5>\n";
}
print "</body>\n";
print "</html>\n";
}

sub toppage2{
open (SSTBOOK, "$BaseDir/$dre") || &CgiDie("This page can't Writtig!",
"Please try to sumit in more time again!");
@Data=<SSTBOOK>;
close SSTBOOK;



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

print "<html>\n";
print "<head>\n";
print "<title>否定一体化掲示板(簡潔スクリプト)</title>\n";
print "</head>\n";
print "<body bgcolor=\"orange\">\n";
print "<p>\n";
print "<table bgcolor=\"black\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"orange\"size=5>\n";
print "<b>一体化掲示板</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "<tr>\n";
print "<td>\n";
print "<font color=\"yellow\"size=4>(注意!)此の試験実行掲示板のコメント文字数は，50文字以上100文字以内の範囲に制限されていますので，その範囲内の文字数で御記入願います。</font>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<th>\n";
print "<center>\n";
print "<a href=\"/nature-create/search/index.html\">\n";
print "<font color=\"yellow\"size=4>MISTUBA SEARCHPAGE</font>\n";
print "</a>\n";
print "</center>\n";
print "</th>\n";
print "</tr>\n";
print "</center>\n";
print "</table>\n";
print "<p>\n";
print "<form method=POST action=\"elpence.cgi\" >\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>登録者名</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"name\" size=45>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>Eメールアドレス</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"mail\" size=45>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>登録者のホームページ名</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"hpagename\" size=60>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>ホームページのURL</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<input name=\"gurl\" value=\"http://\" size=60>\n";
print "<p>\n";
print "<table bgcolor=\"#ffcc99\" border=5>\n";
print "<tr>\n";
print "<th>\n";
print "<font color=\"navy\"size=4>\n";
print "<b>コメント</b>\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "<p>\n";
print "<textarea name=\"coment\" rows=4 cols=60 wrap=\"hard\"></textarea>\n";
print "<p>\n";
print "<center>\n";
print "<input type=submit name=\"inemit\" value=\"登録\">\n";
print "<p>\n";
print "<input type=reset value=\"リセット\">\n";
print "</center>\n";
print "</form>\n";
print "<hr size=5>\n";
print "<center>\n";
print "<font color=\"#330066\" size=5>\n";
print "<b>此れ迄の書き込み</b>\n";
print "</font>\n";
print "</center>\n";
print "<hr size=5>\n";

foreach $match(@Data){
@catchin=split(/&&/,$match);
print "<a href=\"mailto:$catchin[0]\">\n";
print "<font color=\"#006600\" size=4>$catchin[1]</font>\n";
print "</a>\n";
print "<font color=\"#000066\" size=3>：$catchin[2]</font><br>\n";
print "<a href=\"$catchin[3]\" target=\"new\">\n";
print "<font color=\"#990066\" size=3>$catchin[4]</font>\n";
print "</a>\n";
print "<font color=\"#330000\" size=3>$catchin[5]</font>\n";
print "<hr size=5>\n";
}
print "</body>\n";
print "</html>\n";
}
sub check{
if (! $name) {
&CgiError("No writed to yourname!",
"Please go back around inputpage!");
 exit;
}

if($wordbit>130){print <<"MOROVER";
Content-type: text/html

<html><head><title>かなりコメント数が$overtop個もオーバーしました!</title></head>
<body bgcolor=\"\#cc0000\">
<font color=\"\#ffff66\" size=5><b>彼方の記入されたコメント数は $wordbit個で，当フォームは，コメント数が30も多い場合に時に当ページが出力されてしまいます。</b>
</font><p>
<font color=\"\#ccffcc\" size=5>そのコメント数は基準の50個に$overtop個ものかなりのオーバーです。 </font>
</body></html>
MOROVER
exit;}
if($wordbit>$maxcment){ print <<"OVER";
Content-type: text/html

<html><head><title>コメント数が$overtop個越えています!</title></head>
<body bgcolor=\"\#003399\">
<font color=\"\#ffff66\" size=5><b>彼方の記入されたコメント数は $wordbit個です。</b>
</font><p>
<font color=\"\#ccffcc\" size=5>そのコメント数は基準の100個より$overtop個オーバーしています。</font>
</body></html>
OVER
}

if($wordbit>1){if($wordbit<25){print <<"MORDOWN";
Content-type: text/html

<html><head><title>かなりコメント数が$overdown個も足りません!</title></head>
<body bgcolor=\"\#110000\">
<font color=\"\#ffff66\" size=5><b>彼方の記入されたコメント数は $wordbit個で，当フォームは，コメント数が25も少ない時に当ページが出力されてしまいます。</b>
</font><p>
<font color=\"\#ccffcc\" size=5>そのコメント数は基準の50個に$overdown個ものかなりの不足です。 </font>
</body></html>
MORDOWN
exit;}

if($wordbit<$remaxcment){print <<"DOWN";
Content-type: text/html

<html><head><title>コメント数が$overdown個足りません!</title></head>
<body bgcolor=\"\#660000\">
<font color=\"\#ffff66\" size=5><b>彼方の記入されたコメント数は $wordbit個です。</b>
</font><p>
<font color=\"\#ccffcc\" size=5>そのコメント数は基準の50個に$overdown個不足しています。 </font>
</body></html>
DOWN
exit;}}

elsif($wordbit==0){&CgiError("No writed to comment!",
"Please go back around inputpage!");
exit;}

$coment=~ s/\r\n/<br>/g;
$coment=~ s/\r/<br>/g;
$coment=~ s/\n/<br>/g;
&namabbs;
sub namabbs{


print <<"REPLAY";
Content-type: text/html

<html><head><title>$in{'name'}さん：書き込みを御受け致しました。</title><meta http-equiv="refresh" content="5; url=$NEWURL "></head>
<body bgcolor=\"\#cc66ff\">
<font color=\"\#660000\" size=5><b>$in{'name'}さん，彼方の記入なされたコメント数は，$wordbit個でコメント数規定に合致しました。</b></font><br><font color=\"\#ffff66\" size=5><b>それに伴い書き込みを御受け致しました。どうもありがとうございました。</b>
</font><p>
<font color=\"\#ccffcc\" size=5>御帰りのページは<a href=\"$NEWURL \">こちら</a>でございます。</font>
</body></html>
REPLAY
exit 1;}
exit;}
sub input{
open (SSTBOOK, ">>$BaseDir/$dre") || &CgiDie("ファイルが開きません!",
"何処かの構文が間違っています!");
print SSTBOOK "$mail&&$name&&$date&&$gurl&&$hpagename&&$coment\n";
close SSTBOOK;
}


__END__

以上78記事（キャンセル分を含む）

ホームペーヂに戻る