|
| |
Perl常用函数三
grep,hex,rand,localtime,die,open
grep
| 指令： |
grep |
| 语法： |
grep(/pattern/,@array) |
| 说明： |
将符合文字处理模式的@array元素找出来 |
| 范例： |
@array=("one","on","in");
$count=grep(/on/,@array);#此时$count=2; |
hex
| 指令： |
hex |
| 语法： |
hex($string); |
| 说明： |
将十六进制的数值转换为十进制 |
| 范例： |
$decinaml=("ff");#此时$decimal=255; |
rand
| 指令： |
rand($interger) |
| 语法： |
reand($interger) |
| 说明： |
常常和函数srand搭配来取得一个随机数字，如果没有事前宣告stand函数的话，则取出的数值十一个固定值。这个语法会返回一个介于0和$ineterger之间的数值，如果$interger省略的话，则会返回一个介于0和1之间的数值。 |
| 范例： |
srand;#必须要事先宣告srand函数，才能产生随机数字。
$int=rand(10);
$int=int(rand(10));#$int十一个数值，介于0和9之间。 |
localtime
| 指令： |
localtime |
| 语法： |
locatime(time) |
| 说明： |
可返回九个有关时间的元素，在写CGI程序的时候常会用到的。 |
| 范例： |
($sec,$min,$hour,$mday,$mon,$year,$wady,$yday,$isdst)=localtime(time);
其中：
$sec 代表秒数[0,59]
$min 代表分数[0,59]
$hour 代表小时[0,23]
$mday 代表天数[0,31]
$mon 代表月数[0,11]#要在$mon后加一才能符合实际情况
$year 从1990年算起的年分
$wday 从星期六算起，代表今天是本周的第几天[0-6]
$yday 从一月一日算起，代表是这年中的第几天[0,365]
$isdst 只是一个flay |
die
| 指令： |
die |
| 语法： |
die LIST |
| 说明： |
会把LIST字符串显示出来，并退出程序。常和$！变量（错误变量）一起使用。 |
| 范例： |
open(FILE,"$filename")||die"Cannot open the file
$!\n";
如果打开文件失败的话，就会显示出错误信息，之后再退出程序。 |
open
| 指令： |
open |
| 语法一： |
open(FILE,"$filename")
其中$filename是一个指定打开的文件名字。 |
| 说明： |
这是一个很有用的函数，可用于文件的打开(Read Only)。在CGI中也是常用指令之一。 |
| 范例： |
$filename="usr/guyi/cgi.txt";
open(FILE,"$filename")||die"Cannot open $!\n";
while ($line=<FILE>){#读入文件内容，直到文件结束。
print "$line";
}
close(FILE) |
回Perl教程目录
|
