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

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之后，报错解决

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