ActivePerl最新版入手先

CD-ROMに添付しているMS-Windows用のバイナリーディストリビューションであるActivePerlは 、本書発行後バージョンアップされています。
最新版は http://www.ActiveState.com/ActivePerl/ から入手できます。

ActivePerl用モジュールの入手・導入方法

http://www.harukaze.net/~mishima/perl/win/winperl.html を参照してください。

何があるかとりあえず知りたいのなら、 オフラインインストール用のアーカイブディレクトリ http://www.ActiveState.com/packages/zips/ を見るとよいでしょう。

誤植関連

少々見落としがありました。適宜修正してご使用ください。
なお、スクリプトファイルについては、それぞれの修正済みファイルのみをまとめた圧縮ファイルを以下に用意しましたので、差し替えてご利用下さい。
 
修正版(V1.0)ダウンロード：fup_cgi_perl.zip　
schedule.cgi修正版(2000.8.9)ダウンロード：schedule_08092000.zip (シフトJISコード版）
userauth.cgi修正版（2000.12.5）ダウンロード：userauth12052000.zip (シフトJISコード版）

<本文>

 

ページ	【誤】	【正】
P.3/上から5行目	つくることこができます。	つくることができます。
P.20/上から2行目	×[Win32]
P.20/上から3行目	×[Mac]
P.20/上から2行目	×[4]
P.20/上から13行目	『プログラミング Perl』(アスキー出版)	『Perl プログラミング』(ソフトバンク)
P.20/上から13-14	『Perl プログラミング (改訂版)』(オライリージャパン発行)	『プログラミング Perl (改訂版)』(オライリー・ジャパン発行)
P.22/P.23/P.25 【2000/4/5追加】 <大串 敏史さんに感謝>	<TITLE>CGIの起動サンプル(&lt;xxxxx>タグ)</TITLE>	<TITLE>CGIの起動サンプル(&lt;xxxxx&gt;タグ)</TITLE>
P.28 【2000/4/5追加】 <大串 敏史さんに感謝>	（誤植ではないのですが、改行コードの変換はMacに対応していません。）	$val =~ s/\r\n/\n/g; # Win $val =~ s/\r/\n/g;    # Mac
#P.29/下から3行目	ulti.pl	util.pl docs/basic/hash.html
P.44 【2000/4/5追加】 <大串 敏史さんに感謝>	flock()が利用しない（できない）	flock()を利用しない（できない）
P.46/lock.cgiの真ん中あたり	closeUnlock(FH);	closeUnlock(FH,$file);
P.56 【2000/4/5追加】 <大串 敏史さんに感謝>	サンプルプログラム getenv.cgi	サンプルプログラム browserinfo.cgi ★内容はCD-ROM内のサンプルを参照してください。
P65　中頃	PrintableはQ、BASE64はB)をセットします。<エンコードした>には	PrintableはQ、BASE64はBをセットします。<エンコードした文字列>には
P66　中頃 【2000/1/6追加】	$year += 1900;	$year += 1900;  $mon += 1;
P.67/ssi_count.cgiの下から７行目	$count++; print CNT $count;	$count++; print "Content-type: text/plain\n\n"; # 追加する文 print CNT $count;
P.70/img_count.cgiの上から４行目 【2000/6/19追加】	$count++ if ($col ==1); print CNT $count;	$count++; if ($col ==1) {     print CNT $count; }
P.80 【2001/7/28追加】	(y + y/4 - y/1000 + y/400 + (13*m + 8)/ +d) % 7	(y + y/4 - y/1000 + y/400 + (13*m + 8)/5 +d) % 7
P.88　中頃 【2000/4/24追加】 <倉光 健司さんに感謝>	($array[0],$array[1],$array[1])	($array[0],$array[1],$array[2])
P183		(真っ白になっている版がありますが、落丁ではありません。)
P186　TIPS（下から8〜9行目） 【2002/1/9追加】	単項演算子であるgetnetbynameより||演算子の優先順位のほうが高い	代入演算子=より||演算子の優先順位のほうが高い
P186　TIPS（下から２〜３行目）	いちいち覚えるのが大変だという場合は（）を付ければ、「関数呼び出しのようにに見えるものは云々」	いちいち覚えるのが大変だという場合は（）を付ければ、「関数呼び出しのように見えるものは云々」
P189 【2002/1/9追加】	右オペランドの値分複製されたリストが演算の結果として返されます。	右オペランドの値分複製された文字列が演算の結果として返されます。
P212	-R ：ファイルやディレクトリが実効 uid/gid で読み出し可 -W ：ファイルやディレクトリが実効 uid/gid で書き込み可 -X ：ファイルやディレクトリが実効 uid/gid で実行可 -O ：ファイルやディレクトリが実効 uid の所有である	-R ：ファイルやディレクトリが実 uid/gid で読み出し可 -W ：ファイルやディレクトリが実 uid/gid で書き込み可 -X ：ファイルやディレクトリが実 uid/gid で実行可 -O ：ファイルやディレクトリが実 uid の所有である
P224 gmtime 【2000/4/3追加】 <大串 敏史さんに感謝>	秒、分、時、日、つき、年、曜日、夏時間調整の有無を表す数値データ。	秒、分、時、日、つき、年、曜日、年初からの日数、夏時間調整の有無を表す数値データ。 単位　　数値の範囲 年初からの日数 　0〜364(閏年は365)
P225 localtime 【2000/4/3追加】 <大串 敏史さんに感謝>	秒、分、時、日、つき、年、曜日、夏時間調整の有無を表す数値データ。	秒、分、時、日、つき、年、曜日、年初からの日数、夏時間調整の有無を表す数値データ。 単位　　数値の範囲 年初からの日数 　0〜364(閏年は365)
P233 TIPS	packはプラットフォーム間での互換性はあまりありませんが、Cの構造体などのバイナリデータの形でデータを格納したり、 受け渡したりする用途に用いることもできます。	間違いではありませんが、句読点が抜けてしまって、packにプラットフォーム間での互換性がないように読みとれるので、以下に変更。 プラットフォーム間での互換性はあまりありませんが、Cの構造体などのバイナリデータの形でデータを格納したり、 受け渡したりする用途にpackを用いることもできます。
P260 ハッシュの値(数値)によって昇順にソートする（の５行目） 【2000/6/19追加】 <清瀧 威史 さんに感謝>	foreach $key (sort { $hash{$a} <=> $hash{$b}  keys %hash) {	foreach $key (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
P267 each 【2000/7/17追加】	each関数で繰り返し処理を行っているときにdelete関数で要素を削除しても構いませんが、要素を追加してはなりません。	each関数で繰り返し処理を行っているときに要素を追加したり、削除したりしてはなりません。
P416 use/no 【2000/9/7追加】  <もた さんに感謝>	＜文法/書式＞ ☆：[スカラ]ファイル名（クォートされた文字列）、モジュール名（識別子）、・・ ＜機能説明＞ 引数☆が文字列の場合、それをPerlコードを含むファイル名とみなし、読み込んで実行します。	＜文法/書式＞ ☆：[スカラ]モジュール名（識別子）、・・ ＜機能説明＞ ［削除］
P431 【2002/1/9追加】	ファイルの行末区切り文字を015（0x0D）から012（0x0A）に変換します。 perl -l12 -015 -pi.bak -e '' hoge.pl	ファイルの行末区切り文字を012（0x0A）に変換します。 perl -l12 -pi.bak -e '' hoge.pl

 
 
 

<CD-ROM>

• ディレクトリ構成

【誤】
unix/docs/basic
unix/docs/useful
【正】
それぞれ以下のように修正してください。

unix/docs/Basic
unix/docs/Useful
 
 

•  cgi-bin/getDate.cgi    ［00/01/06追加］

【誤】
月表示の補正なし。
【正】
ファイルgetDate.cgiの16行目（$year += 1900;の行の前後でも可）に、次のコード を追加してください。
 
 $mon += 1;
　
• cgi-bin/schedule.cgi

【誤】
writeData() サブルーチンの記述なし。
【正】
ファイルschedule.cgiの最後に、次のコード writeData() を追加してください。

sub  writeData {

local($fh, $data) = @_;
print $fh $data;
}
　
【誤】　[99.10.1追加］
 # return $datafile if (-e "$datafile");

 openLock(FH, ">$datafile")
  or exitError("ファイル $datafile がオープンできません。");
 

【正】　[99.10.1追加］
return $datafile if (-e "$datafile");

 openLock(FH, ">$datafile")
  or exitError("ファイル $datafile がオープンできません。");
　　　

• unix/cgi-bin/    ［2000/1/7追加］

【誤】
以下のファイルについては、改行コードが0x0A（16進数）となるべきところ0x0D0Aとなっているものがあります。そのため、そのままCGIで使用するとエラーとなることがあります。
<山田 健さんに感謝>
　
bbs.cgi
chat.cgi
cookie.cgi
count.cgi
fileio.cgi
hogehoge.cgi
img_count.cgi
lock.cgi
log.cgi
mail2.cgi
number.cgi
simpledb.cgi
simpledb2.cgi
ssi_count.cgi
table_template.cgi
template.cgi
upload.cgi
　
【正】
お手数ですが、FTP（ASCIIモード）で一括ファイル転送する等で、改行コードを修正してご利用ください。
　
• unix/cgi-bin/*.cgi
EUCを使用している場合、全てのCGI プログラムで$Charsetの設定を変更してください。
【正】
$Charset = 'x-euc-jp';
 　
• unix/Docs/Useful/rand_img.html　　[2000/1/6追加］

【誤】　<山田 健さんに感謝>
44行目
<p><a href="/cgi-bin/randImage.cgi">[サンプルプログラムの実行]</a>
　
【正】
<p><a href="/cgi-bin/randimage.cgi">[サンプルプログラムの実行]</a>
　

• /index.html

navigator.platform は Netscape のみで有効のため、platform の判断ミスが生じます。
navigator.userAgent で判断するように変更が必要です。

【誤】

ua = navigator.platform;

【正】

ua = navigator.userAgent;

なお、PPC では MacPPC が返されます。
　

トラブル/スクリプトエラー関連

●「外部ファイルの入出力」 「簡易データベース」「E-Mail の生成と送信」などがうまくいかない。
【症状】
「さあ，はじめよう」「ブラウザの情報取得」「ページのリフレッシュ」「日付と時刻の表示」などはうまく動作するが、「外部ファイルの入出力」 「簡易データベース」「E-Mail の生成と送信」などがうまくいかず、次のようなメッセージが表示される。
 
ドキュメントにデータが含まれていません。
あとでやり直すか、サーバー管理者にお尋ねください。


【対策】
上記の違いは、util.plを使用しているかどうかによるものと考えられます。
util.plは内部でjcode.plを呼び出していますので、配列変数@INC内のディレクトリにjcode.plが置かれている必要があります。jcode.plの有無を確認してみてください。
@INCの内容は

　
perl -V
　
とすると、最後に表示されます。jcode.plがまだ置かれていなかった場合は、jcoe.plを@INC内のいずれかのディレクトリにセットしてください。
　
　
●P.39 標準入出力のオープン を実行するとエラーメッセージが出る。
【症状】
fileio.htmlからfileio.cgiを実行すると次のエラーメッセージが出る。
 
Error !!This may be put into the error log. (2nd)
　
【対策】
MS-PWSやAnHTTPD等標準エラー出力をブラウザに渡すWWWサーバでは、CGIスクリプトfileio.cgiが意図的に標準エラー出力に出力している上記エラーメッセージがブラウザに渡されて表示されますので、エラーが生じているわけではありません。その前に'Error!'が出ていれば、正常に動作しています。
　
　
●P.44：ファイルのロック/アンロックでエラーが起きる
【症状】
lock.cgiを実行するとエラーが発生する。

<魚住正憲さんに感謝>

【対策】
P.46のlock.cgiの真ん中あたりにある下記の文を修正してください。

［記述］
        closeUnlock(FH); 
［変更］
        closeUnlock(FH,$file);

●P66:日付と時刻の表示で、月が正しく表示されない    ［2000/1/6追加］

【症状】
「2000 年 0 月 6 日 12 時 53 分 14 秒です。」のように月がずれて表示される。
<山田 健さんに感謝>
　
【原因】
月の補正コード漏れ
　
【対策】
ファイルgetDate.cgiの16行目（$year += 1900;の行の前後でも可）に、次のコード を追加してください。
 
 $mon += 1;

 　ご注意）この修正版は、修正版（V1.0)fup_cgi_perl.zipには含まれておりません。お手数ですが、当面手修正をお願い致します。

●P.67：（SSIを利用する）アクセスカウンタがうまく動かない
【使用環境】
FreeBSD 2.2.8 + Apache 1.3.3 + perl5.005_2等。

 【症状】
ssi_count.shtmlとssi_count.cgiと使ったアクセスカウンタを動かすと Internal Server Errorになり、アクセス数が表示されない。 また、エラーログファイル（error_log）等 に「malformed header from script. Bad header=xx:ssi_count.cgi」 というエラーメッセージが出力される。

<早川さんに感謝>

【対策】 下記の１．か２．のどちらかを行って下さい。

 １．ssi_count.cgiの下から７行目の部分に以下の記述を追加する。

        $count++;       
        print "Content-type: text/plain\n\n"; # 追加する文
        print CNT $count;

２．ssi_count.shtmlの#exec cgiの代わりに#exec cmdを使う（あまりお奨めしません）。

［記述］
        <!--#exec cgi="/cgi/bin/ssi_count.cgi"--> 
［変更］
        <!--#exec cmd="/cgi/bin/ssi_count.cgi"-->
        あるいは
        <!--#exec cmd="perl /cgi/bin/ssi_count.cgi"-->

●P.69：「<IMG>タグを使って画像のアクセスカウンタにする」で、桁上がりの際の表示が適切に行われない問題について【2000.6.19追加】

 【症状】

−桁上がりの時、妙な値を表示する。

例）
０９８→０９９→０００→１０１
１１８→１１９→１００→１２１

等。

<浦野京子さんに感謝>


【対策】

以下のようにスクリプトを修正して使用してください。

［記述］

$count++ if ($col ==1);
print CNT $count;


［変更］

$count++;
if ($col ==1) {
    print CNT $count;
}
　

●P.76： 会員認証の不具合について【2000.12.5追加】

 【症状】

ユーザＩＤだけを入力すると、入力したＩＤとは異なるＩＤが登録される。

　
<乱真澄さんに感謝>

　
【対策】
修正を行った userauth.cgi　に入れ替えて使用してください。
 
　

●P78：WindwosでCGI_Liteモジュールを使ったアップロードがうまくいかない問題について

【使用環境】
Windows95 + Apache 1.3.6(Win32)/MS-PWS + perl5.005_2(ActivePerl)等。

 【症状】
−下記のエラーメッセージが出る。

        Oh, Oh! I'm upset! Can't read what I want.

−ファイルは転送されているが、サイズの大きいWORD文書や画像ファイル(jpeg/GIF)は
内容が壊れる。

<小澤　仁さんに感謝>

【対策】
http://www.harukaze.net/~mishima/perl/win/iis.html#Q11 を参照してください。
 
 

●P80：スケジュール表 (1)

【症状】
 スケジュール表に書き込む時に、エラーが発生し書き込めない。

 −下記のエラーメッセージが出る。(PWS での例）

CGI Error

The specified CGI application misbehaved by not returning a complete set of HTTP
headers. The headers it did
return are:

Can't locate jcode.pl in @INC (@INC contains: ./lib C:\PERL\lib C:\PERL\site\lib .)
at C:\caoru\Proj\Gihyo\CGI_Perl\win\cgi-bin\schedule.cgi line 28.

<松尾和浩さんに感謝>

【対策】

１．記述の追加
 
 schedule.cgi にあるべきサブルーチンwriteData()が欠落していました。 schedule.cgiの最後に、次のコードを追加してください。

# -----------------------8<---------------------------
sub writeData {

local($fh, $data) = @_;
print $fh $data;
}

# -----------------------8<---------------------------
 


２．ディレクトリの追加
 

 変数 $DataLoc に 設定されたディレクトリ（デフォルトで ./schedule）は初期状態では 存在していないため、そのままだと書き込み時にファイルがオープンできず エラーになります。 手動で、ここで$DataLocに設定したディレクトリを作成してください。 （/cgi-binに導入した場合は、ディレクトリ/cgi-bin/scheduleを作成要）

ご注意）fup_cgi_perl.zip内のschedule.cgiは、mkpath()でディレクトリを自動作成するように修正してありますが、下記（2）以降の対策がうたれていません。schedule.cgi修正版(2000.8.9) schedule_000809.zipは、（１）（２）（３）（４）（６）とも修正してありますので、合せてダウンロードしてご利用ください。

 
●P80：スケジュール表 (2)　［99.10.1追加］
【症状】
1日のスケジュールを登録する画面でスケジュールを登録した後、再度同じスケジュールを見に来ると、登録した情報がまったく消えてなくなっている
。

【原因】
常に新規オープンしてしまい、それまでのデータを破棄していました。
 

#L155
#L156 openLock(FH, ">$datafile")
#L157         or exitError("ファイル $datafile がオープンできません。");


<Nobuyoshi Imaiさんに感謝>

【対策】
直前でコメントアウトしてある
 

# return $datafile if (-e "$datafile");

 openLock(FH, ">$datafile")
  or exitError("ファイル $datafile がオープンできません。");


のコメントをはずしてください。
 

 return $datafile if (-e "$datafile");

 openLock(FH, ">$datafile")
  or exitError("ファイル $datafile がオープンできません。");
 
 

●P80：スケジュール表 (3)　［2000.2.29追加］
【症状】
[Go!]ボタンによる直接入力時、月の前後にスペースや0が入っていると、表示されたカレンダーにデータを入力後、左右下のリンクで前月翌月に一旦移動して、左右下のリンクを使って元の月に戻ってみると入力したデータが表示されない。
<nakaiさんに感謝>


【原因】

[Go!]ボタンによる直接入力から生成されるデータファイル名にもスペースや0が入る一方、前後月へのリンクにはスペースや0が入っておらず、リンクによる移動時に別の名前のデータファイルが生成され、そのファイルの（空）データが表示されるようになっていました。
 


【対策】

生成するファイルは yyyy-mm.dat のように、必ず年が４桁、月が２桁になるように修正しました。また、入力の際の空白文字は削除するようにし、エラーチェックをかけるようにしました。
 
　　　
●P80：スケジュール表 (4)　［2000.3.02追加］
【症状】
[Go!]ボタンによる直接入力時、年月を全角文字で入力すると適切に表示されない。
【原因】
日本語２バイト文字コード（全角数字）の入力には対応していませんでした。
【対策】
半角数字で入力してください。
なお、schedule.cgi修正版(2000.3.2) schedule_000302.zipからは自動変換機能を追加してあります。
　　
schedule.cgi修正版(2000.8.9) schedule_000809.zipは、（１）（２）（３）（４）（６）とも修正してあります。
　　
●P80：スケジュール表 (5)　［2000.4.3追加］
【祝日の設定について】
スケジュール表プログラムでは、2000年からのハッピーマンデー（2000年では成人の日、体育の日）に対応しておりません。設定ファイルSCHEDULE/NationalHoliday.txtをマニュアル修正する必要がありますので、ご注意下さい。

　　　

●P80：スケジュール表 (6)　【2000.8.9追加】
【症状】
スケジュール表の６段目（６週目）が表示されない。
<浦野 京子さんに感謝>
【原因】
６週目を描く前にループから抜けてしまっていました。
【対策】
400行目近くにある

 for ($d=1, $i=0; ; $i++) {
  last if ($i%7 == 0 && $i > $days);
  print qq(<TR ALIGN="center" VALIGN="center">\n) if ($i%7 == 0);

を

for ($d=1, $i=0; ; $i++) {
  last if ($i%7 == 0 && $d > $days);
  print qq(<TR ALIGN="center" VALIGN="center">\n) if ($i%7 == 0);

 に修正してください。
 

schedule.cgi修正版(2000.8.9) schedule_08092000.zipは、（１）（２）（３）（４）（６）とも修正してあります。
●P.82：ランダムに画像を表示する    [2000.1.6追加]
【症状】
UNIX＆Apacheなどで、rand_img.htmlから[サンプルプログラムの実行] をクリックして、randimage.cgiを実行しようとすると、以下のようなエラーメッセージが表示される。
 
404 Not Found

The requested URL /cgi-bin/randImage.cgi was not found on this server.

<山田 健さんに感謝>
　　


【原因】
rand_img.html内のリンクではファイル名がrandImage.cgiと記述されていますが、実際のスクリプトファイルはrandimage.cgiとなっています。そのため、大文字と小文字を識別するシステム＆WWWサーバではrandIimage.cgiがないとみなされエラーとなります。
　
【対策】
rand_img.htmlファイルの44行目の
　

<p><a href="/cgi-bin/randImage.cgi">[サンプルプログラムの実行]</a>
　
を以下のように修正（大文字のIを小文字iに変更）してください。
　
<p><a href="/cgi-bin/randimage.cgi">[サンプルプログラムの実行]</a>
　
ご注意）この修正版は、修正版（V1.0)fup_cgi_perl.zipには含まれておりません。お手数ですが、当面手修正をお願い致します。
 

その他

・標準モジュールであるCGI.pmを使ったファイルアップロードの方法について
ファイルアップロード用のサンプルに使用したCGI_Lite.pmは、通常プロバイダにはインストールされていません。新たにモジュールをインストールしたり、入手や使用が難しい場合は、標準モジュールであるCGI.pmを使うこともできます。詳細は、CGI.pmを使ったファイルのアップロードのサンプル を参照してください。