diff options
Diffstat (limited to 'child')
-rwxr-xr-x | child | 27 |
1 files changed, 0 insertions, 27 deletions
@@ -1,27 +0,0 @@ -#!/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 |