perl中匹配并修改字符变量$address=“[email protected]=>[email protected]";希望得到/^From:.*test_xa\@test\.com/ DISCARD我原来是这么写的,发现不行：`echo $address|awk -F "=>" '{print \$1}'|sed 's/@/\\@/g'|sed 's/\./\\\./g'|aw

perl中匹配并修改字符变量$address=“[email protected]=>[email protected]";希望得到/^From:.*test_xa\@test\.com/ DISCARD我原来是这么写的,发现不行：`echo $address|awk -F "=>" '{print \$1}'|sed 's/@/\\@/g'|sed 's/\./\\\./g'|aw
perl中匹配并修改字符
变量$address=“[email protected]=>[email protected]";
希望得到/^From:.*test_xa\@test\.com/ DISCARD
我原来是这么写的,发现不行：`echo $address|awk -F "=>" '{print \$1}'|sed 's/@/\\@/g'|sed 's/\./\\\./g'|awk '{print "/^From:.*"$0"/ DISCARD"}'`;
求给个方法.

perl中匹配并修改字符变量$address=“[email protected]=>[email protected]";希望得到/^From:.*test_xa\@test\.com/ DISCARD我原来是这么写的,发现不行：`echo $address|awk -F "=>" '{print \$1}'|sed 's/@/\\@/g'|sed 's/\./\\\./g'|aw
$address = '[email protected]=>[email protected]';
if ($address =~ /([^=>]*)=>.*/) {
$match = $1;
$match =~ s/\@/\\\@/g;
$match =~ s/\./\\\./g;
print "/^From:.*$match/ DISCARD\n";
} else {
print "no\n";
}