2-1 �¶q�G�ƭ�

Perl ¤ä´©ªº¸ê®Æ«¬ºA¥i¤j²¤¤À¬°¤U¦C´XÃþ¡G ¯Â¶q¬O Perl ³Ì²³æªº¸ê®Æ«¬ºA¡A©Ò¦³ªº¯Â¶qÅܼƳ£¬O¥H¡u$¡v¬°¶}©l¡A¦A¥[¤W¤@¨Ç­^¤å¦r¥À¡A¨Ò¦p $a¡B$x¡B©Î $test¡C¯Â¶qÅܼƨƹê¤W¥u¦³¨âÃþ¡A§Y¼Æ­È©M¦r¦ê¡A¥»¸`±N»¡©ú©M¼Æ­ÈÅܼƪº³]©w©M¥Îªk¡A¥H¤Î¬ÛÃöªº¨ç¼Æ¡C¦³Ãö¦r¦êÅܼƪº»¡©ú¡A½Ð¨£¤U¸`¡C

¥H Perl ªº¤º³¡Àx¦s¤è¦¡¦Ó¨¥¡A©Ò¦³ªº¼Æ­È§¡Àx¦s¦¨ double ªº®æ¦¡¡C¤U¦C¬O´X­Ó©M¼Æ­È¬ÛÃöªº¦X®æ±Ô­z¡G

$x = 2.5; # ¼Ð·Çªº¼Æ­È³]©w $x = 4.5e-12; # ¤]¥i¥H±µ¨ü¬ì¾Ç°O¸¹ªí¥Üªk $x = 0377; # ¥H¡u0¡v¶}ÀY¬O 8 ¶i¦ìªí¥Üªk¡A¦]¦¹ 0377 ¥Nªí¤Q¶i¦ìªº 255 $y = 0xfe; # ¥H¡u0x¡v¶}ÀY¬O 16 ¶i¦ìªí¥Üªk¡A¦]¦¹ 0xfe ¥Nªí¤Q¶i¦ìªº 254 $z = $x - $y; # $z = 1 $z = $x*$y; # $z = 64770 $z /= 255; # $z = $z/255 = 254 $z--; # $z = 253; ¨äµ²ªG©M --$z ¬Û¦P $u = $z++; # $u = 253, $z = 254 $p = $z**2; # $p = $z*$z ¦b Perl ªº¼Æ­È¹Bºâ¹Lµ{¤¤¡A¹Bºâ¦¡¥»¨­¤]¦³¤@­Ó­È¡A¦¹­Èªº¤j¤p·|µ¥©ó³Q³]©wªºÅܼƭȡA¦]¦¹§Ú­Ì¥i¥H¼g¥X¤U¦Cªº³]©w±Ô­z¡G $a = ($b = 4); # $b = 4, $a = 4 $a = $b = 4 # ¦¹¹Bºâ¦¡µ²ªG¦p¦P¤W¦¡ $z = 3 + ($y = $a+5); # $y = 9, $z = 12; §t¼Æ­È¬ÛÃöªº¹Bºâ¤Î¨ç¼Æ¡A¥i¥H¦CÁ|¦p¤U¡G

¹Bºâ¨ç¼Æ
¹Bºâ²Å¸¹»¡©ú¨ç¼Æ¦WºÙ»¡©ú
+¥[absµ´¹ï­È
-´îatan2¤Ï¥¿¤Á¨ç¼Æ
*­¼cos¾l©¶¨ç¼Æ
/°£exp«ü¼Æ¨ç¼Æ
**«ü¼Æ¹BºâhexÂন16¶i¦ì
++¥[¤@¹Bºâint¨ú¾ã¼Æ¹Bºâ
--´î¤@¹Bºâlog¹ï¼Æ¨ç¼Æ
  octÂন8¶i¦ì
  rand²£¥Í¶Ã¼Æ
  sin¥¿©¶¨ç¼Æ
  sqrt¶}¥­¤è
  srand³]©w¶Ã¼ÆºØ¤l¡]Random Seed¡^


Perl