程嶏清单11-8.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 4 行

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