count number of commas in a txt file ?

[rab54]

hi gurus -

What is a quick way to do this .... ?

cheers#

Rab

 

[PaulTEG]

$/=undef;
open FH, "<myfile.txt";
$commaline=<FH>;
close FH;
@array= split (/\,/, $commaline);
$count= $#array;
print "$count commas in file";

 

[aigles]

Another way :

$/=undef;
open FH, "<myfile.txt";
$commaline=<FH>;
close FH;
($count= ($commaline =~ s/,//g)) += 0;
print "$count commas in file";

Jean Pierre.

 

[toolkit]

Or an all-UNIX solution ;-)

cat test.txt | tr -c -d ',' | wc -c

Cheers, Neil

 

[duncdude]

toolkit - fantastic! can you explain how it works?

cat [b]file.txt[/b]
pipe output to [b]tr[/b]
-cd switches ?
',' - comma
pipe output to [b]wc[/b] (word count)
-c (character count)

Kind Regards
Duncan

 

[toolkit]

-d means delete specified characters
-c means complement specified characters

Together, this means delete all characters except those specified. So for an example file:

qwjdoqdojw,qwoijdoqjwd,oqijdoqjw,
qiwkjdoqiwjdo,
qiwdjoijdqom,

Then cat file | tr -c -d ',' produces:

,,,,,

Then wc -c is obvious. Cheers, Neil

 

[duncdude]

cheers Neil... nice one!


Kind Regards
Duncan

 

[rab54]

Cheers to you all -I used PaulTeg's solution

Rab

 

[duncdude]

another way:-

$commaline = <DATA>;

print split (",", $commaline) - 1 . " commas in file";

__DATA__
this, is, an example, of a, text, file with, commas

Kind Regards
Duncan