Perl mkdir -funksjon

“Mkdir () -funksjonen er en innebygd funksjon av Perl for å lage en katalog ved å angi tillatelsesbitene. Det er en nyttig funksjon når den krever lagring av data ved å opprette en katalog og gjøre dataene sikre ved å angi tilgangstillatelse. Bruken av denne funksjonen er vist i denne opplæringen ved å bruke flere Perl -skript.”

Syntaks

Syntaksen til mkdir () -funksjonen er gitt nedenfor.

boolean mkdir (katalog, modus)

Funksjonen kan ta to argumentverdier. Det første argumentet er obligatorisk, og navnet på den nye katalogen blir gitt i dette argumentet. Det andre argumentet er valgfritt, og tillatelsesbitene for katalogen er satt av dette argumentet. Funksjonen returnerer sann på suksess og returnerer falsk ved fiasko.

Ulike bruksområder av MKDIR () -funksjonen er vist i neste del av opplæringen.

Eksempel 1: Opprett en katalog

Opprett en Perl -fil med følgende skript som oppretter en katalog på gjeldende sted eller skriver ut en feilmelding hvis den ikke kan opprette katalogen. Hvis katalogen som heter “test”Eksisterer allerede på det nåværende stedet, eller det er ingen tillatelse til å opprette en katalog på det nåværende stedet, da vil en feilmelding bli skrevet ut; Ellers blir katalogen opprettet.

$ dir_name = "test";
# Opprett katalogen
mkdir ($ dir_name)
# Skriv ut feilmelding
eller dø "Kan ikke opprette DIR_NAME -katalogen.\ n ";

Kjør følgende kommandoer for å utføre Perl -koden og sjekk gjeldende katalogliste.

$ perl mkdir1.pl
$ ls

Produksjon

Følgende utdata vises hvis katalogen opprettes vellykket.

Eksempel-2: Opprett en katalog hvis den ikke eksisterer

Opprett en Perl -fil med følgende skript som oppretter en katalog hvis katalogen ikke eksisterer på det nåværende stedet ved å bruke MKDIR () -funksjonen. Katalognavnet vil bli hentet fra brukeren, og alternativet -e med katalognavnet har blitt brukt i "hvis" -tilstanden for å sjekke om katalogen allerede eksisterer på det nåværende stedet eller ikke. Hvis katalognavnet hentet fra brukeren ikke eksisterer på det nåværende stedet, vil katalogen bli opprettet, og en suksessmelding vil bli skrevet ut etter å ha utført koden.

Skriv ut "Skriv inn katalognavnet:";
#Takedatalognavn fra brukeren
$ dir_name =;
#Fjern Newline
chomp ($ dir_name);
#Sjekk katalogen eksisterer eller ikke
if (-e "$ dir_name")

#Trykkmelding hvis katalogen eksisterer
Skriv ut "Katalogen eksisterer allerede.\ n ";

ellers

#Lag katalogen
mkdir ($ dir_name)
#Print feilmelding
eller dø "Kan ikke opprette DIR_NAME -katalogen.\ n ";
#Trykk suksessmeldingen
Skriv ut "Katalog opprettet med hell.\ n ";

Kjør følgende kommandoer for å utføre Perl -koden og sjekk gjeldende katalogliste.

$ perl mkdir2.pl
$ ls

Produksjon

I henhold til følgende utdata eksisterer katalognavnet hentet fra brukeren på det nåværende stedet for den første utførelsen. Katalognavnet hentet fra brukeren eksisterer ikke på det nåværende stedet for den andre utførelsen. Så katalogen er opprettet med hell, og suksessmeldingen er skrevet ut.

Eksempel-3: Lag en katalog med tillatelsesbitene

Det andre argumentet fra MkDIR () -funksjonen har blitt brukt til å angi tillatelsesbiter i katalogen som vil bli opprettet av denne funksjonen. Opprett en Perl -fil med følgende kode som oppretter et katalognavn hentet fra brukeren med tillatelse, “0744,” hvis katalogen ikke eksisterer på det nåværende stedet. De Okt () Funksjon har blitt brukt i koden for å konvertere tillatelsesbitene fra strengverdien til tallverdien.

Skriv ut "Skriv inn katalognavnet:";
#Takedatalognavn fra brukeren
$ dir_name =;
#Fjern Newline
chomp ($ dir_name);
#Sjekk katalogen eksisterer eller ikke
if (-e "$ dir_name")

#Trykkmelding hvis katalogen eksisterer
Skriv ut "Katalogen eksisterer allerede.\ n ";

ellers

$ tillatelse = "0744";
#Skaper katalogen med tillatelse
mkdir ($ dir_name, okt ($ tillatelse))
#Print feilmelding
eller dø "Kan ikke opprette DIR_NAME -katalogen.\ n ";
#Trykk suksessmeldingen
Skriv ut "Katalog opprettet med hell.\ n ";

Kjør følgende kommandoer for å utføre Perl -koden og sjekk gjeldende katalogliste.

$ perl mkdir3.pl
$ ls -l

Produksjon

I henhold til følgende utdata, katalogen som heter “Testdir”Eksisterte ikke på det nåværende stedet før, og katalogen ble opprettet med suksess etter å ha utført koden. Utgangen fra “ls -l”Kommando viser at eieren av katalogen har alle tillatelser, og gruppen og andre brukere har bare lesetillatelse som bare er satt av tillatelsesbitene, 0744.

Eksempel-4: Lag en katalog basert på katalogstien

Opprett en Perl -fil med følgende kode som vil opprette en katalog basert på den gitte banen hvis katalogen ikke eksisterer. Alternativet -d har blitt brukt med katalogstien i "hvis" -tilstanden for å sjekke om katalogen eksisterer på det definerte stedet eller ikke. Hvis katalogstien ikke eksisterer, vises en feilmelding.

#Sett katalogstien
$ dir_path = "/home/fahmida/perl/temp/mydir";
#Sjekk katalogen eksisterer eller ikke
if (-d "$ dir_path")

#Trykkmelding hvis katalogen eksisterer
Skriv ut "Katalogen eksisterer allerede.\ n ";

ellers

mkdir ($ dir_path)
#Print feilmelding
eller dø "Kan ikke lage $ DIR_PATH -katalogen.\ n ";
#Trykk suksessmeldingen
Skriv ut "Katalog opprettet med hell.\ n ";

Kjør følgende kommandoer for å utføre Perl -koden, gå til katalogstien og sjekk om katalogen er opprettet eller ikke.

$ perl mkdir3.pl
$ CD Temp
$ ls

Produksjon

I henhold til følgende utgang, "mydir”Katalogen var ikke eksisterende før på den definerte banen, og katalogen ble opprettet med hell.

Konklusjon

Måtene å lage en katalog med eller uten tillatelsesbiter ved å bruke MkDIR () -funksjonen er vist i denne opplæringen. Jeg håper denne opplæringen vil hjelpe den nye Perl -brukeren til å kjenne bruken av MkDIR () -funksjonen i Perl riktig.