perl: come ottenere la regex originale dalla versione precompilata?

Question

codice semplice:

use 5.014; 
use warnings; 

my $re = <DATA>; 
chomp $re; 
my $re2 = qr/$re/; 
say $re2; 
__END__ 
^\w$ 

risultato:

(?^u:^\w$)  #added the (?^u: 

è un modo corretto di decompilare $ RE2 tornare la regex originale?

Motivazione: l'espressione regolare è un valore di configurazione, in modo da necessità:

• leggerlo
• compilarlo
• salvarlo sul file per il successivo utilizzo.

Ma non può salvare la regex compilato per l'uso successivo, perché in ogni compilazione del regex ma ho ampliato con la (^ u :, così dopo diversi cicli ho finito con il simile:?

(?^u:(?^u:(?^u:(?^u:(?^u:^\w$))))) 

quindi la domanda sono:

• è qui alcun modo corretto, come salvare la versione compilata
• se nessun modo - come decompilare, per ottenere la versione originale
01?
• qualche idea?

Answer 1

Mentre dovevo solo mantenere la copia di stringa in giro per l'utilizzo dei dati e quindi compilare una copia quando avevo bisogno di usarlo, è anche possibile utilizzare la funzione regexp_pattern dal modulo core re per restituire il modello utilizzato per creare un compilato regex:

use re 'regexp_pattern'; 

print regexp_pattern qr/^\w$/; 

stampe

^\w$ 

Answer 2

re::regexp_pattern

crediti verso vpit per la precisazione su MagNET #perl.

Answer 3

Forse il più semplice:

... 
($reoriginal = $re2) =~ s{^\(\?.+:(.+)\)}{$1}; 
say $reoriginal 

Answer 4

L'originale è un operatore, non un modello regolare. Solo guardando il primo valore restituito da regexp_pattern (il modello) si verifica una perdita di informazioni. Devi anche guardare il secondo (le bandiere).

qr/foo/     # pat: foo flags: u 
qr/foo/u     # pat: foo flags: u 
use re '/u'; qr/foo/ # pat: foo flags: u 

qr/foo/a     # pat: foo flags: a 
use re '/a'; qr/foo/ # pat: foo flags: a 

qr/foo/i     # pat: foo flags: ui 
use re '/i'; qr/foo/ # pat: foo flags: ui 
use re '/a'; qr/foo/i # pat: foo flags: ai 
use re '/ai'; qr/foo/ # pat: foo flags: ai 

Per ottenere il più vicino possibile si può arrivare a l'operatore originale, si vuole

use re qw(regexp_pattern); 
my ($pat, $flags) = regexp_pattern($re); 
$pat =~ s{/}{\\/}g; 
say qq{qr/$pat/$flags};