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 module
use 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'};