请教：Perl 中是否能实现C++的宏替换

jake20032004

想找到一个和C++中的宏替换一样Perl代码。

比如C++中： #define PP(x) cout<<#x<<"="<<##x<<" at "<<__FILE__<<":"<<__LINE__<<endl;
想知道如果用Perl来实现怎么搞？

备注：想做一个打印出错信息的函数，需要标记出错的文件位置，每次都写雷同的东西，想找个方法替代下
print "Error: failed to ** at", __FILE__, ":", __LINE__, "\n";

DQP

source filter
为啥一定要替换代码呢　直接设个函数不好么

jake20032004

能具体点么？

我学Perl还在初级阶段。

只是知道C++可以这么玩，不知道Perl中怎么搞才能达到这样的目的

DQP

实现相通的功能：
sub pp{
    printf "Error: failed to %s at %s: %s\n", join('', @_), __FILE__, (caller())[-1];
｝

jake20032004

多谢，验证了一下，，__LINE__的处理和想实现的是一致的，__FILE__还需要处理下。

貌似关键地方在：caller()，剩余的我自己搞了。

多谢！

jake20032004

原帖由 jake20032004 于 2010-1-20 17:28 发表
多谢，验证了一下，，__LINE__的处理和想实现的是一致的，__FILE__还需要处理下。

貌似关键地方在：caller()，剩余的我自己搞了。

多谢！

调了一下：
sub pp
{
    foreach (caller)
    {
        print "-->", $_, "\n";
    }
}

第一输出为调用的函数
第二输出为调用的文件
第三输出为调用的行数

多谢!