my $sql="select ext from patches";
my $sth=$dbh->prepare($sql);
$sth->execute;
while(my $tmp=$sth->fetchrow_array)
{
#print "; $tmp;";
if($tmp == 4){$ret=1;last;}
#print $tmp,";";
}
return $ret;
я не могу это комментировать цензурными словами read more