????????????????????????????????????????????????????
????1. Perl ?????????
????Perl ???????????·?????
????1?????DBI??飻 2?????????????????dbh?? 3??????dbh?????????sth?? 4??????sth???sql??? 5??????sth?????????
??????????Oracle??
my $dbh=DBI->connect("DBI:Oracle:host=$hostname;sid=$sid"??$username??$passwd);
### deal with multi return value
my $sql=qq(select uid_der from wbphish_usr_der);
$sth->execute();
my $sth=$dbh->prepare($sql);
$sth->execute() or die;
my @uid;
while(my @row=$sth->fetchrow_array)
{   push @uid??$row[0];}
### deal with single return value
my $sql="SELECT max(DEMO) FROM phishing"
$sth->execute();
my $sth=$dbh->prepare($sql);
$sth->execute() or die;
my $id=$dbh->selectrow_array($sql);
????????host???????server??ip?????sid???????????
??????????SQL Server??
my $dbh = DBI->connect("dbi:ODBC:driver={SQL Server};Server=127.0.0.1;Database=$dbs;UID=$uid;PWD=$pwd");
my $sth = $dbh->prepare($sql);
$sth->execute();
????????Server??server??ip???????????local?????Database???????????