相关疑难解决方法(0)

我想在Perl脚本中获取当前文件名和行号.我该怎么做呢？

例如,在文件调用中test.pl:

my $foo = 'bar';
print 'Hello World';
print functionForFilename() . ':' . functionForLineNo();

它会输出:

Hello World
test.pl:3