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


We don't bite newbies here... much
	PerlMonks

by Anonymous Monk

on Feb 28, 2022 at 10:15 UTC ( [id://11141700]=note: print w/replies, xml )

Need Help??

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]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://11141700]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (6)

As of 2024-04-18 12:20 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found