プログラム質問箱 (00561)

From: perl習得の才能が問われる三葉工房の管理者 <nature-create@amy.hi-ho.ne.jp>
Subject: 改めてサポート依頼します
Date: 1998/12/03 17:53:50

又，三葉工房です。
　すみません，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;