查询目录下同一类型的文件

#!/usr/bin/perl -w

use strict;
use File::Find;

my $path = 'G:\生物\调控粒径的基因\调控粒径的基因\基因';#路径，在同一目录下的路径
sub chaxun {
    if ( -f $File::Find::name ) {
        if ( $File::Find::name =~ /\.fasta$/ ) {#这里修改文件类型，其实就是文件的后缀
            print "$File::Find::name\n";

        }
    }

}
find( \&chaxun, $path )

找出某一目录下*.fasta格式的所有文件。