Re^3: Counting SubStrings, Style Question

My conditions are not wrong.

for my $count (0..4) {
    print("$count: ");
    if    ($count < 1) { print "None\n";   }
    elsif ($count < 2) { print "Unique\n"; } 
    else               { print "$count\n"; }
}
[download]

0: None
1: Unique
2: 2
3: 3
4: 4
[download]

Or using your examples

my $substr = 'xxx';
for my $parent (
   'fred bill xx joe',
   'fred bill xxx joe',
) {
    my $count = () = $parent =~ /\Q$substr/;
    if    ($count < 1) { print "None\n";   }
    elsif ($count < 2) { print "Unique\n"; } 
    else               { print "$count\n"; }
}
[download]

None
Unique
[download]

It's the count is wrong. My entire post is about how split is not the right tool here because it can give the wrong count. That's why my solution doesn't use split.

Comment on Re^3: Counting SubStrings, Style Question Select or Download Code

Replies are listed 'Best First'.
Re^4: Counting SubStrings, Style Question by Anonymous Monk on Mar 21, 2010 at 00:38 UTC
I guess I imagined this: `my $parent = 'xxx xxx xxx'; my $count = my @items = split(/ /, $parent); print "$count\n"; # 3 [download] Since you have a count, all you need to check if there are duplicates +is check the count. if ($count < 1) { print "None\n"; } elsif ($count < 2) { print "Unique\n"; } else { print "$count\n"; }` [download] And also missed where the OP agreed that his sample code is wrong...Oh! He hasn't.	[reply] [d/l]
Re^5: Counting SubStrings, Style Question by ikegami (Patriarch) on Mar 21, 2010 at 05:09 UTC
What about it? Now read the rest. And also missed where the OP agreed that his sample code is wrong...Oh! He hasn't. First you say the following is wrong: `{ my $c = my @c = split 'xxx', 'fred bill xx joe'; print $c };; 1 { my $c = my @c = split 'xxx', 'fred bill xxx joe'; print $c };; 2` [download] Now you're saying the OP's code is right even though it gives the same results for those inputs. I don't understand. Could you explain a bit more clearly please?	[reply] [d/l]