Perl中的文件检测操作
来源:互联网 发布:html与javascript分离 编辑:程序博客网 时间:2024/04/29 12:24
文件检测操作
如果程序会建立新的文件,在程序创建新文件之前,我们应先确定是否存在同名的文件,以免重要数据被覆盖掉。对于这种问题,我们可以使用– 选项,检测是否存在相同名字的文件:
die "Oops! A file called '$filename' already exists.\n" if -e $filename;
如果文件在过去28 天内都未被修改,输出警告:
warn "Config file is looking pretty old!\n" if -M CONFIG > 28;
下例首先检查文件列表,找到那些大于 100KB 的文件。如果一个文件仅是很大, 我们不一定会将其移到备份磁带上去,除非同时其在最近 90 天内都未被访问。
my @ariginal_files = qw/ fred barney betty Wilma pebbles dino bam-bamm /;my @big_old_files; #要移到备份磁带上的文件foreach my $filename (@original_files){ push @big_old_files, $filename if -s $filename > 100_100 and -A $filename > 90;}-r文件或目录对此(有效的)用户(effective user)或组是可读的-w文件或目录对此(有效的)用户或组是可写的-x文件或目录对此(有效的)用户或组是可执行的-o文件或目录由本(有效的)用户所有-R文件或目录对此用户(real user)或组是可读的-W文件或目录对此用户或组是可写的-X文件或目录对此用户或组是可执行的-O文件或目录由本用户所有-e文件或目录名存在-z文件存在,大小为 0(目录恒为 false)-s文件或目录存在,大小大于 0(值为文件的大小,单位:字节)-f为普通文本-d为目录-l为符号链接-S为 socket-p为管道(Entry is a named pipe(a "fifo"))-b为 block-special 文件(如挂载磁盘)-c为 character-special 文件(如 I/O 设备)-usetuid 的文件或目录-gsetgid 的文件或目录-kFile or directory has the sticky bit set-t文件句柄为 TTY(系统函数 isatty()的返回结果;不能对文件名使用这个测试)-T文件有些像“文本”文件-B文件有些像“二进制”文件-M修改的时间(单位:天)-A访问的时间(单位:天)-C索引节点修改时间(单位:天)
0 0
- Perl中的文件检测操作
- perl 文件检测操作
- Perl中的文件操作
- Perl 中的文件操作:删除和重命名
- Perl 中的讀寫文件操作
- perl中的几种文件操作
- Perl中的数组操作
- Perl中的数组操作
- PERL中的哈希表操作
- perl 文件,目录操作
- 文件操作函数[perl]
- Perl-15---文件操作
- PERL文件操作
- PERL文件操作
- perl 文件操作总结
- perl 文件操作相关
- perl 文件操作
- perl 文件操作
- java转译字符
- 随便写了个快速排序程序
- 选择排序很简单
- cookie学习总结
- 存储系统----存储技术(2)
- Perl中的文件检测操作
- [leet code] Symmetric Tree
- Java操作Hbase进行建表、删表以及对数据进行增删改查,条件查询
- grails学习笔记-1、grails概述
- w3school中文全站离线资源集合
- android下如何开启adb服务
- C#强类型数据集的多数据库应用
- [leet code] Convert Sorted Array to Binary Search Tree
- 发送手机验证码倒计时