use utf8しても全角記号は使えない
らしい。
確かに失敗する。
use utf8; my $数1 = 0; sub 数1に入れる→ { $数1 = $_[0]; } sub 改行 { "\n" } my $数2 = 6; 数1に入れる→ $数2; print $数1, 改行;
Illegal declaration of subroutine main::数1に入れる at te.pl line 4.
記号じゃなければいける。
use utf8; my $数1 = 0; sub 数1に入れるで { $数1 = $_[0]; } sub 改行 { "\n" } my $数2 = 6; 数1に入れるで $数2; print $数1, 改行;
6
まぁ使わないけれど。