Jika program Anda berjalan pada sistem Linux/Unix, Anda dapat menggunakan alat sendmail di Perl untuk mengirim email.
Berikut contoh script sederhana untuk mengirim email:
Contoh
#!/usr/bin/Perl # Menerima email, disini saya atur sebagai email QQ saya, Anda perlu memodifikasinya menjadi email Anda sendiri $ ke = ' [email protected] ' ; $dari = ' [email protected] ' ; #Judul $subject = ' Tutorial pembuat kode Perl mengirim tes email ' ; $message = ' Ini adalah email yang dikirim menggunakan Perl. ' ; buka ( MAIL , " |/usr/sbin/sendmail -t " ) ; mencetak SURAT " Ke: $ke n " ; SURAT " Dari: $dari n " ; SURAT " Subjek: $subjek n n " ; # Informasi email mencetak SURAT $ pesan ; tutup ( MAIL ) ; " Email berhasil terkirim n " ; Dengan mengeksekusi program di atas, hasil keluarannya adalah:
Email berhasil terkirim
Dalam keadaan normal, email di atas akan disadap oleh kotak surat QQ. Kita dapat menambahkannya ke daftar putih. Cara pengoperasiannya dapat diklik: https://kf.qq.com/faq/120322fu63YV130805rYRFzu.html
Setelah bergabung dalam daftar putih, Anda dapat menerima email secara normal.
Kirim email berformat HTML
Kita bisa menambahkan Content-type: text/htmln pada header email untuk mengirim email dalam format HTML.
Contoh
#!/usr/bin/Perl # Menerima email, disini saya atur sebagai email QQ saya, Anda perlu memodifikasinya menjadi email Anda sendiri $ ke = ' [email protected] ' ; $dari = ' [email protected] ' ; #Judul $subject = ' Tutorial Coder Perl Mengirim Tes Email ' ; $message = ' <h1>Ini adalah email yang dikirim menggunakan Perl<h1><p>Halo, saya dari Tutorial Coder, alamatnya adalah: http:/ /www .codercto.com. </p> ' ; buka ( MAIL , " |/usr/sbin/
sendmail -t " ) ; mencetak SURAT " Ke: $ke n " ; SURAT " Dari: $dari n " ; SURAT " Subjek: $subjek n " ; SURAT " Tipe konten: teks/html n " ; # Informasi email mencetak SURAT $ pesan ; tutup ( MAIL ) ; " Email berhasil terkirim n " ; Setelah eksekusi berhasil, periksa isi email, seperti gambar di bawah ini:
Menggunakan modul MIME::Lite
Jika Anda menggunakan sistem jendela, tidak ada alat sendmail. Saat ini Anda dapat menggunakan modul MIME:Lite Perl sebagai klien email untuk mengirim email.
Alamat pengunduhan modul MIME:Lite adalah: MIME-Lite-3.030.tar.gz.
Di sini kami menggunakan cpan untuk menginstal secara langsung (diperlukan izin root) tanpa mengunduh:
$ cpan -i MIME::Lite…… /usr/bin/make install -- Oke
Setelah instalasi berhasil, mari kita tunjukkan sebuah contoh:
Contoh
#!/usr/bin/Perl gunakan MIME::Lite ; # Terima email, disini saya atur sebagai email QQ saya, Anda perlu memodifikasinya menjadi email Anda sendiri $to = ' [email protected] ' ; # Cc, pisahkan beberapa dengan koma # $cc = '[email protected], [email protected]'; #email pengirim $dari = ' [email protected] ' ; #Judul $subject = ' Tutorial pembuat kode Perl mengirim tes email ' ; $message = ' Ini adalah email yang dikirim menggunakan Perl, menggunakan modul MIME::Lite. ' ; $pesan = MIME::Lite -> baru ( Dari => $dari , Ke => $ke , Cc => $cc , Subjek => $subjek , Data => $pesan ) ; $pesan - > kirim ; " Email berhasil terkirim n " ; Setelah eksekusi berhasil, periksa isi email, seperti gambar di bawah ini:
Kirim email berformat HTML
Kita bisa menambahkan Content-type: text/htmln pada header email untuk mengirim email dalam format HTML.
Contoh
#!/usr/bin/Perl gunakan MIME::Lite ; # Terima email, disini saya atur sebagai email QQ saya, Anda perlu memodifikasinya menjadi email Anda sendiri $to = ' [email protected] ' ; # Cc, pisahkan beberapa dengan koma # $cc = '[email protected], [email protected]'; #email pengirim $dari = ' [email protected] ' ; #Judul $subject = ' Tutorial pembuat kode Tes pengiriman email Perl ' ; $message = ' <h1>Ini adalah email yang dikirim menggunakan Perl<h1><p>Menggunakan modul MIME::Lite. </p><p>Dari tutorial coder, alamatnya adalah: http://www.codercto.com. </p> ' ; $pesan = MIME::Lite -> baru ( Dari => $dari , Ke => $ke , Cc => $cc , Subjek => $subjek , Data => $pesan ) ; #Tambahkan informasi tajuk $msg -> attr ( " tipe konten " => " teks/html " ) ; $msg - > kirim ; " Email berhasil terkirim n " ; Setelah eksekusi berhasil, periksa isi email, seperti gambar di bawah ini:
Kirim email dengan lampiran
Contoh pengiriman email dengan lampiran adalah sebagai berikut:
Contoh
#!/usr/bin/Perl gunakan MIME::Lite ; # Terima email, disini saya atur sebagai email QQ saya, Anda perlu memodifikasinya menjadi email Anda sendiri $to = ' [email protected] ' ; # Cc, pisahkan beberapa dengan koma # $cc = '[email protected], [email protected]'; #email pengirim $dari = ' [email protected] ' ; #Judul $subject = ' Tutorial pembuat kode Perl mengirim tes email ' ; $message = ' Ini adalah email yang dikirim menggunakan Perl, menggunakan modul MIME::Lite dan berisi lampiran. ' ; $pesan = MIME::Lite -> baru ( Dari => $dari , Ke => $ke , Cc => $cc , Subjek => $subjek , Ketik => ' multi bagian/campuran ' # Label lampiran ) ; $pesan -> lampirkan ( Ketik => ' TEKS ' , Data => $pesan ) ; #Tentukan informasi lampiran $pesan -> lampirkan ( Ketik => ' TEKS ' , Jalur => ' ./codercto.txt ' , # di direktori saat ini Nama file => ' codercto.txt ' , Disposisi => ' lampiran ' ) ; $pesan - > kirim ; " Email berhasil terkirim n " ; Setelah eksekusi berhasil, periksa isi email, seperti gambar di bawah ini:
Anda dapat menambahkan beberapa lampiran dengan menggunakan beberapa $msg->attach.
