wie kann ich "my $jetzt = time()" in dbfile eintragen?

[Alain]

Hi Struppi,

In dem Beispiel wird nichts irgendwo eingetragen.

komisch,jetzt gehts plötzlich 8-\ ?!
keine ahnung warum?!
Hier nochmal der code:
sub bad {
use DB_File;
my $file = 'login';
my $users = 'nouser';
my $jetzt = time();
my $abusecount=3;
my $abuscounta=6;
my %dbfile;
my $db = tie (%dbfile , "DB_File", $file, O_RDWR|O_CREAT, 0644);
my $fd = $db->fd;
open(DBM, "+<&=$fd");
flock(DBM, LOCK_EX);
my ($ip_last, $count_last, $jetzt_last) = split(/\*/,$dbfile{$users});
if ($ip_last eq $ip_now||$jetzt eq $jetzt_last)
{
$count_last++;
}
else
{
$count_last=0;
}

$dbfile{$users} = "$ip_now*$count_last*$jetzt";
..........
Der Grund dafür ist,ich möchte verhindern,dass irgendwelche spiders oder crackers(mit ihren passwordlisten)mein script mehrmals pro/sekunde
aufrufen und diese ausschliessen vom gebrauch.
Ich glaube das mit time() und "if ($jetzt eq $jetzt_last)" geht doch auch oder?Der server kennt doch nur sekunde als kleinsten wert?
Gruss
Alain