MAtch expression and read modify file

[arvindha]

I want to read a file from a point where a regular expression matches and keep on reading till i hit another regular expression; while reading this part of the file ( binary strings of known size; search the appropriate position, parsed through a fil, make a replacement);

[Icecrack]

Look theres that Line that im looking for look right there thats the line right there
you cant see it ???

what have you attempted so far?

[arvindha]

Adding more to what I wrote earlier:
there are two input file: used in step 1) & 3) and second one at step 2

parsed the input file which basically gives me three variables;
out of three varibles two are regular expression and one integer,
I match the first regular expression then after two line i have hard coded expression then i match my second regular expression from this point onwards there are strings of binaries in multiple line and i need to count the bits to the value equal to third variable (integer) and replace with known character;
then i pick another line from input file and repeatt the same process;

In short here is what i have done (step 1 &3) and where i am stuck (step 2 ):
1)Open and read first line of inputfile1 which gives a string and eventually three variables
2) two are regular expression one integer; use them to rplace the binary with know character; i am stuck as to how i read and replace the binary with know character
3) repeat 2 with next line from input file

I have done 1) & 3).............missing the heart of the problem step 2)

[KevinADC]

I parsed the input file which basically gives me three variables;
out of three varibles two are regular expression and one integer,
I match the first regular expression then after two line i have hard coded expression then i match my second regular expression from this point onwards there are strings of binaries in multiple line and i need to count the bits to the value equal to third variable (integer) and replace with known character;
then i pick another line from input file and repeatt the same process;
in short here is what i have done and where i am stuck:
1)Open and read first line of inputfile1 which gives a string and eventually three variables
2) two are regilar expression one integer; use them to rplace the binary witj know character
3) repeat 2 with next line from input file

I have done 1) & 3).............missing the heart of the problem step 2)

Post the code you have written so far.

[arvindha]

I am completely new to Perl so plaese provide me the tips for efficient codind as well.........here is sample of the code has been written so far

open(INP2, "<$patFile") || die "Unable to open (-i) $patFile for input";
open(INP1, "<$msffFile") || die "Unable to open (-i) $msffFile for input";
#open (WR, ">$OutFile") || die "cannot open $OutFile for writing \n";
 
$scan_op = "0";
$read_mss_operation = 0;
@arr_msff = "";
@arr_pat = "";
 
  while (<INP1>) {
 
 push(@arr_msff, $_);
#Format is:     
#1    ch_0    47          
  }#    
 
#Read and store file2
while (<INP2>) {
    #file  format is:
# ..........
# ..........other lines in the file
#              SCAN = 1 ==> EXP as number (scan_op)
#    APPLY "grp0_unload" 0 =
#        CHAIN "ch_0" = "0101010100101010... \
#                               010100101000010100...\
#                               .....
#                              ......
#        CHAIN "ch_1" = ""0101010100101010... \
#                               010100101000010100...\
#        ..        ....
#    ..        .... 
#    END;
    push(@arr_pat, $_);
}
&get_msff_line();
#//End of main function
################################### Sub routines###########################
 
sub get_msff_line {
 
    while ($read_mss_operation <= $#arr_msff){
        my $one = get_msff_info($read_mss_operation)  ;
        chomp($one);
        my ($scan_op,$ch_num,$mask_bit) = split (/ /,$one);
    print "Scan Operation = $scan_op  Chain number = $ch_num  Masking Flop = $mask_flop" ;
    print "\n";
 
 
# Logic for Finding and replacing the bit in the inputfile2 for $scan_op for $mask_bit in $ch_num
 
       foreach ($i=0; $i <$#arr_pat; $i++){
                   chomp $arr_pat[$i];
        if ($arr_pat[$i]  =~ m/SCAN = $scan_op/){
 
        print "$arr_pat[$i]\n";
        }
 
               }
        $read_mss_operation++ ;
    }
} 
 
sub get_msff_info() {
 $get_line = $_[0];
    return $arr_msff[$get_line] ;
}
 

[Icecrack]

I am completely new to Perl so plaese provide me the tips for efficient codind as well.........here is sample of the code has been written so far

well

first off if your going to post code please use code tags it helps the experts read the code a lot easier if you want this solved then use code tags, i have missed a few errors in the script because of no code tags, so please use code tags.

second:

this could be a problem

while ($read_mss_operation <= $#arr_msff){

try

while ($read_mss_operation <= $arr_msff){

i have to leave for about 1 hr so ill continue to look at the rest of the script.


Thank You,

[nithinpes]

well

first off if your going to post code please use code tags it helps the experts read the code a lot easier if you want this solved then use code tags, i have missed a few errors in the script because of no code tags, so please use code tags.

second:

this could be a problem

while ($read_mss_operation <= $#arr_msff){

try

while ($read_mss_operation <= $arr_msff){

i have to leave for about 1 hr so ill continue to look at the rest of the script.


Thank You,

Icecrack,
arr_msff is an array variable (@arr_msff). $#arr_msff is used to get the last index of the array. That is not the problem.

[nithinpes]

In short here is what i have done (step 1 &3) and where i am stuck (step 2 ):
1)Open and read first line of inputfile1 which gives a string and eventually three variables
2) two are regular expression one integer; use them to rplace the binary with know character; i am stuck as to how i read and replace the binary with know character
3) repeat 2 with next line from input file

I have done 1) & 3).............missing the heart of the problem step 2)

To search for a pattern and replace it with any other character, you may use substitution operator(s///).

s/$search_pattern/replacement/ ; 
 

[nithinpes]

Also, note the following:
1. If the words in your input file are separated with multiple spaces, replace

my ($scan_op,$ch_num,$mask_bit) = split (/ /,$one);
 

with:

my ($scan_op,$ch_num,$mask_bit) = split (/\s+/,$one);
 

2. There is no need of using a while loop to read from the file and push the lines to an array. You can directly use:

@arr_msff = <INP1>; 
@arr_pat = <INP2>; 
 

[Icecrack]

Icecrack,
arr_msff is an array variable (@arr_msff). $#arr_msff is used to get the last index of the array. That is not the problem.

thanks for the update never knew Perl did that with the array.
Learn Something new every day.

[KevinADC]

I get you are reading one file and that you need to use the data in the file to replace something in the other file, but what is it you are replacing?