From 03d827e2fbc409ef97829f25b8eeca5204f81a3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 12 Jul 2021 13:24:49 +0200
Subject: Re-organize files

---
 etc/child | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 etc/child

(limited to 'etc/child')

diff --git a/etc/child b/etc/child
new file mode 100755
index 0000000..32dab60
--- /dev/null
+++ b/etc/child
@@ -0,0 +1,27 @@
+#!/bin/sh
+
+# child -- print pid of youngest grandchild
+
+opt=
+for x in "$@"; do
+	case "$x" in
+	-*) opt="$opt $x"; shift ;;
+	*) ;;
+	esac
+done
+
+[ $# -ne 1 ] && { echo usage: $0 [-?] pid 1>&2; exit 1; }
+
+ps -do pid,etime,comm -k etime $opt |
+pid=$1 perl -lane '
+	if (/^ *$ENV{pid} / .. 1) {
+		next if /^ *$ENV{pid} /;
+		last if not /[|`-]/;
+		$t = 0; $i = 0;
+		$t += $_*(60**$i++) for reverse split /:/, $F[1];
+		print "$t $_" if $t > 2;
+	}
+' |
+sort -n |
+head -1 |
+cut -d\  -f2
-- 
cgit v1.2.3