> 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....

> 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.... ...

>
> John W. Krahn wrote:
>

>> 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
>>>
>>>
>>> $var1 = root:x:123:/root:
>>> ...

> Richard Lee wrote:
>

>> John W. Krahn wrote:
>>
>>

>>> 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
>>>> ...

> Rob Dixon wrote:

>>
>> returns the number of colons found but leaves them untouched. Similarly
>>
>> $str =? tr/\t /_/;

>
> this is great!!
>
> use warnings;
> use strict;
>
> my $str = 'ab:cd:ef:g:hi::now;';
> print $str =~ tr/:// . "\n";
> print $str =~ tr/:b/_X/ . "\n";
>
> print "$str\n";
>
>
> ././././././testthis.pl ...

> Richard Lee wrote:

>> Rob Dixon wrote:

>>>
>>> returns the number of colons found but leaves them untouched. Similarly
>>>
>>> $str =? tr/\t /_/;

>>
>> this is great!!
>>
>> use warnings;
>> use strict;
>>
>> my $str = 'ab:cd:ef:g:hi::now;';
>> print $str =~ tr/:// . "\n";
>> print $str =~ tr/:b/_X/ . "\n";
>>
>> print "$str\n";
>>
>> ...