View difference between Paste ID: 2hV8TDtq and kHMskZbi

-#!/usr/bin/env perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;
 use File::Basename 'basename';
 
 sub get_cmds_shell_history()
 {
-        # Call bash interactive mode and call history built-in
+    # Call bash interactive mode and call history bash built-in
-        my $get_cmds =
+    my $get_cmds =
-                qq/$ENV{'SHELL'} -i -c "history -r; history"/
+        qq/$ENV{'SHELL'} -i -c "history -r; history"/
-                .  q/ | awk '{ print $2 }'/
+        . q/ | awk '{for (i=2; i<NF; i++) printf $i " "; print $NF}'/;
-                .  q/ | awk -F\| '{ print $1 }'/; # Choice first pipe command
+
     chomp(my @cmds = qx# $get_cmds #);
-        chomp(my @cmds = qx# $get_cmds #);
+
     my @cmds_separated;
-        return @cmds ? @cmds : undef;
+
     for (@cmds)
     {
-my %cmds_grouped = ();
+        m/\||\|\||&&/ ?
             push @cmds_separated,                 # Considers to count
                 map { my ($cmd) = split; {$cmd} } # commands between
-        for (get_cmds_shell_history);
+                    split m/\||\|\||&&/,          # |, || and &&
             :
             push @cmds_separated, (split / /,$_)[0];
-printf("% 8d %s\n", $cmds_grouped{$_}, $_)
+    }
-         for sort { $cmds_grouped{$b} <=> $cmds_grouped{$a} }
+
-                 keys %cmds_grouped;
+    return @cmds_separated ? @cmds_separated : undef;
 }
 
 my %cmds_grouped;
 
 (m|/|) ? $cmds_grouped{ basename($_) }++ : $cmds_grouped{$_}++
     for (get_cmds_shell_history);
 
 # Popularity sorted decrease order
 # Format output with indented numbers
 printf("% 8d %s\n", $cmds_grouped{$_}, $_)
     for sort { $cmds_grouped{$b} <=> $cmds_grouped{$a} }
         keys %cmds_grouped;