Who cabeginnersn help me to explain the reason? $ perl -e '$_="a11\nb22\nc33\n"; print $_, "-"x15, "\n";s/^a.*^b.*/x/m; print' a11 b22 c33 --------------- a11 b22 c33 $ perl -e '$_="a11\nb22\nc33\n"; print $_, "-"x15, "\n";s/^a.*\cJ^b.*/x/m; print' a11 b22 c33 --------------- x c33 $
flw [EMAIL PROTECTED] 2006-11-28 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
