Perl大杂烩

记录Perl使用过程中遇到的问题与答案

本文所转载内容均已注明出处

---------------------------------------------------------------------------------------------------------------------------

http://developer.51cto.com/art/201007/212493.htm

chop
调用语法$lastchar=chop(var);
解说var可为变量或数组，当var为变量时，最后一个字符被删除并赋给$lastchar，当var为数组/列表时，所有元素的最后一个字符被删除，最后一个元素的最后一个字母赋给$lastchar。

chomp
调用语法result=chomp(var);
解说检查字符串或字符串列表中元素的最后一个字符是否为由系统变量$/定义的行分隔符，如果是就删除。返回值为实际删除的字符个数。

crypt
调用语法result=crypt(original,salt);
解说用DES算法加密字符串，original是将要加密的字符串，salt是两个字符的字符串，定义如何改变DES算法，以使更难解码。返回值为加密后的串。

hex
调用语法decnum=hex(hexnum);
解说将十六进制数(字符串形式)转化为十进制数。

int
调用语法intnum=int(floatnum);
解说将浮点数舍去小数部分转化为整型数。

oct
调用语法decnum=oct(octnum);
解说将八进制数(字符串形式)或十六进制数("0x.."形式)转化为十进制数。

ord
调用语法asciival=ord(char);
解说返回单个字符的ASCII值，与PASCAL中同名函数类似。

chr
调用语法$char=chr(asciival);
解说返回ASCII值的相应字符，与PASCAL中同名函数类似。

pack
调用语法formatstr=pack(packformat,list);
解说把一个列表或数组以在实际机器存贮格式或C等编程语言使用的格式转化（包装）到一个简单变量中。参数packformat包含一个或多个格式字符，列表中每个元素对应一个，各格式字符间可用空格或tab隔开，因为pack忽略空格。

降低perl执行计划任务，在等待过程中的cpu使用率

use Time::HiRes qw /usleep/;
usleep(900000); #延迟0.9s

---------------------------------------------------------------------------------------------------------------------------