CGI中使用DB_File的问题

xiao2004

#!/usr/bin/perl -w

use strict;
use DB_File;
use CGI qw(:standard);

my ($filename,$x,%hash,$key,$value,$status);

$filename="test";
unlink $filename;
$DB_BTREE->{'flags'} = R_DUP ;

$x=tie %hash, "DB_File",$filename,O_RDWR|O_CREAT, 0666, $DB_BTREE;
$hash{'john'}='11111';
$hash{'john'}='33333';
$hash{'john'}='44444';
$hash{'love'}='22222';

$key=$value=0;
print header,
      start_html('Setup');
print hr;
for($status=$x->seq($key,$value,RFIRST);0==$status;$status=$x->seq($key,$value,RNEXT)

{

   print "$key -> $value",p;

}

print end_html;

undef $x;
untie %hash;


红色的部分,如果不在CGI中使用是完全没问题的,这里却怎么也不出结果.
红色的直接换成下面的代码:
foreach (%hash)
{
   print "$_ -> $hash{$_}",p;
}
好了,又没问题了...
我的服务器是IIS6.0 + activeperl 5.87
这是IIS的问题还是perl的问题?

apile

$x=tie %hash, "DB_File",$filename,O_RDWR|O_CREAT, 0666, $DB_BTREE;
这一行没有成功...
请检查$filename的路径...