«

Hi!

How do I find out if a string is uppercase only? I've searched cpan for
a suitable module, but found nothing.

This is what I'm looking for:

is_uppercase("UPPERCASE ÅÄÖ") # TRUE
is_uppercase("UPPERCaSE ÅÄÖ") # FALSE

Thanks for any input on how to create such a method.
Leif

Note: ÅÄÖ is swedish characters.

<> wrote in comp.lang.perl.misc:
>
> Hi!
>
> How do I find out if a string is uppercase only? I've searched cpan for
> a suitable module, but found nothing.
>
> This is what I'm looking for:
>
> is_uppercase("UPPERCASE ÅÄÖ") # TRUE
> is_uppercase("UPPERCaSE ÅÄÖ") # FALSE
>
> Thanks for any input on how to create such a method.
> Leif
>
> Note: ÅÄÖ is swedish characters.

Check if any lower-case characters appear in the string:

my $lower = join '' => 'a' .. 'z', qw( å ä ö);
sub is_uppercase {
return !/[$lower]/ for shift;
}

If you have a working locale for your character set, you don't have
to set up the alphabet manually:

sub is_uppercase {
use Locale;
return !/[[:lower:]]/ for shift;
}

Anno

wrote:
> Hi!
>
> How do I find out if a string is uppercase only?

I assume you really mean no lowercase since you example string also
contains a space.

> I've searched cpan for
> a suitable module, but found nothing.

No need, it's builtin.

> This is what I'm looking for:
>
> is_uppercase("UPPERCASE ÅÄÖ") # TRUE
> is_uppercase("UPPERCaSE ÅÄÖ") # FALSE

!/[[:lower:]]/

or

$_ eq uc

> Note: ÅÄÖ is swedish characters.

That should be OK.

Also sprach Brian McCauley:

> wrote:
>> Hi!
>>
>> How do I find out if a string is uppercase only?
>
> I assume you really mean no lowercase since you example string also
> contains a space.
>
>> I've searched cpan for
>> a suitable module, but found nothing.
>
> No need, it's builtin.
>
>> This is what I'm looking for:
>>
>> is_uppercase("UPPERCASE ÅÄÖ") # TRUE
>> is_uppercase("UPPERCaSE ÅÄÖ") # FALSE
>
> !/[[:lower:]]/
>
> or
>
> $_ eq uc
>
>> Note: ÅÄÖ is swedish characters.
>
> That should be OK.

Only when 'use locale' is in effect. Otherwise

$_ = "ö";
if ($_ eq uc) {
...
}

reports as true.

Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus}) !JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexi ixesixeseg;y~\n~~dddd;eval

Tassilo v. Parseval wrote:

> Also sprach Brian McCauley:
>
>> wrote:
>>
>>>Note: ÅÄÖ is swedish characters.
>>
>>That should be OK.
>
>
> Only when 'use locale' is in effect.

Yeah, sorry I realised that just after I hit send. But as I said the
other day - on Usenet there's no need to correct yourself, there are
thousands of people just waiting to leap at the chace to correct you

wrote:

> How do I find out if a string is uppercase only? I've searched cpan for
> a suitable module, but found nothing.
> This is what I'm looking for:
> is uppercase("UPPERCASE ") # TRUE
> is uppercase("UPPERCaSE ") # FALSE

I believe this should do the trick:

----------------------------------------------------
#!/usr/bin/perl
$isUppercase="OK";
$string="PUTSOMETESTSTRINGHERE";
@splitit = split //, $string;
for (@splitit) {
$isUppercase = "not OK"
if ($_!~/(A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y |Z)/)
}
print "Upper case: $isUppercase";
----------------------------------------------------

You can extend the (A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y |Z)
part to include the Swedish characters that you want to allow. (or if
you want spaces as in your example, etc)

hope this helps
Bart

wrote:
>
> How do I find out if a string is uppercase only? I've searched cpan for
> a suitable module, but found nothing.
>
> This is what I'm looking for:
>
> is_uppercase("UPPERCASE ÅÄÖ") # TRUE
> is_uppercase("UPPERCaSE ÅÄÖ") # FALSE
>
> Thanks for any input on how to create such a method.
> Leif
>
> Note: ÅÄÖ is swedish characters.

sub is_uppercase { require locale; $_[0] eq uc $_[0] }


John
--
use Perl;
program
fulfillment

wrote:
> Hi!
>
> How do I find out if a string is uppercase only? I've searched cpan
> for a suitable module, but found nothing.
>
> This is what I'm looking for:
>
> is_uppercase("UPPERCASE ÅÄÖ") # TRUE
> is_uppercase("UPPERCaSE ÅÄÖ") # FALSE
>
> Thanks for any input on how to create such a method.
> Leif
>
> Note: ÅÄÖ is swedish characters.

Just convert the string to all upper case and then check if the original
string and the all upper string are equal.

jue

>>>>> "BVdD" == Bart Van der Donck <> writes:

BVdD> if ($_!~/(A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y |Z)/)

BLARGGGHH!!

learn about char classes please. that is so slow and hard to
maintain.

uri

--
Uri Guttman ------ -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org

Bart Van der Donck wrote:
> You can extend the
> (A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y |Z) part to include
> the Swedish characters that you want to allow. (or if you want spaces
> as in your example, etc)

Arrrg, if a developer would present this as a global solution to me I would
have a serious talk with his manager the same day!

This doesn't scale well to other languages because it requires detailed
knowlegde of the other language (or do you know which extended characters to
add for Spanish, Italian, or Turkish).
It doesn't scale well to other character sets (what are the capital letters
for cyrillic Serbian)? Do you as an English-speaking programmer know how to
enter them on your keyboard?
And it doesn't scale to additional language because it requires a code
change whenever you add a new language/character set.

Bad, bad, bad.

jue