In order to make \U work with accented chars I had to start my program like this:
$loc = 'pt_PT.ISO_8859-1'; # my locale $ENV{'LANG'} = $loc; $ENV{'LC_ALL'} = $loc; $ENV{'LOCPATH'} = '/usr/share/locale'; use locale; require POSIX; POSIX::setlocale(&POSIX::LC_ALL, $loc);
Is there a shorter way?
In reply to Re: Re: Re: tr/<mixed string>/<UPPER STRING>/
by fglock
in thread tr/<mixed string>/<UPPER STRING>/
by curtisb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |