5.36. Perl directory operation

Some standard functions for operating directories are listed below:

Opendir DIRHANDLE, EXPR # Open directory
Readdir DIRHANDLE # Read Directory
Rewindir DIRHANDLE # Positioning pointer to beginning
Telldir DIRHANDLE # Returns the current location of the directory
Seekdir DIRHANDLE, POS # Locate the POS location specified in the directory
Closedir DIRHANDLE # Close directory

5.36.1. Show all files #

Displays all files in the directory, and the following example uses the glob operator, demonstrated as follows:

Example #

#!/usr/bin/perl# display /tmp
All files in the directory$dir="/tmp/*";my@files=glob($dir);foreach(@files){print$\_."\\n";}#
display /tmp All files in the directory.c
Ending file$dir="/tmp/*.c";@files=glob($dir);foreach(@files){print$\_."\\n";}#
Show all hidden files$dir="/tmp/.*";@files=glob($dir);foreach(@files){print$\_."\\n";}#
display /tmp and /home All files in the directory $dir="/tmp/*
/home/*";@files=glob($dir);foreach(@files){print$\_."\\n";}

The following example lists all files in the current directory:

Example #

#!/usr/bin/perlopendir(DIR,'.')ordie"Unable to open directory,$!";
while($file=readdirDIR){print"$file\\n";}closedirDIR;

If you want to show /tmp all the contents of the directory with `` .c``at the end of the file, you can use the following code

Example #

#!/usr/bin/perlopendir(DIR,'.')ordie"Unable to open directory,$!";
foreach(sortgrep(/^.*\.c$/,readdir(DIR))){print"$\_\\n";}closedirDIR;

5.36.2. Create a new directory #

We can use it. mkdir function to create a new directory, you need to have sufficient permissions to create a directory before execution:

5.36.3. Example #

#!/usr/bin/perl$dir="/tmp/perl";# Create perl in the/tmp directory
directory mkdir($dir)ordie"could not be built $dir directory,$!";
print"Directory created successfully\\n";

5.36.4. Delete directory #

We can use it. rmdir function to delete the directory, which requires sufficient permissions. In addition, the empty directory required for the directory to be deleted:

Example #

#!/usr/bin/perl$dir="/tmp/perl";# delete /Perl under tmp directory
directory rmdir($dir)ordie"Unable to delete $dir directory,$!";
print"Directory deleted successfully\\n";

5.36.5. Switch directories #

We can use it. chdir function to switch current directories, and sufficient permissions are required to perform this operation. Examples are as follows:

Example #

#!/usr/bin/perl$dir="/home";# Move current directory to /home
Under the directory chdir($dir)ordie" Unable to switch directory to $dir,
$!";print" The directory you are currently in is $dir\\n";

Execute the above program, and the output is as follows:

The directory you are currently in is /home