how to shorten this code ? x occur how many times in variable

10 msg	Text formatting issues
1 msg	re: find path to current file, NOT working dire...
2 msg	Passing Creadentials and parameters through htt...

how to shorten this code ? x occur how many tim...
\ Richard Lee (7 May 2008)
. \ John W. Krahn (7 May 2008)
. . \ Richard Lee (7 May 2008)
. . . \ Rob Dixon (7 May 2008)
. . . . \ Richard Lee (7 May 2008)
. . . . . \ John W. Krahn (8 May 2008)
. . . . . . \ Richard Lee (8 May 2008)

1 msg	Compare String is not match !
3 msg	Compile error
5 msg	chaining defines
2 msg	sed split on pipe
4 msg	csv file question
6 msg	Writing side of square
11 msg	comparing kit names
2 msg	OT: help crle ruin my solaris :-(
6 msg	generating number ranges using rand function
1 msg	question on unblocking the signals
5 msg	howto simplfy this regex if ($string =~/^$match...
7 msg	how to reun perl script on other pc without hav...
14 msg	how to simplify this script
10 msg	displaying inline images in HTML email
15 msg	another help on input record separator clarity ...
2 msg	Perl Expect help

Subject:	how to shorten this code ? x occur how many times in variable
Group:	Perl-beginners
From:	Richard Lee
Date:	7 May 2008

Can you please tell me how to shorten this?

my @an = split(//);
my @num = grep { $_ eq ':' } @an ;

I was trying to see how many : occur in variable but didn't know how to
do it fast so i did it like above...

I would like to see as many way different ways to get this done if possible

thank you!!

$var1 = root:x:123:/root:

trying to see how many times : occurs in $var1..... and I could only do
it above way....

--
To unsubscribe, e-mail: beginners-unsubscribe
For additional commands, e-mail: beginners-help
http://learn.perl.org/