> >>>>> "Scott" == Scott Taylor <[EMAIL PROTECTED]> writes:
>
> Scott> Any one have or know of a function to convert ugly
> "NAME, USER"
> Scott> to "User Name"?
>
I'd do soemthign like this:
my($name, $user) = split(/,/, $line);
$name =~ s/^\s+//;
$name = ucfirst(lc($name));
$user =~ s/^\s+//;
$user = ucfirst(lc($user));
$line = "$user $name";
HTH
DMuey
> s/NAME, USER/User Name/;
>
> :-)
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. -
> +1 503 777 0095 <[EMAIL PROTECTED]>
> <URL:http://www.stonehenge.com/merlyn/>
> Perl/Unix/security consulting, Technical writing, Comedy,
> etc. etc. See PerlTraining.Stonehenge.com for onsite and
> open-enrollment Perl training!
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
