Perl code - 29 lines - codepad

#!perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'http://api.twitter.com/1/' . "$ARGV[0]/$ARGV[1]" . '/members.xml'. '?cursor=-1'); $req->authorization_basic($ARGV[2], $ARGV[3]); my $i = 1; while (1) { open my $fh, ">", "list$i.xml" or die; my $res = $ua->request($req); #print $res->content; print $fh $res->content; close $fh; i

[snow113]

リストに登録されたユーザーの情報を取得