不区分大小写的 exiqgrep?

不区分大小写的 exiqgrep?

我的邮件队列目前充满了同一域的退回邮件,但大小写混合。

我尝试使用exiqgrep它从我的队列中过滤这些邮件,但似乎命令区分大小写。有没有办法执行不区分大小写的搜索?

答案1

正如另一位先生指出的那样,exiqgrep 程序只是一个 perl 脚本。它获取传递给 -r 函数(接收者)的原始值并将其用于模式匹配。模式匹配是一个简单的$rcpt =~ /$opt{r}/perl 测试,默认匹配(由于未指定)区分大小写。

和所有 perl 一样,TIMTOWTDI(有多种方法可以做到)。由于上述函数不会删除或清理传递给 -r 的值,因此您只需在正则表达式中嵌入忽略大小写修饰符即可。perldoc perlre有关(?MODIFIERS:...)序列如何工作的更多详细信息,请参阅。

这里有一个例子,我展示了混合大小写搜索找不到我要查找的域,但是通过使用内联标志修饰符作为搜索词的一部分,它找到了它。

OVZ-CentOS58[root@ivwm51 ~]# exiqgrep -r '[email protected]'
26h  4.0K 1VGRud-0001sm-P1 <> *** frozen ***
      [email protected]

OVZ-CentOS58[root@ivwm51 ~]# exiqgrep -r '[email protected]'
OVZ-CentOS58[root@ivwm51 ~]# exiqgrep -r '(?i:[email protected])'
26h  4.0K 1VGRud-0001sm-P1 <> *** frozen ***
      [email protected]

你的搜索将会类似,例如:

(?i:@thedomainyouseek.com)

答案2

手册页没有显示这样的选项,但该exiqgrep实用程序是一个perl脚本,您可以修改以满足您的需求


114 sub selection() {
115   foreach my $msg (keys(%id)) {
116     if ($opt{f}) {
117       # Match sender address
118       next unless ($id{$msg}{from} =~ /$opt{f}/); # here
119     }
120     if ($opt{r}) {
121       # Match any recipient address
122       my $match = 0;
123       foreach my $rcpt (@{$id{$msg}{rcpt}}) {
124         $match++ if ($rcpt =~ /$opt{r}/); # or here
125       }
126       next unless ($match);
127     }
128     if ($opt{s}) {
129       # Match against the size string.
130       next unless ($id{$msg}{size} =~ /$opt{s}/);
131     }
132     if ($opt{y}) {
133       # Match younger than
134       next unless ($id{$msg}{ages}  $opt{o});
139     }
140     if ($opt{z}) {
141       # Exclude non frozen
142       next unless ($id{$msg}{frozen});
143     }
144     if ($opt{x}) {
145       # Exclude frozen
146       next if ($id{$msg}{frozen});
147     }
148     # Here's what we do to select the record.
149     # Should only get this far if the message passed all of
150     # the active tests.
151     $id{$msg}{d} = 1;
152     # Increment match counter.
153     $mcount++;
154   }
155 }

相关内容