使用翻车机不会触发故障

有效语法之一 print 是

print FILEHANDLE LIST

在您的程序中Perl正在处理 Dumper 作为一个文件句柄全局。

在启用警告的情况下运行此代码将告诉您:

print() on unopened filehandle Dumper at ...

如果你从标准样板开始,你就会知道:

#!/usr/bin/env perl
#
# name_of_program - what the program does as brief one-liner
#
# Your Name <your_email@your_host.TLA>
# Date program written/released
#################################################################

use 5.10.0;

use utf8;
use strict;
use autodie;
use warnings FATAL => "all";

#  ⚠ change to agree with your input: ↓
use open ":std" => IN    => ":encoding(ISO-8859-1)",
                   OUT   => ":utf8";
#  ⚠ change for your output: ↑ — *maybe*, but leaving as UTF-8 is sometimes better

END {close STDOUT}

our $VERSION = 1.0;

$| = 1;

答案是你的程序在语法上是正确的,但在语义上是不正确的。你在打印 "something" 未开封的 Dumper filehandle对象,因为 翻车机 在与格槽中 print 方法调用。这使得 翻车机 打印 的发票。但您从未以该名称打开句柄,因此您正在打印到未初始化的文件句柄。

用我的样板。 拜托!