perlの右端と左端のシンボルと正規表現の一致

Question

左端のシンボルと右端のシンボルが同じになるように文字列を一致させようとしています。それ、どうやったら出来るの？

Answer 1

$string =~ m/^(.).*\1$/ 

が有効です。しかし、これは長さ1の文字列と一致しません。

Answer 2

それはあなたが「シンボル」と考えるものの明確化せずに意味内容を正確に把握することは不可能だが、ここでは一つの可能​​な解決策は以下のとおりです。

use Unicode::Normalize; 
NFD($string) =~/\A \s* ((?= \p{Grapheme_Base}) \X) .* \1 \s* \z /sx; 

、ここでは別です：

use Unicode::Normalize; 
NFD($string) =~/\A \s* ((?= \p{Symbol}) \X) .* \1 \s* \z /sx; 

とここにもう1つあります：

use Unicode::Normalize; 
NFD($string) =~/\A \s* ((?: (?= \p{Symbol}) \X)+) .* \1 \s* \z /sx; 

そして、あなたが非常に限られた状況はと離れて取得することができ：

$string =~/^ (\pS) .* \1 $ /xs; 

しかし、あなたがしなければ、それはいつかあなたがより慎重になっていた希望するつもりだということも考えられます。

Answer 3

なぜこれを正規表現で使いたいのですか？宿題ですか？私はこのような簡単なパターンの正規表現を避ける。トムは書記素対文字文句ますので

use Unicode::Normalize qw(NFC); 
$s = NFC($s); 

substr($s, 0, 1) eq substr($s, -1, 1); 

、あなたもそれを処理することができます：長さ1と大きいと

use v5.10.1; 
use Unicode::GCString; 
use Unicode::Normalize qw(NFC); 

my $gcs = Unicode::GCString->new(NFC($s)); 
$gcs->substr(0, 1) eq $gcs->substr(-1, 1) 

Answer 4

これらの正規表現のマッチ文字列。式では、(.)はキャプチャグループを表しています。このグループでは、私の推測するシンボルのクラスでドットを置き換える必要があります（Unicode Guruの記事を参照してください）。

この正規表現の文脈は一行（/s修飾語）です。それはドットが 改行だけでなく、他のもの（例えば[\s\S]）と一致するようにします。改行を組み込み、最も外側の区切り文字にすることができます。 \zは、（文字列の最後にマッチがよりcommonaある）$が改行前に一致する可能性がシナリオを補正以外\zを使用

は、（/sモード）$と同じです。問題の文字が改行であり、貪欲でない量指定子（.*?など）を使用していて、ターゲット文字列が "\ nasdf \ n \ n"の場合、最終改行の前に偽りに一致する可能性があります。しかし、それは試合がすべて貪欲であるため、根本的な問題である。それでも、笑いのためにそれを残す。

/^(?=(.)).*\1\z/s 

が

/^(?=(\w)).*\1\z/s 

ちょうど単語クラスの文字を規定

/ 
^   # Beginning of string 
(?=(.))  # Lookahead - capture grp1, first (any) character (but don't consume it) 
.*   # Optionally consume all the characters up until before the last character 
\1   # Backreference to capture grp1, this must exist 
\z   # End of string 
/s # s modifier 

例を拡大して再度、単に「シンボル」を定義し