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等开始。您能否建议如何从收集的信息中过滤D0，D1，K0，A0等数据$ path_to_dir存储在数组“@files”中。现在，从那个数组我只想将D0，K0，K1，A0等数据存储在不同的数组中。怎么做？

Answer 1

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

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

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