差不多想清楚了，谢谢 在 2011年1月13日 下午11:42，方伟 <[email protected]> 写道： > 可不可以详细解释一下呢，while语句不是一行一行来的吗 > 在 2011年1月13日 下午11:40，方伟 <[email protected]> 写道： >> 哦，可以了，刚才我搞错了 >> 在 2011年1月13日 下午11:38，方伟 <[email protected]> 写道： >>> 不行，还是一样的输出结果 >>> >>> 在 2011年1月13日 下午11:31，Robin Lee <[email protected]> 写道： >>>> while(<DATA>) >>>> {chomp; >>>> print "$_$&\n" if /L..y/; >>>> } >>>> >>>> 这样的话就能输出你所估计的结果。 >>>> >>>> 2011/1/13 方伟 <[email protected]> >>>>> >>>>> 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 讨论组"论坛。 >>>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>>>> >>>> >>>> -- >>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 >>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>>> >>> >> >
-- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
