fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. $/ = undef;
  6.  
  7. while (<DATA>) {
  8.   s/if\s*(\((?>[^()]|(?1))*\))(*SKIP)(*F)|(\w+)(\s*<=[^;]*)/$2_yes$3/gs;
  9.   print;
  10. }
  11.  
  12. __DATA__
  13. always @(posedge clk or negedge rst_n)
  14. if(!rst_n)begin
  15.         d1 <= 0; //perl_comment_4
  16.         //perl_comment_5
  17.         d2 <= 1  //perl_comment_6
  18.                  + 2;
  19.         end
  20. else if( d3 <= d4 && ( d5 <= 3 ) ) begin
  21.         d6 <= d7 +
  22.                  (d8 <= d9 ? 1 : 0);
  23.         //perl_comment_7
  24.         d10 <= d11 <=
  25.                       d12
  26.                         + d13
  27.                             <= d14 ? 1 : 0;
  28.         end
Success #stdin #stdout 0s 6172KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
always @(posedge clk or negedge rst_n)
if(!rst_n)begin
        d1_yes <= 0; //perl_comment_4
        //perl_comment_5
        d2_yes <= 1  //perl_comment_6
                 + 2;
        end
else if( d3 <= d4 && ( d5 <= 3 ) ) begin
        d6_yes <= d7 +
                 (d8 <= d9 ? 1 : 0);
        //perl_comment_7
        d10_yes <= d11 <=
                      d12
                        + d13
                            <= d14 ? 1 : 0;
        end
https://ideone.com/uOMLK1
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!