UNIX for Dummies Questions & Answers

echo "a.txt,b.txt,abacd"|tr ',' '\n'|wc -l
3

$
$
$ echo "a.txt,b.txt,abacd" | perl -lne 's/[^,]//g && print length($_)+1'
3
$
$ echo "a.txt,b.txt,abacd" | perl -lne '$_.=","; print s/,//g'
3
$
$ echo "a.txt,b.txt,abacd" | awk '{$0=$0","; print gsub(",",x)}'
3
$
$ # and Perl equivalent of Franklin52's awk script ;)
$ echo "a.txt,b.txt,abacd" | perl -F, -plane '$_=$#F+1'
3
$
$

awk -F, '{print NF}' file

awk -F, '{print NF-1}' file