The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

Aliyun

perl版阿里云API的SDK

基于第二版API签名,使用Mojo::UserAgent模块,基于回调的方式使用

```

!/usr/bin/perl

use 5.010; use Aliyun::AuthV2; use Aliyun::Request; use Aliyun::Method::FcSmsNumSend; use Aliyun::Method::FcIotQrycard; use Data::Dumper qw/Dumper/;

my $auth = Aliyun::AuthV2->new(); $auth->set_appkey('你自己的key'); $auth->set_secretkey('你自己的秘钥');

my $method = Aliyun::Method::FcSmsNumSend->new(); $method->set_rec_num('13800138000'); $method->set_sms_free_sign_name('短信签名'); $method->set_sms_template_code('短信模板id'); $method->set_sms_param('{"rain":"下雨","temper":"18"}');

my $method2 = Aliyun::Method::FcIotQrycard->new(); $method2->set_bill_source('ICCID'); $method2->set_bill_real('123123'); $method2->set_iccid('123123');

my $request = Aliyun::Request->new(); $request->get($auth, $method, sub { say Dumper $_[0]; });

$request->get($auth, $method2, sub { say Dumper $_[0]; }); ```