Who is writing?

gistfile1.py

#!/usr/bin/env python

import subprocess
import re

WP = re.compile(r' +')

def lsof():
	p = subprocess.Popen(['lsof', '/'], stdout=subprocess.PIPE)
	headers = WP.split(p.stdout.readline()) # headers
	sizes = [len(a) for a in headers]
	r = []
	for line in p.stdout:
		values = WP.split(line[:-1])
		if values[4] == 'REG' and values[3].endswith('w'):
			for i, value in enumerate(values):
				sizes[i] = max(sizes[i], len(value))
			values[6] = int(values[6])
			r.append(values)
	r.sort(lambda a, b: cmp(a[6], b[6]))
	return headers, sizes, r

headers, sizes, lines = lsof()
for values in [headers] + lines:
	print(' '.join([str(value).rjust(sizes[i]) for i, value in enumerate(values)]))

Did you mean :

lsof / |perl -ane '$s{$F[8]}=$F[6] if $F[4] eq 'REG' and $F[3]=~/w$/; END{ printf "%9d %s\n",$s{$_},$_ foreach sort{$s{$b}-$s{$a}} keys %s }'

:)

A compiler python to perl none liner can be useful.