Help for this page

Select Code to Download


  1. or download this
    $db = DBM::Deep->new(file => "foo.db", locking => 1, autoflush => 1);
  2. or download this
    $db->{1111} = $bucketobj;

$bucketobj->{urlindex} = [$url $url2]
$bucketobj->{referrerindex} = [$url3 $url4]
  3. or download this
    splice(@{$bucketobj->{referrerindex}, 1, 1)