perl学习笔记（十二）文件操作

最新推荐文章于 2023-05-22 15:35:25 发布

hh199203

最新推荐文章于 2023-05-22 15:35:25 发布

阅读量324

点赞数

分类专栏： perl 文章标签： perl 学习开发语言文件操作

本文链接：https://blog.csdn.net/hh199203/article/details/125481212

版权

perl 专栏收录该内容

25 篇文章 6 订阅

订阅专栏

文章目录

前言
12 文件操作
总结

前言

本文主要记录一下，perl中的文件操作。

文件名通配: glob 函数
删除文件: unlink 函数
重命名和移动文件: rename 函数
修改文件的时间: utime 函数

12 文件操作

#============================
# 文件名通配: glob 函数
#============================
my @files = glob "*.pl *.txt";
foreach(@files){
    print $_ . "\n";
}


#============================
# 删除文件: unlink 函数
#============================
my $successful = unlink "a.txt", "b.txt";

foreach my $file (glob "*.txt"){
    unlink $file or warn "failed to delete $file: $!\n";
}

#============================
# 重命名和移动文件: rename 函数
#============================
rename "a.txt" "aa.txt";
rename "a.txt" "test/aa.txt";



#============================
# 修改文件的时间: utime 函数
#============================
my $now = time;
my $yesterday = $now - 24*60*60;

utime $now, $yesterday, glob "*.txt";