fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. use strict;
  4. use warnings;
  5.  
  6. while(<DATA>){
  7.     chomp;
  8.     m/
  9.         ^\w+\s*\(\s*(?:(')|("))?\s*(\w+)\s*\(\s*((?(1)"|'))?\s*(\w+)\s*\4?\s*\)\s*(\w+)\s*(?(1)'|")?\s*\)
  10.     /x;
  11.  
  12.     print "=$3= =$5= =$6=\n";
  13. }
  14. __DATA__
  15. text (aaa (text) ccc) 
  16. text ( aaa (text) ccc )
  17. text ( ' aaa (text) ccc ' ) 
  18. text ( " aaa (text) ccc " )
  19. text (aaa ( ' text ' ) ccc) 
  20. text ( aaa ( ' text ' ) ccc )
  21. text ( ' aaa ( " text " ) ccc ' ) 
  22. text ( " aaa ( ' text ' ) ccc " )
Success #stdin #stdout 0s 3696KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
=aaa= =text= =ccc=
=aaa= =text= =ccc=
=aaa= =text= =ccc=
=aaa= =text= =ccc=
=aaa= =text= =ccc=
=aaa= =text= =ccc=
=aaa= =text= =ccc=
=aaa= =text= =ccc=
https://ideone.com/E5Kcbb
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

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!