Skip to content

Instantly share code, notes, and snippets.

@ywindish
Last active May 7, 2018 08:59
Show Gist options
  • Save ywindish/9b5e4ba4cdd94a7840e9575da8443cb3 to your computer and use it in GitHub Desktop.
Save ywindish/9b5e4ba4cdd94a7840e9575da8443cb3 to your computer and use it in GitHub Desktop.
LINE Notify sample code
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use Encode;
my $ua = LWP::UserAgent->new;
my $res = $ua->post(
'https://notify-api.line.me/api/notify',
{ message => 'hogeeeeeeeeee!!' },
Authorization => 'Bearer xxxxxxxxxxxx', # set created auth key
);
warn $res->content;
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment