in reply to Finding vowels

How about this? 
#!/usr/bin/perl

use strict;

my @arrays = qw( chatterbox test abode);
my @vowels = qw( a e i o u );

foreach my $i (@arrays) {
    my $count = 0;
    for (my $j = 0; $j <= (length $i) - 1 ; $j++) {
        my $letter = substr($i, $j, 1 );
        $count++ if ( grep /\b$letter\b/, @vowels );
    }
    print "$i has at least 3 or more vowels.\n" if ( $count >= 3 );
}

[download]

Replies are listed 'Best First'.
Re^2: Finding vowels
by linuxer (Curate) on Mar 20, 2009 at 01:46 UTC

    Hi, though I still prefer the tr/// solution, I think, a rewrite of your code could be helpful ;o)

    So, how about this (based upon your solution)?

    #! /usr/bin/perl
use strict;
use warnings;

my @array = qw( chatterbox test abode );
my @vowels = qw( a e i o u );

# check each word in @array; so why using $i instead of $word?
WORD: for my $word ( @array ) {
  my $count = 0;

  # split $word into characters
  CHARACTER: for my $character ( split //, $word ) {

    # I see no need for regex if checking each character against each 
+vowel
    # check if character is equal a vowel
    $count++ if grep { $_ eq $character } @vowels;

    # could be inserted to make it (maybe?; depends on the words which
+ are checked) faster
    #last CHARACTER if $count >= 3;
  }

  print "$word has at least 3 or more vowels.\n" if $count >= 3;
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom