On Sun, May 12, 2002 at 07:14:27PM +0200, Jos� Nyimi wrote:
> I'm interested to see how you will do the small convertion below.
>
> 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.
sub convert { ucfirst lc shift }
> Cool ;-)
Thanks :-}
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
