Perl одна строка регулярное выражение escape ^ символ

Question

У меня есть строка, начинающаяся с символа ^, я хочу начать строку и символ ^. но это не работа.

echo "^./mnt/" |perl -slane ' print if m#^$line$#o' -- -line="^./mnt/"

как мне сопоставить это регулярное выражение с входным регулярным выражением, переданным в качестве аргумента.

это работает, но я бы хотел, чтобы оно работало с per-in.

#echo "^./mnt/" |perl -slane ' print if m#^$line$#o' -- -line="\\^./mnt/"
^./mnt/

Спасибо SR

Answer 1

Для преобразования текста в шаблон регулярного выражения используйте quotemeta (возможно, через \ Q .. \ E).

echo "^./mnt/" |perl -slne'print if /^\Q$line\E$/' -- -line="^./mnt/"

В этом случае вы можете просто использовать

echo "^./mnt/" |perl -slne'print if $_ eq $line' -- -line="^./mnt/"

Answer 2

Вам нужно экранировать специальные символы в вашем аргументе (как если бы он был встроен непосредственно в регулярное выражение).

echo "^./mnt/" |perl -slane ' print if m#^$line$#o' -- -line="\^\.\/mnt\/"

Answer 3

возможно m#^\Q$line\E# или m#^\Q$_\E#, но не уверен, потому что я на виндозке