Code question

coco06

Hey

Using Perl and trying to do the following.

I am trying to use the match and swap command.
I want to match the following "\U+0027." and replace it with an
apostrophe " ' "

I have tried this and a few variations of this but it does not work fully

if ($_ =~ m/\Q\U+0027.\E/ig){
$_ =~ s/\Q\U+0027.\E/'/g;
}

Anyone any ideas what I am leaving out?

Cheers

Creamy Goodness

you need to escape the "\" if you want to match it.

"/\U" otherwise it thinks \U is a special character.

coco06

Creamy Goodness wrote: »

you need to escape the "\" if you want to match it.

"/\U" otherwise it thinks \U is a special character.

I tried doing this like this but I dont know where to put the corresponding slash.

if ($_ =~ m/\Q/\U+0027.\E/g){
$_ =~ s/\Q/\U+0027.\E/'/g;
}

Creamy Goodness

sorry gave you the wrong escape sequence.

to match a "\" you need to preceed it with a "\" not "/" as i posted earlier i.e. "\\U"

coco06

Creamy Goodness wrote: »

sorry gave you the wrong escape sequence.

to match a "\" you need to preceed it with a "\" not "/" as i posted earlier i.e. "\\U"

cheers

Blowfish

Silly question, but how come you are using both a match and a swap? Surely the match is redundant?