perl 调用rm -rf 递归删除指定文件夹，提示 can not remove: not empty 原因

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/u012369580/article/details/54612504

my $dir = "/root/syn/Design/test.txt";

open $fh_dir, "> $dir " or die"$!";

chdir "/root/syn/" or die "$!";

system "rm -rf Design";

句柄锁定了该目录，因此perl不会再允许对该目录进行删除，避免引起冲突

my $dir = "/root/syn/Design/test.txt";

#open $fh_dir, "> $dir " or die"$!";

chdir "/root/syn/" or die "$!";

system "rm -rf Design";

注释掉，open之后，报错解决

如果有朋友遇到，算是一个提醒吧，