Question

perl 语言如何获得目录下的所有文件的文件名？要求可以在任何平台移植！！！

重点是要能在不同平台移植！！！
谢绝以下答案：
@filenames = `ls`;
@filenames = `dir/p`;

Answer 1

opendir(DIR,'d:/www');
while(my $file = readdir(DIR)){
print $file,"\n";
}
closedir(DIR);