Re: How to print the original qr regex to the stdout?

It adds the ?^: at the start. What is the proper way to get rid of it?

Try Data::Dump pp to serialize regex or something from re or B to get original qr

my ($pat, $mods) = regexp_pattern($ref);
my $parentless = ( $pat =~ m/[^:]+:(.*?)\)$/s )[0];
[download]

Comment on Re: How to print the original qr regex to the stdout? Download Code

Replies are listed 'Best First'.
Re^2: How to print the original qr regex to the stdout? by ovedpo15 (Pilgrim) on Feb 28, 2022 at 10:38 UTC
Thank you very much! One question - why the second line is needed? It looks like `$pat` does what I need.	[reply] [d/l]
Re^3: How to print the original qr regex to the stdout? by Anonymous Monk on Feb 28, 2022 at 13:55 UTC
My cell phone doesnt have perl, the doc example implied the (^:) being returned	[reply]
Re^4: How to print the original qr regex to the stdout? (termux) by LanX (Saint) on Feb 28, 2022 at 14:26 UTC
> My cell phone doesnt have perl, FWIW: It's possible, https://termux.com/ runs on my Android with Perl installed. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]