程嶏清单11-8.txt

< linux网络编程工具>>配套源码

opendir(DIR, $path);
@files = grep { /\.c$/ } readdir(DIR);
closedir(DIR);