mkdir() - Ein Verzeichnis erstellen in Perl

Mit dem befehl mkdir() lassen sich in Perl Verzeichnisse erstellen und auch gleich die nötigen Rechte vergeben (unter Unix-Systemen...)

Syntax
$ok=mkdir (verzeichnisname,rechte);

Als Parameter werden, wie Sie sehen, der Name des zu erstellenden Verzeichnisses und die Rechte erwartet. Die Rechte sind wie immer in oktaler Schreibweise, so wie man es eben von Unix kennt.
Als Rückgabeparameter gibts 'ne 1, wenn alles gut gegangen ist, und 'ne 0, wenn ein Fehler auftrat.

Beispiel

$ok=mkdir('testverzeichnis',0777);
print "Rueckgabewert: $ok\n";
print $! if ($ok == 0);

Es wird das Verzeichnis testverzeichnis mit den Rechten 0777 erstellt und ein ensprechender Rückgabewert ausgegeben.

So weit so gut... ABER:
Mir gings mal so, daß ich eben ein Verzeichnis anlegen wollte, das wiederum selbst in einem neuen Verzeichnis lag. Irgendwie gings aber nicht, also etwas länger Fehler gesucht und bingo:
mkdir legt immer nur eine Ebene eines neuen Verzeichnisses an, oder genauer gesagt:
ein

mkdir("test/test1",0777);

funktioniert NICHT, wenn der Ordner test nicht schon vorhanden ist. Man muß also erst ein

mkdir("test",0777);

und dann ein

mkdir("test1",0777);

durchführen, sonst hagelt es Fehlermeldungen.

Natürlich kann man dies auch zum Anlass nehmen, eine nette Unterfunktion zu schreiben, die Unterverzeichnisse erstellt:

use strict;

my $result=&mk_subdirs('../test/test1/test3/',0777);
if ($result==1){print "OK";} else {"Not OK, can not create subdirs";}

###############################
# Unterverzeichnisse erstellen
# Parameter
# Directory ... z.B. ../test/test1/test2
# Rechte im oktalen Format
#######################################
sub mk_subdirs{
my $dir=shift;
my $rights=shift;
my @dirs=split(/\//,$dir);
my $akdir='';

$dir=~ s/^\s+//; #wenn führende Leerzeichen, dann entfernen
$dir=~ s/\s+$//; #wenn abschließende Leerzeichen, dann entfernen
$dir=~ s/^\///; #wenn führendes /, dann entfernen
$dir=~ s/\/$//; #wenn abschließendes /, dann entfernen

foreach (@dirs){
$akdir.=$_; # Aktuelle Laufvariable, hier steht das aktuell zu erstellende Verzeichnis
if (!-e $akdir){# wenn Ordner noch nicht vorhanden
my $res=mkdir($akdir,$rights); # Verzeichnis erstellen
return 0 if ($res != 1); # zurück mit 0 bei Fehler
}
$akdir.='/';
}
return 1; # OKOKOK, alles ging gut!!!
}

Aufgerufen wird das Ganze mit
my $result=&mk_subdirs('../test/test1/test3/',0777);
Im Erfolgsfall gibts als Rückgabewert eine 1, ansonsten eine 0.

Und wie geht das nun?
Also:
Das gewünschte Directory wird erstmal per Split() in einzele Teile zerlegt. Vorher werden führende und abschließende Leerzeichen oder /-Zeichen entfernt.
Danach wird häppchenweise, d.h. immer eins nach dem anderen, eine Ebene des neuen Verzeichnisses erstellt und die Rechte zugewiesen. Ich denke, die Kommentare im Script sind aussagekräftig genug.
Vielleicht findet diese neue Funktion ja einen Platz in einer privaten Library, mir jedenfalls gefällt sie inzwischen so gut, daß sie da Ihren Platz bekommen hat.

Kommentare zum Beitrag "mkdir() - Ein Verzeichnis erstellen in Perl"

Kommentar von Renée Bäcker

Wenn man einen ganzen Verzeichnisbaum erzeugen will, sollte man auf File::Path zurückgreifen.

Kommentar von Admin

Das oben genannte Modul tut tatsächlich das Gleiche. Ich habe mal den Link zur Beschreibung herausgesucht:
http://kobesearch.cpan.org/htdocs/perl/File/Path.html

Aber vielleicht ist es ja trotzdem mal interessant zu sehen, wie man so etwas "von Hand" macht.

Kommentar von Renee Bäcker

Ich bestreite gar nicht, dass es interessant ist, wie man das "von Hand" macht. Vor allem weil man die Logik dahinter ja auch für andere Probleme verwenden kann.

Ich wollte nur zusätzlich auf das Modul hinweisen.

Kommentar von Martin von Wittich

Andererseits ist das Modulkonzept genau das, was Perl so faszinierend macht... überleg dir, was du machen willst, und schau anschließend, welches CPAN-Modul genau das tut :)

Kommentar von Admin

Es stimmt schon, mit den Modulen kann man Sachen machen, die man bestimmt nicht von Hand lösen möchte.

Aber ein solches kleines Problem wie oben ist doch geradezu prädestiniert dafür, es von Hand zu lösen.

Und man will ja schließlich auch in Übung bleiben...

Kommentar von Struppi

Eigentlich ist so ein kleines Problem gerade dafür prädestiniert Module einzusetzen. Die Module sind häufig Core Module, sie sind oft klein, aber trotzdem flexibel, manchmal sind sie auch schneller. Und du hast mehr Zeit dich auf das eigentlich Programm zu konzentrieren, da du sicher kein Programm geschrieben hast, was nur Pfade erzeugt.

Kommentar von $name

Ist es wirklich richtig, dass das space&slash-trimming nach dem split kommt? Da passiert doch nichts!?

Thema: Perl System Script

Der Beitrag "mkdir() - Ein Verzeichnis erstellen in Perl" wurde 39894 mal gelesen.