angel.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/env perl

use strict;
use warnings;

use JSON;

my $ENDPOINT = "https://www.googleapis.com/youtube/v3";
my $YT_API_KEY = $ENV{'YT_API_KEY'} or die "YT_API_KEY not defined";

sub decode_json_utf8 {
    my $json = join "", @_;
    utf8::encode($json);
    return decode_json($json);
}

sub api_search {
    return (decode_json_utf8 `curl -s '$ENDPOINT/search?channelId=UCGUc7rf0fbEzrGb7kkmu6zw&part=snippet&q=Informativo&maxResults=1&key=$YT_API_KEY'`)->{items};
}

my $today = `date '+%Y-%m-%dT'`;
chomp $today;

my ($video) = @{api_search()};

if ($video->{snippet}{publishTime} =~ /^$today/) {
    print "$video->{snippet}{title}\nhttps://www.youtube.com/watch?v=$video->{id}{videoId}\n";
}