suliko: Mehrspachigkeit in HTML

Beitrag lesen

Das klingt so, als ob du ein Modul schreiben möchtest.

Ok, Modul. Aber die Variablen? Wie sollen sie angelget werden? Etwas so:

Textinits.pm

  
  
package Textinits;  
  
require 5.6.0;  
  
use CGI::Carp qw(fatalsToBrowser);  
use strict;  
  
#...  
  
sub initTextVars () {  
  
 use constant VAR_A => setText (120, $_[0]); # in der Variable steht dann z.B. der Text "Guten Morgen!"  
 use constant VAR_B => setText (128, $_[0]); # in der Variable steht dann z.B. der Text "Guten Tag!"  
  
  
};  
  

oder so:

  
  
package Textinits;  
  
require 5.6.0;  
  
use CGI::Carp qw(fatalsToBrowser);  
use strict;  
  
#...  
  
sub initTextVars () {  
  
 our VAR_A = setText (120, $_[0]); # in der Variable steht dann z.B. der Text "Guten Morgen!"  
 our VAR_B = setText (128, $_[0]); # in der Variable steht dann z.B. der Text "Guten Tag!"  
  
};