Chaturaphut · August 29, 2015 14:23 · May 4, 2014
diff --git a/gistfile1.pl b/gistfile1.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+unless (scalar @ARGV == 1) {
+    die "Parameter needed, please pass ctid as parameter";
+}
+
+my $ctid = $ARGV[0];
+
+sub get_ctid {
+    my $pid = shift;
+
+    open  my $fl, "<", "/proc/$pid/status" or return 0;
+
+    while(<$fl>)  {
+        if (/TaskUB:\s*(\d+)/i) {
+            return $1;
+        }
+
+    }
+
+    # it's host system
+    return 0;
+}
+
+my @all_processes = `ps aux`;
+chomp @all_processes;
+
+for my $process_raw (@all_processes) {
+    my (undef, $pid) = split /\s+/, $process_raw;
+
+    if (get_ctid($pid) == $ctid) {
+        print $process_raw, "\n";
+    }
+
+}