Função perl mkdir

“A função mkdir () é uma função interna do Perl para criar um diretório, definindo os bits de permissão. É uma função útil quando requer armazenar dados, criando um diretório e tornando os dados seguros ao definir a permissão de acesso. Os usos desta função foram mostrados neste tutorial usando vários scripts Perl.”

Sintaxe

A sintaxe da função mkdir () é dada abaixo.

boolean mkdir (diretório, modo)

A função pode levar dois valores de argumento. O primeiro argumento é obrigatório e o nome do novo diretório é aprovado neste argumento. O segundo argumento é opcional e os bits de permissão para o diretório são definidos por este argumento. A função retorna true no sucesso e retorna falsa no fracasso.

Diferentes usos da função mkdir () foram mostrados na próxima parte do tutorial.

Exemplo 1: Crie um diretório

Crie um arquivo PERL com o seguinte script que criará um diretório no local atual ou imprima uma mensagem de erro se não conseguir criar o diretório. Se o diretório chamado “teste”Já existe no local atual ou não há permissão para criar um diretório no local atual, uma mensagem de erro será impressa; Caso contrário, o diretório será criado.

$ DIR_NAME = "TEST";
# Crie o diretório
mkdir ($ dir_name)
# Mensagem de erro de impressão
ou morrer "incapaz de criar um diretório $ dir_name.\ n ";

Execute os seguintes comandos para executar o código PERL e verifique a lista de diretório atual.

$ perl mkdir1.pl
$ ls

Saída

A saída a seguir aparecerá se o diretório for criado com sucesso.

Exemplo 2: Crie um diretório se não existir

Crie um arquivo Perl com o seguinte script que criará um diretório se o diretório não existir no local atual usando a função mkdir (). O nome do diretório será retirado do usuário e a opção -e com o nome do diretório foi usada na condição "se" para verificar se o diretório já existe no local atual ou não. Se o nome do diretório retirado do usuário não existir no local atual, o diretório será criado e uma mensagem de sucesso será impressa após a execução do código.

Imprima "Digite o nome do diretório:";
#Nome do diretório da Take do usuário
$ DIR_NAME =;
#Remove Newline
chomp ($ dir_name);
#Verifique se o diretório existe ou não
se (-e "$ dir_name")

#Print Message se o diretório existir
Imprima "Diretório já existe.\ n ";

outro

#Crie o diretório
mkdir ($ dir_name)
#Mensagem de erro da impressão
ou morrer "incapaz de criar um diretório $ dir_name.\ n ";
#Print a mensagem de sucesso
Imprima "Diretório criado com sucesso.\ n ";

Execute os seguintes comandos para executar o código PERL e verifique a lista de diretório atual.

$ perl mkdir2.pl
$ ls

Saída

De acordo com a saída a seguir, o nome do diretório retirado do usuário existe no local atual para a primeira execução. O nome do diretório retirado do usuário não existe no local atual para a segunda execução. Então, o diretório foi criado com sucesso e a mensagem de sucesso foi impressa.

Exemplo 3: Crie um diretório com os bits de permissão

O segundo argumento da função mkdir () foi usado para definir os bits de permissão do diretório que serão criados por esta função. Crie um arquivo Perl com o seguinte código que criará um nome de diretório retirado do usuário com permissão, "0744", se o diretório não existir no local atual. O Função de Oct () foi usado no código para converter os bits de permissão do valor da string para o valor do número.

Imprima "Digite o nome do diretório:";
#Nome do diretório da Take do usuário
$ DIR_NAME =;
#Remove Newline
chomp ($ dir_name);
#Verifique se o diretório existe ou não
se (-e "$ dir_name")

#Print Message se o diretório existir
Imprima "Diretório já existe.\ n ";

outro

$ permissão = "0744";
#Crie o diretório com permissão
mkdir ($ dir_name, outubro ($ permissão))
#Mensagem de erro da impressão
ou morrer "incapaz de criar um diretório $ dir_name.\ n ";
#Print a mensagem de sucesso
Imprima "Diretório criado com sucesso.\ n ";

Execute os seguintes comandos para executar o código PERL e verifique a lista de diretório atual.

$ perl mkdir3.pl
$ ls -l

Saída

De acordo com a saída a seguir, o diretório chamado “testdir”Não existia no local atual antes, e o diretório foi criado com sucesso depois de executar o código. A saída do “ls -l”Comando mostra que o proprietário do diretório tem todas as permissões, e o grupo e outros usuários têm a permissão de leitura apenas que foi definida pelos bits de permissões, 0744.

Exemplo-4: Crie um diretório com base no caminho do diretório

Crie um arquivo PERL com o seguinte código que criará um diretório com base no caminho fornecido se o diretório não existir. A opção -d foi usada com o caminho do diretório na condição "se" para verificar se o diretório existe no local definido ou não. Se o caminho do diretório não existir, uma mensagem de erro será exibida.

#Set o caminho do diretório
$ DIR_PATH = "/HOME/FAHMIDA/PERL/TEMP/MYDIR";
#Verifique se o diretório existe ou não
if (-d "$ dir_path")

#Print Message se o diretório existir
Imprima "Diretório já existe.\ n ";

outro

mkdir ($ dir_path)
#Mensagem de erro da impressão
ou morrer "incapaz de criar um diretório $ dir_path.\ n ";
#Print a mensagem de sucesso
Imprima "Diretório criado com sucesso.\ n ";

Execute os seguintes comandos para executar o código PERL, vá para o caminho do diretório e verifique se o diretório é criado ou não.

$ perl mkdir3.pl
$ CD Temp
$ ls

Saída

De acordo com a seguinte saída, o “mydir”O diretório não existia antes no caminho definido, e o diretório foi criado com sucesso.

Conclusão

As maneiras de criar um diretório com ou sem os bits de permissão usando a função mkdir () foram mostrados neste tutorial. Espero que este tutorial ajude o novo usuário Perl a conhecer os usos da função mkdir () em Perl corretamente.