初めてのPerl 第5版 第2刷に対する正誤表 (2010/9/26 作成)

「初めてのPerl第５版」の第１刷（2009年10月23日発行）、第２刷（2010年5月21日発行）に対する正誤表です。

P.20　上から6行目　（第２刷のみ）

【誤】　/\U\1/g
【正】　/\U$1/g

P.20　下から1行目　（第２刷のみ）

【誤】　/\U\1/g
【正】　/\U$1/g

P.103  脚注33

【誤】 例えば、use 5.6と宣言します。
【正】 例えば、use 5.006と宣言します。

P.116  上から3行目

【誤】 ホスト名(http://www.stonehenge.com
【正】 ホスト名(www.stonehenge.com

P.127  下から3行目

【誤】% setenv CHARACTER=Fred
【正】% setenv CHARACTER Fred

P.134  下から13行目(2番目のコード例の3行目)

【誤】 print "It matched the same after y and d!\n";
【正】 print "It matched a after the y\n";

P.136  上から10行目(2番目のコード例の2行目)

【誤】 $_ = "aa11bb";
【正】 $_ = "xaa11bb";

P.158  脚注26 の1行目

【誤】 YAPE::Regexp::Explain
【正】 YAPE::Regex::Explain

P.160  問題5の4行目

【誤】 最大5文字は yestになります。
【正】 最大5文字は" yest"になります。

       yの前にスペースが1個あります。「"」もタイプライタ体です。

P.174  下から9行目

【誤】 (14章で紹介する
【正】 (13章(240ページ)で紹介する

P.200  上から4行目

【誤】 foreach my $try ( 0, undef, '0', 1, 25 ) {
【正】 foreach $try ( 0, undef, '0', 1, 25 ) {

P.213  下から8行目

【誤】 foreach my $param ( param() )
【正】 foreach $param ( param() )

P.214  上から7行目

【誤】 foreach my $param ( param() )
【正】 foreach $param ( param() )

P.245  上から10行目

【誤】 それはシンボリックリンクですが、(指されるものが)存
【正】 それはシンボリックリンクですが、指されるものが存

P.277  上から2行目

【誤】 when( /^-?\d+\.\d+$/ ) { # スマート
【正】 when( ! /^-?\d+\.\d+$/ ) { # スマート

P.277  下から3行目

【誤】 when( ! /fred/i   } { #ダム
【正】 when( ! /fred/i )   { #ダム

P.280  問題4のコードの4～5行目

【誤】 foreach my $divisor ( 2 .. $number/2 ) ) {
          push @divisors, $divisor unless $_ % $divisor;

【正】 foreach my $divisor ( 2 .. ( $number/2 ) ) {
          push @divisors, $divisor unless $number % $divisor;

P.336  上から12行目

【誤】 $ENV{$key} ? $ENV{$key} : "(undefined)";
【正】 defined $ENV{$key} ? $ENV{$key} : "(undefined)";

P.349  問題2のコードの6行目

【誤】 $what .= ' buzz';
【正】 $what .= ' bin';