- 论坛徽章:
- 0
|
回复 9# jason680
删除文件
在 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";
如果想知道那个文件被删除,可用循环,一次删除一个文件。
foreach my $file (qw/aa,bb,cc/) {
unlink $file or warn "failed on $file!";
}
一个很少人知道的有关 unix 的事实。如果你有一个文件,你对它不能读,不能写,不能执 行,甚至文件可能并不属于你,但你仍然可以删除它。这是因为 unlink 一个文件的权限不依赖于文件本身的权限位,起作用的其实是包含这个文件的目录的权限位。只要目录是可写的,就可以删除该目录中不属于 自已的文件。在 unix 中可以通过设置 sticky bit 解这个问题,以保护可写目录。
|
|