我正在尝试为 的服务器生成调用图文档 目的。 不是 对于任何类型的分析。
我生成了输出:
sudo valgrind --tool=callgrind --dump-instr=yes /opt/ats-trunk/bin/traffic_server
并转换为:http://code.google.com/p/jrfonseca/wiki/Gprof2Dot到 .dot 文件,但这包含太多信息,无法用作文档。
我想过滤掉对 libc、libstdc++、libtcl、libhwloc 等库的调用。
n.b.:我一直试图找出无用的库,但这充其量似乎很麻烦且不完整。
非常感谢您提前回答。
最佳答案
在这里震耳欲聋的沉默之后,实际上我问到了所有地方,我转向了 valgrind-users@ML。这是线程:
http://sourceforge.net/mailarchive/forum.php?thread_name=e847e3a9-0d10-4c5e-929f-51258ecf9dfc%40iris&forum_name=valgrind-users
Josef 的回复非常有帮助,并且凭借 #perl 的极大耐心,我编写了一个脚本来帮助我过滤掉调用图中不需要的库。
该脚本依赖于告诉 callgrind 更加冗长:
valgrind --tool=callgrind --dump-instr=yes --compress-pos=no \
--compress-strings=no /opt/ats-trunk/bin/traffic_server
这样它将产生字符串而不是引用数字,使其更容易解析:
#!/usr/bin/perl
use Modern::Perl;
require File::Temp;
my $cob = qr{^cob=/(?:usr/)?lib};
my $ob = qr{^ob=/(?:usr/)?lib/};
my $calls = qr{^calls=};
open (my $fh, '<', $ARGV[0]) or die $!;
my $tmp = File::Temp->new(UNLINK => 1);
## Skip all external libraries, as defined by $ob
while (readline $fh) {
if (/$ob/ ) {
# skip the entire ob= section we don't need.
0 while defined($_ = readline $fh) && !/^ob=/;
# put the last line back, we read too far
seek($fh, -length($_), 1);
} else {
print $tmp $_;
}
}
close ($fh);
## Skip all calls to external libraries, as defined by $cob
my $tmpname = $tmp->filename;
open ($tmp, '<', $tmpname) or die $!;
while (readline $tmp) {
if (/$cob/) {
# skip until we find a line starting with calls=
# skip that line too
0 while defined($_ = readline $tmp) && !/$calls/;
# then we skip until we either hit ^word= or an empty line.
# In other words: skip all lines that start with 0x
0 while defined($_ = readline $tmp) && /^0x/;
# put the last line back, we read too far
seek($tmp, -length($_), 1);
} else {
print;
}
}
关于从 valgrind 的 callgrind 输出过滤对 libc 的调用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7761448/