From 506a2099804e08f3694c1b99c72d2b66746a40ef Mon Sep 17 00:00:00 2001
From: "T.Jerosch" <thorsten.jerosch@gmx.de>
Date: Wed, 20 May 2020 20:37:21 +0200
Subject: [PATCH] added converter

---
 convert.pl | 147 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 147 insertions(+)
 create mode 100755 convert.pl

diff --git a/convert.pl b/convert.pl
new file mode 100755
index 0000000..2fd30ce
--- /dev/null
+++ b/convert.pl
@@ -0,0 +1,147 @@
+#!/usr/bin/env perl
+
+#############
+## imports ##
+###############################################################################
+use strict;
+use warnings;
+
+
+############
+## config ##
+###############################################################################
+my $inputFilePath='./profile.log';
+my $outputFilePath='./profile.csv';
+my $csvSeparator='; ';
+
+
+##########
+## main ##
+###############################################################################
+my %table = fileToTable($inputFilePath);
+my %unifiedTable = unifyTable(%table);
+writeCsvFile(%unifiedTable);
+
+
+#################
+## subroutines ##
+###############################################################################
+
+# converts durations represented by strings to milliseconds
+# formats may look like " 2s 5ms", "5min 57s", "1min 15ms", ...
+sub parseDuration {
+  my ($unparsedDuration) = @_;
+  my @durationParts = split(/\s+/, $unparsedDuration);
+  my $milliseconds = 0;
+
+  foreach my $part(@durationParts) {
+    my $number = $part;
+    $number =~ s/\D//g; # remove all non number chars
+    my $unit = $part;
+    $unit =~ s/\d//g; # remove all number chars
+
+    if ($unit eq "min") {
+      $milliseconds += $number * 60000;
+    }
+    elsif ($unit eq "s") {
+      $milliseconds += $number * 1000;
+    }
+    elsif ($unit eq "ms") {
+      $milliseconds += $number;
+    }
+  }
+   return $milliseconds;
+}
+
+###############################################################################
+
+# read data from file and store it in hashes
+# $table{$module}{$mavenGoal} = $durationInMs
+sub fileToTable {
+  open(my $fileHandle, '<:encoding(UTF-8)', $inputFilePath)
+    or die "Could not open file '$inputFilePath' $!";
+
+  my %table;
+  my $currentPackage = 'UNKNOWN';
+  while (my $row = <$fileHandle>) {
+    $row =~ s/^\s+//; # trim leading&trailing whitespaces
+    $row =~ s/\s+\z//; # remove trailing whitespace
+    if($row eq '') { # skip empty lines
+      next;
+    }
+    elsif($row =~ m/:.*:.*(\d+ms)$/) { # skip unneeded detail-lines
+      next;
+    }
+
+    if($row =~ m/:/) { # contains colon => must be new section/package
+      my @rowParts = split(/:/, $row);
+      $currentPackage = $rowParts[0].':'.$rowParts[1];
+    }
+    else {
+      my ($taskName, $unparsedDuration) = split(/\s+/, $row, 2);
+      my $durationInMs = parseDuration($unparsedDuration);
+  
+      $table{$currentPackage}{$taskName} = $durationInMs;
+    }
+  }
+
+  return %table;
+}
+
+###############################################################################
+
+## ensure that all keys exist in all subtables by adding missing keys with value=0
+sub unifyTable {
+  my (%table) = @_;
+
+  # create set of all keys that exist in at least one block/row/subtable
+  my %usedKeys;
+  foreach my $outter (keys %table) {
+    foreach my $inner (keys %{$table{$outter}}) {
+      if (!exists($usedKeys{$inner})) {
+        $usedKeys{$inner} = 0;
+      }
+    }
+  }
+
+  # add keys if necessary
+  foreach my $hash (keys %table) {
+    foreach my $mustHaveKey (keys %usedKeys) {
+      if (!exists($table{$hash}{$mustHaveKey})) {
+        $table{$hash}{$mustHaveKey} = 0;
+      }
+    }
+  }
+
+  return %table;
+}
+
+###############################################################################
+
+# write data to csv file (basically same format as represented by the hash)
+sub writeCsvFile {
+  my (%table) = @_;
+  
+  open(my $out, '>:encoding(UTF-8)', $outputFilePath)
+    or die "Could not open file '$outputFilePath' $!";
+  
+  my $writeHeader = 1;
+  foreach my $outter (keys %table) {
+    if ($writeHeader) {
+      print {$out} "Module${csvSeparator}";
+      foreach my $inner (keys %{$table{$outter}}) {
+        print {$out} $inner."${csvSeparator}";
+      }
+      print {$out} "\n";
+      $writeHeader = 0;
+    }
+
+    print {$out} $outter."${csvSeparator}";
+    foreach my $inner (keys %{$table{$outter}}) {
+      print {$out} $table{$outter}{$inner}."${csvSeparator}";
+    }
+    print {$out} "\n";
+  }
+
+  close $out;
+}