Funkcja Perl Mkdir

„Funkcja mkdir () to wbudowana funkcja Perla do utworzenia katalogu poprzez ustawianie bitów uprawnień. Jest to przydatna funkcja, gdy wymaga przechowywania danych poprzez tworzenie katalogu i zapewnienie bezpieczeństwa danych poprzez ustawianie uprawnienia dostępu. Zastosowania tej funkcji zostały pokazane w tym samouczku za pomocą wielu skryptów PERL."

Składnia

Składnia funkcji mkdir () podano poniżej.

boolean mkdir (katalog, tryb)

Funkcja może przyjmować dwie wartości argumentów. Pierwszy argument jest obowiązkowy, a nazwa nowego katalogu jest przekazywana w tym argumencie. Drugi argument jest opcjonalny, a bity uprawnień do katalogu są ustalane przez ten argument. Funkcja zwraca prawdziwie w sukcesie i zwraca false w sprawie porażki.

Różne zastosowania funkcji mkdir () zostały pokazane w następnej części samouczka.

Przykład-1: Utwórz katalog

Utwórz plik PERL z następującym skryptem, który utworzy katalog w bieżącej lokalizacji lub wydrukuj komunikat o błędzie, jeśli nie jest w stanie utworzyć katalogu. Jeśli katalog nazwany „test„Już istnieje w bieżącej lokalizacji lub nie ma pozwolenia na utworzenie katalogu w bieżącej lokalizacji, wówczas zostanie wydrukowany komunikat o błędzie; W przeciwnym razie katalog zostanie utworzony.

$ dir_name = "test";
# Utwórz katalog
mkdir ($ dir_name)
# Wydrukuj komunikat o błędzie
lub umrzeć „Nie można utworzyć katalogu $ dir_name.\N";

Uruchom następujące polecenia, aby wykonać kod Perl i sprawdź bieżącą listę katalogu.

$ perl mkdir1.pl
$ ls

Wyjście

Następujące dane wyjściowe pojawią się, jeśli katalog zostanie utworzony pomyślnie.

Przykład-2: Utwórz katalog, jeśli nie istnieje

Utwórz plik PERL z następującym skryptem, który utworzy katalog, jeśli katalog nie istnieje w bieżącej lokalizacji za pomocą funkcji mkdir (). Nazwa katalogu zostanie pobrana od użytkownika, a opcja -e z nazwą katalogu została użyta w warunku „jeśli”, aby sprawdzić, czy katalog już istnieje w bieżącej lokalizacji, czy nie. Jeśli nazwa katalogu pobrana od użytkownika nie istnieje w bieżącej lokalizacji, zostanie utworzony katalog, a komunikat sukcesu zostanie wydrukowany po wykonaniu kodu.

Wydrukuj „Wprowadź nazwę katalogu:”;
#Zrób nazwę katalogu od użytkownika
$ dir_name =;
#ReMove Newline
Chomp ($ dir_name);
#Sprawdź katalog istnieje lub nie
if (-e „$ dir_name”)

#PRINT Wiadomość Jeśli istnieje katalog
Drukuj „Katalog już istnieje.\N";

w przeciwnym razie

#Utworz katalog
mkdir ($ dir_name)
#PRINT Komunikat o błędzie
lub umrzeć „Nie można utworzyć katalogu $ dir_name.\N";
#Print The Success Komunikat Success
Drukuj „Directory utworzony pomyślnie.\N";

Uruchom następujące polecenia, aby wykonać kod Perl i sprawdź bieżącą listę katalogu.

$ perl mkdir2.pl
$ ls

Wyjście

Zgodnie z następującym wyjściem nazwa katalogu pobrana od użytkownika istnieje w bieżącej lokalizacji dla pierwszego wykonania. Nazwa katalogu pobrana od użytkownika nie istnieje w bieżącej lokalizacji dla drugiego wykonania. Tak więc katalog został pomyślnie utworzony, a przesłanie sukcesu zostało wydrukowane.

Przykład-3: Utwórz katalog za pomocą bitów uprawnień

Drugi argument funkcji mkdir () został użyty do ustawienia bitów uprawnień katalogu, który zostanie utworzony przez tę funkcję. Utwórz plik PERL z następującym kodem, który utworzy nazwę katalogu pobraną od użytkownika za zgodą „0744”, jeśli katalog nie istnieje w bieżącej lokalizacji. funkcja października został użyty w kodzie do konwersji bitów uprawnień z wartości ciągu na wartość liczbową.

Wydrukuj „Wprowadź nazwę katalogu:”;
#Zrób nazwę katalogu od użytkownika
$ dir_name =;
#ReMove Newline
Chomp ($ dir_name);
#Sprawdź katalog istnieje lub nie
if (-e „$ dir_name”)

#PRINT Wiadomość Jeśli istnieje katalog
Drukuj „Katalog już istnieje.\N";

w przeciwnym razie

$ pugsission = "0744";
#Utworz katalog za zgodą
mkdir ($ dir_name, październik ($ uprawnienia))
#PRINT Komunikat o błędzie
lub umrzeć „Nie można utworzyć katalogu $ dir_name.\N";
#Print The Success Komunikat Success
Drukuj „Directory utworzony pomyślnie.\N";

Uruchom następujące polecenia, aby wykonać kod Perl i sprawdź bieżącą listę katalogu.

$ perl mkdir3.pl
$ ls -l

Wyjście

Zgodnie z następującym wyjściem katalog nazwany „testDir”Nie istniał wcześniej w bieżącej lokalizacji, a katalog został utworzony pomyślnie po wykonaniu kodu. Wyjście „ls -l”Polecenie pokazuje, że właściciel katalogu ma wszystkie uprawnienia, a grupa i inni użytkownicy mają tylko uprawnienia do odczytu, które zostały ustalone przez bity uprawnień, 0744.

Przykład-4: Utwórz katalog na podstawie ścieżki katalogu

Utwórz plik PERL z następującym kodem, który utworzy katalog na podstawie danej ścieżki, jeśli katalog nie istnieje. Opcja -D została użyta ze ścieżką katalogu w warunkach „jeśli”, aby sprawdzić, czy katalog istnieje w określonej lokalizacji, czy nie. Jeśli ścieżka katalogu nie istnieje, zostanie wyświetlony komunikat o błędzie.

#Otestuj ścieżkę katalogów
$ dir_path = "/home/fahmida/perl/temp/mydir";
#Sprawdź katalog istnieje lub nie
if (-d „$ dir_path”)

#PRINT Wiadomość Jeśli istnieje katalog
Drukuj „Katalog już istnieje.\N";

w przeciwnym razie

mkdir ($ dir_path)
#PRINT Komunikat o błędzie
lub umrzeć „Nie można stworzyć katalogu $ dir_path.\N";
#Print The Success Komunikat Success
Drukuj „Directory utworzony pomyślnie.\N";

Uruchom następujące polecenia, aby wykonać kod Perla, przejdź do ścieżki katalogu i sprawdź, czy katalog jest utworzony, czy nie.

$ perl mkdir3.pl
$ CD TEMP
$ ls

Wyjście

Zgodnie z następującym wyjściem, „mydir„Katalog nie występował wcześniej na zdefiniowanej ścieżce, a katalog został pomyślnie utworzony.

Wniosek

W tym samouczku pokazano sposoby tworzenia katalogu za pomocą bitów uprawnień lub bez za pomocą funkcji mkdir (). Mam nadzieję, że ten samouczek pomoże nowemu użytkownikowi Perl w prawidłowym poznaniu zastosowań funkcji mkdir () w Perl.