常用系统函数列表
指令：print
语法: print Filehandle LIST
说明: 这个Filehandle可以看作是在I/O之间的一个桥梁，可以利用Filehandle来做数据的读入与写出动作。STDOUT是代表从哪输出数据；例如从电脑的屏幕输出；STDERR是代表从哪输出错误的数据，例如从电脑的屏幕输出。在PERL语言中有三个标准的Filehandle:
1. STDIN(标准输入):是代表STDIN的Filehandle
2. STDOUT(标准输出):是代表STDOUT的Filehandle
3. STDERR(标准错误输出):是代表STDRR的Filehandle
如果要使用其它的Filehandle,就要用OPEN这个函数来打开一个Filehandle,我们可以用PRINT这个函数将LIST的数据输出给FILEHANDLE.
在介绍PRINT这个函数之前，先看看PRINT函数中特殊打印字符：
符号 作用
-------------------
\n 换行
\r 光标换行
\t tab键
\f 换页
\b 退回一格
\v 垂直tab键
\a 响铃Bell
\e escape键
\007 十进制ASCII码
\xff 十六进制码
\c[ 控制字符
示例： print STDOUT "Hello,World!\n";
语法: print LIST
说明: 如果省略Filehandle的话，就会把Filehandle内定为STDOUT，也就是会将LIST的数据内容显示在屏幕上。
示例： $url="~test"
print "CU: $url\n";
将会在屏幕上出现 "CU: ~test", 如果想要让双引号内的变量失效，可以在变量的前面加上反斜线"\"符号。 如: print "CU: \$url\n"; 这样在屏幕上就显示 "CU: $url"
语法： print
说明: 同时省略Filehandle和LIST的话，就会以STDOUT为Filehandle，并会输出$_这个内定输出变量内容。如果$_变量是一个空字符串的话，就会显示一个空字符串。
示例： $_="China Unix\n"; print; 就会将 "China Unix"加上换行符显示在屏幕上。
指令：printf
语法: printf Filehandle LIST
说明: 在perl语言中也提供C语言中的printf的语法，用法和C语言中的用法一模一样。如果把Filehandle省略的话，也一样也把STDOUT当成是内定的Filehandle.
以下是printf函数中变换符号的字符。
符号 作用
-------------------
%c 字符
%s 字符串
%d 整数
%f 浮点数
%h 十六进制数
%o 八进制数
示例： printf("chmod %d %s\n","711","cgi"); 会将 "chmod 711 cgi"显示在屏幕上。
指令： chop
语法: chop($url)
说明: 把最后一个字符删除。
示例: $url="~test/"; print chop($url); 将在屏幕上显示 ;
指令： split
语法： split(/pattern/,$text,limit)
其中/pattern/是文字处理模式，而limit代表要分割的个数，一般省略。
说明： 用一个指定的文字处理模式来分割$text字符串。
示例：
$text = "Michael,Gevin,Mike"; @name=split(/,/,$text); #这时@name=("Michael","Gevin","Mike").
($a,$b,$c)=split(/,/,$test); #这时$a="Michael";$b="Gevin";$c="Mike";
@name=split(/,/,$test,2); #这时@name=("Michael","Gevin");
指令： keys
语法： keys(%hash)
说明： 取出关联哈希中全部的key.
示例： %hash=(1,"Mike",2,"Michael"); @key=keys(%hash); #这时@key=(1,2);
指令： values
语法： values(%hash)
说明： 取出关联哈希中全部的value.
示例： %hash=(1,"Mike",2,"Michael"); @value=values(%hash); #这时@value=("Mike","Michael");
指令： reverse
语法： reverse(@array)
说明： 将数组@array中的元素由后到前重新排列。
示例： @back=("A","B","C","D","E"); @back=reverse(@back); #这时@back=("E","D",'C","B","A");
指令： sort
语法： sort(@array)
说明： 将数组中的元素由小到大排序，如果要由大到小排序的话，要加上reverse这个函数。
示例： @abc=("d","b","c","a"); @abc=sort(@abc); #这时@abc=("a","b","c","d");
@abc=reverse sort @abc;
指令： length
语法： length($string)
说明： 求出字符串$string的字节(bytes)值。
示例： $string="Perl5"; $size=length $string; #这时 $size=5;
指令： substr
语法： substr($string,offset,length)
说明： offset代表起始字符的位置，length代表引用的字符串长度，如果省略length则代表从起始值到字符串的最后一个字符长度。而offset如果是负值的话，就会从字符串右边开始指定字符。
示例： $s=substr("perl5",2,2); #这时 $s = "rl";
$s=substr("perl5",2); #这时 $s = "rl5";
$s=substr("abcdefg",-5,3); #这时 $s = "cde";
指令： index
语法： index($string,$substring,position)
说明： $substring是要寻找的字符；position代表从哪一个位置开始寻找，如果省略position就从头开始找起。并返回所要找寻的字符在字符串$string中的位置，如果在字符串$string中找不到$substring，则会返回-1这个值。
示例： $s=index("perl5","p"); #这时 $s = 0
$s=index("perl5","l",2); #这时 $s = 3
$s=index("perl5","Perl); #这时 $s = -1
指令： push
语法： push(@array,$string)
说明： 在数组@array的最后添加新的元素$string到数组@array中。
示例： @array=("one","two"); push(@array,"three"); #这时@array=("one","two","three");
指令： pop
语法： pop(@array)
说明： 将数组@array的最后一个元素删除，并将删除的元素返回。
示例： @array=("one","two"); $rm=pop(@array); #这时 @array=("one");而 $rm="two";
指令： unshift
语法： unshift(@array,$string)
说明： 在数组@array的第一个元素前添加新的元素$string到数组@array中。
示例： @array=("one","two"); unshift(@array,"three"); #这时@array=("three","one","two");
指令： shift
语法： shift(@array)
说明： 将数组@array的第一个元素删除，并将删除的元素返回。
示例： @array=("one","two"); $rm=shift(@array); #这时 @array=("two"); 而 $rm="one";
指令： join
语法： join($string,@array)
说明： 在数组@array的元素之间加上一指定的字符$string,并将结果返回。
示例： @array=("one","two","three"); $total=join(":",@array); #这时 $total="one:two:three";
指令： grep
语法： grep(/pattern/,@array)
说明： 将符合文字处理模式(regular expression)的数组元素找出来,并返回列表。
示例： @array=("one","on","in");
$count=grep(/on/,@array); #这时$count=2;
@result=grep(/on/,@array); #这时@result=("one","on");
指令： hex
语法： hex($string)
说明： 将十六进制的数值转成十进制。
示例： $decimal=hex("ff"); #这时 $decimal=255;
指令： rand
语法： rand($interger)
说明： 常和函数srand搭配来取得一随机数，如果没有先宣告srand函数的话，则取出的常数值是一个固定值。这个语法会返回一个介于0到$interger之间的数值，如果$interger省略的话，则会返回一个介于0和1的数值。
示例：
srand; #要先宣告srand函数，才能产生随机数的效果。
$int=rand(10); #$int的值会大于0而且小于10,如果希望产生的随机数是整数的话，就要加上int这个函数。 如：$int=int(rand(10));
perl -e 'srand; $int=rand(10); print $int ,"\n";'
指令： localtime
语法： localtime(time)
说明： 该函数将返回九个有关时间的元素，在写CGI应用程序的时候常会用到系统的时间，所以在此详细介始这个函数的用法。
示例： ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time)
其中：
$sec 代表秒数[0，59]
$min 代表分数[0，59]
$hour 代表小时数[0,23]
$mday 代表是这个月的第几天 [1,31]
$mon 代表月数[0,11],因此，$mon要加上1之后才能符合实际情况。
$year 从1990年算机的年数
$wday 从星期六算起，代表是在这周的第几天[0-6]
$yday 从一月一日算起，代表是在这年中的第几天 [0,365]
$isdst 只是一个flag
指令： die
语法： die LIST
说明： 会把LIST字符串显示出来，并退出程序。常和$!这个代表错误信息变量一起使用。
示例： open(FILE,"$filename") || die "Can not open file $!\n"; 如果打开文件失败的话，就会显示出错误的信息，之后再退出程序。
指令： open
语法1： open(filehandle,"$filename")
说明： 用于文件的打开(read only).这个filehandle可以把它看作是在I/O之间的桥梁，可以用FILEHANDLE来作出数据的读入与写出。开始可用open这个函数来打开一个指定的文件，接下来可以用来读取所打开文件的数据内容，最后一定要用close这个函数关闭这个之前打开的filehandle. 在CGI中，要打开文件的路径一定要写绝对路径。
示例： $filename="usr/abc.txt"; open(FILE,"$filename") or die "can not open file $filename\n"; #将数据指定给变量$line(一行一行地)
while($line=){
print "$line";
}
close(FILE);
语法2： open(filehandle,"<$filename")
说明： 这个语法也可以打开一个存在的文件(read only).
示例： $filename = "usr/abc.txt";
open(file,"<$filename") || die "Can not open file $filename\n";
@array=; #将的数据内容都指定给数组@array.
close(file);
print "@array"; #也会把abc.txt这个文件的内容显示出来。
语法3： open(filehandle,">$filename")
说明： 建立一个新的文件(write only),如果己经存在这个文件，就会把旧文件名覆盖掉。并可用print filehandle的方式将数据存到所打开的文件中。
示例： $filename = "/usr/abc.txt";
open(file,">$filename") || die "can not open file $filename\n";
print file "this is a new line1\n";
print file "this is a new line2\n";
close(file); #会将数据存在一个新文件中.
语法4： open(filehandle,">>$filename")
说明： 数据用追加的方式存入一文件中(write only),如果指定的文件名不存在，就会新建立一个新的文件。
示例： $filename = "/usr/abc.txt";
open(file,">>$filename") or die "can not open file $filename\n";
print file "this is a new line1\n";
print file "this is a new line2\n";
close(file); #会把数据追加(append)到一个文件(abc.txt)中。
语法5： open(filehandle,"|unix command")
说明： 把filehandle中的数据输出给unix的指令来处理。
示例： $mailprog="/usr/bin/mail"; #unix系统上的寄信程序(一定要写绝对路径)
$who="";
open(file,"|$mailprog $who") || die "open failed!\n";
print file "I Love you!\n";
print file "I want to see you.\n";
close(file); #这样，就会通过unix系统mail程序，将file这个filehandle的数据内容寄给$who这个变量所指定的收信人。
指令： close
语法： close(filehandle)
说明： 用open这个函数打开一个filehandle之后,一定要用close这个函数把所打开的filehandle关闭.
示例： open(filehandle,"$filename");
close(filehandle);
指令： pack
语法： pack("指定的格式",LIST)
说明： pack这个函数会将一个LIST变成所指定的二进制数据格式。在CGI割解码过程中，会用到pack这个函数。
示例： $string=pack("c",65); #这时$string="a"; 将65这个ascii码转换成一个unsigned字符，其中c就是指定要转换成unsigned字符的意思。
指令： read
语法： read(filehandle,$string,length)
说明： 其中length代表读入字符串的长度(bytes).用read这个函数把filehandle中的数据依指定的字符串长度读入之后指派给$string这个变量。在cgi程序分割解码过程中，如果FORM的传送方式是设定为POST的话，就会将传送的数据设定为标准输入，所以会将数据内容指定给STDIN这个标准输入的filehandle，而CGI环境变量$env{'content_length'}就是代表使用者送出数据内容的长度，因此我们要用read这个函数来取得使用者送出的数据内容。
示例： read(stdin,$buffer,$env{'content_length'}); #将stdin这个标准输入filehandle中的数据依指定的字符串长度读入，再指派给$buffer这个变量。
指令： exit
语法： exit
说明： 退出执行的程序.
示例： print "i love cgi\n"; exit; #显示完"i love cgi"以后，将退出这个程序。
转自
