linux Perl开发

众所周知,Perl是Linux下重要的编程语言
创建文件夹
#!/usr/bin/perl
mkdir(%%1,0777)|| die "不能创建目录"; #0777为内部权限格式。
#mkdir %%1, oct("0755") or die “cannot create $name: $!”;

创建文件
#!/usr/bin/perl
unless (-e %%1){
     open(FILE,">%%1") or &out_err("sorry,\t","The tmpfile is not exists!");   //创建文件并写入，失败的话执行out_err
}

删除文件
#!/usr/bin/perl
unlink(%%1);

删除文件夹
#!/usr/bin/perl
rmdir(%%1)|| die "不能删除%%1目录"。
###
use File::path;  
rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);

清空文件夹
#!/usr/bin/perl
use File::path;  
rmtree(%%1, 1, 1); #['foo/bar/baz', 'blurfl/quux']
mkdir(%%1,0777)||die "不能创建zmd目录"; #0777为内部权限格式。

写入文件
open(OUTFILE, ">%%1")|| die "出错，不能建立%%1\n";
print OUTFILE (%%2);
close(OUTFILE);

注:%%1表示文件/文件夹参数