From: Paul Johnson
> On Tue, Jun 21, 2011 at 05:57:22AM -0700, Beware wrote:
>
> > Hi to all,
>>
>> First of all, sorry for the late of my answer.
>> Thank for all your sentence.
>>
>> Here's my solution (for now) :
>>
>> for my $w (@keywords)
>> {
>> if ( /\b$w\b/ and !/\buc($w)\b/ )
>> {
>> print "Keyword '$w' not uppercase line $.\n";
>> ajoute_erreur( 7, $. );
>> last;
>> }
>> }
>>
>> It's probably less fast than other ones, but it seems to work.
>
> I'm afraid you may need to improve your testing skills.
>
> I assume your keywords are in lower case. What happens with mixed case? You
> would need /i on your first //
You need to be a little more careful about those assumptions. He is looking for
all keywords that are not in UPPERCASE.
Bob McConnell
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
