Perl China Blog Spot: 2011-01-30

2011年2月4日星期五

Re: [PerlChina] 兔年快乐！

新年快乐
在 2011-2-2 下午9:32，"Fei Ni" <nifei1998@gmail.com>写道：
>
> 同学们：
>
> 新年来到，感谢大家的帮助。祝大家新年快乐，身体健康，阖家幸福！
>
> --
> Feiny
>
> Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

Re: [PerlChina] 兔年快乐！

兔年不two, 吉祥：－）

2011/2/3 钟声 <gh00920307@gmail.com>

兔年吉祥

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

2011年2月2日星期三

Re: [PerlChina] 兔年快乐！

兔年吉祥

Re: [PerlChina] 兔年快乐！

吃着火锅唱着歌,

看着电视过着年,

嘭地一下,

新年第一天到了,

祝大家新年快乐

----- Original Message -----

From: Robin Lee

To: perlchina@googlegroups.com

Sent: Wednesday, February 02, 2011 10:04 PM

Subject: Re: [PerlChina] 兔年快乐！

同学们新春愉快

2011/2/2 Liang Guo <bluestonechina@gmail.com>

新年快乐~~~

2011/2/2 Fei Ni <nifei1998@gmail.com>:

> 同学们：
> 新年来到，感谢大家的帮助。祝大家新年快乐，身体健康，阖家幸福！
> --
> Feiny
> Achieving dream takes time and patience.Great careers don't happen overnight
> ,and take years of hardwork.But every step along the road can get you closer
> to your dream.
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
Liang Guo
http://bluestone.cublog.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 访问此网上论坛。

Re: [PerlChina] 兔年快乐！

同学们新春愉快

2011/2/2 Liang Guo <bluestonechina@gmail.com>

新年快乐~~~

2011/2/2 Fei Ni <nifei1998@gmail.com>:

> 同学们：
> 新年来到，感谢大家的帮助。祝大家新年快乐，身体健康，阖家幸福！
> --
> Feiny
> Achieving dream takes time and patience.Great careers don't happen overnight
> ,and take years of hardwork.But every step along the road can get you closer
> to your dream.
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
Liang Guo
http://bluestone.cublog.cn

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

Re: [PerlChina] 兔年快乐！

新年快乐~~~

2011/2/2 Fei Ni <nifei1998@gmail.com>:
> 同学们：
> 新年来到，感谢大家的帮助。祝大家新年快乐，身体健康，阖家幸福！
> --
> Feiny
> Achieving dream takes time and patience.Great careers don't happen overnight
> ,and take years of hardwork.But every step along the road can get you closer
> to your dream.
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
Liang Guo
http://bluestone.cublog.cn

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

[PerlChina] 兔年快乐！

同学们：

新年来到，感谢大家的帮助。祝大家新年快乐，身体健康，阖家幸福！

Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

2011年2月1日星期二

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 访问此网上论坛。

2011年1月31日星期一

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

惨了.以后有很多垃圾邮件来了.

在 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 访问此网上论坛。

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

陈总你把公司邮箱发出来了。。。

在 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

2011年1月30日星期日

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

抱歉有个拼写错误

在 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 访问此网上论坛。
>>
>

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

看起来像遍历文件夹，一般这么做

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 (-e file) {
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 访问此网上论坛。
>

订阅：博文 (Atom)

2011年2月4日星期五

2011年2月2日星期三

2011年2月1日星期二

2011年1月31日星期一

2011年1月30日星期日

订阅

博客归档