Re: Checking value of an extracted variable

[moritz]

Please show the code you have written so far.

using split I am able to extract the SEL_BLOCK keyword. But the issue is I am unable to check the value of SEL_BLOCK

This surprises me. You seem to have come far enough to extract the string on the left of the = sign, why can't you work with the string on right of the = sign?

[r.biswas]

My code is shown below. After locating the keyword(stored in $first) I need to check the value of the variable stored in $first. $first = SEL_BLOCK. But I need to check the value of the SEL_BLOCK. How can it be done?

open(OUT,">Output.txt") or die "Can't open output.txt for writing:$!\n
+";
open(IN, "<Input.txt") or die "Can't open input.txt for reading:$!\n";


@array = <IN>;

foreach $line (@array) {
  chomp ($line);

  if ($line =~ /^OPT:/) {
    $var = $';
    @param = split / /, $var;
    $first = $param[1];
    print "$first\n";
    if ($first==1) { # This is not working as desired
        $start = 1;
    }
    else {
      $skip = 1;
    } 
  } 
  
  elsif ($start == 1 || $skip==1) {
    
    if ($line =~ /^]/) {
      $start = 0;
      $skip = 0;
    }
    elsif ($skip == 0) {
      printf (OUT "$line\n");
    }  

  }  
  else  {
    printf (OUT "$line\n");
 
  }

}

[r.biswas]

I also like to point out that in the input file the keyword will be declared as below

Input.txt(input file) 
OPT: SEL_BLOCK [ 
 some text to be copied to output file
 if SEL_BLOCK = 1
]

SEL_BLOCK will be defined in a config file which can be included in the perl script. The script will have visibilty of the value of SEL_BLOCK and take appropriate actions(copying contents from input to output file).