Replace using Perl

Question

I just want to remove double quotes(") of a string "dropDownStorePrepare(this,\'hello\')". Tried this way but not working.

#!/usr/bin/perl
use strict;
use warnings;
my $str = '"store":"dropDownStorePrepare(this,\'hello\')","name":"Rama Rao"';

$str =~ s/"dropDownStorePrepare(.*)"/dropDownStorePrepare$1/ig;

print $str;

Double quotes which are at the beginning and ending of the dropDownStorePrepare(,,,) should be removed and rest of the double quotes should be remained.

Note: dropDownStorePrepare function should accept any no of parameters.

Can somebody help me please..

Donal Fellows · Accepted Answer · 2014-02-19 07:53:25Z

3

The immediate problem you've got is that the .* is matching too much. Try:

$str =~ s/"dropDownStorePrepare(.*?)"/dropDownStorePrepare$1/ig;

Though it looks like you're trying to parse JSON. Maybe you should look for a module to do that for you…

answered Feb 19, 2014 at 7:53

Donal Fellows

139k19 gold badges161 silver badges222 bronze badges

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

Comments

mpapec · Accepted Answer · 2014-02-19 07:52:51Z

2

Try non greedy regex,

$str =~ s/"dropDownStorePrepare(.*?)"/dropDownStorePrepare$1/ig;

answered Feb 19, 2014 at 7:52

mpapec

50.7k8 gold badges71 silver badges133 bronze badges

3 Comments

mpapec Over a year ago

@RamaRaoM you can shorten right side by capturing everything inside $1, _______________________ $str =~ s/"(dropDownStorePrepare.*?)"/$1/ig;

Donal Fellows Over a year ago

@mpapec But that won't do case normalization. (That might or might not be wanted.)

mpapec Over a year ago

@DonalFellows yes, but it is also hard to tell whether normalization was intentional or accidental (I would say accidental judging from input string).

Collectives™ on Stack Overflow

Replace using Perl

2 Answers 2

Comments

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related