fork(2) download
copy 
  1. #!/usr/bin/perl6
  2. my regex paren_any { '(' ~ ')' [ <-[()]>+ || <&paren_any> ]* }
  3. say "Extract (a(b)c) and ((d)f(g))" ~~ m:g/<&paren_any>/;
  4. say "Extract (a(b)c) and ((d)f(g))" ~~ m:ov:g/<&paren_any>/;
  5.  
  6.  
Success #stdin #stdout 0.13s 109120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(｢(a(b)c)｣ ｢((d)f(g))｣)
(｢(a(b)c)｣ ｢(b)｣ ｢((d)f(g))｣ ｢(d)｣ ｢(g)｣)
https://ideone.com/GboAJR
language:
Perl (perl 2018.12)
created:
5 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!