RegExp in Perl

[bigred2010]

Hi @ll

ich möchte mittels RegExp in Perl Prüfen ob eine variable $var ein bestimmtes Format hat oder nicht. Das Format soll wie folgt aufgebaut sein:

zahl#/verzeichnis/verzeichnis/verzeichnis

Der Verzeichnispfad ist nicht immer Fest und hier hab ich das Problem, ich hab versucht das wie folgt zu lösen aber ich bekomme das nicht hin, weiß jemand was ich falsch gemacht habe:

$var="98#/verzeichnis/verzeichnis/verzeichnis";

if($var =~ /^(\d+)\#(\/[a-z-]*)$/ ){
  print "OK\n";
}
else{
  print "FEHLER\n";
}

 

[regexer]

Das Format soll wie folgt aufgebaut sein:

zahl#/verzeichnis/verzeichnis/verzeichnis

Sind es immer 3 Verzeichnis-Ebenen? Wenn ja, dann schreibe:

if($var =~ /^(\d+)\#(\/[a-z-]*){3}$/ ){

Bitte auch Bedenken, dass man Verzeichnisse groß oder auch mit einem Space und anderen Sonderzeichen schreiben kann...