Perl regexp kullanarak dizgenin sonuna/sonuna dizilerle boşluklu OR kelimesi nasıl eşlenir?

Question

Regexp ile eşleşen dizileri boşluklarla çevrili dizenin ortasında, sonunda veya başında veya dizideki tek şeyle eşleştirmek için bulmak istiyorum.

Örnek: dizisinin çok 'qwe45rty' biz aradığınızı olduğunu varsayalım. Bunları dizeleri tümü üzerinde olumlu elde edebilmek istiyorum:

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

Ama bunların hiçbiri:

'aaqwe45rty''qwe45rtybb''aaqwe45rtybb'

ne ile geldi Best Bunu beğenme:

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

bunun en iyi yolu olamaz :)

Herhangi bir öneriniz var mı? Örneğin

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

:

Answer 1

bunu yapabilirsiniz veya regex içine:

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

Answer 2

izlemeyi deneyin

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 

Çıktı:

'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

Soruna farklı bir yönden gelmeyi deneyin. şey can maç boşluk ya da hiçbir şey söylemek için o bir boşluk olmayan karakter maç olamaz demek ki:

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

Sadece perspektifte biraz kayma ve regex pratikte kendini yazar.