How to compare each element of an array using regex?

Question

I am using the Lingua::EN::Tagger Perl module in order to tag parts of speech from a user's input. That portion of my code works perfect. However, the problem is that I only want to keep the input that has the noun tags which are "NN, NNS, NNP, NNPS", and store these words in a separate array @nounArray. The user will be inputting a question such as "what is your name?" Each element of the question will be tagged: What/WP is/is your/PN name/NN

my @UserInput = $readable_text;
my @nounArray;
foreach my $UserInput (@UserInput){

    if ($UserInput =~ m/NN|NNS$|NNP$|NNPS$/){

              $UserInput = @nounArray;
    }
print @nounArray;
}

However, nothing occurs when I run the code. The goal is to have the nouns of the user's input be placed in a separate array after separating them from the original array. I do not want to print the array, but i do this in order to see if the code was working.

@AvinashRaj, the reason i added the $ at the end is because the tags occur at the end of the words. — brilliantB
– brilliantB, Commented Jun 30, 2014 at 16:24
An example of the input would be "Can you turn off the lights?" It will be some form of a question. @mpapec — brilliantB
– brilliantB, Commented Jun 30, 2014 at 16:25

mpapec · Accepted Answer · 2014-06-30 16:45:32Z

1

Since you want to iterate over the words in $readable_text you can split them first into array,

my $readable_text = "What/WP is/is your/PN name/NN";
my @UserInput = split ' ', $readable_text;
my @nounArray;
foreach my $UserInput (@UserInput) {

  if ($UserInput =~ m/NN|NNS$|NNP$|NNPS$/) {
    # print "$UserInput\n";
    push @nounArray, $UserInput;
  }
}

print @nounArray;

edited Jun 30, 2014 at 16:45

answered Jun 30, 2014 at 16:30

mpapec

50.7k8 gold badges71 silver badges133 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

brilliantB Over a year ago

I don't just want to print the user input, I need to store the words with the noun tags in a separate array.

brilliantB Over a year ago

I tried the code with the update, it still is not giving me anything.There may be a problem with the regex, however I am not sure because i am getting no error.

mpapec Over a year ago

@brilliantB check again. btw, which words do you want to catch in What/WP is/is your/PN name/NN?

brilliantB Over a year ago

the nouns.. for example name has the tag /NN therefore this would be considered a noun because they have the tags /NN /NNS /NNP /NNPS each stands for noun, nouns, proper noun, and proper nouns respectively.

Lucas Trzesniewski · Accepted Answer · 2014-06-30 16:29:58Z

0

$ matches at the end of the string. I suppose your strings have at least a \n at the end, which would prevent them from matching.

But as you point out in your comment, it looks like you're trying to match word boundaries here, so just replace all $ in your expression with \b.

answered Jun 30, 2014 at 16:29

Lucas Trzesniewski

51.6k11 gold badges115 silver badges169 bronze badges

1 Comment

brilliantB Over a year ago

Yes I tried this and with a manipulation of my code it helped to only get the words that had /NN taggers. I removed all other taggers but kept only that one in my regex.

Alnitak · Accepted Answer · 2014-06-30 18:41:21Z

0

First, split your words by whitespace:

my @UserInput = split /\s+/, $UserInput;

Then grep for the nouns:

my @nouns = grep { m%/N% } @UserInput;   # only noun tags include /N

answered Jun 30, 2014 at 18:41

Alnitak

341k72 gold badges420 silver badges503 bronze badges

Collectives™ on Stack Overflow

How to compare each element of an array using regex?

3 Answers 3

4 Comments

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

4 Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related