访问数据库的问题

我是一只不吃腥

my $dbh=DBI->;connect($dsn,$user,$pass,
                    {
                       RaiseError =>; 1,
                       AutoCommit =>; 0
                     }
                    ) || die "Database connection not madeDBI::errstr";

my $sql=qq{SELECT * FROM user};
my $sth=$dbh->;prepare($sql);
$sth->;execute();

my(@parameter);
@parameter=$sth->;fetchrow_array();
print "The required test isparameter\n";


$sth->;finish();
$dbh->;disconnect();
这个程序只有在用这个命令su － oracle后才能成功访问数据库，其他用户的时候不能出结果，请问有什么好的方法？谢谢

flw

$user $pass 赋值了吗？

我是一只不吃腥

都赋值了，可能环境变量的问题，在这个程序开头用一个bash申明那些oracle用户的环境变量，不过好像不行，因为在bash里申明的变量不能传递到父进程中，请问怎么把变量传递到父进程或shell中？

flw

>;>; 请问怎么把变量传递到父进程或shell中？
<< 不行。

你可以在 Perl 中修改 %ENV 试一下。