Рубрики

Perl | Каталоги с операциями CRUD

Perl — это универсальный и кроссплатформенный язык программирования, который в основном используется для манипулирования текстом и используется при разработке многих программных приложений, таких как веб-разработка, приложения с графическим интерфейсом пользователя и т. Д. Он предпочтительнее других языков программирования, поскольку он более быстрый, мощный и в Perl много ярлыки, которые помогают в написании быстрого сценария, что делает его написание меньше времени.
Каталог используется в языках программирования для хранения значений в виде списков. Каталог довольно похож на файл. Как и файл, каталог также позволяет выполнять с ним несколько операций. Эти операции используются для изменения существующего каталога или создания нового.

Различные операции, которые могут быть выполнены в Справочнике:

  1. Создание нового каталога
  2. Открытие существующего каталога
  3. Чтение содержимого каталога
  4. Изменение пути к каталогу
  5. Закрытие каталога
  6. Удаление каталога

Создание каталога

Для создания каталога используется mkdir (PATH, MODE). Эта функция помогает создать новый каталог, если пользователь хочет проверить, что файл уже существует, это можно сделать с помощью функции -e . Путь задается PATH с использованием режима, который определяется функцией MODE.
Пример:

#! / USR / бен / Perl

  
# Путь к каталогу

my $directory = 'C:\Users\GeeksForGeeks\Folder\Perl';  

  
# Создание каталога в Perl

mkdir($directory) or die "No $directory directory, $!";  

print "Directory created \n"

Выход:

Открытие каталога

Чтобы открыть каталог в Perl, используется короткая функция opendir DIRHANDLE, PATH. ПУТЬ здесь — это путь к каталогу, который нужно открыть.
Пример :

#! / USR / бен / Perl

  

my $directory = 'C:\Users\GeeksForGeeks\Folder';  

opendir (DIR, $directory) or die "No directory, $!";  

while ($file = readdir DIR) 

{  

    print "$file\n";  

}  

closedir DIR;

Выход:

Читать каталог в скалярном и списочном контексте

Чтение каталога является обычной задачей, так как каждый раз, когда вы читаете то, что хранится в файлах, вам нужно выполнить код или понять код. Для чтения каталога используется readdir DIRHANDLE. Пользователь может прочитать каталог двумя способами: в контексте списка и в скалярном контексте.
В контексте списка код возвращает все остальные записи в каталоге, и если записи являются пустыми в каталогах, то неопределенные значения будут возвращены в скалярном контексте, а пустой список — в контексте списка.
Скалярный контекст:
Пример:

#! / USR / бен / Perl

use strict; 

use warnings; 

use 5.010; 

  
# Путь к каталогу

my $directory = shift // 'C:\Users\GeeksForGeeks\Folder'

  
# Открытие каталога

opendir my $dh, $directory or 

die "Could not open '$directory' for reading '$!'\n"

  
# Печать содержимого каталога

while (my $content = readdir $dh

    say $content

  
# Закрытие каталога

closedir $dh

Выход:

Контекст списка:

#! / USR / бен / Perl

use strict;  

use warnings;  

use 5.010;  

  
# Путь к каталогу

my $directory  = shift // 'C:\Users\GeeksForGeeks\Folder';  

  
# Открытие каталога

opendir my $dh, $directory or 

die "Could not open '$directory' for reading '$!'\n";  

  
# Чтение содержимого файла

my @content = readdir $dh;  

  
# Печать содержимого каталога

foreach my $content (@content

{  

    say $content;  

}  

  
# Закрытие каталога

closedir $dh;

Выход:

Смена каталога

Для изменения каталога используется функция chdir (). Эта функция помогает изменить каталог и отправить его в новое место. Функция chdir () при вызове со скриптом изменяет каталог для остальной части скрипта. Каталог на терминале не будет изменен, если эта функция вызывается в скрипте. С другой стороны, при непосредственном вызове с новым путем к каталогу изменения отражаются в терминале одновременно.
Пример 1: когда chdir () вызывается в скрипте

#! / USR / бен / Perl

  
# Модуль для возврата
# текущий путь к каталогу

use Cwd;

  
# Путь нового каталога

$directory = "C:/Users";

  
# Печать пути к текущему каталогу
# используя функцию cwd

print "The current directory is ";

print(cwd);

print "\n"

  
# Изменение каталога с помощью функции chdir

chdir($directory) or 

      die "Couldn't go inside $directory directory, $!";

  
# Печать пути измененного каталога

print "Directory has been changed to $directory\n";

print "The current directory is ";

print(cwd);

print "\n"

Выход

Пример 2: когда chdir () вызывается непосредственно на терминале

Закрытие каталога

Чтобы закрыть каталог закрыто, используется DIRHANDLE. Здесь DIRHANDLE — это дескриптор каталога, в котором он открывается с помощью функции opendir.
Пример:

#! / USR / бен / Perl

  
# Каталог, который должен быть открыт

$dirname = "C:/Users/GeeksForGeeks";

  
# Открытие каталога
# используя функцию opendir

opendir (dir, $dirname) || die "Error $dirname\n";

  
# Печать содержимого каталога
# используя функцию readdir

while(($filename = readdir(dir))) 

{

    print("$filename\n");

}

  
# Закрытие каталога с использованием closedir

closedir(dir);

Выход:

Удаление каталога

Удаление каталога может быть сделано с помощью функции rmdir. Эта функция удаляет указанный каталог с помощью FILENAME только в том случае, если этот каталог пуст, в случае успеха он возвращает true, в противном случае — false.
Пример:

#! / USR / бен / Perl

$directory = "C:/Users/GeeksForGeeks/Folder/Perl";  

  
# Это удаляет каталог perl

rmdir($directory ) or

      die "Couldn't remove $directory directory, $!";  

        

print "Directory removed \n";  

Выход:

Рекомендуемые посты:

Perl | Каталоги с операциями CRUD

0.00 (0%) 0 votes