Mac OS Xのローカル環境で

質問

『Perl&CGI Webアプリケーション開発』という本で勉強しています。
その本に掲載されているサンプルスクリプトで
#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $first_name = param('f_name');
my $last_name = param('l_name');
my $fav_color = param('color');
my @fav_sprots = param('sports');
my $sport_count = @fav_sprots;
my $sport_text;
print header;
print start_html('test');
print qq(Hello $first_name $last_name<p>);
print qq(Your Favorite color is : $fav_color<br>);
if($sport_count > 1){
$sport_text = "sports are";
}
else{
$sport_text = "sport is";
}
print qq(And your favorite $sport_text :<br>);
foreach(@fav_sports){
print qq(- $_ <br>);
}
print end_html();
がどうしてもうまく動きません。
foreach文をはずすと表示されるのですが、上記のままだと『Execution of /Library/WebServer/CGI-Executables/form2.cgi aborted due to compilation errors.』とエラーメッセージが出ます。
何かおかしなところがあれば教えていただけないでしょうか？

環境は
Mac OS X 10.1.3
perl ver 5.6
です。
初心者のため質問の仕方も下手なのですが、よろしくお願いします。

回答No.1

aton · ベストアンサー

コンパイルエラーなら，

perl -c スクリプト名

とやれば文法エラーをチェックしてくれるはず。'-w' オプションを追加すると，より詳しいエラーチェックをしてくれます。こんな感じ。

perl -cw スクリプト名

開発の勉強をされているのでしたら，デバッグ方法の勉強もされたほうがいいと思いますよ。

お礼

ありがとうございます。
早速試してみたところ、エラー箇所を見つけることができました。
その部分を辞書を片手に読んでみます。
デバッグの方法も勉強しないといけませんね。
本当にありがとうございました。