不行，还是一样的输出结果 在 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 访问此网上论坛。
