perl - 为什么错误消息不同？

Question

我有两个程序:

#line 1 "DB::eval"
234asd

perl < tmp.pl
Bareword found where operator expected at DB::eval line 1, near "234asd"
    (Missing operator before asd?)
syntax error at DB::eval line 2, near "234asd
"
Execution of - aborted due to compilation errors.

第二个:

$str =  <<CODE;
#line 1 "DB::eval"
234asd
CODE
eval $str;
print $@;

perl < tmp.pl
Bareword found where operator expected at DB::eval line 1, near "#line 1 "DB::eval"
234asd"
    (Missing operator before asd?)
syntax error at DB::eval line 2, near "#line 1 "DB::eval"
234asd

"

为什么在第二种情况下我在错误消息中得到了额外的文本:#line 1 "DB::eval"？我没想到。

同样在第二种情况下，我不希望有额外的新行。我希望:

234asd
"

代替:

234asd

"

Answer 1

我不会将其称为错误，只是依赖于实现的行为。

第二个 heredoc 变体只包含更多上下文。 没有人保证 heredoc 的评估与直接脚本的行为相同。

p5p 同意我的看法，Zefram 没有将其称为错误，而 SawyerX 拒绝了它。