|
| |
Perl常用函数一：
| 指令: |
# |
| 说明： |
注解符号Remark宣告 |
| 范例： |
#c:\perl\bin\perl.exe
#这是一行说明 |
| 指令: |
print |
| 语法一： |
print Filehandle LIST |
| 说明： |
这个Filehandle可把它看做在(Input)/(output)间的一个桥梁，可以利用Filehandle来做出数据读入
写出的动作。STDIN是代表从哪里读入数据，是从键盘，还是其他输入设备呢。Perl种使用了unix下的三种输入设备，STDIN(标准输入)，STDOUT(标准输出)，STDERR(标准错误输出)。
特殊符号：
\n
换行New line
\r 光标换行Return
\t Tab键
\f 换页
\h 退回一个键Backspace
\v
垂直Tab
\a 响铃
\e Escape键
\007 Ascii十进制码
\xff 十六进制
\c[
控制字符 |
| 范例： |
Print STDOUT "I love perl\n";
#将"I
love perl"加上换行符后输出到屏幕上 |
| 语法二： |
Print LIST |
| 说明： |
如果省略Filehandle的话，将缺省使用STDOUT. |
| 范例： |
略 |
| 语法三： |
Print |
| 说明： |
如果同时省略Filehandle和LIST,则将$_变量输出到屏幕上。($_这个变量是一个特殊变量，我将在以后讲解) |
| 范例： |
略 |
| 指令： |
printf |
| 语法： |
printf Filehandle LIST |
| 说明： |
使用过C语言的人都知道，Printf和print的区别在于前者给每个输出符加上换行符号。这里的用法是一样的。 |
| 范例： |
略 |
| 指令： |
chop |
| 语法： |
chop($string) |
| 说明： |
将字符串$string的最后一个字符去掉。我们一般用来去掉字符串最后的那个\n符号。 |
| 范例： |
$hello="Hello,Perl\n";
chop($hello);
print
"$hello"; |
| 指令： |
split |
| 语法： |
split(/pattern/,$string,limit) |
| 说明： |
用一个指定的文字处理模式(正则表达式)来分割$string字符串. |
| 范例： |
$string="i:am:cute";
@list=split(/:/,$string);
#此时@list=("i","am","cute");
在传送CGI应用程序数据的时候会先将数据编码，其中会将FORM中的每个字段的数据内容用&这个符号
分割，所以在解码的时候必须将&分割开字符串，比如：
$string="who=guyi&email=guyii@online.sh.cn";
@list=split(/$/;$string);
#此时@list("who=guyi","email=guyii@online.sh.cn");
而字段的名字和字段的值则是通过=这个符号联系在一起，所以要得到字段对应的值，就要根据=这个
符号将字符串解开来。
$list="name=guyi";
($name,$value)=spilt(/=/,$list);
|
| 指令： |
keys |
| 语法： |
keys(%array) |
| 说明： |
取出关联数组array中全部的key. |
| 范例： |
%name=(1,"one",2,"two");
@list=keys(%name);
#此时@list的值为(1,2); |
| 指令： |
value |
| 语法： |
value(%array) |
| 说明： |
取出关联数组array中全部的value. |
| 范例： |
%name=(1,"one",2,"two");
@list=value(%name);
#此时@list的值为("one","two"); |
| 指令： |
reverse |
| 语法： |
reverse(@array) |
| 说明： |
将数组@array中的元素由后到前重新排列 |
| 范例： |
@list=("a","b","c","d");
@list=reverse(@list)
#此时@list=("d","c","b","a"); |
回Perl目录
|
