Austausch einer Variablen in einer Liste...

[Thomas Häber]

Hallo Ihr Forumer,

Bin Perlanfänger und werde es aus Misserfolg wohl bleiben, wenn ihr mir keine Tipps gebt (Das war keine Drohung :-0 ):

Hab hier mal einen Beispielscript, er sollte eine DOCUMENT_URI einlesen was er auch macht und diese nun gesplittete mit einem Array vergleichen.

Wenn es übereinstimmt sollte die übereinstimmende Variable mit einer neuen in der Liste vorhanden Variablen getauscht werden. Z.B. das kleine Wörtchen action mit dem Wörtchen Action (man beachte das große A), übrigens bin ich mir bewusst das man das mit richtigen Datenbanken bzw. Dateien machen sollte, hier geht es aber ums Prinzip.

Heir der Script:

#!/usr/bin/perl -w

#$Alles = $ENV{'DOCUMENT_URI'};
$Alles = "/action/perltest.shtml";

@Getrennt = split(///, $Alles);

@Liste = (@Nr1, @Nr2);
@Nr1 = ("action","Action");
@Nr2 = ("perltest.shtml","Menu");

for (@Getrennt)
{
$jetzt = $_;

for (@Liste)
{
for (@_)
 {
 if ($_[0] eq /$jetzt/)
  {

$jetzt = $_[1];

}
 }

}
print $jetzt, "\n";

}

Naja, vielen Dank.

MfG
Thomas