Hello kepler,

Is this what you’re looking for?

use strict;
use warnings;

my $data = 'func1(x, "%f", "hello")';

$data =~ s/ ( func1 \( x, \s \" ) % (.) "/$1text %$2 and %$2..."/ix;

print ">$data<\n";
[download]

Output:

19:23 >perl 1694_SoPW.pl
>func1(x, "text %f and %f...", "hello")<

19:23 >
[download]

Note that you have to escape the left parenthesis surrounding the function arguments, otherwise it will be interpreted as part of a grouping construct, and you’ll get Unmatched ( in regex;... warnings.

Hope that helps,

Hi,

Great solutions guys!!!

Thanks....

Kepler

File::Slurp has a few issues some critical. Avoid if possible, a replacement would be Path::Tiny, see perlfaq5. Also you should consider formatting your posts properly, the easier they are for people to read the more likely you are to get help. How do I post a question effectively?.

I'm sorry...

What I'm trying is $data =~ s/func1(x, \"[^%](.*)/text/gi;

I'm sorry...

Sorry is good, but even better would be to go back and fix the formatting problem in your OP so the janitors don't have to be lumbered with it. Please see the Edit link in the node.

---

Give a man a fish:  <%-{-{-{-<

#!/usr/bin/env perl

use strict;
use warnings;

my $balpar_re=qr/
      (
        \(                                 # opening (
          (?:[^'"()]++                     # Not a ', ", ( or ) - no b
+acktracking
            |(?:'(?:[^']|\')*?')           #' a single quote string
            |(?:"(?:[^"]|\")*?")           #" a double quote string
            |(?-1)                         # must be a ( or ) so recur
+se
          )*+                              # zero or more time - no ba
+cktracking
        \)                                 # closing )
      )
     /x;

my $text=<<'__EOT__';
   xfunc1("shouldn't be changed!") 
   func1 (abc,"abc","should,be,changed!");
   func1(arg(),narg());
__EOT__

if ($text=~ s{\bfunc1\s*$balpar_re}{newtext}g) {
    print $text;
    };
__DATA__
[download]

    |(?-1)                         # must be a ( or ) so recurse

kepler: Please note that the  (?-PARNO) regex operator is only available with Perl version 5.10 and above. Please see Extended Patterns in perlre.

---

Give a man a fish:  <%-{-{-{-<