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

今天我们就初步学习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;