如何让 perl 与 gmail 聊天一起工作？

Question

我试过this 和this。但它只是行不通。 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

你可以试试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);