API概要
Perl版サンプル
/API/setを使用してメール配信の設定を行うサンプルです。
接続先ホスト名(example.com)および、接続時のIDとパスワード(login_id, password)につきましては適宜ご変更ください。
#!/usr/bin/env perl # 3mail API接続サンプルプログラム # # perl 5.8.8 にて動作確認済み # Author 3hands dev Team # Copyright 3hands Inc. use Encode; use utf8; # 以下のCPANモジュールが必要となります。 use LWP::UserAgent; use HTTP::Request::Common qw(POST); use XML::Simple; my $ua = LWP::UserAgent->new; $ua->env_proxy; # 送信データの設定 my $req = POST 'https://example.com/API/set', Content_Type => 'form-data', Content => [ 'login_id' => 'login_id', 'password' => 'login_password', 'file' => ["sample.csv.gz"], 'subject' => Encode::encode('sjis','テスト'), 'body' => Encode::encode('sjis','テスト'), 'from_address' => 'from@example.com', 'start_sending' => 'now', ] ; # APIへ接続 my $response = $ua->request($req); if ($response->is_success) { # 結果(XML形式)を取得 my $parser = XML::Simple->new; my $content = Encode::encode('utf8',$response->decoded_content); my $data = $parser->XMLin($content); # 内容を表示 print "status:" . $data->{status} . "\n"; print "code:" . $data->{code} . "\n"; print "message:" . $data->{message} . "\n"; } else { die $response->status_line; }