Use per to automatically send emails

Recently, the automatic deployment of the automated test environment was successful, but my colleagues said that we didn't know whether you installed the environment successfully or what the latest version is, it is not very convenient, so I want to try to use Perl to write a script to automatically send emails. But when the latest build is successfully installed, I will send an email to the tester, in this way, the whole process is automated.

Haha, here is my implementation. It is mainly written through the net: SMTP package provided by Perl.

1. #! /Usr/bin/perl-W
2. 
   
3. Use Net: SMTP;
4. Use Authen: SASL; // you need to install it yourself (ppm install Authen: SASL). This is required for the encrypted email server.
5. 
   
7. Sub send_mail {
8. My ($ to, $ from, $ subject, @ body) = @_;
10. My $ host = "smtp.163.net"; # mail server address
11. My $ SMTP = net: SMTP-> New (
12. Host => $ host,
13. Hello => $ host,
14. Timeout => 30,
15. DEBUG => 1
16. );
17. # $ SMTP-> auth ('username', 'Password'); this line is required for the encrypted SMTP server; otherwise, this line is not required.
18. Die "cocould not open connection: $! "If (! Defined $ SMTP );
19. $ SMTP-> mail ($ from); # sender
20. $ SMTP-> to ($ to); # Receiver
22. $ SMTP-> data (); # data sending start mark
23. $ SMTP-> datasend ("Content-Type: text/plain; charset = gb2312/N"); # indicates the header part of the sent data
25. $ SMTP-> datasend ("from: $ from/N ");
26. $ SMTP-> datasend ("Subject: $ subject/N ");
28. $ SMTP-> datasend ("/N ");
29. Foreach (@ body ){
30. $ SMTP-> datasend ("$ _/N"); # send data
31. }
32. $ SMTP-> dataend (); # sending end mark
33. $ SMTP-> quit;
34. }
36. Send_mail ("zhtsuc", "zhtsuc", "test", QW (Hello World ));

Note that the sender and receiver parameters of an email only need the user name, not the full name of your email. This is very important, otherwise it will fail to be sent.

However, when I test using QQ mail, I find that the receiver's information must be given to the full name. I don't know what to ask them to violate this rule. If a message is prompted that the receiver is incorrect, then try to modify it like this.

This automation script is very useful in the automation environment and can greatly improve the efficiency.
Therefore, we recommend that you do this. :-D.