2011-03-13T06:59:52 FIFO

Noch einfacher:

Code (perl): (dl )

1
2
3

sub howmany {
    return scalar(() = $_[0] =~ /(?:[^,]+)/g);
}

Das nehm ich.
Danke an alle!