http://www.perlmonks.org?node_id=1007090


in reply to pick a word contaning reg-ex

Oh.! Reply from previous post answers my question as well!!

perl -ne '/(\w*!\w*)/g && print "$1\n";' code_file(s)

Lesson learnt. search for existing threads before posting questions :-)

Replies are listed 'Best First'.
Re^2: pick a word contaning reg-ex
by space_monk (Chaplain) on Dec 04, 2012 at 14:29 UTC
[reply]

      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

      [download]

      Produces this:

      lamb!
fleece!
everywhere!
sure!
oops!eedaisy

      [download]
[reply]
[d/l]
[select]
        Oops - try 
        while (/(\w*!\w*)/g) {
   print "$1\n";
}

        [download]
        A Monk aims to give answers to those who have none, and to learn from those who know more.
[reply]
[d/l]

In Section Seekers of Perl Wisdom