Perl regexpを使って、文字列の最後か最後にスペースで区切られた単語をどのように一致させるか？

Question

私はregexpにマッチした文字列を、空白で囲まれた文字列の途中に置かなければなりません。文字列中の唯一のものでなければなりません。

例： シーケンス'qwe45rty'が私たちが探しているものとしましょう。私は、これらの文字列のすべてにプラスを取得することができるようにしたい：

'qwe45rty''qwe45rty blabla''smth qwe45rty blabla''smth qwe45rty'' qwe45rty '

しかし、これらのどれも：私が思い付いたベスト

'aaqwe45rty''qwe45rtybb''aaqwe45rtybb'

このようなsmth：

if (($a =~ /\s+$re\s+/) or 
    ($a =~ /^$re\s+/) or 
    ($a =~ /\s+$re$/) or 
    ($a =~ /^$re$/)  ) 
{ 
    # do stuff 
} 

これは最善の方法ではありません。

お勧めはありますか？例えば

$a =~ /(?:\A|\s)$re(?:\s|\Z)/; 

：

Answer 1

はあなたが行うことができますまたは正規表現の内側：

/(^|\s+)qwe45rty(\s+|$)/ 

Answer 2

は、次の試してみてください

use strict; 
use warnings; 

my $re = 'qwe45rty'; 
while (<DATA>) { 
    chomp; 
    print "'$_': Match? " . (/(?:\A|\s)$re(?:\s|\Z)/ ? 'Yes' : 'No') . "\n"; 
} 

__DATA__ 
qwe45rty 
qwe45rty blabla 
smth qwe45rty blabla 
smth qwe45rty 
qwe45rty 
aaqwe45rty 
qwe45rtybb 
aaqwe45rtybb 

出力：

'qwe45rty': Match? Yes 
'qwe45rty blabla': Match? Yes 
'smth qwe45rty blabla': Match? Yes 
'smth qwe45rty': Match? Yes 
' qwe45rty ': Match? Yes 
'aaqwe45rty': Match? No 
'qwe45rtybb': Match? No 
'aaqwe45rtybb': Match? No 

Answer 3

別の方向から問題を試してみてください。何かできマッチ空白または何も言うことは、それがは非空白文字と一致しないことができると言うことです：

(?<!\S)qwe45rty(?!\S) 

だけの視点で少しシフトして正規表現は、実質的に自分自身を書き込みます。