Как мне заставить Perl работать с чатом Gmail?

Question

Я пробовал это и это. Но это просто не работает. AuthSend возвращает пустой массив Вероятно, я должен предоставить вам некоторый код для обсуждения:

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Net::XMPP;
use Data::Dumper;

my $username = 'USERNAME';
my $password = 'PASSWORD';
my $connection = new Net::XMPP::Client;
my $r = $connection->Connect(
    hostname => 'talk.google.com',
    port => 5222,
    componentname => 'gmail.com',
    connectiontype => 'tcpip',
    tls => 1
);
say Dumper $r;
my @r = $connection->AuthSend(
    username => $username,
    password => $password,
    resource => 'test'
);
say Dumper \@r;

Answer 1

Вы можете попробовать https://metacpan.org/pod/Net::XMPP::Client::GTalk.

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Data::Dumper;
use Net::XMPP::Client::GTalk;

my $username = 'USERNAME';
my $password = 'PASSWORD';

# does all the connection-handling and authentication at once
my $client = Net::XMPP::Client::GTalk->new(
    USERNAME => $username,
    PASSWORD => $password,
);

say Dumper($client);