下記サブルーチンを実行したところ、"Wide character in print at〜"というメッセージが表示された。 &print_temp($temp_ref, $date); sub print_temp{ my ($temp_ref, $date) = @_; printf (qq/%sの12:00の気温は%s°cです。\n/, $date, $temp_ref->{"12pm_t…