Hi Perl Monk,

I am re-posting the same question but with some changes in the code for which the earlier mentioned solution also dint work

#include <stdio.h>
#include "report.h"

void main()
{
  #ifdef CHECK_REPORT
    report("This is 
          good");
    reports("This is also 
            good")
  #endif

  #if defined (REPORT_ENABLE)
    report("This is not good");
  #endif

  printf("The execution is completed\n");
}
[download]

please see in the code report may end with colon or not that is intentional. The output has to be like this

#include <stdio.h>
#include "report.h"

void main()
{

  #ifdef CHECK_REPORT
  #endif

  #if defined (REPORT_ENABLE)
  #endif

  printf("The execution is completed\n");
}
[download]

But the perl code which I have used below

  $/ = undef;  
  $_ = <file1>;
  s#\breport[s]?.*? \)\;|("[^"].*?")#defined $1 ? $1 :""#gsiex;
  print $_
[download]

when the code encounters the line with REPORT_ENABLE then it removes the rest of the code including printf.

From the previous post the solution given was

  s# .* report [s]? .* ; .* ##sx;
[download]

this works if the report was not in multiple lines. can you suggest what changes I need to do my regex to get the required answer.

Regards,

-Prassi

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.