Prevod pismenek

[Pavel Kunc]

Hm, tak nevim asi tam zase delam nejakou kravinu.

mam tohle:
use locale;
$nadpis = uc $nadpis;
$nadpis =~ s/.*?(\w)/$1<\/font><font face="serif" size="4"
color="#800000">$2/; (taky nevim jestli je ten vyraz dobre)

coz mi vypisuje kapitalky. U slov bez ceskejch znaku to jde, u slov ktery
nezacinaj necim ceskym to taky jde, jenze treba ve slove "rybniky" je to i
proste male. Nejvetsi paseku to dela, kdyz je na zacatku slova neco cs, to
mi z toho vyleze treba tohle:

$nadpis = Sperky
$nadpis = uc $nadpis;
$nadpis =~ s/.*?(\w)/$1<\/font><font face="serif" size="4"
color="#800000">$2/;

print "$nadpis" => Perky



Honza Pazdziora <adelton na informatics.muni.cz> wrote in message
news:20000124092423.C25567 na aisa.fi.muni.cz...
> >
> > jak prevedu mala pismena na velka? Pomoci tr/// to sice jde, ale bez
ceskych
> > pismenek. A ja bych to potreboval i s tema ceskejma. :-(
>
> use locale;
> $data = uc $data;
>
> ------------------------------------------------------------------------
>  Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
>    .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
> ------------------------------------------------------------------------