splitで、undefが来たり空文字列が来たりする。 $ perl -Mstrict my ($s1, $s2, $s3) = split(/=/, '='); print defined $s1, " ← S1\n"; print defined $s2, " ← S2\n"; print defined $s3, " ← S3\n";my @arr_s = split(/=/, '='); print defined $arr_s[0…