かんたん Perl

サポートページ

 

この記事を読むのに必要な時間：およそ 0.5 分

ダウンロード

（2023年7月21日更新）

本書で使用するサンプルファイルはダウンロードできます。以下の圧縮ファイルをダウンロードし，適宜解凍してご利用ください。

ダウンロード
サンプルファイル

お詫びと訂正（正誤表）

（2023年7月21日最終更新）

技術評論社から2016年1月16日に刊行された書籍『かんたんPerl』につきまして，著者が認識している誤りを訂正し，お詫びいたします。

また，誤りを指摘してくださった方々にお礼いたします。

なお，本書（紙書籍版，電子書籍版の双方）の巻末奥付において，ブログ『かんたんPerl倶楽部』でオンラインでサポートするという趣旨のことを書いていますが，著者の事情により，現在は停止しております。

あわせてお詫びいたします。

現在ごらんになっている正誤表が最新情報ですので，よろしくお願いします。

正誤表は以下の２部に分かれています。

何かありましたら，サポートメールアドレス
suguwakaruPerl@gmail.comにご連絡いただければ幸いです。

どうぞよろしくお願いいたします。

（深沢千尋）

紙書籍初版 第1刷正誤表（電子書籍版では修整済み）

以下の通りです。

表記の間違い
P.112　下から9行目
誤 
ありぃ～（ary～？）うまく言っていませんね。
正 
ありぃ～（ary～？）うまく行っていませんね。
余計な文
P.117　サンプル プログラムmonth12.pl中
P.160　サンプル プログラムmonth12.pl（再掲）中
誤 
use 5.010;
use strict;
use warnings;
　
my $num = 1;

my @month = (undef, "January", "February", "March", "April",
　　"May", "June", "July", "August", "September",
　　"October", "November", "December");
正 
use 5.010;
use strict;
use warnings;
　
my @month = (undef, "January", "February", "March", "April",
　　"May", "June", "July", "August", "September",
　　"October", "November", "December");

「my $num = 1;」は不要です。

足りない文
P.563　サンプル プログラムtrName.pl中
誤 
use 5.010;
use strict;
use warnings;

use utf8;
正 
use 5.010;
use strict;
use warnings;

use utf8;

if ($^O eq "MSWin32") {
　　binmode STDOUT, ":encoding(Shift_JIS)";
} else {
　　binmode STDOUT, ":encoding(UTF-8)";
}
説明の間違い
P.438　下から9行目
誤 ファイルハンドルDATAで取得する__DATA__以降のデータは、プログラムと同じUTF-8のテキスト ファイルに保存しますから、binmodeの:encodingにはUTF-8を指定します。
　そして標準出力（STDOUT）の文字コードをOSによってWindowsの場合はShift_JIS、それ以外の場合はUTF-8にbinmode指定します。
正 ファイルハンドルDATAで取得する__DATA__以降のデータは、プログラムと同じUTF-8のテキスト ファイルに保存されていますが、use utf8;の影響範囲にありますから、UTF-8内部文字列なので、binmodeの指定は不要です。
　一方、標準出力（STDOUT）の文字コードは、従来通りOSによってWindowsの場合はShift_JIS、それ以外の場合はUTF-8にbinmode指定します。
余計な文
P.492　サンプル プログラムremoveDup.pl
P.492　サンプル プログラムremoveParen.pl
P.592　サンプル プログラムremoveTeam.pl
P.514　サンプル プログラムsortNameReading.pl
P.561　サンプル プログラムsortNameReading.pl（再掲）中
誤 
use utf8;

binmode DATA, ":encoding(UTF-8)";

if ($^O eq "MSWin32") {
　　binmode STDOUT, ":encoding(Shift_JIS)";
} else {
　　binmode STDOUT, ":encoding(UTF-8)";
}
正 
use utf8;

if ($^O eq "MSWin32") {
　　binmode STDOUT, ":encoding(Shift_JIS)";
} else {
　　binmode STDOUT, ":encoding(UTF-8)";
}

「binmode DATA, ":encoding(UTF-8)"; 」は不要です。

part 2: 紙書籍初版 第1刷および2016-01-16版電子書籍正誤表

以下の通りです。

コードの間違い
P.95　サンプル プログラムmonthName.pl中
誤 
my $year = "January 1 February 2 March 3 April 4 May 5 June 6 July 7 August 8 September 9 October 10 November 11 December 12";
正 
my $year = "January 1 February 2 March 3 April 4 May 5 June 6 July 7 August 8 September 9 October 10 November 11 December 12 ";

文字列の末尾，引用符の前に半角空白を加えます。

ブログ『かんたんPerl倶楽部』の廃止

先にも述べましたが，巻末の奥付にて，ブログ『かんたんPerl倶楽部』でオンラインでサポートするという趣旨のことを書いていますが，現在は停止しております。

現在ごらんになっている正誤表が最新情報ですので，よろしくお願いします。

（以上）