30分ででっち上げたのでXMLのパースとかTwitterIDの正規表現とかいろいろ問題がありますが、何となく動いたので。
ATNDのID = TwitterのIDじゃないので誤フォローもありえます。
PERL:
-
use strict;
-
use warnings;
-
use Net::Twitter;
-
use LWP::Simple;
-
use XML::Simple;
-
use URI::Escape;
-
-
# TwitterのID/PW
-
my $twitter = new Net::Twitter(
-
username => 'username',
-
password => 'password',
-
);
-
-
# ATNDのイベントID
-
my $event_id = 1;
-
-
my $uri = "http://api.atnd.org/events/users/?event_id=$event_id";
-
-
my $data = XML::Simple->new->XMLin($xml);
-
-
for (@{$data->{events}{event}{users}{user}}) {
-
$twitter->create_friend(uri_escape_utf8 $_->{nickname}) if $_->{nickname} =~ /[A-Za-z0-9_]+/;
-
}
