Funzione perl mkdir
“La funzione mkdir () è una funzione integrata di Perl per creare una directory impostando i bit di autorizzazione. È una funzione utile quando richiede l'archiviazione dei dati creando una directory e rendendo sicuri i dati impostando l'autorizzazione di accesso. Gli usi di questa funzione sono stati mostrati in questo tutorial utilizzando più script Perl."
Sintassi
La sintassi della funzione mkdir () è riportata di seguito.
Booleano MKDIR (directory, modalità)
La funzione può prendere due valori di argomento. Il primo argomento è obbligatorio e il nome della nuova directory viene approvato in questo argomento. Il secondo argomento è facoltativo e i bit di autorizzazione per la directory sono impostati da questo argomento. La funzione restituisce vera al successo e restituisce falso su fallimento.
Diversi usi della funzione mkdir () sono stati mostrati nella parte successiva del tutorial.
Esempio-1: crea una directory
Crea un file Perl con il seguente script che creerà una directory sulla posizione corrente o stamperà un messaggio di errore se non è in grado di creare la directory. Se la directory ha chiamato "test"Esiste già nella posizione corrente o non è possibile creare una directory sulla posizione corrente, quindi verrà stampato un messaggio di errore; Altrimenti, la directory verrà creata.
$ dir_name = "test";
# Crea la directory
mkdir ($ dir_name)
# Stampa Messaggio di errore
o morire "Impossibile creare la directory $ dir_name.\N";
Esegui i seguenti comandi per eseguire il codice Perl e controllare l'elenco delle directory corrente.
$ perl mkdir1.pl
$ ls
Produzione
Verrà visualizzato il seguente output se la directory viene creata correttamente.
Esempio-2: crea una directory se non esiste
Crea un file Perl con il seguente script che creerà una directory se la directory non esiste nella posizione corrente utilizzando la funzione mkdir (). Il nome della directory verrà prelevato dall'utente e l'opzione -E con il nome della directory è stata utilizzata nella condizione "if" per verificare se la directory esiste già nella posizione corrente o meno. Se il nome della directory prelevato dall'utente non esiste nella posizione corrente, verrà creata la directory e verrà stampato un messaggio di successo dopo aver eseguito il codice.
stampare "Immettere il nome della directory:";
#Take Nome directory dall'utente
$ dir_name =;
#Remove Newline
chomp ($ dir_name);
#Check La directory esiste o no
if (-e "$ dir_name")
#Print Messaggio se esiste la directory
Stampa "La directory esiste già.\N";
altro
#Crea la directory
mkdir ($ dir_name)
#Print Messaggio di errore
o morire "Impossibile creare la directory $ dir_name.\N";
#Print il messaggio di successo
Stampa "Directory creata correttamente.\N";
Esegui i seguenti comandi per eseguire il codice Perl e controllare l'elenco delle directory corrente.
$ perl mkdir2.pl
$ ls
Produzione
Secondo il seguente output, il nome della directory prelevato dall'utente esiste nella posizione corrente per la prima esecuzione. Il nome della directory prelevato dall'utente non esiste nella posizione corrente per la seconda esecuzione. Quindi, la directory è stata creata correttamente e il messaggio di successo è stato stampato.
Esempio-3: crea una directory con i bit di autorizzazione
Il secondo argomento della funzione mkdir () è stato utilizzato per impostare i bit di autorizzazione della directory che saranno creati da questa funzione. Crea un file Perl con il seguente codice che creerà un nome di directory prelevato dall'utente con l'autorizzazione, "0744", se la directory non esiste nella posizione corrente. IL Ott () funzione è stato utilizzato nel codice per convertire i bit di autorizzazione dal valore della stringa al valore del numero.
stampare "Immettere il nome della directory:";
#Take Nome directory dall'utente
$ dir_name =;
#Remove Newline
chomp ($ dir_name);
#Check La directory esiste o no
if (-e "$ dir_name")
#Print Messaggio se esiste la directory
Stampa "La directory esiste già.\N";
altro
$ autorizzazione = "0744";
#Crea la directory con il permesso
mkdir ($ dir_name, ott ($ autorizzazione))
#Print Messaggio di errore
o morire "Impossibile creare la directory $ dir_name.\N";
#Print il messaggio di successo
Stampa "Directory creata correttamente.\N";
Esegui i seguenti comandi per eseguire il codice Perl e controllare l'elenco delle directory corrente.
$ perl mkdir3.pl
$ ls -l
Produzione
Secondo il seguente output, la directory ha chiamato "Testdir"Non esisteva prima nella posizione corrente e la directory è stata creata correttamente dopo aver eseguito il codice. L'output del "ls -l"Il comando mostra che il proprietario della directory ha tutte le autorizzazioni e il gruppo e altri utenti hanno l'autorizzazione di lettura che è stata impostata dai bit di autorizzazioni, 0744.
Esempio-4: crea una directory in base al percorso della directory
Crea un file Perl con il seguente codice che creerà una directory in base al percorso dato se la directory non esiste. L'opzione -D è stata utilizzata con il percorso della directory nella condizione "if" per verificare se la directory esiste o meno nella posizione definita. Se il percorso della directory non esiste, verrà visualizzato un messaggio di errore.
#Sept il percorso della directory
$ dir_path = "/home/fahmida/perl/temp/mydir";
#Check La directory esiste o no
if (-d "$ dir_path")
#Print Messaggio se esiste la directory
Stampa "La directory esiste già.\N";
altro
mkdir ($ dir_path)
#Print Messaggio di errore
o morire "Impossibile creare la directory $ dir_path.\N";
#Print il messaggio di successo
Stampa "Directory creata correttamente.\N";
Esegui i seguenti comandi per eseguire il codice Perl, vai sul percorso della directory e controlla se la directory è creata o meno.
$ perl mkdir3.pl
$ cd temp
$ ls
Produzione
Secondo il seguente output, il "mydir"La directory non esisteva prima sul percorso definito e la directory è stata creata con successo.
Conclusione
I modi per creare una directory con o senza i bit di autorizzazione utilizzando la funzione mkdir () sono stati mostrati in questo tutorial. Spero che questo tutorial aiuti il nuovo utente perl a conoscere gli usi della funzione mkdir () in Perl correttamente.