【在线求助】删除非空目录，我这个问题在哪里？

flysky_coool

1. 
   
2. sub remove_dirs
   
3. {
   
4.   if ( @_ ne "")
   
5.   {
   
6.     foreach ( @_ )
   
7.     {
   
8.       if ( `ls $_ | wc -l` == 0)
   
9.       {
   
10.         rmdir $_;
    
11.       }
    
12.       else
    
13.       {
    
14.         print "There are some files in $_ directory, Are you sure to remove? [Y/N]: ";
    
15.         chomp(my $key = <STDIN>);
    
16.         system ("rm -r $_") if ($key eq "Y" or "y");
    
17.       }
    
18.     }
    
19.   }
    
20. }
    

复制代码

删除包含文件的目录，我输入N，为什么也删掉了？
      无文件的目录，删除正常

q1208c

flysky_coool 发表于 2014-03-08 16:34

1. system ("rm -r $_") if ($key eq "Y" or "y");

复制代码

你有没有看过这句, 你的条件永远为"真" 的. 所以, 这句一定会执行的.
下面的写法或许是正确的, 我没测试过.

1. system ("rm -r $_") if ($key eq "Y" or $key eq "y");

复制代码

flysky_coool

回复 2# q1208c


    我去 。还真是这个错。。。我原以为可以那样写的。。。QQQ啦