Text matching repost

prassi has asked for the wisdom of the Perl Monks concerning the following question:

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

Comment on Text matching repost Select or Download Code

Replies are listed 'Best First'.
Re: Text matching repost by Neighbour (Friar) on Jun 18, 2012 at 09:29 UTC
How about a different approach? `#!/usr/bin/perl use strict; use warnings; my ($start, $stop) = (qr '#ifdef\|#if defined', qr '#endif'); open INPUT, '<', 'monks23.dat' or die "Error opening input: " . $!; while (<INPUT>) { if (/$start/ .. /$stop/) { # Print the lines themselves if (/$start/ or /$stop/) { print; } # Skip the rest next; } print; } close INPUT;` [download] Glad I've finally found a useful non-numeric-iterating purpose for `..` :) Edit: Added comments, removed unnecessary regex escaping	[reply] [d/l] [select]
Re^2: Text matching repost by Neighbour (Friar) on Jun 18, 2012 at 12:19 UTC
I later realised that instead of using `if (/$start/ or /$stop/) { print; }` [download] I could just as well use (and more efficient too): `if ($&) { print; }` [download] The meaning of `$&` is explained in perlvar as The string matched by the last successful pattern match. You can also use `$MATCH` if you `use English;`	[reply] [d/l] [select]
Re^3: Text matching repost by afoken (Chancellor) on Jun 18, 2012 at 14:24 UTC
I could just as well use (and more efficient too): `if ($&) { print; }` [download] Ummm, no. `$&` is one of the "ugly three" variables (the other two are $` and `$'`) that kill performance. From perlvar: The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. To avoid this penalty, you can extract the same substring by using `@-`. Starting with Perl 5.10, you can use the `/p` match flag and the `${^MATCH}` variable to do the same thing for particular match operations. Apart from that, it may work for this special problem, but it does not work if `$&` evaluates to false: `perl -E '$x="a0b"; $x=~/0/; say $&; if ($&) { die "not reached!" } if + ($x=~/0/) { say "matched zero" }'` [download] Output: `0 matched zero` [download] Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]
Re^4: Text matching repost by Neighbour (Friar) on Jun 19, 2012 at 06:39 UTC
Re^2: Text matching repost by prassi (Acolyte) on Jun 18, 2012 at 10:45 UTC
Hi, What kind of regex is this the above you mentioned, can you point me to some document on more understanding on this. Thanks, -Prassi	[reply]
Re^3: Text matching repost by Neighbour (Friar) on Jun 18, 2012 at 11:09 UTC
`qr` is explained in Regexp Quote Like Operators. It's basically an easy way to put regular expressions in variables.	[reply] [d/l]
Re: Text matching repost by ckj (Chaplain) on Jun 18, 2012 at 09:27 UTC
Try using this: `s# .* report [s]? .* ; .* ##sxlm;` [download] to fetch multiple line and remove them you can use this too: `s# .* report [s]? .\s.* ; .* ##sx;` [download] UPDATE: Have you tried running this one, I am sure that it will give you exactly what you require. it's a minor change you need not to go for so many funda and new logic. it's doable via this method itself.	[reply] [d/l] [select]
Re: Text matching repost by Cristoforo (Curate) on Jun 18, 2012 at 16:37 UTC
Yes, your regular expression didn't work for me either. I made a regexp that I believe works (below). But, before you use it for real files, try it on some samples to make sure it is doing what you want. Otherwise, you may lose your original c files when you try to change them. `#!/usr/bin/perl use strict; use warnings; open my $fh, "<", 'o33.txt' or die $!; my $cfile = do {local $/; <$fh>}; close $fh or die $!; $cfile =~ s/^[\t ]reports?$(?s:.?)$;?[\t ]\n//gm; print $cfile; __END__ ^[\t ] optional leading spaces/tabs from beginning of line, ( +the 'm' modifier) reports? reports with the 's' optional $ left paren (?s:.?) allow '.' to match newline in this scope (between parens) $ closing paren ;? optional ';' [\t ] optional spaces/tabs \n ends with newline` [download] Chris Update: added 'tabs' to spaces	[reply] [d/l]