请教Perl中DBI的connect的username/password用法

charseller

DBI中connect用法是：$dbh = DBI->connect("DBIracle",$username,$pw);
但常见的如下：（公司很早的别人写的也是如此）
$dbh = DBI->connect('dbi:Oracle:',"test/test@(DESCRIPTION=
                                                                (ADDRESS=
                                                                 (PROTOCOL=TCP)
                                                                 (HOST=xx.xx.xx.com)
                                                                 (PORT=1521)
                                                                 )
                                                                (CONNECT_DATA=
                                                                 (SID=PROD)
                                                                 )
                                                                )" )

其中test/test为username/password, 但后面的具体含义是什么呢？

（不好意思，刚才还在编辑的时候，不小心回车就发了出来，最早看到的写的不完整）

[ 本帖最后由 charseller 于 2006-7-26 14:59 编辑 ]

aaronvox

i don't know what do you want

1.   
   
2. =head1 NAME
   
3. 
   
4. DBI - Database independent interface for Perl
   
5. 
   
6. =head1 SYNOPSIS
   
7. 
   
8.   use DBI;
   
9. 
   
10.   @driver_names = DBI->available_drivers;
    
11.   %drivers      = DBI->installed_drivers;
    
12.   @data_sources = DBI->data_sources($driver_name, \%attr);
    
13. 
    
14.   $dbh = DBI->connect($data_source, $username, $auth, \%attr);
    
15. 
    
16.   $rv  = $dbh->do($statement);
    
17.   $rv  = $dbh->do($statement, \%attr);
    
18.   $rv  = $dbh->do($statement, \%attr, @bind_values);
    
19. 
    
20.   $ary_ref  = $dbh->selectall_arrayref($statement);
    
21.   $hash_ref = $dbh->selectall_hashref($statement, $key_field);
    
22. 
    
23.   $ary_ref  = $dbh->selectcol_arrayref($statement);
    
24.   $ary_ref  = $dbh->selectcol_arrayref($statement, \%attr);
    
25. 
    
26.   @row_ary  = $dbh->selectrow_array($statement);
    
27.   $ary_ref  = $dbh->selectrow_arrayref($statement);
    
28.   $hash_ref = $dbh->selectrow_hashref($statement);
    
29. 
    
30.   $sth = $dbh->prepare($statement);
    
31.   $sth = $dbh->prepare_cached($statement);
    
32. 
    
33.   $rc = $sth->bind_param($p_num, $bind_value);
    
34.   $rc = $sth->bind_param($p_num, $bind_value, $bind_type);
    
35.   $rc = $sth->bind_param($p_num, $bind_value, \%attr);
    
36. 
    
37.   $rv = $sth->execute;
    
38.   $rv = $sth->execute(@bind_values);
    
39.   $rv = $sth->execute_array(\%attr, ...);
    
40. 
    
41.   $rc = $sth->bind_col($col_num, \$col_variable);
    
42.   $rc = $sth->bind_columns(@list_of_refs_to_vars_to_bind);
    
43. 
    
44.   @row_ary  = $sth->fetchrow_array;
    
45.   $ary_ref  = $sth->fetchrow_arrayref;
    
46.   $hash_ref = $sth->fetchrow_hashref;
    
47. 
    
48.   $ary_ref  = $sth->fetchall_arrayref;
    
49.   $ary_ref  = $sth->fetchall_arrayref( $slice, $max_rows );
    
50. 
    
51.   $hash_ref = $sth->fetchall_hashref( $key_field );
    
52. 
    
53.   $rv  = $sth->rows;
    
54. 
    
55.   $rc  = $dbh->begin_work;
    
56.   $rc  = $dbh->commit;
    
57.   $rc  = $dbh->rollback;
    
58. 
    
59.   $quoted_string = $dbh->quote($string);
    
60. 
    
61.   $rc  = $h->err;
    
62.   $str = $h->errstr;
    
63.   $rv  = $h->state;
    
64. 
    
65.   $rc  = $dbh->disconnect;
    
66. 
    
67. I<The synopsis above only lists the major methods and parameters.>
    
68. 
    
69.   

复制代码

charseller

不好意思，问题还在编辑的时候拼音输入多了个回车就发了出去，已经更新了

charseller

个人感觉就是Oracle的tnsnames.ora client定义，但DBI中何处要求了？

charseller

也许是调用oracle DBI会在本机查询tnsnames.ora，如果这里定义了，就直接使用？

aaronvox

举个例子


还是看看 perl-dbi的书吧

1.    
   
2. 
   
3.     my %attr = (
   
4.         PrintError => 1,
   
5.         RaiseError => 1,
   
6.         AutoCommit => 0
   
7.     );
   
8.     my $dbh;
   
9.     my $times=1;
   
10.     until ( $dbh = DBI->connect(
    
11.                 $config->{$db_name}->{'odbc_dsn'},
    
12.                 $config->{$db_name}->{'db_user'},
    
13.                 $config->{$db_name}->{'db_pwd'},
    
14.                 \%attr))
    
15.     {
    
16.         warn "Can't connect :$DBI::errstr ,retrying $times times\n";
    
17.         if( $times >=3 )
    
18.         {
    
19.             &PrintLog("Can't connect :$DBI::errstr",'ConnectDB');
    
20.             return undef;
    
21.         }
    
22.         $times++;
    
23.         sleep 60;
    
24.     }
    
25. 
    

复制代码

charseller

翻了半天perl-dbi，没有找到与这个相关的的，难道约定成俗用法？反正俺也只有依葫芦画瓢了：）