select aggregate login group by shell from /etc/passed

perl -F: -lane 'END{print $_,q( => ), join q(, ), @{$sh{$_}} for keys %sh} push @{$sh{$F[6]}},$F[0]' /etc/passwd

Posted via email from purl's posterous