众所周知,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表示文件/文件夹参数
linux Perl开发
最新推荐文章于 2023-08-03 12:00:33 发布