http://www.perlmonks.org?node_id=83573


in reply to Re: BOfH Random Excuse Generator
in thread BOfH Random Excuse Generator

Thanks for the help. I'm really just starting out with regex's, and I guess I should have remembered the no-no. It's my fault. Always's looking for constructive criticism (what did I just get my self into???).

mexnix

Replies are listed 'Best First'.
Re: Re: Re: BOfH Random Excuse Generator
by virtualsue (Vicar) on May 27, 2001 at 13:06 UTC
    Don't worry about it. I ++'d your fine node, and so did a lot of other people. You posted working code that used -w & strict so, you are by definition a Righteous Dude. Everything can be improved, including what I posted.

    For instance,

    print "\n$word1 $word2 $word3 $word4\n" if (($ans = <STDIN>) =~ /^y/); could have been print "\n$word1 $word2 $word3 $word4\n" if (<STDIN> =~ /^y/i); or print "\n$word1 $word2 $word3 $word4\n" if (<STDIN> =~ /^[Yy]/);

    Updated per chromatic's suggestion to allow for case insensitive matching.