#Userdata.pm package Userdata; use strict; use warnings; use XML::FeedPP; use XML::Simple; use Array::Uniq; #http://b.hatena.ne.jp/'.$userid.'/atomfeed?tag='.$tag.'&of=0'; 特定のタグの数を取得 sub allnum { my @arry = @_; my $arrynum = @arr…