RegEx - Zeichenkette von hinten durchsuchen?!

[Nemesis]

Hallo,

entschuldigt den Doppelpost, aber ich weiß nicht wie man hier editieren kann! Ich habe eben, kurz nach meinem Posting selbst die Lösung gefunden:

  
  
my $olddir = 'C:\abc\def\ghi'  
my $newdir = '';  
  
foreach(@files) {  
  
  my $anz = my @anz = ( $_ =~ /\.\.\\|\.\.\//g );  
  
  for(my $i = 0; $i < $anz; $i++) {  
  
     my $res=rindex($dir,"\\");  
     $newdir = substr($dir,0,$res);  
  }  
  
  print $newdir;  
}  

Ich nehme also die Zeichenketten aus der Datei, zähle wie oft ein ..\ oder ../ vorkommt. Dann entferne ich in einer Schleife so oft alle Zeichen bis zum letzten "" und schon habe ich die Pfad eingekürzt und mein Problem ist gelöst.

Wenn jemand eine bessere Methode kennt bin ich trotzdem für eure Hilfe dankbar!!!

LG.

PS: Den Code oben habe ich eben so getippt und nicht aus meinem file genommen, sind also Fehler drin - Sorry