open 以写方式打开文件失败: "file not found" ?

bequan

Learning Perl书上讲Fatal error with die时用的例子如下：
if ( ! open LOG, ">>logfile") {
    die "Cannot create logfile: $!";
}
其中讲到open失败的原因之一是文件不存在(perhaps “permission denied” or “file not found,” in this case)。但通过实际运行代码发现以output方式打开文件，结果总是成功的，Learning perl本身也讲如果以写方式打开文件，当文件不存在时会创建文件。那么除非文件系统本身的错误，以上的例子是永远成功的。所以，要得到文件不存在而导致打开文件失败，只能以读方式打开文件。

是我写的代码有错？还是书里举的例子有错？

[ 本帖最后由 bequan 于 2009-12-19 10:20 编辑 ]

wtuter

还有如果用户没有打开文件的权限时也会报错吧!@!!

兰花仙子

1. 权限问题
2. 文件系统自身问题
3. 。。。

bequan

可能是我没说清楚问题吧，我是说以写方式打开文件，不会因为“文件不存在”而导致打开文件的错误

if ( ! open LOG, ">>logfile") {
    die "Cannot create logfile: $!";
}

因为以写方式打开文件，如果文件不存在，那么就会创建该文件，怎么会得到“file not found”的错误呢？

[ 本帖最后由 bequan 于 2009-12-19 12:50 编辑 ]

dugu072_cu

不是大家没看清楚你的问题，是你看不懂大家的回复...
没有权限，你如何创建文件？

bequan

如果没有权限创建文件，那得到的错误也应该是"permission denied"吧？难道因为没有权限创建文件而导致的文件不存在，也给出“file not found"错误提示？

flw

to 楼主：
用 +>>，不是 >>

dugu072_cu

+>> 相比 >> 也就增加了个读吧，没看到lz有这需求啊？
to lz：
“如果没有权限创建文件，那得到的错误也应该是"permission denied"吧？”
——这个没错，windows XP 上看了下， $!内容就是:  Permission denied，难道lz的OS返回的 file not found...

bequan

原帖由 dugu072_cu 于 2009-12-19 17:13 发表
+>> 相比 >> 也就增加了个读吧，没看到lz有这需求啊？
to lz：
“如果没有权限创建文件，那得到的错误也应该是"permission denied"吧？”
——这个没错，windows XP 上看了下， $!内容就是:  Permission den ...

再次因为我没清楚地说明问题而抱歉，我的问题是这样的：
1. 在Learning Perl书的第五章里(英文版，P87)，作者讲Open函数时，举了一个例子：
if ( ! open LOG, ">>logfile") {
    die "Cannot create logfile: $!";
}

对于这个例子，作者是这样说的：In general, when the system refuses to do something we’ve requested (like opening a file), $! will give you a reason (perhaps “permission denied” or “file not found,” in this case). 也就是说当用Open打开一个文件时，可能得到“没有权限”或“文件不存在”的错误提示。

2. 实际上，以写方式打开文件，不会因为“文件不存在”而导致打开文件的错误，因为以写方式打开文件，如果文件不存在，那么就会创建该文件，怎么会得到“file not found”的错误呢？

所以，我认为作者这里的说法是有问题的，实际情况是：当用Open以写方式打开文件时，不会得到”file not found”的错误提示。

dugu072_cu

这个也不能这么说，文件不存在，就会创建，但不一定会创建成功，这个不成功，不一定就是权限问题吧？也许分区满、坏道、等等都有可能无法创建，这些原因，甚至有可能出现某种未知的异常，这时 $! 也许没法给出一个确认的原因，用一个 file not found ，一个比较广义的原因，也不为错吧～