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