perl脚本如何将某个目录下的文件写入到数组中去或者拼接成一个字符串

Question

指定某个路径，然后想得到这个路径下某个文件的名称，并且把这个文件的名称放入数组中或者组成一个字符串

Answer 1

$path='C:\Users\' ;  #路径
opendir D1, "$path" or die $!;  
@array=grep(!/\.\.?$/, readdir D1); 
print @array;