use DBI; my $DSN = "driver={SQL Server};Server=192.168.2.90;Database=dbname;UID=sa;PWD=123456"; my $dbh=DBI->connect("DBI:ODBC:$DSN") or die "couldn't open database: DB
二维数组的几种输出方法: my @array1=([1,2,3,4,11,12],[5,6],[7,8,9]); for(my $i=0;$i<=$#array1;$i++){ for(my $j=0;$j<=$#{$array1[$i]};$j++){ #注意内循环的写法 &nb
use DBI; use strict; my $host=qq/127.0.0.1/; my $sid=qq/orcl/; my $user=qq/scott/; my $password=qq/tiger/; my $dbh=DBI->connect("DBI:Oracle:Host=$host;sid=$sid",$user,$password) o
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号