Perl синтаксический анализ

Question

В настоящее время я пишу скрипт в perl для анализа модулей perl и извлечения из них значимых слов. (кроме ключевых слов perl).

У меня есть массив списков отказов, который содержит ключевые слова perl. Я использую это, чтобы отделить значимые слова от ключевых слов perl.

my $pattern = join("|", @rejectionlist); 
foreach my $word (@words) { 
    if (!($word =~ /^$pattern$/i)) { 
      push @meaningfulwords, $word; 
    } 
} 

Возможно ли динамически генерировать ключевые слова perl (массив списка отклонения - с помощью любых подпрограмм)?

Answer 1

use B::Keywords qw(@Symbols @Barewords); 

my %kw; 
@kw{(map fc, @Symbols, @Barewords)} =(); 

my @meaningfulwords = grep { !exists $kw{ fc($_) } } @words; 

Answer 2

Я предлагаю вам взглянуть на B::Keywords модуля. Он классифицирует все зарезервированные идентификаторы Perl в десяти разных категориях и экспортирует десять соответствующих массивов имен, которые вы можете использовать по своему усмотрению.

Кстати, ваше регулярное выражение неверно. Вместо этого вы хотите /^(?:$pattern)$/.

Answer 3

Если вы действительно хотите использовать регулярное выражение для этой задачи, вы должны избегать каждого ключевого слова, прежде чем объединять их в список. Вставьте \Q в начале ключевого слова и \E в конце ключевого слова.

my $pattern = '(?:\Q' . join('\E|\Q', @rejectionlist) . '\E)';