[perl] 메일 발송 클라이언트

>perl Makefile.PL
>make
>make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" 
        "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/basic...........ok                                                         
        1/3 skipped: test only useful in US/Eastern, -0400, not +0900
t/pod-coverage....skipped
all skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.............skipped
all skipped: Test::Pod 1.14 required for testing POD
All tests successful, 2 tests and 1 subtest skipped.
Files=3, Tests=3,  0 wallclock secs ( 0.13 cusr +  0.05 csys =  0.18 CPU)
>make install

>perl Makefile.PL
>make
>make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" 
        "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/addrs...........ok                                                         
t/data............ok                                                         
t/head............ok                                                         
t/parts...........ok                                                         
t/pod-coverage....skipped
all skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.............skipped
all skipped: Test::Pod 1.14 required for testing POD
t/types...........#
#Interaction with MIME::Types has not been tested
#as it doesn't seem to be present.
t/types...........ok                                                         
t/verify..........ok                                                         
All tests successful, 2 tests skipped.
Files=8, Tests=43,  0 wallclock secs ( 0.52 cusr +  0.16 csys =  0.68 CPU)
>make install

#!/usr/bin/perl

use MIME::Lite;
use Net::SMTP;

### Adjust sender, recipient and your SMTP mailhost
my $from_address = 'pepsi@mimul.com';
my $to_address = 'pepsi@paran.com';
my $mail_host = 'mimul.com';

### Adjust subject and body message
my $subject = '메일 테스트 ...';
my $message_body = "파일이 하나 첨부되었삼";

### Adjust the filenames
my $my_file_path = 'MIME-Lite-3.021.tar.gz';
my $my_file_zip = 'MIME-Lite-3.021.tar.gz';

### Create the multipart container
my $msg = MIME::Lite->new (
          From => $from_address,
            To => $to_address,
              Subject => $subject,
                Type =>'multipart/mixed'
        ) or die "Error creating multipart container: $!\n";

### Add the text message part
$msg->attach (
          Type => 'TEXT',
            Data => $message_body
        ) or die "Error adding the text message part: $!\n";

### Add the ZIP file
$msg->attach (
           Type => 'application/zip',
           Path => $my_file_path,
           Filename => $my_file_zip,
           Disposition => 'attachment'
        ) or die "Error adding $my_file_path: $!\n";

### Send the Message
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send; 

코멘트 달기

Posted by 미물 on 2008년 6월 16일 (월) 오전 1시 02분 00초 #