Modification between the lines

[Hardik Bhagat]

Hello Perl Experts,

I have a file which looks something like this...

********
"OUT_BUS[9]" + "Q0" + "Q1" + "Q2" + "Q3" + "Q4" + "SO[0]" + "SO[1]" +
"SO[2]" + "SO[3]" + "SO[4]" + "SO[5]" + "SO[6]" + "SO[7]"';
}
ScanStructures {
ScanChain "1" {
ScanLength 22;
ScanEnable "te";
ScanMasterClock "tClock_1" "tClock_2";
}
ScanChain "2" {
ScanLength 22;
ScanEnable "te";
ScanMasterClock "tClock_1";
}
}
************************

Now what I want to do is in this step

1) Find the word ScanStructures in the file (i am able to do this with m/ScanStructures/g)
2) After this word is found in the file, I want to replace word between "" with "Hardik_" eg.
ScanChain "1" {
with
ScanChain "Hardik_1" {
for all the appearance
3) I want to stop this word finding / replacement when } (corresponding to ScanStructures { ) is comming back
4) Please note that this word can apear at any place (beginning / end / middle) in line and at any line.

Can somebody help ??

[hsriat]

my $counter = 0;
my @positions;
while ($file =~ /(ScanStructures|\{|\}|\"[^\"]*\")/g) {
  if ($1 eq '{') {
    $counter++;
  }
  elsif ($1 eq '}') {
    $counter--;
  }
  elsif ($1 eq 'ScanStructures') {
    $counter = 0;
  }
  elsif (!index $1, '"') {
#   push @positions, $-[1] if $counter == 1; # if nested ones not required
    push @positions, $-[1] if $counter > 0;
  }
}
 

Now you will have all the positions where you need to insert your string (begin the insertion from EOF moving towards the start).

Note:
If 'ScanStructures' is nested in another 'ScanStructures', it won't work. You will need an array (filo) of counters.

[miller]

You don't say what version of perl you're using, but if it's 5.10 or later, I'd suggest using the (?PARNO) feature to capture balanced braces. You also don't say if you want the nested strings to be translated too, but assuming so:

use strict;
use warnings;
 
my $data = do {local $/; <DATA>};
 
$data =~ s{(ScanStructures (\{(?:(?>[^{}]+)|(?-1))+\}))}{
    my $str = $1;
    $str =~ s/"(.*?)"/"Hardik_$1"/g;
    $str
}eg;
 
print $data;
 
__DATA__
"OUT_BUS[9]" + "Q0" + "Q1" + "Q2" + "Q3" + "Q4" + "SO[0]" + "SO[1]" + 
"SO[2]" + "SO[3]" + "SO[4]" + "SO[5]" + "SO[6]" + "SO[7]"';
}
ScanStructures {
  ScanChain "1" {
    ScanLength 22;
    ScanEnable "te";
    ScanMasterClock "tClock_1" "tClock_2";
  }
  ScanChain "2" {
    ScanLength 22;
    ScanEnable "te";
    ScanMasterClock "tClock_1";
  }
}
foo {
  ScanChain "1" {
    ScanLength 22;
    ScanEnable "te";
    ScanMasterClock "tClock_1" "tClock_2";
  }
  ScanChain "2" {
    ScanLength 22;
    ScanEnable "te";
    ScanMasterClock "tClock_1";
  }
}
 

- Miller