珀尔 |使用文件通配符访问目录

在 Perl 中，目录用于以列表的形式存储值。目录与文件非常相似。就像文件一样，该目录也允许对其执行多项操作。这些操作用于修改现有目录或创建新目录。使用内置函数glob可以非常轻松地打开和处理目录。

全局：
它返回与参数中传递的表达式匹配的文件列表。此函数可以打印所有或已传递扩展名的特定文件。

句法：

@list = <*>; // Prints all files in current directory
@list = glob(“*.pl”); // Prints all files in current directory with extension .pl
@list = glob(‘//GeeksforGeeks//Files//*); // Prints all files in the given path

下面是一些示例，说明如何使用File Globbing访问目录。
例子：

访问脚本的当前目录：

#!/usr/bin/perl -w
  
# Accessing files using glob function
@files = glob('*');      # Returns list of all files
foreach $file (@files)   # Loop to run through all files
{
    print $file . "\n";     # Print all files
} 

输出：

打开指定目录：

#!/usr/bin/perl -w
  
# Prints only the filename excluding the path
use File::Basename; 
  
# Returns list of all files
@files = glob('C:/Users/GeeksForGeeks/Folder/*'); 
foreach $file (@files) # Loop to run through all files
{
    print basename($file), "\n"; # Print all files
} 

输出：