Re: [PerlChina] 文件句柄打开以后只能用一次吗？

哈哈，本来就很多嘛，无所谓啦

2011/1/31 Tim <partybase@gmail.com>:
> 惨了.以后有很多垃圾邮件来了.
>
> 在 2011年1月31日 下午5:11，54chen <czhttp@gmail.com>写道：
>>
>> 陈总你把公司邮箱发出来了。。。
>>
>> 在 2011年1月31日 下午12:16，陈蕾 <lei.chen@opi-corp.com>写道：
>>>
>>> 抱歉有个拼写错误
>>>
>>> 在 2011-1-31，下午12:13， tr 写道：
>>>
>>> > 看起来像遍历文件夹，一般这么做
>>> >
>>> > opendir DH, 'e:/dictionary';
>>> > my @files = readdir(DH);
>>> > closedir DH;
>>> >
>>> > foreach my $file(@files) {
>>> > next if $file =~ /^\.{1,2}$/;
>>> >
>>> > my $full_path = 'e:/dictionary/'. $file;
>>> > if (-f $full_path) {
>>> > open FH .....
>>> > }
>>> > }
>>> >
>>> > 在 2011-1-29，下午11:01， 方伟 写道：
>>> >
>>> >> 英语不好，文档看不懂。谢谢你
>>> >>
>>> >> 在 2011年1月29日 下午9:16，Robin Lee <robinlee.sysu@gmail.com> 写道：
>>> >>> seek(FILE, 0, 0);
>>> >>> 可以将句柄的读取点复位
>>> >>> 详见 perldoc -f seek
>>> >>>
>>> >>> 2011/1/29 方伟 <fang3wei@gmail.com>
>>> >>>>
>>> >>>> 我在XP系统上写了一个查字典的小程序:
>>> >>>> use warnings;
>>> >>>> open FILE,'E:\dictionary';
>>> >>>> while(1){chomp($word=<STDIN>);
>>> >>>> while(<FILE>){print if /$word/;}
>>> >>>> }
>>> >>>> close FILE;
>>> >>>> 上面的程序不能够实现查完一个单词后接着查下一个单词，然后我修改了一下就可以了：
>>> >>>> use warnings;
>>> >>>> while(1){open FILE,'E:\dictionary';
>>> >>>> chomp($word=<STDIN>);
>>> >>>> while(<FILE>){print if /$word/;}
>>> >>>> }
>>> >>>> close FILE;
>>> >>>> 我感到疑惑的是：难道文件句柄打开以后就只能使用一次吗？
>>> >>>>
>>> >>>> --
>>> >>>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。
>>> >>>
>>> >>
>>> >> --
>>> >> 您收到此邮件是因为您订阅了 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 访问此网上论坛。
>>>
>>
>>
>>
>> --
>> -
>> http://www.54chen.com 坚持科学 分享技术
>> http://twitter.com/54chen
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
>
> --
> 阿Tim's Blog
> Blog: http://atim.cn
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
如果觉得无聊，您不妨访问Google Reader消遣 https://www.google.com/reader/view
要尝试黑版本Google，请访问 http://tinyurl.com/yk3yp7j

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