如何打開Perl未知全名的文件？

Question

我想知道是否有任何東西可以讓我做以下事情：

folder1 has files "readfile1" "f2" "fi5"

我唯一知道的是我需要讀取以readfile開頭的文件，我不知道字符串readfile后名稱中有什么。 另外，我知道目錄中沒有其他文件以readfile開頭。

如何使用open命令打開此文件？

謝謝。

Answer 1

glob可用於查找匹配某個字符串的文件：

my ($file) = glob 'readfile*';
open my $fh, '<', $file or die "can not open $file: $!";

Answer 2

正如工具所暗示的那樣，你可以將glob用於簡單的情況。

my ($file) = glob 'readfile*';

如果找到正確文件的標准更復雜，只需閱讀整個目錄並使用Perl的全部功能將列表縮小到您需要的位置：

use strict;
use warnings;
use File::Slurp qw(read_dir);

my $dir   = shift @ARGV;
my @files = read_dir($dir);

# Filter the list as needed.
@files = map { ... } @files;

Answer 3

您不一定需要導入來讀取目錄的內容 - perl有一些內置函數可以做到這一點：

opendir DIR, ".";
my ($file) = grep /readfile.*/, readdir(DIR);

open FILE, $file or die $!;