http://qs321.pair.com?node_id=202197


in reply to Re: Schwartzian Transform as a module?
in thread Schwartzian Transform as a module?

sub ST(&@){ my $metric=shift; map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_,&{$metric}]} @_ } print ST{sprintf"%9d%9d%s",(split/:/)[3,2,0]} qx(cat /etc/passwd);