processLine('23/05/2017 07:10:58 [6] 00-Always: ACTION=QUERY&Text=iphone%205%20has%20no%20network%2A&Summary=Context&SpellCheck=true&QuerySummary=false&Sort=AutnRank%2BRelevance&Synonym=true&TotalResults=true&MaxResults=10&PrintFields=drereference%2Cdretitle%2Ccontenttype%2Cautnrank%2COPTUS%5FFILTER1%2COPTUS%5FFILTER2%2COPTUS%5FFILTER3%2CCANONICAL%5FURL&Start=1&Predict=false&FieldText=%28MATCH%7BMy%20Optus%20Community%7D%3AOPTUS%5FFILTER1%3AOPTUS%5FFILTER2%3AOPTUS%5FFILTER3%20NOT%20MATCH%7Bsmb%7D%3ACONTEXT%20NOT%20MATCH%7BCustom%5FPromotions%7D%3ADREDBNAME%29%2BOR%2B%28%28MATCH%7BCustom%5FPromotions%7D%3ADREDBNAME%29%2BAND%2B%28BIASVAL%7Biphone%205%20has%20no%20network%2A%2C100%7D%3APromotion%5FKeywords%29%2BAND%2B%28MATCH%7Biphone%205%20has%20no%20network%2A%7D%3APromotion%5FKeywords%29%29&Combine=Simple&Characters=250 (127.0.0.1)');
if (defined $query && defined $ip && $query =~ m!/?a.*?=(\w+)([?&].*(?<=[?&])Text=([^?&]*))?!)
{
$events++;
my $action = $1;
my $terms = uri_unescape($3) || "";
}
我希望从iphone%205%20has%20no%20network%2A
A中删除Text=iphone%205%20has%20no%20network%2
并存储在$3
中。我测试了正则表达式,似乎没有找到问题。它将$3
打印为Context。
预期$3
输出值为iphonehasnonetwork
当我通过时,
processLine('25/05/2017 14:48:10 [9] 00-Always: action=Query&text=samsung&databasematch=Help_Support&ResponseFormat=json&_=1495687690880 (127.0.0.1)');
它将$3
打印为QuerySamsung
。这是预期的结果。
我是Perl的新手,我希望修改这个正则表达式并排除这个问题。我已经删除了我的perl脚本并诊断出根本问题。在regex101.com
中测试正则表达式的各个组件后,这个正则表达式对我来说很好答案 0 :(得分:1)
您忘记在正则表达式中添加忽略大小写修饰符:
$query =~ m!/?a.*?=(\w+)([?&].*(?<=[?&])Text=([^?&]*))?!i
最后看到i
?
答案 1 :(得分:0)
我不确定你的正则表达式有什么其他问题,但我发现: 1)捕获组由左括号编号,所以我认为你想要4美元而不是3美元 2)'Text'可能会在后面的字符串
中匹配'FieldText'你真的应该通过拆分所有参数(&amp;)然后拆分键值对(=)来正确解析URI