perl删除文件求助

3645636

rmdir (dirname);

删除空目录函数，dirname为目录名。
$y= <stdin>;
rmdir ($y);

这样为什么不行，目录下有一个fff文件夹，如果这段程式这样写的话就可以:rmdir (fff);   
如果写成这样$y= <stdin>;rmdir ($y);却不行，当输入的时候，我输入fff,可目录的fff文件夹还在。怎么回事！

churchmice

1. 
   
2. chomp ( my $y = <STDIN> );
   

复制代码

3645636

楼上的语句是什么意思，能解释一下吗

Bisn

去换行符

yingweixu

我觉得有几个地方注意一下：
1.输入的时候可能带入键盘的回车键！所以用chomp($y)可以解决；
2.你是否有权限去删除；
3.你的目录路径呢？是否要用chdir来解决；
建议：你可以在这样写就知道是否删除了：rmdir（$y）||die "can't remove the dir\n";

wellfroggy

我来晚了……哎呀

MMMIX

原帖由 3645636 于 2008-8-10 18:40 发表
楼上的语句是什么意思，能解释一下吗

碰到问题多看文档吧，例如 perldoc -f chomp

MMMIX

原帖由 wellfroggy 于 2008-8-11 14:28 发表
我来晚了……哎呀

于是你无论如何都要灌一瓢？

churchmice

原帖由 MMMIX 于 2008-8-11 20:05 发表

于是你无论如何都要灌一瓢？

我也很好灌水这一口

hunter_cao

rmdir FILENAME
       rmdir   Deletes the directory specified by FILENAME if that directory
               is empty.  If it succeeds it returns true, otherwise it returns
               false and sets $! (errno).  If FILENAME is omitted, uses $_.


1. Deletes the directory specified by FILENAME if that directory is empty. 强调的是空目录
2. die $! ; #not empty 这个目录不是个空,即便递归中的目录也是空.