Perl 101 (part 6) - The Perl Toolbox - Going Backwards (Page 7 of 8 )
The next few string functions come in very handy when adjusting the case of a text string from lower- to upper-case, or vice-versa:
lc($string) - convert $string to lower case
uc($string) - convert $string to upper case
lcfirst($string) - convert the first character of $string to lower case
ucfirst($string) - convert the first character of $string to upper case
Here's an example:
#!/usr/bin/perl
# get a string
print "Say something: ";
chomp($string = );
# convert case
$output= lc($string);
print "All lower case: $output\n";
$output= uc($string);
print "All upper case: $output\n";
$output= lcfirst($string);
print "Look at the first character: $output\n";
$output = ucfirst($string);
print "Look at the first character: $output\n";
And here's the output:
Say something: Something's rotten in the state of Denmark
All lower case: something's rotten in the state of denmark
All upper case: SOMETHING'S ROTTEN IN THE STATE OF DENMARK
Look at the first character: something's rotten in the state of Denmark
Look at the first character: Something's rotten in the state of Denmark
The reverse() function is used to reverse the contents of a particular string.
#!/usr/bin/perl
# ask for input
print "Say something: ";
$something = ;
chomp ($something);
# reverse and print
$gnithemos = reverse($something);
print "Sorry, you seem to be talking backwards - what does $gnithemos
mean?";
Here's the output:
Say something: God, I'm good
Sorry, you seem to be talking backwards - what does doog m'I ,doG mean?
And the chr() and ord() functions come in handy when converting from ASCII codes to characters and vice-versa. For example,
print chr(65);
returns
A
while
print ord("a");
returns
97
This article copyright Melonfire 2000. All rights reserved. Next: Math Class >>
More Perl Articles
More By Vikram Vaswani and Harish Kamath, (c) Melonfire
/ 6 
