perl文件批处理问题？？

[erbao78]

目录D:\AP下所有文件，我想每个文件都处理一下然后输出到D:\AP1目录下
看书可以每个文件通过命令行输入到@argv中，不过我的文件很多，我把此目录下每个文件名字都读到一个数组中(不包括目录D:\AP)，不过怎样把文件中的东西读出来(加上目录就不好使了:-()）

for example :
D:\AP 下面:
D:\AP\AP880212
D:\AP\AP880213
D:\AP\AP880214
D:\AP\AP880215
。
。
。
。

从每个文件中输出一点DD到D:\AP1 怎样做好（最好考虑时间复杂度，我的文件很多，很碎）

[erbao78]

用了，但是没用好！：-（
我把目录下的文件AP880212，AP880213，AP880214，AP880215读到数组里边，但取文件内容的时候总出错！

[xyzxyz1111]

用opendir
readdir
closedir

[fibbery]

再根据文件名打开文件，读出来数据！

[xyzxyz1111]

我觉得问问题，应该把你的运行情况和出错的症状说清楚，比如打印什么信息之类的，一句“总出错”不代表任何问题。这对你自身也是一个锻炼， 也帮助解决问题。