perl删除文件求助

3645636

UID: 46175
帖子: 96
积分: 220
在线时间: 12 小时

1^# 3645636 发表于 2008-08-10 05:58

perl删除文件求助

rmdir (dirname);

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

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-08-10 08:03

[Copy to clipboard] [ - ]

CODE:

chomp ( my $y = <STDIN> );

3645636

UID: 46175
帖子: 96
积分: 220
在线时间: 12 小时

3^# 3645636 发表于 2008-08-10 18:40

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

Bisn

UID: 29519
帖子: 66
积分: 151
在线时间: 6 小时

4^# Bisn 发表于 2008-08-10 21:34

去换行符

yingweixu

UID: 27206
帖子: 1
积分: 2
在线时间: 10 分钟

5^# yingweixu 发表于 2008-08-11 00:35

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

wellfroggy

UID: 13273
帖子: 30
积分: 69
在线时间: 1 小时

6^# wellfroggy 发表于 2008-08-11 14:28

我来晚了……哎呀

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

7^# MMMIX 发表于 2008-08-11 20:04

QUOTE:

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

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

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

8^# MMMIX 发表于 2008-08-11 20:05

QUOTE:

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

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

9^# churchmice 发表于 2008-08-11 22:43

QUOTE:

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

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

我也很好灌水这一口

hunter_cao

UID: 43677
帖子: 151
积分: 347
在线时间: 1 天 7 小时

10^# hunter_cao 发表于 2008-08-13 09:25

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 这个目录不是个空,即便递归中的目录也是空.