verzeichnis anlegen

[Stephan]

Hallo Forum,

ich möchte über ein Perl-Script folgenden aktion ausführen:

es kommt ein name von einem formular
es wird überprüft, ob es ein verzeichnis mit diesem namen schon gibt
wenn das nicht der fall ist, wird das verzeichnis angelegt

jetzt brauche ich also zwei sachen:

1. ein befehl zum überprüfen, ob es das verzeichnis gibt (if exists oder so hei‚t das ja glaub ich bei dos ...)

2. ein befehl, der ein verzeichnis erstellt

ich danke für jede hilfe

Stephan

[Felix]

hi stephan

ein workaround (ich kenne auch keinen befehl) zum überprüfen ob das dir existiert
my $return_value = opendir HANDLE, "Dirname";
schau mal, was $return_value beinhaltet, je nachdem, ob das verzeichnis
existiert oder nicht ;)

Verzeichnis anlegen mit
mkdir "Dirname", 700
700 ist die Berechtigung für das Dir

hoffe, das hilft
cu
felix

[Johannes Eble]

Hallo Stephan,

$dein_dir="/irgendwas_a/irgendwas_b/.../";

unless(-e $dein_dir)
{
   mkdir($dein_dir,0777);
}

Statt der 0777 (= user/group/owner kann lesen/schreiben/ausfuehren) kannst du auch ein anderes chmod setzen.

Johannes

[Michael Schröpl]

jetzt brauche ich also zwei sachen:

1. ein befehl zum überprüfen, ob es das verzeichnis gibt (if exists oder so hei‚t das ja glaub ich bei dos ...)

http://www.perl.com/pub/doc/manual/html/pod/perlfunc/_X.html

2. ein befehl, der ein verzeichnis erstellt

http://www.perl.com/pub/doc/manual/html/pod/perlfunc/mkdir.html