perl - 使用 Data::Dumper 结果发出警告时如何获取行号？

Question

warn在以下两种情况下表现不同：

#! /usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

warn "string";
warn Dumper("string");

第一个打印：

string at dumper.pl line 6.

第二个打印件只是：

$VAR1 = 'string';

没有任何行号。

使用 Dumper 结果发出警告时如何获取行号？

Answer 1

产生差异的原因是字符串以新行结尾。

warn "test";
warn "test\n";

来自的输出Dumper包括换行符，所以最后连接任何东西都会做到这一点。

或者只是明确引用__LINE__：

warn Dumper ("error") . "at line:" .__LINE__."\n";

（见perldoc warn）

Answer 2

只需在 Dumper 调用后连接一个字符串：

warn Dumper("string").' ';

产量

$VAR1 = 'string';
  at /tmp/execpad-a668561a2ac4/source-a668561a2ac4 line 7.

在eval.in。

Answer 3

请参阅该warn函数的文档：

$ perldoc -f warn

warn LIST
        Prints the value of LIST to STDERR. If the last element of LIST
        does not end in a newline, it appends the same file/line number
        text as "die" does.

        (... and much more information that is worth reading ...)

在您的情况下，输出Dumper()以换行符结尾，因此不打印文件/行号。