关注一下 FileHandle 方面的模组，老外建议改写 open 方法，呵呵。
2010/8/9 Michael Zeng <[email protected]>: > 主要是 输出 和显示的需要 > > > 2010/8/9 Qiang (James) <[email protected]> >> >> On 08/09/2010 06:44 AM, Michael Zeng wrote: >> > 有啥问题 >> >> 我也比较迷惑你的这个需求。既然已经有了文件的 handle 了，还需要文件名称干嘛？ >> >> Qiang (James) >> >> > 你这创建了 %h , 啊， 我也会啊 >> > >> > 2010/8/8 snyh <[email protected] <mailto:[email protected]>> >> > >> > open(my $h, "<test.dat"); >> > $h{name} = "test.dat"; >> > >> > 打开文件时，把文件名存在filehandle里面 也许比较适合 >> > >> > 不过你这个需求，貌似有问题。。。 >> > 在 2010年8月8日 上午7:44，Michael Zeng <[email protected] >> > <mailto:[email protected]>> 写道： >> > > 就是 我要打开的文件太多 >> > > >> > > 很多 file handle , >> > > >> > > 要回到很前面 才查到 打开哪个文件，如果 能从 handle直接 知道 就好了 >> > > >> > > >> > > >> > > 2010/8/8 Huangj <[email protected] <mailto:[email protected]>> >> > >> >> > >> 介个需求是如何产生的？ >> > >> >> > >> At 2010-08-05 22:30:08，"Michael Zeng" <[email protected] >> > <mailto:[email protected]>> wrote: >> > >> >> > >> 就是 >> > >> >> > >> open my $F1, '<', 'ABC' >> > >> >> > >> or open my $F2 , '>' , "DEF" ; >> > >> >> > >> >> > >> 现在 拿到 $F1, $F2 , 如何返回文件的名称呢 >> > >> >> > >> 比如ABC , DEF >> > >> >> > >> >> > >> >> > >> -- >> > >> Yours Sincerely >> > >> Zeng Hong >> > > >> > > >> > > -- >> > > Yours Sincerely >> > > Zeng Hong >> > >> > >> > >> > -- >> > Yours Sincerely >> > Zeng Hong >> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> > > > > -- > Yours Sincerely > Zeng Hong > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > -- /* 110000011101011011010000110010111100001010111101 *\ Linxinglu(林兴陆) - Mike Lam Mobile Phone: (+86)13501281365 E-Mail: [email protected] QQ: 28888888 ICQ: 2876829 MSN: [email protected] Homepage: http://www.lxl.cn \* 110000011101011011010000110010111100001010111101 */ -- 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
