Perl Mkdir -Funktion

Perl Mkdir -Funktion

„Die Funktion mkdir () ist eine integrierte Funktion von Perl, um ein Verzeichnis zu erstellen, indem die Berechtigungsbits festgelegt werden. Es ist eine nützliche Funktion, wenn das Speichern von Daten durch das Erstellen eines Verzeichnisses und die Sicherung der Daten durch Einstellen der Zugriffsberechtigung erforderlich ist. Die Verwendungen dieser Funktion wurden in diesem Tutorial unter Verwendung mehrerer Perl -Skripte gezeigt.”

Syntax

Die Syntax der Funktion mkdir () ist unten angegeben.

Boolean Mkdir (Verzeichnis, Modus)

Die Funktion kann zwei Argumentwerte erfolgen. Das erste Argument ist obligatorisch, und der Name des neuen Verzeichnisses wird in diesem Argument verabschiedet. Das zweite Argument ist optional, und die Berechtigungsbits für das Verzeichnis werden durch dieses Argument festgelegt. Die Funktion gibt den Erfolg zutreffend und kehrt beim Misserfolg falsch zurück.

Im nächsten Teil des Tutorials wurden verschiedene Verwendungen der Funktion mkdir () gezeigt.

Beispiel 1: Erstellen Sie ein Verzeichnis

Erstellen Sie eine Perl -Datei mit dem folgenden Skript, in dem ein Verzeichnis im aktuellen Speicherort erstellt wird, oder drucken Sie eine Fehlermeldung, wenn es das Verzeichnis nicht erstellen kann. Wenn das genannte Verzeichnis “prüfen”Es gibt bereits am aktuellen Standort oder es gibt keine Erlaubnis, ein Verzeichnis am aktuellen Standort zu erstellen. Dann wird eine Fehlermeldung gedruckt. Andernfalls wird das Verzeichnis erstellt.

$ dir_name = "test";
# Erstellen Sie das Verzeichnis
Mkdir ($ DIR_NAME)
# Druckfehlermeldung
oder sterben "kann nicht $ DIR_NAME -Verzeichnis erstellen.\N";

Führen Sie die folgenden Befehle aus, um den Perl -Code auszuführen und die aktuelle Verzeichnisliste zu überprüfen.

$ perl Mkdir1.Pl
$ ls

Ausgang

Die folgende Ausgabe wird angezeigt, wenn das Verzeichnis erfolgreich erstellt wird.

Beispiel-2: Erstellen Sie ein Verzeichnis, wenn es nicht existiert

Erstellen Sie eine Perl -Datei mit dem folgenden Skript, das ein Verzeichnis erstellt, wenn das Verzeichnis im aktuellen Ort nicht vorhanden ist, indem Sie die Funktion mkdir () verwenden. Der Verzeichnisname wird vom Benutzer entnommen, und die Option -e mit dem Verzeichnisnamen wurde in der Bedingung „If“ verwendet, um zu überprüfen, ob das Verzeichnis bereits am aktuellen Ort vorhanden ist oder nicht. Wenn der vom Benutzer genommene Verzeichnisname am aktuellen Ort nicht vorhanden ist, wird das Verzeichnis erstellt, und eine Erfolgsnachricht wird nach der Ausführung des Codes gedruckt.

Drucken "den Verzeichnisnamen eingeben:";
#Take -Verzeichnisname vom Benutzer
$ dir_name =;
#Remove Newline
chomp ($ dir_name);
#Überprüfen Sie das Verzeichnis oder nicht
if (-e "$ dir_name")

#Drucknachricht, wenn das Verzeichnis existiert
Drucken "Verzeichnis existieren bereits.\N";

anders

#Create das Verzeichnis
Mkdir ($ DIR_NAME)
#Druckfehlermeldung
oder sterben "kann nicht $ DIR_NAME -Verzeichnis erstellen.\N";
#Print der Erfolgsnachricht
Drucken "Verzeichnis erfolgreich erstellt.\N";

Führen Sie die folgenden Befehle aus, um den Perl -Code auszuführen und die aktuelle Verzeichnisliste zu überprüfen.

$ Perl Mkdir2.Pl
$ ls

Ausgang

