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

Here is one way to do it.

use strict;
use warnings;

$_ = 'here the text goes';
my @entries;
print  scalar (@entries = split /\s+/, $_);
[download]

Without return list, here is one way

use strict;
use warnings;

$_ = 'here the text goes';
my $count;
print $count = $_ =~ s/\S+//g;
[download]

updated: Added second method as blazar pointed out, without return list, though not a most elegant way. Thanks.

Prasad

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

Replies are listed 'Best First'.
Re^2: Counting the number of items returned by split without using a named array by blazar (Canon) on May 03, 2006 at 10:53 UTC
"So what's the most elegant way to get the number of entries and throw away the resulting array?" I think he means: "discarding the return list, retaining only its lenght".	[reply]
Re^2: Counting the number of items returned by split without using a named array by Anonymous Monk on May 03, 2006 at 12:53 UTC
Ha, great `print $count = $_ =~ s/\S+//g;` [download] was probably what I wanted - just didnt know you could do that with a simple search (although I wondered if one couldnt just use a search in some way) Thx a lot Why does a simple `print $count = s/\S+//g;` [download] not work, though? This (as suggested below) did not count anything either: `$count = () = s/\S+//g;` [download] I.	[reply] [d/l] [select]
Re^3: Counting the number of items returned by split without using a named array by borisz (Canon) on May 03, 2006 at 13:02 UTC
I use `m//g` bellow __not__ `s///g`. Boris	[reply]
Re^3: Counting the number of items returned by split without using a named array by blazar (Canon) on May 03, 2006 at 13:11 UTC
Although this may occasionally work for you in this circumstance, it's not logical to modify the original string just to count the number of occurrences. Just use `/\S+/g` instead.	[reply] [d/l]