Как извлечь строку, заключенную в одинарные кавычки в Perl?

Question

Как извлечь abc из 'abc' с помощью регулярного выражения perl?

Я пытался

echo "'abc'" | perl -ne 'if(/\'(.*)\'/) {print $1}'

, но он показывает -bash: синтаксическая ошибка рядом с неожиданным токеном `('

Заранее спасибо за ваш ответ.

Answer 1

Это не проблема perl, это проблема оболочки: вы не можете включать одинарные кавычки в одинарные кавычки.

Вы должны заменить каждую одинарную кавычку на '\'' (конец одинарных кавычек, экранированный одинарныйцитата, начало цитат)

echo "'abc'" | perl -ne 'if(/'\''(.*)'\''/) {print $1}'

Answer 2

Перед вашим Perl-кодом, заключенным в одинарные кавычки, со знаком доллара, чтобы bash использовал альтернативный метод цитирования , который отключает расширение оболочки:

echo "'abc'" | perl -ne $'if(/\'(.*)\'/) {print $1}'

Answer 3

ответ Чоробы решает точную проблему.Для обобщенного решения любой проблемы цитирования используйте String :: ShellQuote :

                $ alias shellquote='perl -E'\''
                    use String::ShellQuote qw(shell_quote);
                    local $/ = undef;
                    say shell_quote <>;
                '\'''
                $ shellquote
user input →    if(/'(.*)'/) {print $1}␄
perl output →   'if(/'\''(.*)'\''/) {print $1}'

Answer 4

Ну, самый дешевый способ - не заключать в оператор perl одинарные кавычки:

echo "'abc'" | perl -ne "if(/'(.*)'/) {print $1}" 

В экранировании оболочки есть странные правила ...

Если вы действительно хотите это сделать«правильный» способ, которым вы можете завершить свою первую строку в одинарных кавычках, вставить цитату и начать другую:

echo "'abc'" | perl -ne 'if(/'\''(.*)'\''/) {print $1}'

Answer 5

У вас проблема с цитированием оболочки, а не проблема Perl.

Это хорошее применение для sed:

echo "'abc'" | sed "s/'//g"

Answer 6

вам нужно покинуть свой одиночный квот с '\' '

echo "'abc'" | perl -ne 'if( /'\''(.*)'\''/ ){print $1}'