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
- ¯Â¶q¡]Scalars¡^¡G§t¦r¦ê¡]Strings¡^©M¼ÆÈ¡]Numbers¡^
- °}¦C¡]Arrays¡^¡G¤SºÙ¬°¦ê¦C¡]Lists¡^
- Hash¡G¤SºÙ¬°ÃöÁp°}¦C¡]Associative Arrays¡^
- Reference¡G¤SºÙ¬°«ü¼Ð¡]Pointers¡^
- ¦hºû°}¦C©Î¦hºû hash
¥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![]()