このコードで警告が出ないというのを知りませんでした。 use strict; use warnings; my $val; $val++; print $val, "\n"; use strict; use warnings; my $val; $val += 10; print $val, "\n"; これは警告が出ます。 use strict; use warnings; my $val; $val…