home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _9797406bbf2842628430c00b2d620d03 < prev    next >
Encoding:
Text File  |  2000-03-23  |  2.5 KB  |  82 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>integer - Perl pragma to compute arithmetic in integer instead of double</TITLE>
  5. <LINK REL="stylesheet" HREF="../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> integer - Perl pragma to compute arithmetic in integer instead of double</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25. </UL>
  26. <!-- INDEX END -->
  27.  
  28. <HR>
  29. <P>
  30. <H1><A NAME="name">NAME</A></H1>
  31. <P>integer - Perl pragma to compute arithmetic in integer instead of double</P>
  32. <P>
  33. <HR>
  34. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  35. <UL>
  36. <LI>Linux</LI>
  37. <LI>Solaris</LI>
  38. <LI>Windows</LI>
  39. </UL>
  40. <HR>
  41. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  42. <PRE>
  43.     use integer;
  44.     $x = 10/3;
  45.     # $x is now 3, not 3.33333333333333333</PRE>
  46. <P>
  47. <HR>
  48. <H1><A NAME="description">DESCRIPTION</A></H1>
  49. <P>This tells the compiler to use integer operations
  50. from here to the end of the enclosing BLOCK.  On many machines, 
  51. this doesn't matter a great deal for most computations, but on those 
  52. without floating point hardware, it can make a big difference.</P>
  53. <P>Note that this affects the operations, not the numbers.  If you run this
  54. code</P>
  55. <PRE>
  56.     use integer;
  57.     $x = 1.5;
  58.     $y = $x + 1;
  59.     $z = -1.5;</PRE>
  60. <P>you'll be left with <CODE>$x == 1.5</CODE>, <CODE>$y == 2</CODE> and <CODE>$z == -1</CODE>.  The $z
  61. case happens because unary <CODE>-</CODE> counts as an operation.</P>
  62. <P>Native integer arithmetic (as provided by your C compiler) is used.
  63. This means that Perl's own semantics for arithmetic operations may
  64. not be preserved.  One common source of trouble is the modulus of
  65. negative numbers, which Perl does one way, but your hardware may do
  66. another.</P>
  67. <PRE>
  68.   % perl -le 'print (4 % -3)'
  69.   -2
  70.   % perl -Minteger -le 'print (4 % -3)'
  71.   1</PRE>
  72. <P>See <A HREF="../lib/Pod/perlmod.html#pragmatic modules">Pragmatic Modules in the perlmod manpage</A>.</P>
  73. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  74. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  75. <STRONG><P CLASS=block> integer - Perl pragma to compute arithmetic in integer instead of double</P></STRONG>
  76. </TD></TR>
  77. </TABLE>
  78.  
  79. </BODY>
  80.  
  81. </HTML>
  82.