jm am Montag, 26. Februar 2007 18:54:
Hi
> is there a function, module, script, etc. that converts all uppercase to
> proper mixed case. this particular need is for an address list that is all
> uppercase
This description of what you want to achieve does not correspond to the
example below; you also add '.'s and a space, and 'OK' is still non-mixed
case.
> 1370 W 14TH ST
> ADA,OK
> 74837
>
> i would like to convert it to
>
> 1370 W. 14th St.
> Ada, OK
> 74837
you can try to fiddle around with ucfirst and lc, see:
perldoc -f ucfirst
perldoc -f lc
however, some exceptions are to be handled as well as the format kept...
(therefore the map chain below)
The following does some of the tasks (I did not search google...):
#!/usr/bin/perl
use strict;
use warnings;
my $s="
1370 W 14TH ST
ADA,OK
74837
";
print map ucfirst,
map {$_ eq ',' ? ', ' : $_} # handle special case
map {$_ eq 'OK' ? $_ : lc $_ } # dito, instead of unconditional lc
($s=~/(\w+)(\W+)/g); # not very sophisticated :-)
__END__
1370 W 14th St
Ada, OK
74837
Dani
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
