uppercase2lowercase und viceversa

[Stephan Schmid]

Hallo Boris,

eine magische Zeile/Funktion habe ich bisher vergeblich gesucht.
Vielleicht gibt es sie irgendwo in den Untiefe diverser Bibilotheken.
Ich habe mir so beholfen:

sub changeCase
{
  my @bCase = ("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","Ä","Ü","Ö");
  my @sCase = ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","ä","ü","ö");
  my $repstring = $_[0];
  my $repMode = $_[1];

foreach $c (0..29)
   { if($repMode eq "small") { $repstring =~ s/$bCase[$c]/$sCase[$c]/g; }
     if($repMode eq "big")   { $repstring =~ s/$sCase[$c]/$bCase[$c]/g; }}

return $repstring;
}

plump aber funktioniert
Stephan Schmid