phji回答ポイント 80ptウォッチ 2

Perl の書き方に関する質問です。

以下のプログラムがPerl としてあるいは一般的なプログラムの書き方として間違っている、ダサい、遅い等がありましたら教えてください。私が気になっているのは

・配列を結合している @array = (@array, @hoge) という箇所
・差集合を求める際にモジュールを使っている箇所(モジュールなんて使わなくても簡単に書けるのではないか)

です。Twitter の Following の中で Followers にいない id を探す動作をします。よろしくお願いします。

use strict;
use warnings;
use Net::Twitter;
use List::Compare;

my ($username, $password) = ('','');
my $twit = Net::Twitter->new(username => $username,
password => $password);

my ($friends_count, $followers_count) = sub {($_[0]->{'friends_count'},
$_[0]->{'followers_count'})}->($twit->show_user($username));
my (@friends, @followers);


for(my $page=1;$page-1 < ($friends_count/100);$page++){
@friends = (@friends, map {$_->{screen_name}} @{$twit->friends({page=>$page})});
}

for(my $page = 1;$page-1 < ($followers_count/100);$page++){
@followers = (@followers, map {$_->{screen_name}} @{$twit->followers({page=>$page})});
}

my $lc = List::Compare->new(\@friends, \@followers);

print join(' ', $lc->get_Lonly), "\n";

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する

ベストアンサー

その他の回答

この質問へのコメント

コメントはありません

この質問への反応(ブックマークコメント)

質問の情報

登録日時
2009-07-07 23:57:37
終了日時
2009-07-14 16:28:34
回答条件
1人2回まで

この質問のカテゴリ

この質問に含まれるキーワード

Perl1679hoge915モジュール927Twit9プログラム5048配列924friends47

人気の質問

メニュー

PC版