func.htm

perl快速入门。由浅入深

        <td>调用语法</td>
        <td>retval = cos (value);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>参数为弧度值。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>atan2</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = atan2 (value1, value2);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>运算并返回value1除以value2结果的arctan值，单位为弧度，范围在-PI~PI。</td>
    </tr>
    <tr>
        <td>应用例：<br>角度转化成弧度子程序。</td>
        <td>sub degrees_to_radians {<br> &nbsp; local ($degrees) = @_;<br> &nbsp; local ($radians);11: <br> &nbsp; $radians = atan2(1,1) * $degrees / 45;<br>}</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>sqrt</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = sqrt (value);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>平方根函数。value为非负数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>exp</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = exp (value);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>返回e的value次方。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>log</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = log (value);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>以e为底的自然对数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>abs</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = abs (value);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>绝对值函数。(Perl 4中没有)</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>rand</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = rand (num);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>随机数函数，返回0和整数num之间的一个浮点数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>srand</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>srand (value);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>初始化随机数生成器。保证每次调用rand真正随机。</td>
    </tr>
</table></p>
<a name="3">三、字符串处理函数</a><br>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>index</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>position = index (string, substring, position);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>返回子串substring在字符串string中的位置，如果不存在则返回-1。参数position是可选项，表示匹配之前跳过的字符数，或者说从该位置开始匹配。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>rindex</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>position = rindex (string, substring, position);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>与index类似，区别是从右端匹配。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>length</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>num = length (string);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>返回字符串长度，或者说含有字符的数目。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>pos</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>offset = pos(string);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>返回最后一次模式匹配的位置。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>substr</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>substr (expr, skipchars, length)</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，或者说从位置skipchars开始抽取子串（第一个字符位置为0），子串长度为length，此参数可忽略，意味着取剩下的全部字符。<br>当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>study</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>study (scalar);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>用一种内部格式提高变量的访问速度，同一时刻只对一个变量起作用。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>lc<br>uc</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = lc(string);<br>retval = uc(string);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>将字符串全部转换成小/大写字母。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>lcfirst<br>ucfirst</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>retval = lcfirst(string);<br>retval = ucfirst(string);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>将第一个字母转换成小/大写。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>quotameta</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>newstring = quotemeta(oldstring);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>将非单词的字母前面加上反斜线(\)。<br>语句 ： $string = quotemeta($string);<br>等效于：$string =~ s/(\W)/\\$1/g;<br>常用于模式匹配操作中，确保字符串中没有字符被看作匹配操作符。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>join</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>join (joinstr, list);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>把字符串列表(数组)组合成一个长的字符串，在每两个列表元素间插入串joinstr。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>sprintf</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>sprintf (string, fields);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>与printf类似，区别是结果不输出到文件，而作为返回值赋给变量。</td>
    </tr>
    <tr>
        <td>例子</td>
        <td>$num = 26;<br>$outstr = sprintf("%d = %x hexadecimal or %o octal\n",$num, $num, $num);<br>print ($outstr);</td>
    </tr>
    <tr>
        <td>结果输出</td>
        <td>26 = 1a hexadecimal or 32 octal</td>
    </tr>
</table></p>
<a name="4">四、标量转换函数</a><br>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>chop</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>$lastchar = chop (var);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>var可为变量或数组，当var为变量时，最后一个字符被删除并赋给$lastchar，当var为数组/列表时，所有元素的最后一个字符被删除，最后一个元素的最后一个字母赋给$lastchar。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>chomp</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>result = chomp(var);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>检查字符串或字符串列表中元素的最后一个字符是否为由系统变量$/定义的行分隔符，如果是就删除。返回值为实际删除的字符个数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>crypt</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>result = crypt (original, salt);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>用DES算法加密字符串，original是将要加密的字符串，salt是两个字符的字符串，定义如何改变DES算法，以使更难解码。返回值为加密后的串。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>hex</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>decnum = hex (hexnum);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>将十六进制数(字符串形式)转化为十进制数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>int</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>intnum = int (floatnum);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>将浮点数舍去小数部分转化为整型数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>oct</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>decnum = oct (octnum);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>将八进制数(字符串形式)或十六进制数("0x.."形式)转化为十进制数。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>ord</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>asciival = ord (char);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>返回单个字符的ASCII值，与PASCAL中同名函数类似。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>chr</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>$char = chr (asciival);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>返回ASCII值的相应字符，与PASCAL中同名函数类似。</td>
    </tr>
</table></p>
<p><table border="1" cellspacing="1">
    <tr>
        <td>函数名</td>
        <td>pack</td>
    </tr>
    <tr>
        <td>调用语法</td>
        <td>formatstr = pack(packformat, list);</td>
    </tr>
    <tr>
        <td>解说</td>
        <td>把一个列表或数组以在实际机器存贮格式或C等编程语言使用的格式转化（包装）到一个简单变量中。参数packformat包含一个或多个格式字符，列表中每个元素对应一个，各格式字符间可用空格或tab隔开，因为pack忽略空格。<br>
&nbsp;&nbsp;除了格式a、A和@外，重复使用一种格式多次可在其后加个整数，如：<br>
&nbsp;&nbsp; $twoints = pack ("i2", 103, 241);<br>
&nbsp;&nbsp;把同一格式应用于所有的元素则加个*号，如：<br>
&nbsp;&nbsp; $manyints = pack ("i*", 14, 26, 11, 83);<br>
&nbsp;&nbsp;对于a和A而言，其后的整数表示要创建的字符串长度，重复方法如下：<br>
&nbsp;&nbsp; $strings = pack ("a6" x 2, "test1", "test2");<br>
&nbsp;&nbsp;格式@的情况比较特殊，其后必须加个整数，该数表示字符串必须的长度，如果长度不够，则用空字符(null)补足，如：<br>
&nbsp;&nbsp; $output = pack ("a @6 a", "test", "test2");<br>
&nbsp;&nbsp;pack函数最常见的用途是创建可与C程序交互的数据，例如C语言中字符串均以空字符(null)结尾，创建这样的数据可以这样做：<br>
&nbsp;&nbsp; $Cstring = pack ("ax", $mystring);<br>
&nbsp;&nbsp;下表是一些格式字符与C中数据类型的等价关系：<br>
<center><table BORDER="1" >
  <tr>
    <td>字符 &nbsp; </td>
    <td>等价C数据类型</td>
  </tr>
  <tr>
    <td>C</td>
    <td>char</td>
  </tr>
  <tr>
    <td>d</td>
    <td>double</td>
  </tr>
  <tr>
    <td>f</td>
    <td>float</td>
  </tr>
  <tr>
    <td>i</td>
    <td>int</td>
  </tr>
  <tr>
    <td>I</td>
    <td>unsigned int (or unsigned)</td>
  </tr>
  <tr>
    <td>l</td>
    <td>long</td>
  </tr>
  <tr>
    <td>L</td>
    <td>unsigned long</td>
  </tr>
  <tr>
    <td>s</td>
    <td>short</td>
  </tr>
  <tr>
    <td>S</td>
    <td>unsigned short</td>
  </tr>
</table></center>
&nbsp;&nbsp;完整的格式字符见下表。
        </td>
    </tr>
</table></p>
<p><table border="1">
    <tr>
      <td>格式字符 &nbsp; </td>
      <td>描述</td>
    </tr>
    <tr>
      <td>a</td>
      <td>用空字符(null)补足的字符串</td>
    </tr>
    <tr>
      <td>A</td>
      <td>用空格补足的字符串</td>
    </tr>
    <tr>
      <td>b</td>
      <td>位串，低位在前</td>
    </tr>
    <tr>
      <td>B</td>