Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse -e '$a->X*$b->X+$a->Y*$b->Y+$a->Z*$b->Z'
$a->X * $b->X + $a->Y * $b->Y + $a->Z * $b->Z;
-e syntax OK
  2. or download this
    $ perl -MO=Deparse,-p -e '$a->X*$b->X+$a->Y*$b->Y+$a->Z*$b->Z'
((($a->X * $b->X) + ($a->Y * $b->Y)) + ($a->Z * $b->Z));
-e syntax OK