[srisha]

hi
I have small doubt. Hope u will clear that.
Usually in perl to count the occurance of a specific variable in the input we will use "count".
I want to know whether we can assign differnt variables and can be able to count the total no of that variables in the input...
EXAMPLE::

@m_sites = ( 'ggwxy', 'ggvtew', ' gyhtdj', hhhwqr' );

IF THE GIVEN INPUT SEQUENCE IS:
xxxxxxxggwxyxxxxxxxxxggwxyxxxxxxxxxxggvtewxxxxxxxxx

The output should be 3. Because the given patterns occured 3 times in the sequence.
i want to know what we can do to count the total no of m_sites in the input

Thanks in advance.

[sco08y]

Since I can barely guess at what you're asking, I won't spend a lot of time explaining myself. Try this:

my $re = join('|', map(quotemeta, @m_sites));
print scalar($input =~ /$re/g);