comment on

Yes, you've correctly described the approach, which uses the shift function to extract the word that is currently at the beginning of the array, and then, if that first word contains "r" or "s", a regex is created and used with the grep function to search for matches in all the remaining words in the array.

One thing you didn't specify yet is what to do with sets like "cases / carer / caser / cares": Should the first one match all of the other three? Should the second one match both of the last two? Should the last two match each other? If the answer is "yes" on all points, then you'll want to create a different regex, which can be done using the split and map functions, and (my favorite from C) the "ternary" conditional operator:

    my $model = shift @words;
    my $regex = join( "", map{ ( /[rs]/ ) ? "[rs]" : $_ } split( /([rs
+])/, $model ));
    next if ( $regex eq $model );  # skip if model has no "r" or "s"
    my @hits = grep /^$regex$/, @words;
    ...
[download]

(BTW, maybe you already know, but /$regex/i (adding the "i" modifier at the end) does case-insensitive matches.)

(updated to add a missing paren at the end of the second line in the snippet -- also added the anchors around $regex in the grep call)

In reply to Re^3: Comparing Lines within a Word List by graff
in thread Comparing Lines within a Word List by dominick_t

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


"be consistent"
	PerlMonks