Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Detection of First Letter Capital Letters & String Manipulation

May 5, 1999, 3:11 AM
Robin
Novice (23 posts)
May 5, 1999, 3:11 AM
Post #1 of 5
Views: 4013
Shortcut
Quote Reply
Detection of First Letter Capital Letters & String Manipulation
I need to Detect when the first letter of a particular word (only one word in string) is Capitalised.
Then I need to Duplicate this capital letter.
For eg "From" converted to "FF"
Any Ideas?
Thanks in advance
May 5, 1999, 11:24 AM
Alex
Administrator (9387 posts)
May 5, 1999, 11:24 AM
Post #2 of 5
Views: 3862
Shortcut
Quote Reply
Re: Detection of First Letter Capital Letters & String Manipulation In reply to
Sure, how about:

$input = 'From';
$input =~ s/^([A-Z]).*/$1$1/;
print $input;

will print 'FF'. Hope that helps,

Alex
May 5, 1999, 4:22 PM
Robin
Novice (23 posts)
May 5, 1999, 4:22 PM
Post #3 of 5
Views: 3861
Shortcut
Quote Reply
Re: Detection of First Letter Capital Letters & String Manipulation In reply to
Thanks Alex

Compliments on a great product (DBMan) and an outstanding support forum
May 7, 1999, 11:28 AM
Hieu
Novice (8 posts)
May 7, 1999, 11:28 AM
Post #4 of 5
Views: 3880
Shortcut
Quote Reply
Re: Detection of First Letter Capital Letters & String Manipulation In reply to
Hi,
This is not about the same topic, but it is related a bit to the original question.

How can I make a string come out to be ALPHABET ONLY ( a,b,c,...x,y, and z ONLY) and return error message if it has ANY weird character : such as: $ & ` % ^ ...

Thanks you in advance!
May 10, 1999, 4:26 PM
Alex
Administrator (9387 posts)
May 10, 1999, 4:26 PM
Post #5 of 5
Views: 3889
Shortcut
Quote Reply
Re: Detection of First Letter Capital Letters & String Manipulation In reply to
Sure:

my $string = 'sometextwith$!@#chars';
if ($string !~ /^[A-Za-z]+$/) {
print "Uh Oh! Weird stuff!";
}

What that says is if the contents of $string don't match the letters A-Z or a-z, then print an error.

Hope that helps,

Alex