文件与目标操作

-- Start

文件测试

有时候我们需要判断某个文件是否存在，很简单，使用 -e 即可，下面是一个简单例子。

#!/usr/bin/perl

print "请输入路径和文件名：n";
chomp (my $file = <STDIN>);


if(! -e "$file") {
	print STDERR "找不到$file文件";
}

除此之外，我们还可以通过下面的操作符来测试文件的其他属性。

事实上，文件还有许多其他属性，遗憾的是它们没有对应的测试操作符，幸运的是我们可以通过函数 stat 来取得这些属性，有关 stat 的更详细介绍请参见此处。

文件操作

?下面是一个对文件操作的简单例子。

#!/usr/bin/perl

# 从当前目录找到所有的mp3文件
my @files=glob "*.mp3"; # 方式 1
foreach my $file (@files) {
	unlink $fike; # 删除文件
}


# 从当前目录找到所有的log文件
my @files=<*.log>; # 方式 2
foreach my $file (@files) {
	rename "$file","$file.bak" # 重命名
}

?

目录操作

?在 Perl 中，我们可以通过文件句柄来操作一个文件，事实上，我们也可以通过目录句柄来操作目录，下面是一个简单的例子。

#!/usr/bin/perl

print "请指定一个目录：n";
chomp (my $path = <STDIN>);

# 打开目录句柄
opendir DIR,$path or die "$!";

# 查看目录中的子目录及文件
foreach my $file (readdir DIR) {
	print "$filen";
}

# 关闭目录句柄
closedir DIR;

此外，Perl 还提供了一些操作目录的函数，如：chdir,mkdir,rmdir 等，更多关于如何操作文件和目录需要专用的模块。

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处 -- Last Updated on 2012-07-12 -- Written by ShangBo on 2012-07-11 -- End