代码:

---

sub status {
my $name = shift;
my %userclub;
getuserclub($name,\%userclub);
my $value = $userclub{'logintimes'} * 20; #登陆次数
$value += $userclub{'onlinetime'} / 60;   #在线时间
$value = $value / 100;
$value += $userclub{'replycount'};        #回复帖数
$value += $userclub{'postcount'} * 2;     #发表主题
$value += $userclub{'nt'} * 3;            #灌水值
$value += $userclub{'exp'} * 5;           #经验值
$value += $userclub{'contrib'} * 10;      #贡献度
$value = int($value);                     #综合指数

if($value < 300){
        return "$userclub{'status'}|bstar1.gif";
}elsif($value < 750){
        return "$userclub{'status'}|bstar2.gif";
}elsif($value < 1500){
        return "$userclub{'status'}|bstar3.gif";
}elsif($value < 3000){
        return "$userclub{'status'}|bstar4.gif";
}elsif($value < 5000){
        return "$userclub{'status'}|bstar5.gif";
}elsif($value < 10000){
        return "$userclub{'status'}|1stars.gif";
}elsif($value < 30000){
        return "$userclub{'status'}|2stars.gif";
}elsif($value < 50000){
        return "$userclub{'status'}|3stars.gif";
}elsif($value < 100000){
        return "$userclub{'status'}|4stars.gif";
}else{
        return "$userclub{'status'}|5stars.gif";
}

}

---