我的邮件队列目前充满了同一域的退回邮件,但大小写混合。
我尝试使用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 }