Re^2: Help required in find command.

Don';t like to use $flag, looking for best option. my piece of code looks like $file_name is command line parameter.

while (<DATA_FILE>) {
     $str = $_ ;
    
        if ($str =~ /include/) {
            if ($str =~ /\b$file_name\b/) {
              $flag = "TRUE" ;
            }
        }
        if ($flag eq "TRUE") {
            if ($str =~ /View Name/) {
                print $str ;
                ($junk,$view_name) = split(\->\,$str) ;
                print $view_name ;
                $flag = "FALSE" ;
            }
        }
    #print "$_\n";
 }
[download]

Comment on Re^2: Help required in find command. Download Code

Replies are listed 'Best First'.
Re^3: Help required in find command. by kcott (Archbishop) on Apr 17, 2014 at 06:06 UTC
Your OP is virtually unreadable so I don't actually know what your problem is. The only place in the entire thread that the string '`View Name`' appears is in your regex (i.e. '`/View Name/`'). Therefore, `$str =~ /View Name/` will always be FALSE and that `if` block will never be entered. Perhaps that relates to whatever your problem is. Have you shown a representative sample of your data? From the code fragment you've shown here, you're using package global variables exclusively. Perhaps that relates to your problem. For instance, there could be another global `$flag` elsewhere in your code. -- Ken	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Help required in find command.
by kcott (Archbishop) on Apr 17, 2014 at 06:06 UTC

Your OP is virtually unreadable so I don't actually know what your problem is.

The only place in the entire thread that the string 'View Name' appears is in your regex (i.e. '/View Name/'). Therefore, $str =~ /View Name/ will always be FALSE and that if block will never be entered. Perhaps that relates to whatever your problem is. Have you shown a representative sample of your data?

From the code fragment you've shown here, you're using package global variables exclusively. Perhaps that relates to your problem. For instance, there could be another global $flag elsewhere in your code.

-- Ken

[reply]
[d/l]
[select]