src/man1/perlnumber.1

   1 .\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.14
   2 .\"
   3 .\" Standard preamble:
   4 .\" ========================================================================
   5 .de Sh \" Subsection heading
   6 .br
   7 .if t .Sp
   8 .ne 5
   9 .PP
  10 \fB\\$1\fR
  11 .PP
  12 ..
  13 .de Sp \" Vertical space (when we can't use .PP)
  14 .if t .sp .5v
  15 .if n .sp
  16 ..
  17 .de Vb \" Begin verbatim text
  18 .ft CW
  19 .nf
  20 .ne \\$1
  21 ..
  22 .de Ve \" End verbatim text
  23 .ft R
  24 .fi
  25 ..
  26 .\" Set up some character translations and predefined strings.  \*(-- will
  27 .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
  28 .\" double quote, and \*(R" will give a right double quote.  | will give a
  29 .\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
  30 .\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
  31 .\" expand to `' in nroff, nothing in troff, for use with C<>.
  32 .tr \(*W-|\(bv\*(Tr
  33 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
  34 .ie n \{\
  35 .    ds -- \(*W-
  36 .    ds PI pi
  37 .    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
  38 .    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
  39 .    ds L" ""
  40 .    ds R" ""
  41 .    ds C` ""
  42 .    ds C' ""
  43 'br\}
  44 .el\{\
  45 .    ds -- \|\(em\|
  46 .    ds PI \(*p
  47 .    ds L" ``
  48 .    ds R" ''
  49 'br\}
  50 .\"
  51 .\" If the F register is turned on, we'll generate index entries on stderr for
  52 .\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
  53 .\" entries marked with X<> in POD.  Of course, you'll have to process the
  54 .\" output yourself in some meaningful fashion.
  55 .if \nF \{\
  56 .    de IX
  57 .    tm Index:\\$1\t\\n%\t"\\$2"
  58 ..
  59 .    nr % 0
  60 .    rr F
  61 .\}
  62 .\"
  63 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
  64 .\" way too many mistakes in technical documents.
  65 .hy 0
  66 .if n .na
  67 .\"
  68 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
  69 .\" Fear.  Run.  Save yourself.  No user-serviceable parts.
  70 .    \" fudge factors for nroff and troff
  71 .if n \{\
  72 .    ds #H 0
  73 .    ds #V .8m
  74 .    ds #F .3m
  75 .    ds #[ \f1
  76 .    ds #] \fP
  77 .\}
  78 .if t \{\
  79 .    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
  80 .    ds #V .6m
  81 .    ds #F 0
  82 .    ds #[ \&
  83 .    ds #] \&
  84 .\}
  85 .    \" simple accents for nroff and troff
  86 .if n \{\
  87 .    ds ' \&
  88 .    ds ` \&
  89 .    ds ^ \&
  90 .    ds , \&
  91 .    ds ~ ~
  92 .    ds /
  93 .\}
  94 .if t \{\
  95 .    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
  96 .    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
  97 .    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
  98 .    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
  99 .    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
 100 .    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
 101 .\}
 102 .    \" troff and (daisy-wheel) nroff accents
 103 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
 104 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
 105 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
 106 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
 107 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
 108 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
 109 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
 110 .ds ae a\h'-(\w'a'u*4/10)'e
 111 .ds Ae A\h'-(\w'A'u*4/10)'E
 112 .    \" corrections for vroff
 113 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
 114 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
 115 .    \" for low resolution devices (crt and lpr)
 116 .if \n(.H>23 .if \n(.V>19 \
 117 \{\
 118 .    ds : e
 119 .    ds 8 ss
 120 .    ds o a
 121 .    ds d- d\h'-1'\(ga
 122 .    ds D- D\h'-1'\(hy
 123 .    ds th \o'bp'
 124 .    ds Th \o'LP'
 125 .    ds ae ae
 126 .    ds Ae AE
 127 .\}
 128 .rm #[ #] #H #V #F C
 129 .\" ========================================================================
 130 .\"
 131 .IX Title "PERLNUMBER 1"
 132 .TH PERLNUMBER 1 "2003-11-25" "perl v5.8.3" "Perl Programmers Reference Guide"
 133 .SH "NAME"
 134 perlnumber \- Perl 中数字的语义以及算术操作
 135 .SH "SYNOPSIS 总览"
 136 .IX Header "SYNOPSIS"
 137 .Vb 7
 138 \&    $n = 1234;              # 十进制数
 139 \&    $n = 0b1110011;         # 二进制数
 140 \&    $n = 01234;             # 八进制数
 141 \&    $n = 0x1234;            # 十六进制数
 142 \&    $n = 12.34e-56;         # 指数形式
 143 \&    $n = "-12.34e56";       # 用字符串描述的数
 144 \&    $n = "1234";            # 用字符串描述的数
 145 .Ve
 146 .SH "DESCRIPTION 描述"
 147 .IX Header "DESCRIPTION"
 148 这篇文章描述了Perl内部是怎样处理数的数值的。
 149 .PP
 150 在这里不会提到Perl的运算符重载机制，运算符重载允许用户自定义对数的操作，例如对任意大的整型数或者任意精度的浮点数进行的操作，或者一些其它的算术类型如求模操作和p\-adic操作等等。要想知道运算符重载的细节，请看重载。
 151 .SH "Storing numbers 数值存储"
 152 .IX Header "Storing numbers"
 153 Per在内部能用三种方法表示数值：用“Native整型”，“Native浮点型”或是用十进制形式的字符串。其中十进制字符串可以带一个指数描述的部分，就像\f(CW"12.34e\-56"\fR。在这里术语\&\fINative\fR的含义是用于编译 perl 的 C 编译器所支持的类型。
 154 .PP
 155 在我们谈及整型时，\*(L"native\*(R"这个术语所包含的含义比我们谈论浮点数时要少一些。对\*(L"native\*(R"整型来说，这个术语所的含义仅仅是指整型数的可以有最大值和最小值会是2的某次方，而对\*(L"native\*(R"浮点数来说，有一条基本的限制就是它只能表示那些能用有限几位二进制小数所表示的实数。举例来说，0.9就不是\*(L"native\*(R"浮点数，因为0.9用二进制小数表示是有无穷多位的：
 156 .PP
 157 .Vb 1
 158 \&  二进制0.1110011001100...
 159 .Ve
 160 .PP
 161 序列 \f(CW1100\fR 将无休止的循环下去。除了这条限制以外，二进制浮点数在用指数型式表达时也存有限制。在特定的硬件条件下，浮点型的数可以存储最多53位二进制数再加上范围从\-1024到1024的指数值(译者：-1024到1024用11位二进制数，加上53等于64，就是说这里用用64位存一个浮点数）转换成十进制也就是说差不多能用16位有效数字和从\-304到304的指数值和起来表示一个浮点数。这种表示方法的一种结果就是我们不可能在不损失精度的情况下用浮点型存储像12345678901234567这样的数。
 162 .PP
 163 类似的，十进制字符串也只能表示有限位数的十进制数.光就字符串来言,它可以是任意长度的,没有什么关于指数或有效数字位数上的限制.(但是请意识到我们正在讨论的存放数值的那些规则.事实是你能用字符串存放很大的数值并不代表相应的数值操作能够把字符串中的所有的数位都用上.欲知详情,请看\*(L"数值运算符和数值转换\*(R"
 164 .PP
 165 事实上“Native整型数”存储的数值可以是带符号的，或者是不带符号的。所以很典型的，Perl中“Native整型数”可以表示的整数的范围是\-2**31..2**32\-1，这个范围对64位的整数来说是比较合适的。但这并不意味着Perl只能处理这个范围内的整数：浮点类型可以存下更大的整数。
 166 .PP
 167 总而言之，Perl中的数是有限位数的十进制数或者说是足够短的二进制数。
 168 .SH "Numeric operators and numeric conversions 数值运算符和数值转换"
 169 .IX Header "Numeric operators and numeric conversions"
 170 就像前面说的那样，Perl可以用三种格式中的任意一种存放一个数，但是大多数运算符只能理解这三种格式中的一种。当一个数值作为参数传给一个运算符时，它将会被转换成运算符可以理解的那种格式。
 171 .PP
 172 可能出现的转换有下面六种：
 173 .PP
 174 .Vb 6
 175 \&  native 整型        --> native 浮点型      (*)
 176 \&  native 整型        --> 十进制形式的字符串
 177 \&  native 浮点型 --> native 整型              (*)
 178 \&  native 浮点型 --> decimal string              (*)
 179 \&  十进制的字符串        --> native 整型
 180 \&  十进制的字符串        --> native 浮点型       (*)
 181 .Ve
 182 .PP
 183 这些转换按照下列的规则进行：
 184 .IP "\(bu" 4
 185 如果原来的数可以用要转换成的格式表述，则其值继续使用，不会改变。
 186 .IP "\(bu" 4
 187 如果原来的数超出了要转换成的格式所能表述的极限，则最接近极限的那个值会被用来做最后的值。（这会有信息上的损失）
 188 .IP "\(bu" 4
 189 如果原来的数在要转换成的格式所能表述的两个相邻的数之间，则这两个数中的一个会被用来做最后的值。（这会有信息上的损失）
 190 .IP "\(bu" 4
 191 在 \f(CW\*(C`native 浮点型 \-\-> native 整型\*(C'\fR 的转换中，结果的值小于等于原来的值。（因为是直接截取小数位取整的）(\fI\*(L"Rounding to zero\*(R".\fR)
 192 .IP "\(bu" 4
 193 如果 \f(CW\*(C`十进制的字符串 \-\-> native 整型\*(C'\fR  的转换不能在不损失信息的情况下完成，结果将会和下列的转换序列的结果一致：\f(CW\*(C`十进制的字符串 \-\-> native_浮点型 \-\-> native_整型\*(C'\fR. 特别要指出的是，尽管像 \&\f(CW"0.99999999999999999999"\fR 这样的数可能会取整成1，取整一般是倾向于0的。
 194 .PP
 195 \&\fB\s-1限制\s0\fR: 上面标有 \f(CW\*(C`(*)\*(C'\fR 的转换包含有C编译器的动作步骤。在特殊情况下，C编译器的一些特性或者Bugs可能会导致上述一些规则的不成立。
 196 .SH "Flavors of Perl numeric operations 数值操作的特色"
 197 .IX Header "Flavors of Perl numeric operations"
 198 Perl 中带有数值参数的操作将按照四种方法处理参数：它们可能会将参数强制转换为整型，浮点型或是字符串型中的一种，或者按照操作数的格式来处理参数。在把一个数的类型强制转换成另一种特定的类型的过程中，原来存储的值不会改变。
 199 .PP
 200 所有需要整型数作参数的运算符会对参数进行取模的操作。比如说用32位存放整型数时会把数对2的32次方取模 (\f(CW\*(C`mod 2**32\*(C'\fR)，所以 \f(CW\*(C`sprintf "%u", \-1\*(C'\fR  的结果和 \&\f(CW\*(C`sprintf "%u", ~0\*(C'\fR 的结果是一样的。
 201 .IP "Arithmetic operators 算术运算符" 4
 202 .IX Item "Arithmetic operators"
 203 二进制运算符 \f(CW\*(C`+\*(C'\fR \f(CW\*(C`\-\*(C'\fR \f(CW\*(C`*\*(C'\fR \f(CW\*(C`/\*(C'\fR \f(CW\*(C`%\*(C'\fR \f(CW\*(C`==\*(C'\fR \f(CW\*(C`!=\*(C'\fR \f(CW\*(C`>\*(C'\fR \f(CW\*(C`<\*(C'\fR
 204 \&\f(CW\*(C`>=\*(C'\fR \f(CW\*(C`<=\*(C'\fR 以及一元运算符 \f(CW\*(C`\-\*(C'\fR \f(CW\*(C`abs\*(C'\fR and \f(CW\*(C`\-\-\*(C'\fR
 205 总试图将参数转换为整形。如果转换都可以无损精度地进行，并且运算也无损于精度，那么返回整数的结果。否则，参数被转换为浮点数，返回浮点数结果。转换的缓冲过程保证了整数转换不会将浮点数的零头丢掉
 206 .IP "++" 4
 207 \&\f(CW\*(C`++\*(C'\fR 的行为与其他操作符类似，但是如果操作数是满足 \f(CW\*(C`/^[a\-zA\-Z]*[0\-9]*\ez/\*(C'\fR 格式的字符串，将进行 perlop 中描述的字符串递增运算。
 208 .ie n .IP "定义了 ""use integer"" 时的算术运算" 4
 209 .el .IP "定义了 \f(CWuse integer\fR 时的算术运算" 4
 210 .IX Item "Arithmetic operators during use integer"
 211 在 \f(CW\*(C`use integer;\*(C'\fR 的作用范围内，几乎上面列出的所有操作符都将它们的操作数转换为整数，返回整数的结果，例外情况是 \f(CW\*(C`abs\*(C'\fR, \f(CW\*(C`++\*(C'\fR 和 \f(CW\*(C`\-\-\*(C'\fR，在这种情况下不改变行为。
 212 .IP "Other mathematical operators 其他数学操作符" 4
 213 .IX Item "Other mathematical operators"
 214 类似 \f(CW\*(C`**\*(C'\fR, \f(CW\*(C`sin\*(C'\fR 和 \f(CW\*(C`exp\*(C'\fR 的操作符强制参数为浮点格式。
 215 .IP "Bitwise operators 位操作符" 4
 216 .IX Item "Bitwise operators"
 217 如果不是字符串，操作数被强制转换为整型
 218 .ie n .IP "定义了 ""use integer"" 时的位运算" 4
 219 .el .IP "定义了 \f(CWuse integer\fR 时的位运算" 4
 220 .IX Item "Bitwise operators during use integer"
 221 强制参数为整型。并且，移位操作在内部使用有符号整型而不是默认的无符号数
 222 .IP "需要整型操作数的操作符" 4
 223 .IX Item "Operators which expect an integer"
 224 强制操作数转换为整型。例如，在函数 \f(CW\*(C`sysread\*(C'\fR 的第三和第四个参数中，这样做是合适的。
 225 .IP "需要字符串的操作符" 4
 226 .IX Item "Operators which expect a string"
 227 强制操作数为字符串格式。例如，在 \f(CW\*(C`printf "%s", $value\*(C'\fR 中，这样做是合适的。
 228 .PP
 229 尽管强制转换参数为特定格式不会改变已存储的数字，Perl 会记录转换的结果。特别的，尽管第一次转换会耗费一定时间，重复进行的操作不会需要重新转换。
 230 .SH "AUTHOR 作者"
 231 .IX Header "AUTHOR"
 232 Ilya Zakharevich \f(CW\*(C`ilya@math.ohio\-state.edu\*(C'\fR
 233 .PP
 234 由 Gurusamy Sarathy <gsar@ActiveState.com> 编辑
 235 .PP
 236 由 Nicholas Clark <nick@ccl4.org> 更新为 5.8.0 版
 237 .SH "SEE ALSO 参见"
 238 .IX Header "SEE ALSO"
 239 overload, perlop