去年に引き続いて，鬼柚がなりました。
去年は，一つだけでしたが，今年は，大きいのが４つ，小さいのが１つ合計４つです。
来年は，もうちょっと，数がなるかなと思いまます。
楽しみが増えました。
結構大きくて，１５ｃｍぐらいありますね。yuzuピールでも作りましょうか。
PerLでCGI—–むずい！！！！！
お仕事のお手伝いで，いろいろやってます。
久しぶりに，講習会の申し込みフォームの変更のために，Perlをいじりました。思い通りの動作になるのに
一苦労。
本当に初歩的なつまづきで，悪戦苦闘です。
CやVBAでは，if 文で等しいか等しくないかの表記は，「＝」や「＝＝」を使いますが，この表現をして，
久しぶりにはまりました。Perlでは，
IF ＄nantoka eq ”なんとか” ｛等しい時の処理｝
ということで，「eq」を使うんですねえ。これを忘れてしまい，時間ばかりかかってしまいました。
それと，今回も正規表現でつまずづきました。８桁の数字が条件にマッチするかどうかを判断するのに
入力された数字が８桁以上だと，８桁の部分が条件にマッチしてると，通ってしまいました。
if ($kaiin !~ /^1([0-9]{7})/) {
&error(“１から始まる８桁の半角数字でご記入ください。”);
}
これは，１から始まる８桁の数字が入力されることを求めるものですが，８桁以下の数字だときちんと
判断できるのですが，８桁以上だと，８桁までの数字がマッチしていると，通ってしまします。
別な表記の正規表現もあるのかもしれませんけど，分からないので，
if (length($kaiin) > 8) {
&error(“数字は８桁です。”);
}
のように，前に，桁数のチェックを入れて，回避しました。