> > "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($n
> "Scott" == Scott Taylor <[EMAIL PROTECTED]> writes:
Scott> Any one have or know of a function to convert ugly "NAME, USER" to "User Name"?
s/NAME, USER/User Name/;
:-)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> http://www.stonehenge
On Friday, August 15, 2003, at 05:09 PM, Scott Taylor wrote:
$var = 'NAME, USER';
print "$var\n";
@var = reverse split(', ',$var);
print "@var\n";
$var = join(' ',(ucfirst lc $var[0],ucfirst lc $var[1])); # whitout
the
comma this time
print "$var\n";
This works well, too, and join seems to fix t
On Friday, August 15, 2003, at 04:55 PM, Scott Taylor wrote:
At 02:28 PM 08/15/2003, James Edward Gray II wrote:
On Friday, August 15, 2003, at 04:20 PM, Scott Taylor wrote:
Any one have or know of a function to convert ugly "NAME, USER" to
"User Name"?
Maybe something like:
s/^(\w+), ?(\w+)$
At 02:46 PM 08/15/2003, Degey, Didier wrote:
-Original Message-
From: Scott Taylor [mailto:[EMAIL PROTECTED]
Sent: vendredi 15 août 2003 23:20
To: [EMAIL PROTECTED]
Subject: Case conversions
Any one have or know of a function to convert ugly "NAME, USER" to "User
Name"?
Strange email thing
At 02:28 PM 08/15/2003, James Edward Gray II wrote:
On Friday, August 15, 2003, at 04:20 PM, Scott Taylor wrote:
Any one have or know of a function to convert ugly "NAME, USER" to "User
Name"?
Maybe something like:
s/^(\w+), ?(\w+)$/ucfirst(lc $2) . ' ' . ucfirst(lc $1)/e
Nice, very useful! On
I've just used Elias' idea to change a file's content...
Where file name is word:
perl -i -p -e 's/(.)(.*)/$1\L$2/' word
On Friday, Aug 15, 2003, at 23:29 Europe/Brussels, Elias Assmann wrote:
On Fri, Aug 15, 2003 at 02:20:19PM -0700, Scott Taylor wrote:
Any one have or know of a function to c
> Any one have or know of a function to convert ugly "NAME, USER" to "User
Name"?
timtowtdi:
$str = "User Name" if ($str eq "NAME, USER");
$str =~ s/^NAME, USER$/User Name/;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
$var = 'NAME, USER';
print "$var\n";
@var = reverse split(', ',$var);
print "@var\n";
$var = join(' ',(ucfirst lc $var[0],ucfirst lc $var[1])); # whitout the
comma this time
print "$var\n";
-Original Message-
From: Scott Taylor [mailto:[EMAIL PROTECTED]
Sent: vendredi 15 août 2003 23:20
T
On Fri, Aug 15, 2003 at 02:20:19PM -0700, Scott Taylor wrote:
>
> Any one have or know of a function to convert ugly "NAME, USER" to "User
> Name"?
$ perl -le '$_ = "NAME"; s/(.)(.*)/$1\L$2/; print'
Name
The function to convert a string to lower case is "lc".
HTH,
Elias
--
If you ta
On Friday, August 15, 2003, at 04:20 PM, Scott Taylor wrote:
Any one have or know of a function to convert ugly "NAME, USER" to
"User Name"?
Maybe something like:
s/^(\w+), ?(\w+)$/ucfirst(lc $2) . ' ' . ucfirst(lc $1)/e
Hope that helps.
James
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
11 matches
Mail list logo
