Подскажите пожалуйста почему происходит так:
Код: Выделить всё
$ echo "one two one" | sed -n '/\([a-z][a-z]*\) \1/p'
one two one
Такая же тенденция прослеживается и в Perl:
Код: Выделить всё
$ perl -e '$string = "one two one"; print "$string\n" if $string =~ /(\w+) \1/'
one two one
Спасибо Всем откликнувшимся.