Question

perl 怎么得到一个目录下的所有子目录名

Answer 1

use strict;
use warnings;
my @allfiles;
opendir(THISDIR, "./ceRNA") or die "serious dainbramage: $!";
@allfiles = readdir THISDIR;
closedir THISDIR;
print "@allfiles\n";