怎么样在Perl中取得指定目录下的所有文件？

怎么样在Perl中取得指定目录下的所有文件？

今天用PERL写了一个文件重命名工具，体验了一点用PERL处理文件的便利。比如取得指定目录下的所有文件和目录：
# 先用opendir打开指定的目录
opendir(DES_DIR, “C://TEM//”);

# 取得里面的文件和目录
@file_list = readdir(DES_DIR);

# 关闭
closedir(DES_DIR);

这样目录下所有的文件和目录名就放到了数组@file_list里面，跟C/C++比起来，简便不少。不过由于对PERL不熟悉，算上查资料的时间，竟用了4个小时左右。呵呵，有点得不尝失~:P

顺便记下找到的有益资料：
1、Perl 5教程 ：http://oldsite.linuxaid.com.cn/download/support/Perl_Teach/
中文的PERL教程，里面还有一个非常值得收藏的PERL函数集。

2、Perl书籍下载 ：http://www.linuxforum.net/forum/showflat.php?Cat=&Board=perl&Number=510009&page=0&view=collapsed&sb=5&o=&fpart=