in reply to Found a bug with Search and Replace command?

#!/usr/bin/perl -w
use strict;

my $TEXT= do { local $/; <DATA> };
my $result;
if(  $TEXT =~ /(.*?abc)/g  ) {
    $result= $1;
    while(  $TEXT =~ /\G(\D+)([\d.\-]+)/g  ) {
        $result .= $1 . "GOVALUE";
    }
    $result .= substr( $TEXT, pos($TEXT) );
}
print $result;
__END__
                    abc(" 0.123511,  0.074997,  0.103143,  0.153955,  
+0.260586",\
                            " 0.068394,  0.082183,  0.110329,  0.16114
+2,  0.267773",\
                            " 0.081887,  0.095677,  0.123822,  0.17463
+5,  0.281266",\
                            " 0.111534,  0.125324,  0.153470,  0.20428
+2,  0.310914",\
                            " 0.165731,  0.179521,  0.207666,  0.25847
+9,  0.365110");

[download]

Makes one wish you could do incremental s///g (like m//g in a scalar context), though we'd need something like an extra option to request such. s///gc or s///G (belg4mit's) anyone? Of course, it would probably be less efficient than the above code (requiring the entire end of the string to be copied/moved multiple times), but it would be less error-prone.

- tye        

Replies are listed 'Best First'.
Re^2: Found a bug with Search and Replace command? (incremental)
by Roy Johnson (Monsignor) on Mar 04, 2005 at 23:45 UTC
    You know, you can use \G in s///g after doing a //g. 
    $TEXT =~ /abc/g;
$TEXT =~ s/\G(\D+)([\d\.\-]*)/$1GOVALUE/g;

    [download]
    Caution: Contents may have been coded under pressure.
[reply]
[d/l]

      Did you test this? I'm not claiming you are wrong, but my quick test of it showed it not changing anything: 

      #!/usr/bin/perl -w
use strict;

my $TEXT= do { local $/; <DATA> };
if( $TEXT =~ /abc/g ) {
    $TEXT =~ s/\G(\D+)([\d\.\-]*)­/$1GOVALUE/g;
}
print $TEXT;
__END__
                    abc(" 0.123511,  0.074997,  0.103143,  0.153955,  
+0.260586",\
                            " 0.068394,  0.082183,  0.110329,  0.16114
+2,  0.267773",\
                            " 0.081887,  0.095677,  0.123822,  0.17463
+5,  0.281266",\
                            " 0.111534,  0.125324,  0.153470,  0.20428
+2,  0.310914",\
                            " 0.165731,  0.179521,  0.207666,  0.25847
+9,  0.365110");

      [download]

      The output was the same as the input.

      - tye        

[reply]
[d/l]
        Yes, I did test it. 
        my $TEXT= do { local $/; <DATA> };
$TEXT =~ /abc/g;
$TEXT =~ s/\G(\D+)([\d\.\-]*)/$1GOVALUE/g;
print $TEXT;
__END__
Some 01.35 numbers 019999 not to 01.055555 replace           
         abc(" 0.123511,  0.074997,  0.103143,  0.153955,  0.260586",\
                            " 0.068394,  0.082183,  0.110329,  0.16114
+2,  0.267773",\
                            " 0.081887,  0.095677,  0.123822,  0.17463
+5,  0.281266",\
                            " 0.111534,  0.125324,  0.153470,  0.20428
+2,  0.310914",\
                            " 0.165731,  0.179521,  0.207666,  0.25847
+9,  0.365110");

        [download]
        outputs: 
        Some 01.35 numbers 019999 not to 01.055555 replace
         abc(" GOVALUE,  GOVALUE,  GOVALUE,  GOVALUE,  GOVALUE",\
                            " GOVALUE,  GOVALUE,  GOVALUE,  GOVALUE,  
+GOVALUE",\
                            " GOVALUE,  GOVALUE,  GOVALUE,  GOVALUE,  
+GOVALUE",\
                            " GOVALUE,  GOVALUE,  GOVALUE,  GOVALUE,  
+GOVALUE",\
                            " GOVALUE,  GOVALUE,  GOVALUE,  GOVALUE,  
+GOVALUE");
GOVALUE

        [download]
        The final GOVALUE is because it matches an empty string.

        Update: When I copy your code, I get a stealth trailing hyphen in the pattern space, and it fails to substitute.

        Caution: Contents may have been coded under pressure.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom