Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

input string 
$string='"the, sample, string",345,43';

[download]
output required 
"the# sample# string",345,43

[download]
that means I have to replace commas within double quoted part of string to #

Replies are listed 'Best First'.
Re: Need help with replace or substitute
by grep (Monsignor) on Apr 11, 2008 at 22:53 UTC
    Actually, I see your problem right away.
    You have no code.

    perl needs code to run before it will do anything useful. Which is funny, because most perlmonks want you to write some code before they'll do anything useful.

    Take a look at perlre then write some code. Then ask a question.

    grep
    One dead unjugged rabbit fish later...
[reply]
Re: Need help with replace or substitute
by Anonymous Monk on Apr 11, 2008 at 23:19 UTC
    as someone asked for code this is code snip... as whole code is quite big .. 
    #!c:/perl/bin/perl
$string='"the, sample, string",345,43","A, next , string",12,-90';
print "$string\n";
 #######$string=~ s/<need help here>/<need help here>/g ;
print "$string\n";

    [download]
    output required: 
    "the, sample, string",345,43","A, next , string",12,-90
"the# sample# string",345,43","A# next # string",12,-90'

    [download]
[reply]
[d/l]
[select]
      You might want to look at Text::xSV or Text::CSV or Text::CSV_XS to break up the fields. Then you can just s/,/#/g on each field, and print back out the results delimited by commas.
[reply]
[d/l]

        Or with one line of regex code: 

        $string =~ s/("[^"]*")/local $_=$1; s!,!#!g; $_ /ge;

        [download]

        Yes it won't handle escaped double quotes but if you don't have that edge case it will never matter.

[reply]
[d/l]
        Hey Thanks, it worked for me.
[reply]

Back to Seekers of Perl Wisdom