特定の単語の後に最初の単語を抽出します。

Question

ある単語の後に単語を抽出するPerlプログラムを書くのが難しいです。例えば

：

Today i'm not going anywhere except to office. 

私はanywhere後に単語をしたいので、出力はexceptでなければなりません。

私はこの

my $words = "Today i'm not going anywhere except to office."; 
my $w_after = ($words =~ /anywhere (\S+)/); 

を試してみましたが、これは間違っているようです。

Answer 1

非常に近い：

my ($w_after) = ($words =~ /anywhere\s+(\S+)/); 
^ ^      ^^^ 
    +--------+      | 
    Note 1      Note 2 

注1：割当先をリストする必要があるので、捕捉された項目のリストを返し=~。

注2：この正規表現がマッチするanywhere

Answer 2

後に可能にする1つの以上の空白：

my ($expect) = ($words=~m/anywhere\s+([^\s]+)\s+/); 

^\s+二つの空間

感謝間の言葉。

Answer 3

あなたはまたのように、句読点を考慮に入れたい場合：

my ($w_after) = ($words =~ /anywhere[[:punct:]|\s]+(\S+)/); 

Answer 4

まず、あなたが=の左側の式を囲む括弧を記述する必要があります。

my $words = "Today i'm not going anywhere; except to office."; 

はその後、これを試してください演算子は、正規表現評価のために配列コンテキストを強制する。 perlop文書のm// and //を参照してください。[1]可読性を向上させるために、=~バインディング演算子のあとに かっこを書くこともできますが、=~はかなり高いpriorityを持っているため、必要ありません。

使用POSIX Character Classesword

my ($w_after) = ($words =~/\b anywhere \W+ (\w+) \b /x); 

私は正規表現でとても空白は無視されxを使用しています注意してください。正規表現を正しく固定するには、\bの単語境界も使用してください。

[1]：あなたが(my $a, my $b, my $c, my @rest)の同等としてmy ($a, $b, $c, @rest)を書くことができますが、あなたはまた、(my $a, our $UGLY_GLOBAL, local $_, @_)のようなあなたの変数のスコープを制御することができますので、私はただ便宜上my ($w_after)を書きます。

Answer 5

Perl v5.22以降では、\b{wb}を使用すると、自然言語の結果が向上します。パターンは

/anywhere\b{wb}.+?\b{wb}(.+?\b{wb})/ 

「WB」は単語の区切りを意味することができ、そしてそれは、それらの中にアポストロフィを持つ言葉を占めることになるようなプレーンな\bがないことを、「私はよ」。

.+?\b{wb} 

は、それらの単語の区切りを持たない文字の最短非空のシーケンスと一致します。最初のものはあなたのセンテンスのスペースのスパンにマッチします。 2番目のものは「except」と一致します。それはかっこで囲まれているので、完了時には$1に "except"が含まれています。

\b{wb}は、あなたは以下のアップデートから回答を受け取ることができperlrebackslash