Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: Checking value of an extracted variable

by moritz (Cardinal)
on Dec 23, 2012 at 08:28 UTC ( #1010079=note: print w/replies, xml ) Need Help??

in reply to Checking value of an extracted variable

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?

  • Comment on Re: Checking value of an extracted variable

Replies are listed 'Best First'.
Re^2: Checking value of an extracted variable
by r.biswas (Initiate) on Dec 23, 2012 at 10:13 UTC

    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"); } }
      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).

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1010079]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2018-06-25 02:47 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.