1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#!/usr/bin/perl -w
#
# stackcollapse-vsprof.pl
#
# Parses the CSV file containing a call tree from a visual studio profiler and produces an output suitable for flamegraph.pl.
#
# USAGE: perl stackcollapse-vsprof.pl infile > outfile
#
# WORKFLOW:
#
# This example assumes you have visual studio 2015 installed.
#
# 1. Profile C++ your application using visual studio
# 2. On visual studio, choose export the call tree as csv
# 3. Generate a flamegraph: perl stackcollapse-vsprof CallTreeSummary.csv | perl flamegraph.pl > result_vsprof.svg
#
# INPUT EXAMPLE :
#
# Level,Function Name,Inclusive Samples,Exclusive Samples,Inclusive Samples %,Exclusive Samples %,Module Name,
# 1,"main","8,735",0,100.00,0.00,"an_executable.exe",
# 2,"testing::UnitTest::Run","8,735",0,100.00,0.00,"an_executable.exe",
# 3,"boost::trim_end_iter_select<std::iterator<std::val<std::types<char> > >,boost::is_classifiedF>",306,16,3.50,0.18,"an_executable.exe",
#
# OUTPUT EXAMPLE :
#
# main;testing::UnitTest::Run;boost::trim_end_iter_select<std::iterator<std::val<std::types<char>>>,boost::is_classifiedF> 306
use strict;
sub massage_function_names;
sub parse_integer;
sub print_stack_trace;
# data initialization
my @stack = ();
my $line_number = 0;
my $previous_samples = 0;
my $num_args = $#ARGV + 1;
if ($num_args != 1) {
print "$ARGV[0]\n";
print "Usage : stackcollapse-vsprof.pl <in.cvs> > out.txt\n";
exit;
}
my $input_csv_file = $ARGV[0];
my $line_parser_rx = qr{
^\s*(\d+?), # level in the stack
("[^"]+" | [^,]+), # function name (beware of spaces)
("[^"]+" | [^,]+), # number of samples (beware of locale number formatting)
}ox;
open(my $fh, '<', $input_csv_file) or die "Can't read file '$input_csv_file' [$!]\n";
while (my $current_line = <$fh>){
$line_number = $line_number + 1;
# to discard first line which typically contains headers
next if $line_number == 1;
next if $current_line =~ /^\s*$/o;
($current_line =~ $line_parser_rx) or die "Error in regular expression at line $line_number : $current_line\n";
my $level = int $1;
my $function = massage_function_names($2);
my $samples = parse_integer($3);
my $stack_len = @stack;
#print "[DEBUG] $line_number : $level $function $samples $stack_len\n";
next if not $level;
($level <= $stack_len + 1) or die "Error in stack at line $line_number : $current_line\n";
if ($level <= $stack_len) {
print_stack_trace(\@stack, $previous_samples);
my $to_remove = $level - $stack_len - 1;
splice(@stack, $to_remove);
}
$stack_len < 1000 or die "Stack overflow at line $line_number";
push(@stack, $function);
$previous_samples = $samples;
}
print_stack_trace(\@stack, $previous_samples);
sub massage_function_names {
return ($_[0] =~ s/\s*|^"|"$//gro);
}
sub parse_integer {
return int ($_[0] =~ s/[., ]|^"|"$//gro);
}
sub print_stack_trace {
my ($stack_ref, $sample) = @_;
my $stack_trace = join(";", @$stack_ref);
print "$stack_trace $sample\n";
}
|
