Re^3: Counting the number of items returned by split without using a named array

in reply to Re^2: Counting the number of items returned by split without using a named array
in thread Counting the number of items returned by split without using a named array

That fails when input has leading or trailing blanks:

$ perl -lpe '($_=()=/\s+/g)++'   ## leading
 foo bar
3
$ perl -lpe '($_=()=/\s+/g)++'   ## trailing
foo bar 
3
$ perl -lpe '($_=()=/\s+/g)++'   ## both
 foo bar 
4
$ _
[download]

It's better to count ocurrences of actual elements (\S+):

$ perl -wle 'print scalar (()=/\S+/g) for "a b c", " a b c", "a b c ",
+ " a b c "'
3
3
3
3
$ _
[download]

Anyway I prefer split too, like salva++'s 0e0 solution.

--
David Serrano

Comment on Re^3: Counting the number of items returned by split without using a named array Select or Download Code

Replies are listed 'Best First'.
Re^4: Counting the number of items returned by split without using a named array by blazar (Canon) on May 03, 2006 at 13:47 UTC
I know. My entire point was not to maintain a counter manually a' la `++$cnt while $str =~ /\s+/g;` [download] Well done to point out about `\S` anyway, since one often forgets about `\S`, `\D` and `\W`.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom