Hello All,
The Perl slogan is: "There Is More Than One Way To Do It".
I'm interested to see how you will do the small convertion below.
Here is one of mine: probably not the best one :-).
#!/usr/bin/perl
use strict;
use warnings;
my $out=&convert('abCdE');
print "$out\n";
sub convert {
my($in)=@_;
$in=~/(.)(.*)/;
$in=uc($1).lc($2);
return $in;
}
The task is simply to upercase the first char of a given string and lowercase the rest.
Cool ;-)
Jos�.
---------------------------------
Yahoo! Mail -- Une adresse @yahoo.fr gratuite et en fran�ais !
