by satanson

Author: satanson

paste.pl

@@ -11,10 +11,16 @@
 my @ifiles=map {open my $h, "<$_" or die "Open file '$_' error=$!";$h} @ARGV;
 
 my @contents = map{my $h=$_;[map{chomp $_;$_} <$h>]} @ifiles;
-@contents = map {[@{$_}[0..$n-1]] } map{[@$_, ($fill) x $n]} @contents;
+if ($fill eq "_") {
+ @contents = map {[@{$_}[0..$n-1]] } map{[ (@$_)x $n]} @contents;
+} else {
+ @contents = map {[@{$_}[0..$n-1]] } map{[@$_, ($fill) x $n]} @contents;
+}
 
 #print Dumper(\@contents);
-
+if ($sep eq "\\t"){
+ $sep = "\t";
+}
 for my $i (0..$n-1) {
  print join "$sep", map {$contents[$_][$i]} 0..$#contents;
  print "\n";

sr_index2.pl

@@ -118,11 +118,22 @@ ($)
  next;
  }
 
+ if (/\b(FragmentInstancePrepareTime|__MAX_OF_FragmentInstancePrepareTime):\s+(\S+)/) {
+ $plan->{$fragment}{$1}=norm_time($2);
+ $plan->{$fragment}{id}=$fragment;
+ next;
+ }
+
  if (/\b(DegreeOfParallelism|TotalDegreeOfParallelism):\s+(\d+(?:(?:\.\d+)\w+)?)/) {
  $plan->{$fragment}{pipelines}{$pipeline}{$1}=norm_num($2);
  next;
  }
 
+ if (/\b(PendingTime|__MAX_OF_PendingTime):\s+(\S+)/) {
+ $plan->{$fragment}{pipelines}{$pipeline}{$1}=norm_time($2);
+ next;
+ }
+
  if (/\b(ActiveTime|DriverTotalTime|OverheadTime|ScheduleTime|PendingTime|InputEmptyTime|FirstInputEmptyTime|FollowupInputEmptyTime|OutputFullTime|PreconditionBlockTime):\s+(\S+)/) {
  $plan->{$fragment}{pipelines}{$pipeline}{$1}=norm_time($2);
  next;