Question

I am trying to replace all words from a text except some that I have in an array. Here’s my code:

my $text = "This is a text!And that's some-more text,text!";
while ($text =~ m/([\w']+)/g) {

    next if $1 ~~ @ignore_words;

    my $search  = $1;
    my $replace = uc $search;
    $text =~ s/$search/$replace/e;
}

However, the program doesn’t work. Basically I am trying to make all words uppercase but skip the ones in @ignore_words. I know it’s a problem with the variables being used in the regular expression, but I can’t figure the problem out.

Answer 1

#!/usr/bin/perl

my $text = "This is a text!And that's some-more text,text!";

my @ignorearr=qw(is some);

my %h1=map{$_ => 1}@ignorearr;
$text=~s/([\w']+)/($h1{$1})?$1:uc($1)/ge;

print $text;

On running this,

THIS is A TEXT!AND THAT'S some-MORE TEXT,TEXT!