Question

这段代码按照我的预期去世：

use strict;
use warnings;

open my $fh, "<", "" or die $!;

但这不是：

use strict;
use warnings;

open my $fh, "<", undef or die $!;

这里发生了什么？

Answer 1

open函数有很多小问题，这是其中之一：

作为特殊情况，三参数形式具有读/写模式和第三个论点是＆＃34; undef＆＃34;：
open(my $tmp, "+>", undef) or die ...
打开一个匿名临时文件的文件句柄。还使用＆＃34; +＆lt;＆＃34; 适用于对称，但你真的应该考虑写一些东西首先到临时文件。你需要寻求（）去做读数。

虽然正如你在评论中指出的那样，文档强烈建议这只应该发生在＆＃34; +＆lt;＆＃34;和＆＃34;＆gt; +＆＃34;模式。我相信这是实现行为的代码。它不检查模式。我不知道这是不是一个错误，但会在与P5P交谈后报告。

PerlIO *
PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
             int imode, int perm, PerlIO *f, int narg, SV **args)
{
    if (!f && narg == 1 && *args == &PL_sv_undef) {
        if ((f = PerlIO_tmpfile())) {
            if (!layers || !*layers)
                layers = Perl_PerlIO_context_layers(aTHX_ mode);
            if (layers && *layers)
                PerlIO_apply_layers(aTHX_ f, mode, layers);
        }
    }

显然，文档是fixed in blead perl in November：

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 18bb4654e1..1e32cca6dd 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -4405,9 +4405,9 @@ argument being L<C<undef>|/undef EXPR>:

     open(my $tmp, "+>", undef) or die ...

-opens a filehandle to an anonymous temporary file.  Also using C<< +< >>
-works for symmetry, but you really should consider writing something
-to the temporary file first.  You will need to
+opens a filehandle to a newly created empty anonymous temporary file.
+(This happens under any mode, which makes C<< +> >> the only useful and
+sensible mode to use.)  You will need to
 L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> to do the reading.

 Perl is built using PerlIO by default.  Unless you've

为什么打开undef不会失败？

1 个答案: