#two simple arrays
@x = (1,2,4,8);
@y = (2,4,8,16);
#print both arrays with values joined by "," - end with a newline.
print (join',',@x), "\n";
print (join',',@y), "\n";
#print colinear check math
print ((($y[0]-$y[1]) * ($x[0]-$x[2])) - (($y[0]-$y[2]) * ($x[0]-$x[1]))), "\n";
Output: [EMAIL PROTECTED] ~]$ perl numtest.pl 1,2,4,82,4,8,[EMAIL PROTECTED] ~]$
-Jeff SIG: HUP
_______________________________________________ Boston-pm mailing list [EMAIL PROTECTED] http://mail.pm.org/mailman/listinfo/boston-pm
