【perl】企业微信发消息

#!/usr/bin/env perluse strict;
use warnings FATAL => 'all';
use Encode qw(encode_utf8);
use JSON::MaybeXS qw(encode_json decode_json);
use LWP::UserAgent;
use HTTP::Request ();
use HTTP::Response;
use HTTP::Request::Common;my $tokenurl = 'https://qyapi.weixin.qq.com/cgi-bin/gettoken?';
my $sendurl = 'https://qyapi.weixin.qq.com/cgi-bin/message/send?';
my $corpid = '';
my $corpsecret = '';
my $agentid =;sub get_response($) {
my $req = shift; my $ua = LWP::UserAgent->new(timeout=>);
my $res = $ua->request($req);
# $res->decoded_content / $res->content
if ( $res->is_success ) {
my $res_data = decode_json($res->content);
return (, $res_data);
}
else {
return (, $res->status_line);
}
}sub get_token {
my $token_url = $tokenurl . 'corpid=' .$corpid . '&corpsecret=' . $corpsecret;
my $req = HTTP::Request->new('GET', $token_url); my ($r, $res_data) = get_response($req);
if ( $r ) {
return ($r, $res_data->{access_token});
}
else {
return ($r, $res_data);
}}sub send_data($$$) {
my ($token, $user, $content) = @_;
my $send_url = $sendurl . 'access_token=' . $token;
my $send_data = {
'touser' => $user,
'msgtype' => 'text',
'agentid' => $agentid,
'text' => {'content' => $content},
'safe' => '0'
};
my $json = encode_utf8(encode_json($send_data));
my $req = HTTP::Request->new('POST', $send_url);
$req->content($json); my ($r, $res_data) = get_response($req);
if ( $r ) {
return ($r, $res_data->{errmsg});
}
else {
return ($r, $res_data);
}}my ($r, $send_token) = get_token();
print send_data($send_token, 'username', 'hello world');