Shell Programming and Scripting

#!/usr/local/bin/perl

use strict;
use warnings;

my $count = 0;

open (FILE, "<file.1") or die $!;

while (my $line = <FILE>) {
    my $linecount = $line =~ tr/|//;
    print $linecount, " > ", $line;
    $count += $linecount;
}
close FILE;

print "Total = $count\n";

1|2|3|4|5|6
one|two|three

5 > 1|2|3|4|5|6
2 > one|two|three
Total = 7

awk '{t+=NF}END{print t-NR}' file*

awk '{t+=NF-1}END{print t}' file*

for file in file*; do awk -F'|' 'NF{x+=NF-1;print FILENAME, "LINE #" NR,"delimiter=" NF-1}END{print FILENAME, "Total delimiter:"x}' $file;done > outfile

Row  DelimiterCount
1      5
2     7
.
.
100  7

nawk '{print FNR,NF-1}' infile

nawk  -F  "|" '{print FNR,NF-1}' infile

head -1 | nawk  -F  "|" '{print FNR,NF-1}' infile

Row DelimiterCount
1    6