in reply to Delimited File Analysis One-Liner?

perl -lne 'print $t = do{ /,/; $l = $-[0] } <= $t ? next : $l'

Efficient? - Yes.
Sexier? - Not really.

Replies are listed 'Best First'.
Re^2: Delimited File Analysis One-Liner?
by Anonymous Monk on May 02, 2012 at 08:40 UTC
    A faster way:

    perl -lne 'print $t = $l if ($l=index $_,q{,}) > $t' file.csv
[reply]
[d/l]

In Section Seekers of Perl Wisdom