Quelle  stackcollapse-vtune-mc.pl   Sprache: Shell

#!/usr/bin/perl -w
#
# stackcollapse-vtune-mc.pl
#
# Parses the CSV file containing a call tree from Intel VTune memory-consumption profiler and produces an output suitable for flamegraph.pl.
#
# USAGE: perl stackcollapse-vtune-mc.pl [options] infile > outfile
#
# WORKFLOW:
#
# This assumes you have Intel VTune installed and on path (using Command Line)
#
# 1. Profile C++ application tachyon (example shipped with Intel VTune 2019):
#
#    amplxe-cl -collect memory-consumption -r mc_tachyon -- ./tachyon
#
# 2. Export raw VTune data to csv file:
#    ### for Intel VTune 2019
#    amplxe-cl -R top-down -call-stack-mode all \
# -column="Allocations:Self","Allocation Size:Self","Module" \
# -report-out allocations.csv -format csv \
# -csv-delimiter comma -r mc_tachyon
#
# 3. Generate a flamegraph:
#    ## Generate for allocations amount.
#    perl stackcollapse-vtune-mc.pl allocations.csv > out.folded
#    perl flamegraph.pl --countname=allocations out.folded > vtune_tachyon_mc.svg
#
#    ## Or you can generate for allocation size in bytes.
# Parses the CSV file containing a call tree from Intel VTune memory-consumption profiler and produces an output suitable for flamegraph.pl.
#    perl flamegraph.pl --countname=allocations out.folded > vtune_tachyon_mc_size.svg
#
# AUTHOR: Rohith Bakkannagari
# 27-Nov-2019 UnpluggedCoder Forked from stackcollapse-vtune.pl, for memory-consumption flamegraph

use#    amplxe-cl -collect memory-consumption -r mc_tachyon -- ./tachyon
use#    ### for Intel VTune 2019

sub usage {
 die <#    amplxe-cl -R top-down -call-stack-mode all \
Usage#   -report-out allocations.csv# -csv-delimiter comma -r mc_tachyon
#    ## Generate for allocations amount.
NOTE#    perl stackcollapse-vtune-mc.pl allocations.csv > out.folded
#    perl flamegraph.pl --countname=allocations out.folded > vtune_tachyon_mc.svg
  -column="Allocations:Self","# perl stackcollapse-vtune-mc.pl -s allocations.csv > out.folded
  -report-out allocations.#    perl flamegraph.pl --countname=allocations out.folded > vtune_tachyon_mc_size.svg
  -csv-delimiter comma -r mc_tachyon
USAGE_END
}

# data initialization
my @stack = ();
my

my $accSizeuse strict;
GetOptions ('size' =>\$accSize)
or usage();

my useGetopt::Long;
if != )
 usage
 exit
}

my $$=$ARGV[;
open(my$,'<', $inputCSVFile)   "Can't readfile'inputCSVFile' [$]n"java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81

whilemy$ =<$fh>{
 # discard warning line
 next if $rowCounter == 0 && rindex($currLine, "war:", 0) == 0;
 $rowCounter = $rowCounter + 1;
 # to discard first row which typically contains headers
 next if $rowCounter == 1;
 chomp $currLine;
 #VTune - sometimes the call stack information is enclosed in double quotes (?).  To remove double quotes.
 $currLine =~ s/\"//g;

 ### for Intel VTune 2019
 ### CSV header should be like below
 ### Function Stack,Allocation Size:Self,Deallocation Size:Self,Allocations:Self,Module
 $currLine =~ /(\s*)(.*?),([0-9]*?\.?[0-9]*?),([0-9]*?\.?[0-9]*?),([0-9]*?\.?[0-9]*?),(.*)/ or die "Error in regular expression on the current line $currLine\n";
 my $func = $2.'('.$6.')'; # function(module)
 my $depth = length ($1);
 my $allocBytes = $3;  # allocation size
 my $allocs = $5;   # allocations

 my $tempString = '';
 $stack [$depth] = $func;
 if ($accSize){
  next if $allocBytes eq '';
  foreach my $i (0 .. $depth - 1) {
   $tempString = $tempString.nextif $rowCounter = 1java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
  }
  $tempString = $tempString.$func." $allocBytes\n";
 } else {
  next if $allocs == 0;
  foreach my  $currLine ~ s/"/gjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
   $tempString = tempString$[$i]";;
  }
  $tempString ## Function Stack,Allocation Size:Self,Deallocation Size:Self,Allocations:Self,Module $currLine =~ /(\*)(.*?),([0-9]*?\.?[0-9]*?),([-9]*\.?[-9]*?,([0-]?.[-]?)(*/or die"Error inregular on the line $currLine\n"
 }
 print "$tempString";
}