perl笔记（二）

if(){} 条件为真时，执行
unless(){} 条件为假时，执行

while(){} 条件为真时，循环执行
until(){} 条件为假时，循环执行

last 跳出循环，相当于break
next 进入下一次循环，相当于continue

文件相关
-e $file  测试文件是否存在，存在为真
-r 文件或目录，是否可读
-w 文件或目录，是否可写
-x 文件或目录，是否可执行
-e 文件或目录，是否存在
-d 是目录
-f 是普通文件
-l 是符号链接
my @field = stat($filename);

unlink($filename);删除文件，不能删除目录
rename($old,$new);重命名文件
link(src,dst);硬链接
symlink(src,dst);软连接
mkdir($path,"0755");创建目录
rmdir($path);删除目录

日期相关
my $tt=localtime;
my $tt=gmtime;

my $pos = index($string,$key);查找key在string中的首次出现的位置
my $pos = rindex($string,$key);从末尾开始查找，结果与上面一样
my $s = substr($string,$start,$len);获取子串
my $s = sprintf("%d dvnksdk",$num);格式化字符串
my $money = sprintf("%.2f",2.345);格式化浮点数


system($cmd);#perl阻塞，等待子进程运行结束
exec($cmd);#perl进程结束，跳转到子进程
my $res = `$cmd`;#获取运行结果