PERL + соответствует точно строке (с левой стороны) в строке

Question

У меня проблема со следующей командой perl Как совместить все строки «1234» в файле, но если некоторые символы соединены до «1234», то это не будет соответствовать, моя проблема: если строка «1234» в середине строки, то это не соответствует почему?

Perl-команда:

perl -pe 's/OLD/NEW/ if /^1234/' file 

Пример того, что нужно, чтобы соответствовать:

a ass 1234= OLD 
bbb ddd 1234= OLD 
1234= OLD 

Пример того, что не нужно, чтобы соответствовать:

a1234= OLD 
sss q1234= OLD 

Answer 1

The ^ спичек «начало линии ". Попробуйте удалить этот символ в регулярном выражении. Замените его символом пробела.

Answer 2

Изменить ^ на \b. Это будет соответствовать только, если 1234 - это начало слова. (При необходимости см. perldoc perlre для получения дополнительной информации о том, что составляет «слово»!)