Shell Programming and Scripting

LINE=0

while read LINE
do
        # LINE2 is LINE with all "," stripped out
        LINE2="${LINE//,/}"
        # Length with ,
        LEN1="${#LINE}"
        # Length with , stripped out
        LEN2="${#LINE2}"
        echo "Line $((LINE++)) has $((LEN1-LEN2)) seperators"
done < inputfile

awk -F , '{print "line " NR " has " NF-1 " seperator(s)"}' infile

#!/usr/local/bin/perl

use strict;
use warnings;

open (FILE, "<infile") or die $!;

while (<FILE>) {
    print "Line $. has ",  $_ =~ tr/,//, " delimiters\n";
}
close FILE;

perl -lne 'print "Line $. has ",  $_ =~ tr/,//, " delimiters"' infile

 
awk -F , '{if (NF < 3 ) print "line " NR " has " NF-1 " seperator(s)";}' infile