perl札记

2012-10-14

perl笔记1、循环控制last 关键字，相当于c语言的breaknext 关键字，相当于c语言的continue2、判断元素是否在数

perl笔记
1、循环控制
last 关键字，相当于c语言的break
next 关键字，相当于c语言的continue

2、判断元素是否在数组中

if ($elem ~~ @array)

# $elem是字符串类型

if ($elem + 0 ~~ @array)

# $elem是数值类型

3、判断文件是否存在

if(-e $filename){}

判断是否是目录

if(-d $filename){}

4、split字符串

@results = split(/regexp/, $string)

$string是需要被split的字符串，//里是正则表达式，返回数组

5、读取目录中的文件

opendir(DIR, "/usr/local");@files = readdir(DIR);closedir(DIR);

6、perl调用shell命令

system(”command”);

使用该命令将开启一个子进程执行引号中的命令，父进程将等待子进程结束并继续执行下面的代码。

7、删除文件

unlink($filename);

8、小数取整

int(3.14)

丢弃小数部分

9、输出字符串的每个字符

my $str = "perl";for(my $i=0; $i<length($str); $i++){    print substr($str, $i, 1);}

10、搜索字符串的子串

position = index (string, substring, position)

子串不存在返回-1

11、判断变量的类型

ref($a) eq "ARRAY"

ref()函数返回变量$a的类型，用字符串表示

12、解析xml文件

# use moduleuse XML::Simple;# create object$xml = new XML::Simple;# read XML file$data = $xml->XMLin($ARGV[0]);# access XML data$taskId = $data->{'job'}->{'task'}->{'task_id'};

热点排行

perl python

perl札记