[SOLVED] Perl: Test if string is uppercase

Telemachos · 01-07-2010, 12:38 PM

Quote:

Originally Posted by syg00

Doesn't pay to presume too much - does "upper/lower case" imply "ONLY upper/lower case" ?.
Stick a non alpha (say a digit) in the test string and run the tests above ...

Ok:

Code:

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

my $upper  = '012 FOO9';

if ($upper eq uc($upper)) {
    print "It's uppercase.\n";
}

Output:

Code:

It's uppercase.

That's the result I would have predicted (and desired). Would you want or expect a different result?

fimmer · 09-08-2014, 12:57 PM

Quote:

Originally Posted by PMP

To add up to all your solution, The following code should work for the problem.

Code:

my $str = "STRING\n";
if ($str !~ /[a-z]/)
{
        print "$str The string is uppercase\n";
}
else
{
        print "$str contains lowercase characters\n";
}

nice and elegant solution