$xNeTworKx: gleiche Referenzsubroutine für verschiedene Variablen ?

Hallo,
Ich häng da bei einem kleinen Problem und zwar, ist es irgendwie möglich eine Subroutine zu verwenden, die 2 verschiedene Variablen "ausserhalb" ändern kann, also zB

aendere($text);

.
.
.
sub aendere  {
my $text = shift;
$$text =~ s/</</g;
$$text =~ s/>/>/g;
}

Was mache ich jetzt, wenn ich die gleiche Subroutine zB für aendere($thema); verwenden will ?
Danke schon mal im Voraus.

$xNeTworKx.

  1. hi!
    versuchs mal so:

    aendern($text);

    .
    .
    .
    sub aendern  {
    mein $text = shift;
    $$text =~ s/</</g;
    $$text =~ s/>/>/g;
    }

    gruss, tommy

    1. Hallo,

      versuchs mal so:

      aendern($text);

      .
      .
      .
      sub aendern  {
      mein $text = shift;
      $$text =~ s/</</g;
      $$text =~ s/>/>/g;
      }

      sorry, ich versteh jetzt irgendwie nur Bahnhof.

      $xNeTworKx.