perl基础---文件与文件夹操作

Posted EasyPerl

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl基础---文件与文件夹操作相关的知识,希望对你有一定的参考价值。

在很多程序中, 我们需要针对文件,以及文件夹来进行操作。

今天我们就初步学习Perl中文件和文件夹的操作。 

我们通过下面例子来看:


my $folder = 'test';my $file = 'test.txt';my $file2 = 'test2.txt';

检查文件夹是否存在, 不存在则新建一个文件夹, -d 是perl中文件检测命令, 返回是否是一个文件夹。

mkdir可以用来创建一个文件夹

mkdir $folder unless -d $folder;

我们用mkdir来创建, 相反的我们可以用rmdir来删除一个文件夹:

rmdir $folder;

删除文件, 我们使用的是unlink命令, -e用来检测文件是否存在

unlink $file2 if -e $file2;

-s 命令可以得到文件的大小:

print -s $file;

那么如何读取一个文件夹里面的所有文件呢?

Perl中针对文件夹, 有一个类似于文件句柄的对象---目录句柄, 我们使用opendir来新建一个句柄, 使用readdir来逐个读取文件夹中的对象:

opendir my $fd, $folder or die "failed to open folder : $folder\n";while(my $f = readdir $fd){

忽略所有.开头的文件, 这里用了正则表达式来作为判断条件,具体以后介绍

 next if $f =~ /^\./; print "$f\n";}closedir $fd;


以上是关于perl基础---文件与文件夹操作的主要内容,如果未能解决你的问题,请参考以下文章

如何有条件地将 C 代码片段编译到我的 Perl 模块?

关于perl中文件操作句柄使用的几种方式-基础版

Perl基础教程--精华篇

Perl黑客编程

一个文本处理的perl脚本

Perl 5.20.0 发布