Re: [PerlChina] 能从文件句柄来知道文件名称么

咱就讨论个问题， 你哪来那么多话

 

就算你是绝顶高手， 也不能不允许别人鄙视吧，呵呵

 

你的代码：

 

use strict ;

use warnings ;

 

 

open(my $h, "<test.dat");
$h{name} = "test.dat";

有编译error， 

 

你不会  不加  use strict /warnings 吧， 服了你了

 

 

 

2010/8/9 snyh <snyh@snyh.org>

把文件名存在文件句柄里面， 这样也是一一对应，并且存取的代价都可忽略不计，
我当然知道您会， 只是这个方式您的语气似乎有些鄙视？
这样也许会隐藏其他我没有想到的问题， 反正为以前写perl-gtk的时候，都是把数据存在object里面，不使用GTK本身的user_data

如果不是使用filehandle 模块， 文件句柄是一个glob，
你直接把它当作hash使用也行，自动创建了一个哈希（我想内存方面的问题，如果用perl，这点消耗完全没必要考虑）

我觉得有问题是，

"就是 我要打开的文件太多
 很多 file handle ,
 要回到很前面 才查到 打开哪个文件，如果 能从 handle直接 知道 就好了"

既然 你能"回到很前面"（我想的是，前面代表代码前面）查到那个是那个文件。
那你不知道那个handle是那个文件， 是不是你自己的代码组织有问题？
文件再多能有多少？  不可能您的程序是万能程序，需要处理世界上所有的事情吧？
程序只是关注一定范围的事情， 哪个filehandle对应那个文件你自己都搞不清楚（或者说整理不清楚）你如何组织程序的主要逻辑？

我阅历有限，暂时能想到的只有一种情况，需要通过句柄知道文件名
--- 代码不是你一个人写的，在团队中， 需要调用其他人的代码，所有不知道对应文件名很正常。不过调研代码都到了文件句柄这个层次，也有点太紧耦合了吧？

在 2010年8月9日 上午6:44，Michael Zeng <galaxy2004@gmail.com> 写道：

> 有啥问题
>
>
> 你这创建了  %h  , 啊， 我也会啊
>
> 2010/8/8 snyh <snyh@snyh.org>
>>
>> open(my $h, "<test.dat");
>> $h{name} = "test.dat";
>>
>> 打开文件时，把文件名存在filehandle里面 也许比较适合
>>
>> 不过你这个需求，貌似有问题。。。
>> 在 2010年8月8日 上午7:44，Michael Zeng <galaxy2004@gmail.com> 写道：
>> > 就是 我要打开的文件太多
>> >
>> > 很多 file handle ,
>> >
>> > 要回到很前面 才查到 打开哪个文件，如果 能从 handle直接 知道 就好了
>> >
>> >
>> >
>> > 2010/8/8 Huangj <redspid@163.com>
>> >>
>> >> 介个需求是如何产生的？
>> >>
>> >> At 2010-08-05 22:30:08，"Michael Zeng" <galaxy2004@gmail.com> wrote:
>> >>
>> >> 就是
>> >>
>> >>  open my $F1, '<',  'ABC'
>> >>
>> >> or   open my $F2 , '>' ,  "DEF" ;
>> >>
>> >>
>> >> 现在 拿到 $F1, $F2 , 如何返回文件的名称呢
>> >>
>> >> 比如ABC , DEF
>> >>
>> >>
>> >>
>> >> --
>> >>             Yours Sincerely
>> >>                     Zeng Hong
>> >>
>> >> --
>> >> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> >> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> >> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>> >>
>> >>
>> >> ________________________________
>> >> 您想拥有和网易免费邮箱一样强大的软件吗？
>> >>
>> >> --
>> >> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> >> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> >> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>> >
>> >
>> >
>> > --
>> >             Yours Sincerely
>> >                     Zeng Hong
>> >
>> > --
>> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>> >
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>
>
>
> --
>             Yours Sincerely
>                     Zeng Hong
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
            Yours Sincerely
                    Zeng Hong

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。