Regexp :: Grammars中不区分大小写的哈希键

发布时间：2020-12-16 06:21:10 所属栏目：大数据来源：网络整理

导读：在perl模块 Regexp :: Grammars中,请考虑以下标记： token: command %commands 这个标记是复杂语法的一部分,解析各种不同的句子. 这个令牌匹配hash％命令中的任何单词,我已经定义如下(当然,在任何函数之外)： our %commands = ( 'Basic_import' = 1,'Wait' =

在perl模块 Regexp :: Grammars中,请考虑以下标记：

<token: command>       <%commands>

这个标记是复杂语法的一部分,解析各种不同的句子.

这个令牌匹配hash％命令中的任何单词,我已经定义如下(当然,在任何函数之外)：

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

这适用于匹配“Basic_import”,“Wait”等关键字.但是,我还希望它匹配“basic_import”,“wait”等字样.

如何在不必多次复制和粘贴每个关键字的情况下使此哈希大小写不敏感？因为这是复杂语法的一部分,我想使用Regexp :: Grammars,我宁愿不必为这个特殊异常恢复grep.

解决方法

您可以使用 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,);

my $grammar = qr{

    <command>

    <token: command>    <%commands>

};  

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

输出：

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

请注意,在将任何值插入其中之前必须绑定哈希.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!