perl の構文に関する質問です。 このコードが何をやっているのか教えてください。 $_=3x(1E3-1),s/3/++$p%3*$p%5?7:5x$p/ge,print s/5//g 以下のコードと同じで3または5で割り切れる1000までの数を足した結果が得られることは知っていまが、それぞれの記号が何を意味するのか分かりません。 $sum=0; map {$sum += $_ if(!($_%3) || !($_%5))} 1..1000; print $sum; 最近 perl を使い始めたので良くわかっていません。 よろしくお願いします。