regex - perl - 收集信息并从收集的数据中仅选择一些信息

Question

我正在从一个目录中收集信息。之后，我只过滤我想要的数据。这是我的代码：

sub info { 
  my @files = `ls -l $path_to_dir`;                
  chomp @files;    
}

该数组包含如下所有信息：@files = ("D1", "K1", "ABC","FD_HTML")

现在，我只想要 $path_to_dir 中以 D1、K1、D0、K0、A0 等开头的文件名。您能否建议如何从 $path_to_dir 收集的信息中过滤 D0、D1、K0、A0 等数据存储在数组“@files”中。现在，从该数组中，我只想将 D0、K0、K1、A0 等数据存储在不同的数组中。怎么做？

Answer 1

使用 Perl opendir 方法而不是 shell 命令。这既更安全，也使您的代码更具可移植性。看看这个页面的例子......

http://perlmeme.org/faqs/file_io/directory_listing.html

请特别注意“查找以...结尾的文件”部分，以获取有关如何处理与正则表达式匹配的特定文件的示例。