www.pudn.com > coolchat.zip > chatgetlastmsg.pl

sub GetLastMsgNum 
{ 
    my $room = shift; 
    my $num = 0; 
    if(open(MSG,"$chatdatadir/$room$MSG")) 
    { 
    	my @msg = ; 
    	close MSG; 
    	$num = @msg; 
    	$num = $msg[0] + $num - 1; 
    } 
    $num = 0 if($num < 0); 
    return $num; 
} 
1;