Perl的Carp模块是否有C等价物?

前端之家收集整理的这篇文章主要介绍了Perl的Carp模块是否有C等价物?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
在我用C完成的一些项目中,我喜欢使用以下宏,它们的工作方式类似于Perl的warn和die子程序:
#include <stdio.h>
#include <stdlib.h>

#define warn(...) \
    fprintf(stderr,__VA_ARGS__); \
    fprintf(stderr," at %s line %d\n",__FILE__,__LINE__)

#define die(...) \
    warn(__VA_ARGS__); \
    exit(0xFF)

Carp开始,像Perl的鲤鱼,呱呱叫,咯咯和忏悔子程序一样存在吗?我想从用户角度报告错误.

如果没有,我知道glibc中有backtrace()和backtrace_symbols()函数,它们与-rdynamic gcc选项一起可以为我提供函数名和代码地址的回溯.但我想要一些更好的东西;可以访问调用堆栈中的文件,行和函数名称,如Perl的调用者子例程.我可以编写自己的libcarp用于我的c程序.

编辑:2009-10-19

我正在考虑在basename(argv [0])上创建使用gdb的东西,然后处理堆栈跟踪以生成我想要的不同类型的消息.它应该能够确定我是不是在可调试的可执行文件中,还是没有gdb的系统,在这种情况下,carp和cluck将变成警告并且Craok和confess将会死亡.

我之前从未使用过这样的gdb(我只在开始时用我的程序运行它,而不是在它已经运行时).但我发现glib中的一些函数(g_on_error_stack_trace和stack_trace)看起来非常接近我想要做的事情:它使用参数basename(argv [0])和进程id分配gdb进程,然后写入其stdin(已被重定向到管道)命令“backtrace”后跟“退出”.然后它从结果中读取并按照它喜欢的方式解析它.这几乎就是我需要做的.

解决方法

好吧,我从未试图显示调用堆栈,但对于我的程序,我曾经做过以下操作.

首先,我定义了一个执行实际日志记录的函数.这只是一个例子;请注意,此功能是非常不安全的(缓冲区溢出任何人?)

void strLog(char *file,char *function,int line,char *fmt,...)
{
     char buf[1024];
     va_list args;

     va_start(args,fmt);
     vsprintf(buf,fmt,args);
     va_end(args);

     fprintf(stderr,"%s:%s:%d:%s\n",file,function,line,buf);
}

但是,这不太实用.可行的是使用宏来调用函数.

#define die( ... ) \
        strLog( __FILE__,__PRETTY_FUNCTION__,\
        __LINE__,__VA_ARGS__ )

然后你可以像printf()一样调用.

if (answer == 42) die("Oh,%d of course.",answer);

你会得到这样的东西:

main.c:10:somefunc: Oh,42 of course.

好吧,没有回溯,但有些东西.

原文链接:https://www.f2er.com/Perl/171832.html

猜你在找的Perl相关文章