Question

perl如何实现C语言中宏的功能？

我想实现在打印输出信息前输入文件名（__FILE__)和行号（__LINE__)，望大神指点

Answer 1

可以直接使用，例：
print "FILE: ", __FILE__, " Line: ", __LINE__, "\n";

参见perldoc perldata
The special literals __FILE__, __LINE__, and __PACKAGE__ represent the current filename, line number, and package name at that point in your program.

追问

首先谢谢你的解答，这种方案我知道，不过比较繁琐，在每次打印日志输出的时候每次都要输入这些内容print __FILE__,__LINE__，$msginfo,"\n"; 我是想实现像C语言宏一样的功能：eg
#define LOG __FILE__,__LINE__
然后在代码需要打印日志的地方就使用 print LOG, $msginfo,"\n";这样的方式，不知道是否可行？

追答

可以考虑自定义一个函数，在里面使用caller关键字。

caller  Returns the context of the current subroutine call.

                   # 0         1          2

                   ($package, $filename, $line) = caller;

#!/usr/bin/perl
use strict;
use warnings;

my $Debug_Flag = 1;

sub logmsg {
    return if (!$Debug_Flag);
    my $msg = shift;
    my ($package, $file, $line) = (caller)[0,1,2];
    my $timestring = "";   # 生成当前时间

    print "PACKAGE: $package, FILE: $file, LINE: $line\n";
    print "TIME; $timestring\n";
    print "$msg\n";
}


&logmsg("I'm line 19 in file test.pl");

Answer 2

print __LINE__, __FILE__;一样的方式也是可行的