Perl表达式以阻止电子邮件

Question

[开始之前：我有0个线索，请问Perl是什么，所以请不要“杀死”我;）我要问的是基于我的域/主机的CPanel上的信息（我不是开发人员或任何人）

因此，在我的CPanel上，我有一个称为“ Box Trapper”的功能，可以将电子邮件列入白名单和黑名单。他们说，为了让我阻止来自特定域的电子邮件，我应该使用此方法：

from。+ @ gapot.stream（这样可以阻止所有来自@ gapot.stream的电子邮件

现在的问题是：如果我想阻止所有以。stream]结尾的电子邮件，无论开头是“ gapot”还是其他任何东西，我将如何写一个表达式，例如：] >

@ [name1.stream

，和以.stream结尾的任何组合都将被阻止希望有道理，这里的人可以帮助我（不要太技术，因为我不会理解）

谢谢：）

[开始之前：我有0个线索，请问Perl是什么，请不要“杀死”我;）我要问的是基于CPanel上有关我的域/主机的信息（我不是开发人员之类的东西）因此，在我的CPanel上，我...

好，我建议您在

regex

上做一些阅读-您将拥有一个漂亮的工具正则表达式中的现在：[基本知识]

. - any symbol
+ - 1 or more  (repeats)
* - 0 or more  (repeats)
{1,8} - 1 to 8 (repeats)
? - stop symbol (none greedy match)

现在您的正则表达式将为.+@.+\.stream ::任何符号后跟'@'，后跟任何符号然后是'。'。并以“ stream”结尾。当您引用电子邮件时，“ @”是模式的关键元素。
Perl代码示例
use strict;
use warnings;

use Data::Dumper;

my $debug = 0;

while( <DATA> ) {
    print if /.+@.+.stream/;
}

__DATA__
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]

为了更好地理解
regex
，请阅读以下chapter

Answer 1

好，我建议您在

regex