Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: extracting words with certain characters

by Ratazong (Monsignor)
on Dec 04, 2012 at 10:47 UTC ( #1007058=note: print w/replies, xml ) Need Help??

in reply to extracting words with certain characters

The following code may get you started:

my $words = "y____x_z dddetr x_y erre yyy_"; while ($words =~ /([\S]*_[\S]*)/g) { print "$1\n"; };
It looks for any words containing an underscore-character and prints them. Due to the loop and the /g-modifier it will even all words containing an underscore

I intentionally wrote get you started, as there are some basic assumptions inside, e.g.:

  • the "instance names" are seperated by whitespaces (and not commas ...)
  • more than one underscore is OK, and the underscores may follwo each other
  • an instance-name consisting only of underscores is fine
This webpage may help you understanding the regex.

HTH, Rata

Replies are listed 'Best First'.
Re^2: extracting words with certain characters
by ColonelPanic (Friar) on Dec 04, 2012 at 11:00 UTC

    Note: this will match "words" containing anything that is not whitespace. This may or may not be what you want. For example, should this be two different words?


    If so, you could use a regex that matches a more traditional definition of a word:


    \w matches "word characters": alphanumeric characters plus underscores.

    When's the last time you used duct tape on a duct? --Larry Wall

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007058]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2018-06-25 04:55 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.