Gemäß der folgenden Ausgabe existiert der vom Benutzer genommene Verzeichnisname am aktuellen Ort für die erste Ausführung. Der vom Benutzer genommene Verzeichnisname existiert nicht im aktuellen Ort für die zweite Ausführung. Das Verzeichnis wurde also erfolgreich erstellt und die Erfolgsnachricht wurde gedruckt.

Beispiel-3: Erstellen Sie ein Verzeichnis mit den Berechtigungsbits

Das zweite Argument der Funktion mkdir () wurde verwendet, um die Berechtigungsbits des Verzeichnisses festzulegen, die durch diese Funktion erstellt werden. Erstellen Sie eine Perl -Datei mit dem folgenden Code, in dem ein Verzeichnisname erstellt wird, der vom Benutzer mit Genehmigung „0744“ entnommen wird, wenn das Verzeichnis nicht im aktuellen Speicherort vorhanden ist. Der OCT () Funktion wurde im Code verwendet, um die Berechtigungsbits aus dem Zeichenfolgenwert in den Zahlenwert zu konvertieren.

Drucken "den Verzeichnisnamen eingeben:";
#Take -Verzeichnisname vom Benutzer
$ dir_name =;
#Remove Newline
chomp ($ dir_name);
#Überprüfen Sie das Verzeichnis oder nicht
if (-e "$ dir_name")

#Drucknachricht, wenn das Verzeichnis existiert
Drucken "Verzeichnis existieren bereits.\N";

anders

$ permission = "0744";
#Erstellen Sie das Verzeichnis mit Erlaubnis
Mkdir ($ DIR_NAME, OCT ($ Erlaubnis))
#Druckfehlermeldung
oder sterben "kann nicht $ DIR_NAME -Verzeichnis erstellen.\N";
#Print der Erfolgsnachricht
Drucken "Verzeichnis erfolgreich erstellt.\N";

Führen Sie die folgenden Befehle aus, um den Perl -Code auszuführen und die aktuelle Verzeichnisliste zu überprüfen.

$ perl mkdir3.Pl
$ ls -l

Ausgang

Gemäß der folgenden Ausgabe das benannte Verzeichnis “testdir”Gab es am aktuellen Standort zuvor nicht und das Verzeichnis wurde erfolgreich erstellt, nachdem der Code ausgeführt wurde. Die Ausgabe der “ls -lDer Befehl „Befehl zeigt, dass der Eigentümer des Verzeichnisses über alle Berechtigungen verfügt und die Gruppe und andere Benutzer die LEAD -Erlaubnis nur haben, die von den Berechtigungsbits festgelegt wurde, 0744.

Beispiel-4: Erstellen Sie ein Verzeichnis basierend auf dem Verzeichnispfad

Erstellen Sie eine Perl -Datei mit dem folgenden Code, in dem ein Verzeichnis basierend auf dem angegebenen Pfad erstellt wird, wenn das Verzeichnis nicht vorhanden ist. Die Option -D wurde mit dem Verzeichnispfad in der Bedingung „if“ verwendet, um zu überprüfen, ob das Verzeichnis am definierten Ort vorliegt oder nicht. Wenn der Verzeichnispfad nicht vorhanden ist, wird eine Fehlermeldung angezeigt.

#Den Verzeichnispfad einsetzen
$ dir_path = "/home/fahmida/perl/temp/mydir";
#Überprüfen Sie das Verzeichnis oder nicht
if (-d "$ dir_path")

#Drucknachricht, wenn das Verzeichnis existiert
Drucken "Verzeichnis existieren bereits.\N";

anders

mkdir ($ dir_path)
#Druckfehlermeldung
oder sterben "kann nicht $ DIR_PATH -Verzeichnis erstellen.\N";
#Print der Erfolgsnachricht
Drucken "Verzeichnis erfolgreich erstellt.\N";

Führen Sie die folgenden Befehle aus, um den Perl -Code auszuführen, gehen Sie zum Verzeichnispfad und überprüfen Sie, ob das Verzeichnis erstellt wird oder nicht.

$ perl mkdir3.Pl
$ cd temp
$ ls

Ausgang

Nach der folgenden Ausgabe die “MydirDas Verzeichnis war auf dem definierten Weg nicht vorhanden, und das Verzeichnis wurde erfolgreich erstellt.

Abschluss

In diesem Tutorial wurden die Möglichkeiten zur Erstellung eines Verzeichnisses mit oder ohne Berechtigungsbits mit der Funktion mkdir () gezeigt. Ich hoffe.