Re: [PerlChina] 新手求解惑：while语句

差不多想清楚了，谢谢

在 2011年1月13日 下午11:42，方伟 <fang3wei@gmail.com> 写道：
> 可不可以详细解释一下呢，while语句不是一行一行来的吗
> 在 2011年1月13日 下午11:40，方伟 <fang3wei@gmail.com> 写道：
>> 哦，可以了，刚才我搞错了
>> 在 2011年1月13日 下午11:38，方伟 <fang3wei@gmail.com> 写道：
>>> 不行，还是一样的输出结果
>>>
>>> 在 2011年1月13日 下午11:31，Robin Lee <robinlee.sysu@gmail.com> 写道：
>>>> while(<DATA>)
>>>> {chomp;
>>>> print "$_$&\n" if /L..y/;
>>>> }
>>>>
>>>> 这样的话就能输出你所估计的结果。
>>>>
>>>> 2011/1/13 方伟 <fang3wei@gmail.com>
>>>>>
>>>>> use warnings;
>>>>> while(<DATA>)
>>>>> {print if /L..y/;
>>>>> print $& if /L..y/;
>>>>> }
>>>>> __DATA__
>>>>> My name is Lucy.
>>>>> My name is Jack.
>>>>> My name is Lily.
>>>>> ############
>>>>> 打印结果是：
>>>>> My name is Lucy.
>>>>> LucyMy name is Lily.
>>>>> Lily
>>>>> 我的疑惑是，打印结果怎么不是这样的呢：
>>>>> My name is Lucy.Lucy
>>>>> My name is Lily.Lily
>>>>>
>>>>> --
>>>>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。