perl：如何從預編譯版本獲取原始正則表達式？

Question

簡單代碼：

use 5.014; 
use warnings; 

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

結果：

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

是反編譯$ RE2找回原來的正則表達式的任何正確的方式？

動機：正則表達式是一個配置值，所以需要：

• 閱讀
• 編譯
• 將它保存爲以後使用的文件。

，但無法保存編譯後的正則表達式爲以後使用，因爲每一次編譯正則表達式得到了與擴大（爲^ U :,這樣幾個週期後，我與像結束：

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

因此

的問題是：

• 是這裏的任何正確的方法，如何保存編譯版本
• 如果沒有辦法 - 如何分解，以獲得原始版本
01？
• 有什麼想法嗎？

Answer 1

雖然我只是不停地對數據使用串繞副本，然後編一個副本時，我需要使用它，你也可以使用regexp_pattern功能從核心re模塊返回用於創建編譯模式正則表達式：

use re 'regexp_pattern'; 

print regexp_pattern qr/^\w$/; 

打印

^\w$ 

Answer 2

re::regexp_pattern

貸vpit指出這一點上MagNET #perl。

Answer 3

也許就這麼簡單：

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

Answer 4

原來是運營商，而不是一個正則表達式模式。只查看由regexp_pattern返回的第一個值（該模式）會導致信息丟失。你還需要看第二個（標誌）。

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 

爲了讓你可以得到原來的運營商最接近的可能，你想

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