删除文件在perl中用unlink操作符删除文件，同shell的rm命令一样。
unlink "aa","bb","cc"; 把这三个文件删除。
与glob函数结合起来可以一次删除多个文件
unlink glob "*.o"; 删除当前目录下以.o结尾的文件，与rm *.o相似。
unlink的返回值告诉我们有多少文件被成功删除。
my $successful = unlink "aa","bb","cc";
print "I delete $successful file(s) just now.n";
[@more@]如果想知道那个文件被删除，可用循环，一次删除一个文件。
foreach my $file (qw/aa,bb,cc/) {
unlink $file or warn "failed on $file:$!";
}
一个很少人知道的有关unix的事实。如果你有一个文件，你对它不能读，不能写，不能执行，甚至文件可能并不属于你，但你仍然可以删除它。这是因为unlink一个文件的权限不依赖于文件本身的权限位，起作用的其实是包含这个文件的目录的权限位。只要目录是可写的，就可以删除该目录中不属于自已的文件。在unix中可以通过设置sticky bit解这个问题，以保护可写目录。
重命名文件
rename "old","new";类似于mv命令。rename失败时返回假，并在$!中设置操作系统的错误信息。因此可用or die 或or warn显示给用户。
一个把所有以.old结尾的东西rename为以.new结尾的perl程序。
foreach my $file (glob "*.old") {
my $newfile = $file;
$newfile =~ s/.old$/.new/; 由于.new不是模式，所以点号不用加反斜杠。
if (-e $newfile) {
warn "can't rename $file to $newfile:$newfile exists.n";
} elsif ( rename $file, $newfile) {
} else {
warn "rename $file to $newfile failed:$!n";
}
}
链接和文件每个文件都被存在一个编了号的inode中，每个inode都包含一个称为链接计数（link count）的数字，当inode没有列在任何目录中时，链接计数总是0，也就是空，可以分配给文件。当inode被加到一个目录中时，链接计数会递增；如果此列表项被删除，链接计数会递减。目录包含.，也就是指向自已的inode，所以目录的链接计数应该总是至少为2。文件也可以不止一个列表项，如链接文件。在perl中用link "aa","bb"建立一个指向aa的链接bb。类似于在unix shell一执行"ln aa bb"。现在aa,bb都有相同的inode值，两个文件有相同的大小，相同的内容。在aa中加入一行，也会在bb中加入一行。如果意外删除了aa，数据并不会丢失，可以在bb中找回来。反之也一样。但如果两个文件都删除了，则数据就会丢失。
目录列表项中的链接规则
1、 一个给定的目录列表项中的inode号都指向同一个安装卷上的inode。这条规则保证，如果物理媒介被移到了另一台机器上，所有的目录仍和它们的文件呆在一起。这就是为什么可用rename把文件从一个目录移到另一个目录的原因，但两个目录必须在同一个文件系统（安装卷）中链接不能用于目录。
2、不能给目录起新的名字。因此目录不能用于链接。以上讨论的是硬链接，还有一个符号链接，也叫软链接，能绕过这硬连接的限制。
symlink "aa","bb";
or warn "cannot symlink aa to bb:$!";这和unix shell 中的"ln -s aa bb" 类似。
要想知道符号链接指向哪里，可以使用readlin函数。如果不是符号链接，则返回undef。
两种链接都要以用unlink删除。
建立和删除目录
mkdir函数可以在一个已有的目录中建立一个目录。返回真时表示成功。
mkdir "aaa",0755 or warn "cannot make aaa directory:$!";第二个参数是新生成目录的权限位。以0开头，这个是一个八进制值。
oct函数强制对一个字符串按八进制解释，不论前面有没有0：
删除空目录，可用rmdir函数。
rmdir glob "aa/*"; 删除aa/下所有空目录。
rmdir操作符对非空目录操作会失败。所以要先用unlink删除文件，再删除目录。
修改权限
perl中有一个chmod函数，和unix shell中的chmod完成类似功能。
chmod 0755, "aa","bb";
perl中不接受符号权限表达式方式，如+x,go=u-w等。
改变所有者
chown函数可以改变一组文件的所有者和属组。
chown 1004,100,glob "*.o";可用getpwnam把用户名翻译成一个数字，用getgrnam函数把组名翻译成一个数字。
改变时间戳
utime函数可修改文件的访问时间和修改时间。
my $now = time;
my $ago = $now -24*60*60; 每天的秒数
utime $now,$ago,glob "*"; 把访问时间设为现在，修改时间设为一天以前
第三个时间ctime的值在对文件做任何改变时，总被设为“现在”，因此没办法用utime函数来设置它。因为在你设置完后它会立即被重置为“现在”，这是因为它的主要目的就是进行增量备份：如果文件的ctime比备份磁带上的日期要新，就说明又需要备份了。
使用简单的模块
File::Basename模块 从文件名中抽取基名，取不包括路径的文件名。通过use命令声明一个模块
use File::Basename;这样，我们就有了一个basename函数。
my $name = "/usr/local/bin/perl";
my $basename = basename $name; 得到perl该函数可用于多平台，如windows。
该模块中还有一个dirname函数，它把目录名从一个完整文件名中分离出来。
有选择地使用模块中的函数当你不需要模块中的所有函数，或模块中的函数和你程序中子例程有冲突时，你可以在声明模块时给模块一个引入列表，只包括需要的函数。
use File::Basename qw /basename/; 只要basename函数，不要其它函数。
use File::Basename qw //; 不要任何函数。怎么会想要一个空列表呢？这是因为，有引入只是使得我们能使用短的简单的函数名，basename,dirname。即使不引入这些名字，我们仍可以使用，只是在没有引入时，我们要用全名来调用它，如：File::Basename::dirname。每个模块都有缺省的引入列表，查相关文档有介绍。
File::Spec模块用来处理文件规范(file specification)。它是一个OO的模块。用小箭头而不是::来引用函数。$newname = File::Spec->catfile($dirname,$basename);
unlink "aa","bb","cc"; 把这三个文件删除。
与glob函数结合起来可以一次删除多个文件
unlink glob "*.o"; 删除当前目录下以.o结尾的文件，与rm *.o相似。
unlink的返回值告诉我们有多少文件被成功删除。
my $successful = unlink "aa","bb","cc";
print "I delete $successful file(s) just now.n";
[@more@]如果想知道那个文件被删除，可用循环，一次删除一个文件。
foreach my $file (qw/aa,bb,cc/) {
unlink $file or warn "failed on $file:$!";
}
一个很少人知道的有关unix的事实。如果你有一个文件，你对它不能读，不能写，不能执行，甚至文件可能并不属于你，但你仍然可以删除它。这是因为unlink一个文件的权限不依赖于文件本身的权限位，起作用的其实是包含这个文件的目录的权限位。只要目录是可写的，就可以删除该目录中不属于自已的文件。在unix中可以通过设置sticky bit解这个问题，以保护可写目录。
重命名文件
rename "old","new";类似于mv命令。rename失败时返回假，并在$!中设置操作系统的错误信息。因此可用or die 或or warn显示给用户。
一个把所有以.old结尾的东西rename为以.new结尾的perl程序。
foreach my $file (glob "*.old") {
my $newfile = $file;
$newfile =~ s/.old$/.new/; 由于.new不是模式，所以点号不用加反斜杠。
if (-e $newfile) {
warn "can't rename $file to $newfile:$newfile exists.n";
} elsif ( rename $file, $newfile) {
} else {
warn "rename $file to $newfile failed:$!n";
}
}
链接和文件每个文件都被存在一个编了号的inode中，每个inode都包含一个称为链接计数（link count）的数字，当inode没有列在任何目录中时，链接计数总是0，也就是空，可以分配给文件。当inode被加到一个目录中时，链接计数会递增；如果此列表项被删除，链接计数会递减。目录包含.，也就是指向自已的inode，所以目录的链接计数应该总是至少为2。文件也可以不止一个列表项，如链接文件。在perl中用link "aa","bb"建立一个指向aa的链接bb。类似于在unix shell一执行"ln aa bb"。现在aa,bb都有相同的inode值，两个文件有相同的大小，相同的内容。在aa中加入一行，也会在bb中加入一行。如果意外删除了aa，数据并不会丢失，可以在bb中找回来。反之也一样。但如果两个文件都删除了，则数据就会丢失。
目录列表项中的链接规则
1、 一个给定的目录列表项中的inode号都指向同一个安装卷上的inode。这条规则保证，如果物理媒介被移到了另一台机器上，所有的目录仍和它们的文件呆在一起。这就是为什么可用rename把文件从一个目录移到另一个目录的原因，但两个目录必须在同一个文件系统（安装卷）中链接不能用于目录。
2、不能给目录起新的名字。因此目录不能用于链接。以上讨论的是硬链接，还有一个符号链接，也叫软链接，能绕过这硬连接的限制。
symlink "aa","bb";
or warn "cannot symlink aa to bb:$!";这和unix shell 中的"ln -s aa bb" 类似。
要想知道符号链接指向哪里，可以使用readlin函数。如果不是符号链接，则返回undef。
两种链接都要以用unlink删除。
建立和删除目录
mkdir函数可以在一个已有的目录中建立一个目录。返回真时表示成功。
mkdir "aaa",0755 or warn "cannot make aaa directory:$!";第二个参数是新生成目录的权限位。以0开头，这个是一个八进制值。
oct函数强制对一个字符串按八进制解释，不论前面有没有0：
删除空目录，可用rmdir函数。
rmdir glob "aa/*"; 删除aa/下所有空目录。
rmdir操作符对非空目录操作会失败。所以要先用unlink删除文件，再删除目录。
修改权限
perl中有一个chmod函数，和unix shell中的chmod完成类似功能。
chmod 0755, "aa","bb";
perl中不接受符号权限表达式方式，如+x,go=u-w等。
改变所有者
chown函数可以改变一组文件的所有者和属组。
chown 1004,100,glob "*.o";可用getpwnam把用户名翻译成一个数字，用getgrnam函数把组名翻译成一个数字。
改变时间戳
utime函数可修改文件的访问时间和修改时间。
my $now = time;
my $ago = $now -24*60*60; 每天的秒数
utime $now,$ago,glob "*"; 把访问时间设为现在，修改时间设为一天以前
第三个时间ctime的值在对文件做任何改变时，总被设为“现在”，因此没办法用utime函数来设置它。因为在你设置完后它会立即被重置为“现在”，这是因为它的主要目的就是进行增量备份：如果文件的ctime比备份磁带上的日期要新，就说明又需要备份了。
使用简单的模块
File::Basename模块 从文件名中抽取基名，取不包括路径的文件名。通过use命令声明一个模块
use File::Basename;这样，我们就有了一个basename函数。
my $name = "/usr/local/bin/perl";
my $basename = basename $name; 得到perl该函数可用于多平台，如windows。
该模块中还有一个dirname函数，它把目录名从一个完整文件名中分离出来。
有选择地使用模块中的函数当你不需要模块中的所有函数，或模块中的函数和你程序中子例程有冲突时，你可以在声明模块时给模块一个引入列表，只包括需要的函数。
use File::Basename qw /basename/; 只要basename函数，不要其它函数。
use File::Basename qw //; 不要任何函数。怎么会想要一个空列表呢？这是因为，有引入只是使得我们能使用短的简单的函数名，basename,dirname。即使不引入这些名字，我们仍可以使用，只是在没有引入时，我们要用全名来调用它，如：File::Basename::dirname。每个模块都有缺省的引入列表，查相关文档有介绍。
File::Spec模块用来处理文件规范(file specification)。它是一个OO的模块。用小箭头而不是::来引用函数。$newname = File::Spec->catfile($dirname,$basename);
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/16723161/viewspace-1016240/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
perl 中glob函数的使用
下一篇：
利用Perl解析XML文件
请登录后发表评论
登录
全部评论
