Thomas Bätzler [TB], on Wednesday, July 13, 2005 at 12:38 (+0200) made
these points:

>> that - for example - Begin and end with an "G"
TB>   while( $line =~ m/\W((g\w*?)|(\w*?g))\W/ig ){

this will print OR, he wants AND, so, change this regexp to:
m/\W((g)\w*\2)\W/ig

-- 

How do you protect mail on web? I use http://www.2pu.net

[Today is a good day to bribe a high--ranking official.]



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to