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

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