在perl 里很多人会使用
mkdir path unless(-d path);
来创建目录,他虽然方便,但是毕竟比较长,而且无法创建多级,所以如果脚本里有很多目录要创建,可以使用以下的代码
use Path::Tiny;
path("path/to/your")->mkpath;
# 删除空目录或文件,如果目录不为空,这个方法将会失败。
path("path/to/your/file.txt")->remove;
# 删除一个非空目录及其内容
path("path/to/your/directory")->remove_tree;
# 临时目录(里面的东西会全部删除)
my $temp_dir = Path::Tiny->tempdir;
# 临时文件
my $temp = Path::Tiny->tempfile;
Path::Tiny可以完成对文件的读写,包括使用句柄和直接读取,相较于perl自带的语句,他可以省略错误提示,尤其整个读取文件会方便很多
句柄操作
#读取
my $fh = path('file.txt')->filehandle('<');
# 通过循环读取
close $fh;
# 写入
my $fh = path('file.txt')->filehandle('>');
print $fh "Hello, World!\n";
close $fh;
#整个读取
my $content = path('file.txt')->slurp;
print $content;
# 写入一段文字
path('file.txt')->spew("Hello, World!\n");
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!