266さんすみまんせんでした。チョッと長くなるのですが。。

sub rankin{
#INカウント追加
my ($voteflag,$a1,$a2,$i,@temp1,@temp2);
my $buf="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
if ($pagetype % 2 == 1){
$a1 = 1;
open(IO,"+<$sessiondir/$id.dat");
eval{flock(IO,2)};
while(<IO>){
@temp2 = (split(/<>/,$_))[0,1];
if ($temp2[0] eq $ssd){$a1 = 0;}
elsif ($temp2[1] > time()){push(@temp1,$_);}
}
if ($a1){
$ssd = "";
for($i=0;$i<=7;$i++){$ssd.=substr($buf,int(rand(62)),1);}
push(@temp1,$ssd."<>".(time()+$session_enable)."<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp1;
close(IO);
if (($vote_refcheck) && ($referer !~ /$scriptdir/i)){$a1 = 1;}

if ($a1){
&fileunlock;
&changehtml("voteform","id","ssd");
}
}