Re: Help required in find command.

[CountZero]

Please give us a few more blocks, exactly as they appear in your file (you can change names and other sensitive info if required) and put this information in <code> ... </code> tags.

It is very important to see the exact structure, delimiter, number of lines, ...

Also give us an example of the output you expect from the data you provide.

Update: changed <quote> to <code> (thanks choroba)

[maestromani]

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

[kcott]

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.