How many match 1

[audiopro]

I have a simple match to test if a string contains contains the letter 's' which works ok.

if($_[0]=~ m/@/){
code
}

How can I count how many times 's' appears in that string?

Keith

http://www.studiosoft.co.uk

 

[Kirsle]

my $count = $_[0] =~ /s/;

When called in scalar context, a regular expression returns the number of times matched. Called in array context, it returns all of the values captured (if there were any; you need parenthesis and stuff to capture values).

-------------
Cuvou.com | The NEW Kirsle.net

 

[KevinADC]

A little off with the code Kirsle:

$test = 'sssfffsss';
my $count = () = $test =~ /s/g;
print $count;

or a liitle more easier and efficient:

$test = 'sssfffsss';
my $count = $test =~ tr/s/s/;
print $count;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[audiopro]

Thanks for that, I'll give it a try tomorrow.
Could please you point me to a tutorial on matching and subbing, preferably one written slowly because I don't read very fast.


Keith

http://www.studiosoft.co.uk

 

[Kirsle]

http://search.cpan.org/perldoc?perlretut

- Perl Regexp Tutorial

http://search.cpan.org/perldoc?perlre

- Perl Regular Expressions

-------------
Cuvou.com | The NEW Kirsle.net