大文字と小文字を区別しない正規表現でハッシュキー:: Perlモジュールの正規表現で文法

Question

::文法、次のトークンを考慮してください。

<token: command>  <%commands> 

このトークンは、異なるさまざまなを解析、複雑な文法の一部であり、文章。 「Basic_import」のようなマッチングキーワードの

our %commands = (
    'Basic_import' => 1, 
    'Wait'   => 1, 
    'Reload'  => 1, 
    'Log'   => 1, 
); 

これは動作しますが、「待っ：

このトークンは、私が（任意の関数の外に、当然のことながら）以下のように定義されているハッシュ％コマンド、のいずれかの単語に一致します"basic_import"、 "wait"などの単語で一致させたい場合もあります。

このキーワードを複数回コピーして貼り付けなくても、このハッシュケースを非表示にするにはどうすればよいですか？これは複雑な文法の一部なので、Regexp :: Grammarsを使いたいので、この例外のためにgrepに戻す必要はありません。 <%commands>がWaitingのWaitにマッチするようにドキュメントから

Answer 1

あなたは、ハッシュ検索の大文字小文字を区別しません作るためにHash::Case::Preserveを使用することができます。

use strict; 
use warnings 'all'; 

use Data::Dump; 
use Hash::Case::Preserve; 
use Regexp::Grammars; 

tie my %commands, 'Hash::Case::Preserve'; 

%commands = (
    'Basic_import' => 1, 
    'Wait'   => 1, 
    'Reload'  => 1, 
    'Log'   => 1, 
); 

my $grammar = qr{ 

    <command> 

    <token: command> <%commands> 

}; 

dd \%/ if 'basic_import' =~ $grammar; 

出力：あなたはがそれに任意の値を挿入する前tieハッシュに持って

{ "" => "basic_import", "command" => "basic_import" } 

注意。

Answer 2

は、それが聞こえるので、<%commands>のも、大文字と小文字を区別しないバージョンが理想的とは言えないだろう。

通常、汎用識別子を照合して、その識別子が有効なコマンドであるかどうかを個別にチェックします。これは、printfoo();がPerlのprint foo();と等価でないことを防ぎます。

私は次のことを提案してもよい：

use feature qw(fc); 

our %commands = map { fc($_) => 1 } qw(
    Basic_import 
    Wait 
    Reload 
    Log 
); 

<rule: command> (<ident>) <require: (?{ $commands{fc($CAPTURE)} })> 

<token: ident> \w+ 

あなたが5.16よりも古いバージョンのPerlとの後方互換性が必要な場合は、おそらく代わりにfcのlcを使用して逃げることができます。