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

Richard Lee wrote:
> 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....

my $count = $var1 =~ tr/://;




John
-- 
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order.                            -- Larry Wall