perl - 如何获得 __LINE__ 调用函数？

Question

基本上，我的问题是 this除了 perl 而不是 PHP。

我知道warn() 管理它，但是warn() 是核心perl，所以我理解它是否通常不可能。

附录(以防链接最终失败)

有一个功能

sub logm
{
  my ($msg, $line_no) = @_;
  # ... 
}

我想包括 __LINE__ (和 __FILE__，但这不是必需的)，但不想像我目前所做的那样每次都将其作为参数包含在内。

# This is attrocious
logm "That file handle is now closed", __LINE__;

Answer 1

查询 caller 功能，

sub logm {
  my ($msg) = @_;
  my ($package, $filename, $line) = caller;

  print "'$msg' from file:$filename; line:$line\n";
}

logm("message");