perl同时打开多个文件
假设需要同时打开多个文件进行操作，例如，将文件的奇数行输出到第1个文件，偶数行输出第2个文件。
如果打开的文件数不大，可以分别设置一个文件句柄，例如OUT1 OUT2等。如果需要同时打开的文件比较多，则需要其他方法。
一种方法是，利用数字作为文件句柄的名称或者名称的后缀。例如：
for ($loop=0; $loop & $ $loop++){
    open
(&fh$loop&,
&&output.$loop&)
但是在循环外文件句柄就无效了。
另一种方法是利用eval，这样，只要eval里面的文件句柄名称相同即可。即：
for ($loop=0; $loop & $ $loop++){
    eval
&open (fh$loop,
\&&output.$loop\&)
后面若要将特定行($loop)输出到特定的文件(output.$loop)，则：
eval &print fh$loop
\&$line\\n\&&;
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。如何获得相同窗口名的各个窗口的句柄呢，就是程序多开时【c++吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：284,155贴子：
如何获得相同窗口名的各个窗口的句柄呢，就是程序多开时收藏
如何获得同一个程序多开时的各个窗口的句柄呢？我现在的思路是先获得系统的进程快照，找到该窗口名对应的所有进程pid，程序如下：void GetProcessID(TCHAR *szName,DWORD Temp_My_ProcessID[MAX_PATH]){HANDLE hProcessShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,NULL);PROCESSENTRY32 pe32;int j=0;pe32.dwSize = sizeof(pe32);if (Process32First(hProcessShot,&pe32))//获取下一个进程快照
for (int i = 0;Process32Next(hProcessShot, &pe32);i++) {if(!_tcsicmp(szName,pe32.szExeFile)){Temp_My_ProcessID[j]=pe32.th32ProcessID;j++;}}}CloseHandle(hProcessShot); }其中Temp_My_ProcessID是存放窗口名是szName的窗口的pid的，然后再枚举窗口句柄，程序如下：BOOL CALLBACK MyEnumProc(HWND hWnd,LPARAM lParam)//枚举所有进程{DWORD dwProcId;GetWindowThreadProcessId(hWnd, &dwProcId);LPWNDINFO pInfo=(LPWNDINFO)lPif(dwProcId==pInfo-&dwProcessId){pInfo-&hWnd = hWreturn FALSE;}return TRUE;}HWND GetProcessMainWnd(DWORD dwProcessId)//获取给定进程ID的窗口handle{WNDINFOwi.dwProcessId = dwProcessId;wi.hWnd = NULL;EnumWindows(MyEnumProc,(LPARAM)&wi);HWND re_hwnd = wi.hWwhile( GetParent(re_hwnd) != NULL )//循环查找父窗口，以便保证返回的句柄是最顶层的窗口句柄{re_hwnd = GetParent( re_hwnd );}return re_}但是这样会有一个问题，我发现有时候枚举到的re_hwnd，并不是窗口的句柄，有时候是dll文件的句柄。这样的话我就不能根据这个句柄给这个窗口发送消息了···这该怎么解决呢
&新浪舆情通&，微博数据正式授权，24h全网监测，闪电预警，
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或多开窗口，如何获取每个窗口的句柄？看了思路你就会了 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：76.8M更新时间：2-21
软件版本：3.2.3软件大小：62.5M更新时间：05-03
软件版本：1.2.6软件大小：29.2M更新时间：05-25
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 9380|回复: 535
[心得分享]
按键精灵开发者3级可通过提升认证等级来升级勋章：
本帖最后由 roymand 于
19:30 编辑 一次开10个记事本,在不同的记事本里记录不同的内容，后台操作，需要知道每个窗口的句柄才能准确操作，该如何操作呢？***** 该内容需您才可浏览 *****大漠插件自带了一个返回按打开时间排序的枚举窗口句柄的函数，可以直接实现，可惜是收费的。希望上面的伪代码能帮到有需要的朋友。当然，可以每打开一个窗口就改掉窗口的默认标题也能保证查找到的句柄就是新开窗口的。因此，上述办法仅用在不方便改窗口标题的情况。
按键精灵开发者4级可通过提升认证等级来升级勋章：学有所成学有所成勋章，新手步入按键学堂的第一枚勋章天使勋章天使一样的用户月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。
學習一下！～～～～～～～～～～～～
覺得不錯就給朵花吧！
按键精灵开发者4级可通过提升认证等级来升级勋章：
按键学院基础班459
1qqqqqqqqqqqqqqqq
mark3333520
bao1984517aj
按键精灵开发者2级可通过提升认证等级来升级勋章：
看看，学习一下
按键精灵开发者3级可通过提升认证等级来升级勋章：黄瓜勋章（永久）体验商业小精灵活动的奖励单身汪勋章单身贵族的专属勋章
看看看看看
yelaizuozuo
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章小红帽对论坛提出良好建议（可向管理员申请）按键精灵开发者6级可通过提升认证等级来升级勋章：黄金之翼黄金之翼勋章黄瓜勋章（永久）体验商业小精灵活动的奖励马年勋章（360天） 马年纪念勋章（360天）抗战胜利70周年勋章抗战胜利70周年活动的专属勋章
yelaizuozuo，如果您要查看本帖隐藏内容请回复
按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键精灵开发者1级可通过提升认证等级来升级勋章：
看看！！！！！！！！
新手求教被猝死
哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈
新手求教被猝死
吞吞吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐吐
是不是窗口同步啊/
按键精灵开发者4级可通过提升认证等级来升级勋章：
liuxiaobin988
老不啊的路了他夫妇的的的
按键操作手
按键精灵开发者2级可通过提升认证等级来升级勋章：按键图书勋章尊贵的按键图书用户
万恶的隐藏
非常喜欢,回复了再说.
按键精灵开发者5级可通过提升认证等级来升级勋章：新手园地& & & 硬件问题Linux系统管理Linux网络问题Linux环境编程Linux桌面系统国产LinuxBSD& & & BSD文档中心AIX& & & 新手入门& & & AIX文档中心& & & 资源下载& & & Power高级应用& & & IBM存储AS400Solaris& & & Solaris文档中心HP-UX& & & HP文档中心SCO UNIX& & & SCO文档中心互操作专区IRIXTru64 UNIXMac OS X门户网站运维集群和高可用服务器应用监控和防护虚拟化技术架构设计行业应用和管理服务器及硬件技术& & & 服务器资源下载云计算& & & 云计算文档中心& & & 云计算业界& & & 云计算资源下载存储备份& & & 存储文档中心& & & 存储业界& & & 存储资源下载& & & Symantec技术交流区安全技术网络技术& & & 网络技术文档中心C/C++& & & GUI编程& & & Functional编程内核源码& & & 内核问题移动开发& & & 移动开发技术资料ShellPerlJava& & & Java文档中心PHP& & & php文档中心Python& & & Python文档中心RubyCPU与编译器嵌入式开发驱动开发Web开发VoIP开发技术MySQL& & & MySQL文档中心SybaseOraclePostgreSQLDB2Informix数据仓库与数据挖掘NoSQL技术IT业界新闻与评论IT职业生涯& & & 猎头招聘IT图书与评论& & & CU技术图书大系& & & Linux书友会二手交易下载共享Linux文档专区IT培训与认证& & & 培训交流& & & 认证培训清茶斋投资理财运动地带快乐数码摄影& & & 摄影器材& & & 摄影比赛专区IT爱车族旅游天下站务交流版主会议室博客SNS站务交流区CU活动专区& & & Power活动专区& & & 拍卖交流区频道交流区
白手起家, 积分 191, 距离下一级还需 9 积分
论坛徽章:1
我想用一个文件句柄：ARE，来读取多个文件:file1,file2,file3.& && &怎么来写? 这个可以实现吗？我是菜鸟，谢谢！
&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp
论坛徽章:1
顺序open三个文件就好了，或者，@ARGV = qw/txt1 txt2/;
print for &&;复制代码
稍有积蓄, 积分 201, 距离下一级还需 299 积分
论坛徽章:0
本帖最后由 wenxin1234114 于
21:35 编辑
& & 按照文件句柄理解，perl调用 操作系统函数去读写文件，一个文件句柄对应一块内存空间，怎么还没关闭时又去读另一个文件呢。请指点。
论坛徽章:1
wenxin1234114
我理解楼主是想顺序读三个文件，像上面的代码。所谓“顺序”就是读完一个再读另一个，所以同一个文件句柄名可以再次使用。如果同时打开3个文件，并且轮流读取，那是要有3个文件句柄的。
稍有积蓄, 积分 201, 距离下一级还需 299 积分
论坛徽章:0
嗯 。明白 了。
白手起家, 积分 191, 距离下一级还需 9 积分
论坛徽章:1
也就是说不能用一个文件句柄顺序读取多个文件，是吗？（不用开了再关了的那种）。
白手起家, 积分 187, 距离下一级还需 13 积分
论坛徽章:0
open my $ARE, &cat file1 file2 file3 |&;复制代码回复
白手起家, 积分 191, 距离下一级还需 9 积分
论坛徽章:1
谢谢啊，不过这个好像是unix中的，我用的是win，我对win相应的命令不是很熟悉，不过还是谢谢，我会去查查DOS命令。
大富大贵, 积分 10950, 距离下一级还需 9050 积分
论坛徽章:2
貌似只有一个一个的读取吧？for(int i = 0; i & 5; i++)
FILE *pF = fopen(&123.txt&, &wb&);
printf(&%x\n&, pF);
fclose(pF);
pF = NULL;
按这代码测试每次都是一样的句柄
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：12445次
排名：千里之外
原创：30篇
(1)(1)(1)(1)(2)(1)(1)(4)(3)(4)(5)(1)(1)(3)(7)(1)