Hey,
my %grossbuchstaben;
@grossbuchstaben{'a'..'z'}= ('A'..'Z');Also $grossbuchstaben{'a'} == 'A' etc.
$text=~ s/([a-z])/$grossbuchstaben{$1}/g;
~~~perl
y/a-z/A-Z/
--
水－金－地－火－木－土－天－海－冥
水－金－地－火－木－土－天－海－冥
nicht angemeldet nicht angemeldetHey,
my %grossbuchstaben;
@grossbuchstaben{'a'..'z'}= ('A'..'Z');Also $grossbuchstaben{'a'} == 'A' etc.
$text=~ s/([a-z])/$grossbuchstaben{$1}/g;
~~~perl
y/a-z/A-Z/
seth