in reply to Re^2: pick a word contaning reg-ex
in thread pick a word contaning reg-ex
I just tried the code above and it only prints the first word (update: on each line) that contains an exclamation point.
#!/perl use warnings; use strict; while(<DATA>){ #print map {"$_\n"} grep{/!/} split; /(\w*!\w*)/g && print "$1\n"; } __DATA__ Mary had a little lamb! , whose fleece! was white! as snow. And everywhere! that Mary went, the lamb was sure! to go. oops!eedaisy
Produces this:
lamb! fleece! everywhere! sure! oops!eedaisy
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: pick a word contaning reg-ex
by space_monk (Chaplain) on Dec 04, 2012 at 16:59 UTC |
In Section
Seekers of Perl Wisdom