Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Use of ALL CAPS
- Thread starter bnc123
- Start date
I'm assuming that when you say ALL CAPS you mean that all the alpha chars are uppercase; spaces, digits, punctuation, etc. don't count. In other words, the string contains uppercase chars and no lowercase chars. I think this does what you want.
Code:
#!perl
use strict;
use warnings;
[b]sub allcaps {
# Returns true if string contains uppercase chars and
# no lowercase chars, false otherwise.
my $str = shift;
$str =~ /[[:upper:]]/ && $str !~ /[[:lower:]]/;
}[/b]
while (<DATA>) {
chomp;
print "$_>> ", allcaps2($_)? "": "Not ", "All Caps\n";
}
__DATA__
I would like to discourage the usage of ALLCAPS.
How do I detect using perl, if someone has used ALL CAPITALS
ALL CAPITALS
for a form field input?
Thanks for your help.
HTML
1234
abc123
123ABC
ALL 365 CAPS 123
[b]Output[/b]
I would like to discourage the usage of ALLCAPS.>> [b]Not All Caps[/b]
How do I detect using perl, if someone has used ALL CAPITALS>> [b]Not All Caps[/b]
ALL CAPITALS>> [b]All Caps[/b]
for a form field input?>> [b]Not All Caps[/b]
Thanks for your help.>> [b]Not All Caps[/b]
HTML>> [b]All Caps[/b]
1234>> [b]Not All Caps[/b]
abc123>> [b]Not All Caps[/b]
123ABC>> [b]All Caps[/b]
ALL 365 CAPS 123>> [b]All Caps[/b]I like the idea, tikual, but as it stands there's a bug in this. What if $STRING is "A" or "ABC123DEF456"? Those are uppercase, aren't they? Also, this doesn't return 0 when it fails, as you say it does.
It can be fixed pretty easily. The problem is the re. See it?
It can be fixed pretty easily. The problem is the re. See it?
- Thread starter
- #5
Thanks mikevh and tikual for your inputs.
Since I have not yet mastered subroutines, I am finding mikhev's answer to my question, a bit difficult to incorporate into my formmail script.
tikual's answer on the other hand, is quite simple and straightforward for a newbie like me.
Thanks again.
Since I have not yet mastered subroutines, I am finding mikhev's answer to my question, a bit difficult to incorporate into my formmail script.
tikual's answer on the other hand, is quite simple and straightforward for a newbie like me.
Thanks again.
Then forget about using a sub and just use the
$str =~ /[[:upper:]]/ && $str !~ /[[:lower:]]/;
part.
if ($str =~ /[[:upper:]]/ && $str !~ /[[:lower:]]/) {
# it's all caps
} else {
# it's not all caps
}
tikual's solution as posted contains a bug.
(By the way, I meant "A123B456", not "ABC123DEF456".
tikual's solution will return false [not uc] for this string, as it will for "A".)
$str =~ /[[:upper:]]/ && $str !~ /[[:lower:]]/;
part.
if ($str =~ /[[:upper:]]/ && $str !~ /[[:lower:]]/) {
# it's all caps
} else {
# it's not all caps
}
tikual's solution as posted contains a bug.
(By the way, I meant "A123B456", not "ABC123DEF456".
tikual's solution will return false [not uc] for this string, as it will for "A".)
- Thread starter
- #7
I tried tikuals method with $string being "ABC123DEF456". I had no problems.
My little script looks like this:
#!/usr/bin/perl
$STRING="ABC123DEF456";
print $a=($STRING=~s/([A-Z][A-Z]+)/\L$1/), "\n";
if ($a == 1)
{
print "Content-type: text/html\n\n";
print "<html><h1>All Caps</h1></html>\n";
}
else
{
print "Content-type: text/html\n\n";
print "<html><h1>Not All Caps</h1></html>\n";
}
My little script looks like this:
#!/usr/bin/perl
$STRING="ABC123DEF456";
print $a=($STRING=~s/([A-Z][A-Z]+)/\L$1/), "\n";
if ($a == 1)
{
print "Content-type: text/html\n\n";
print "<html><h1>All Caps</h1></html>\n";
}
else
{
print "Content-type: text/html\n\n";
print "<html><h1>Not All Caps</h1></html>\n";
}
- Thread starter
- #9
![[wink]](/data/assets/smilies/wink.gif "[wink] [wink]")
Hi mikevh,
Because bnc123 said 'all caps for a form field', so I don't think I need to match the case such as sex is 'M' or 'F' in the form field. I know that my post was poor. Just let him customize it for himself. Anyway, thanks for your guidance. ^^
tikual
Because bnc123 said 'all caps for a form field', so I don't think I need to match the case such as sex is 'M' or 'F' in the form field. I know that my post was poor. Just let him customize it for himself. Anyway, thanks for your guidance. ^^
tikual
- Thread starter
- #14
It was very late when I did those last posts. Now that I've had a few hours sleep, I can see that even with my suggested modification, your solution does not work correctly, tikual. It will return true if there are ANY uppercase characters in the string at all, not just when the string is ALL uppercase. Observe:
What you need to do is test that there are uppercase chars, as you have done, and test that there are no lowercase chars, which you don't do. In other words,
/[A-Z]/ && !/[a-z]/, or /[[:upper:]]/ && !/[[:lower:]]/.
Code:
#!perl
use strict;
use warnings;
my @strings = (
'This is a string.',
'this is a string.',
'this is a String.',
'Hey there.',
'hOWzit?',
'e. e. cummings',
'e. e. Cummings',
);
for (@strings) {
my $STRING = $_;
my $a=($STRING=~s/([A-Z]+)/\L$1/);
print "$_: ", $a? "All upper": "Not all upper", "\n";
}
[b]Output:[/b]
This is a string.: [b]All upper[/b]
this is a string.: [b]Not all upper[/b]
this is a String.: [b]All upper[/b]
Hey there.: [b]All upper[/b]
hOWzit?: [b]All upper[/b]
e. e. cummings: [b]Not all upper[/b]
e. e. Cummings: [b]All upper[/b]/[A-Z]/ && !/[a-z]/, or /[[:upper:]]/ && !/[[:lower:]]/.
- Status
Similar threads
