Das klingt so, als ob du ein Modul schreiben möchtest.
Ok, Modul. Aber die Variablen? Wie sollen sie angelget werden? Etwas so:
kommt darauf an was du konkret willst. Da globale Variabeln unerwünscht sind, würde ich höchstens die Funktion exportieren oder einfach direkt auf diese Zugreifen Textinits::getVar('A');
package Textinits;
my %lng;
sub initTextVars () {
$lng{A} = setText (120, $_[0]); # in der Variable steht dann z.B. der Text "Guten Morgen!"
$lng{B} = setText (128, $_[0]); # in der Variable steht dann z.B. der Text "Guten Tag!"
}
sub getVar{
return $lng{$_[0]} || $_[0];
}
Struppi.