Perl 中的unlink,link,symlink等，处理文件和目录（转）

Perl 中的unlink,link,symlink等，处理文件和目录（转）

在 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 一个文件的权限不依赖