Re^3: Counting number of characters in a string

This does not work for me. I expect the length of the string 'abc' to be 3, but your code returns 0:

use strict;
use warnings;

my $str = 'abc';
my $cnt = @{[$str =~ /(\.)/g]};
print "$cnt\n";

__END__
0
[download]

Comment on Re^3: Counting number of characters in a string Download Code

Replies are listed 'Best First'.
Re^4: Counting number of characters in a string by ikegami (Patriarch) on Jan 23, 2009 at 22:34 UTC
Remove the backslash, add the "s" modifier. And the parens aren't necessary. `my $cnt = @{[$str =~ /./sg]};` [download] Cheaper alternative: `my $cnt =()= $str =~ /./sg;` [download]	[reply] [d/l] [select]
Re^4: Counting number of characters in a string by levonbarker (Initiate) on Dec 30, 2010 at 17:09 UTC
Use the length() function.	[reply]