Perl однострочный с одинарной кавычкой

Question

Я использовал однострочный Perl для создания оператора SQL, но не могу включить одинарные кавычки.

Это то, что я хочу: взять первую заявку и добавить к ней цитаты.

echo "a,b" | perl -F',' -lane 'print $F[0];'
 'a'

Я пробовал несколько разных способов, но у меня это не сработало.

1

echo "a,b" | perl -F',' -lane 'print qq('$F[0]');'
[0]

2

echo "a,b" | perl -F',' -lane 'print q('$F[0]');'
[0]

Вот еще один интересный.

Он печатает одиночную кавычку с оператором print, но если я присваиваю значение переменной и печатаю, он не работает.

perl -lwe "print q( i'am );"
 i'am

perl -lwe "$b=q( didn't ); print $b"

Можете ли вы помочь мне понять, как мы можем использовать одинарные и двойные кавычки в однострочниках Perl?

Answer 1

Вы не можете использовать одиночные кавычки в одиночку. Вы должны правильно их избежать, используя '\'' Это работает:

$ echo "a,b" | perl -F',' -lane 'print "'\''$F[0]'\''";'
'a'

Answer 2

Вам нужно узнать, как ваша оболочка обрабатывает кавычки.
Я бы просто использовал значение ASCII для ':

echo "a,b" | perl -F',' -lane 'print "$F[0]\047";'
a'

Операторы

q// и qq// также могут быть полезны в однострочниках.

Answer 3

Используйте переменную с восьмеричным значением:

echo "a,b" | perl -F',' -lane '$sq="\047"; print "$sq$F[0]$sq";'

Также сработает небольшая модификация вашей попытки # 1:

echo "a,b" | perl -F',' -lane "print qq{'\$F[0]'};"

Это использует двойные кавычки для внешнего набора и экранирует знак доллара, чтобы предотвратить интерпретацию оболочкой.

Answer 4

Размещение сценария в двойных кавычках, а не в одинарных кавычках, позволит вам использовать одинарные кавычки внутри скрипта без необходимости экранировать или использовать последовательности ANSI для представления одинарных кавычек.Вероятно, это наиболее эффективное и легко читаемое решение.