Синтаксические ошибки Perl при объявлении большого константного массива

Question

Я хочу объявить огромный список константного массива, например:

my @tlds = (ac ad ae aero af ag ai al am an ao aq ar arpa as asia at au aw ax az ba bb bd be bf bg bh bi biz bj bm bn bo br bs bt bv bw by bz ca cat cc cd cf cg ch ci ck cl cm cns
co com coop cr cu cv cw cx cy cz de dj dk dm do dz ec edu ee eg er es et eu fi fj fk fm fo fr ga gb gd ge gf gg gh gi gl gm gn gov gp gq gr gs gt gu gw gy hk hm hn hr ht hu id ie 
il im in info int io iq ir is it je jm jo jobs jp ke kg kh ki km kn kp kr kw ky kz la lb lc li lk lr ls lt lu lv ly ma mc md me mg mh mil mk ml mm mn mo mobi mp mq mr ms mt mu museum mv mw mx my mz na name nc ne net nf ng ni nl no np nr nu nz om org pa pe pf pg ph pk pl pm pn pr pro ps pt pw py qa re ro rs ru rw sa sb sc sd se sg sh si sj sk sl sm sn so sr st su sv sx sy sz tc td tel tf tg th tj tk tl tm tn to tp tr travel tt tv tw tz ua ug uk us uy uz va vc ve vg vi vn vu wf ws xn xxx ye yt za zm zw);

Но он выдает ошибки: 1. Syntax error, near dm do dz 2. no such class mz, near "mw mx my mz"

Любые указатели о том, какудалить эти ошибки?Если я использую qw перед этим списком, он не показывает ошибок, почему?Что не так с вышеуказанной декларацией?

Answer 1

Оператор qw является оператором кавычек, как и все остальные ключевые слова q* (q qq qw qr qx), каждое из которых принимает символ-разделитель (или пару в случае фигурных скобок) и обрабатывает все внутри разделителей какстрока.Каждый из операторов делает что-то свое, а qw разбивает строку на пустое пространство, чтобы создать список.

Когда вы пишете серию голых слов в Perl, вы получаете большую вложенную цепочкукосвенные вызовы объектов.Вот краткий пример без ключевых слов (так что это не синтаксическая ошибка):

$ perl -MO=Deparse -e 'ac ad ae aero af ag ai al am an ao aq ar'
'ad'->ac('aero'->ae('ag'->af('al'->ai('an'->am('aq'->ao('ar'))))));
-e syntax OK

В вашем случае perl весело проводил синтаксический анализ того, что выглядит как косвенный синтаксис объекта, пока не встретил ключевое слово, которое нарушило работуцепочки и вызвало синтаксическую ошибку.

Если бы вы не использовали ключевое слово в своем списке, код скомпилировался бы нормально, и тогда бы вы получили ошибку времени выполнения по поводу отсутствующего метода в пакете.Если бы вы выполняли свой код с прагмой use strict; (что всегда следует делать), то последним голым словом станет синтаксическая ошибка (поскольку strict subs запрещает преобразование голых слов в строки. Это, по крайней мере, перехватило бы ошибку во время компиляции.

Важным выводом из этого является то, что в Perl есть много операторов, подобных кавычкам, которые фактически являются строками со специальной обработкой. Удаление оператора, подобного кавычкам, неизбежно приведет к синтаксическим ошибкам, поскольку произвольно отформатированные строки не являются допустимыми Perl.Список операторов, похожих на буитиновые кавычки, можно найти на справочной странице perlop .

Answer 2

qw делает для вас цитирование и разделение.

my @foo = ( "bar", "baz" );

означает то же самое, что и:

my @foo = qw( bar baz );

Наличие последовательных значений без кавычек - просто ошибка.

См. Документацию для цитата, как операторы .

Answer 3

Это потому, что когда вы опускаете qw/.../, ваши символы обрабатываются как голые слова, а когда дело доходит до ключевого слова "do", выдается ошибка.

РЕДАКТИРОВАТЬ: Несмотря на то, что мой ответ объясняет причину ошибки (ну, я так полагаю), предложение @ Квентина более конструктивно: не используйте голые слова (то есть делайте используйте qw//в вашем примере), чтобы сэкономить ваше время на обнаружение ошибок, подобных вашей.Например, в вашем списке int, который также является ключевым словом, lc (функция) и т. Д.