Моя почтовая очередь сейчас заполнена сообщениями о недоставке для того же домена, но в смешанном случае.
Я пробовал использовать exiqgrep
чтобы отфильтровать эти письма из моей очереди, но кажется, что команда чувствительна к регистру. Есть ли способ выполнить поиск без учета регистра?
Как заметил другой джентльмен, программа exiqgrep - это просто Perl-скрипт. Он принимает необработанное значение, переданное в функцию -r (получатель), и использует его в сопоставлении с шаблоном. Сопоставление с образцом - это простой $rcpt =~ /$opt{r}/
perl test, совпадение по умолчанию, поскольку оно не указано, учитывает регистр.
Как и все, что связано с Perl, TIMTOWTDI (есть несколько способов сделать это). Поскольку приведенная выше функция не удаляет и не очищает значение, переданное в -r, вы можете просто встроить модификатор игнорирования регистра в регулярное выражение. Видеть perldoc perlre
для более подробной информации о том, как (?MODIFIERS:...)
последовательность работ.
Вот пример, в котором я показываю, что поиск в смешанном регистре не находит искомый домен, но, используя модификатор встроенного флага как часть поискового запроса, он его находит.
OVZ-CentOS58[root@ivwm51 ~]# exiqgrep -r 'crazyivan@yahoo.com'
26h 4.0K 1VGRud-0001sm-P1 <> *** frozen ***
crazyivan@yahoo.com
OVZ-CentOS58[root@ivwm51 ~]# exiqgrep -r 'crazYivAn@yahOo.com'
OVZ-CentOS58[root@ivwm51 ~]# exiqgrep -r '(?i:crazYivAn@yahOo.com)'
26h 4.0K 1VGRud-0001sm-P1 <> *** frozen ***
crazyivan@yahoo.com
Ваш поиск будет похож, примерно так:
(?i:@thedomainyouseek.com)
В справочная страница не показывает такой вариант, но 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 }