1、循环控制
last 关键字,相当于c语言的break
next 关键字,相当于c语言的continue
2、判断元素是否在数组中
3、判断文件是否存在
判断是否是目录
4、split字符串
$string是需要被split的字符串,//里是正则表达式,返回数组
5、读取目录中的文件
6、perl调用shell命令
使用该命令将开启一个子进程执行引号中的命令,父进程将等待子进程结束并继续执行下面的代码。
7、删除文件
8、小数取整
丢弃小数部分
9、输出字符串的每个字符
10、搜索字符串的子串
子串不存在返回-1
11、判断变量的类型
ref()函数返回变量$a的类型,用字符串表示
12、解析xml文件
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'};