1.tnsnames.ora 配置

# tnsnames.ora Network Configuration File: D:\app\xl186023\product\12.1.0\dbhome_1\network\admin\tnsnames.ora

# Generated by Oracle configuration tools.


ORACLR_CONNECTION_DATA =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1521))
    )
    (CONNECT_DATA =
      (SID = CLRExtProc)
      (PRESENTATION = RO)
    )
  )


ORCL =
  (DESCRIPTION =
    (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = orcl.TD.TERADATA.COM)
    )
  )

---------------------------------------------------------------------------

2. listen.ora 配置

# listener.ora Network Configuration File: D:\app\xl186023\product\12.1.0\dbhome_1\network\admin\listener.ora
# Generated by Oracle configuration tools.


SID_LIST_LISTENER =
  (SID_LIST =
    (SID_DESC =
      #(SID_NAME = CLRExtProc)
      (SID_NAME = orcl)
      (ORACLE_HOME = D:\app\xl186023\product\12.1.0\dbhome_1)
      #(PROGRAM = extproc)
      (ENVS = "EXTPROC_DLLS=ONLY:D:\app\xl186023\product\12.1.0\dbhome_1\bin\oraclr12.dll")
    )
  )


LISTENER =
  (DESCRIPTION_LIST =
    (DESCRIPTION =
      #(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1521))
      (ADDRESS = (PROTOCOL = IPC)(KEY = orcl))
      (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
    )
  )

--------------------------------------------------------------------------------------

3.perl 脚本写法

#! /usr/bin/perl use strict; use warnings; use DBI; my $dbname="orcl"; my $user="system"; my $passwd="000000"; my $dbh=""; #$dbh = DBI->connect('dbi:Oracle:',q{system/000000@(DESCRIPTION = #    (ADDRESS = (PROTOCOL = TCP)(HOST = WCNXL186023-5HH)(PORT = 1521)) #    (CONNECT_DATA = #      (SERVER = DEDICATED) #      (SERVICE_NAME = orcl.TD.TERADATA.COM) #    )},""); $dbh=DBI->connect("dbi:Oracle:localhost/orcl",$user,$passwd)  or die "can't connect to database ". DBI->errstr; # my $sth=$dbh->prepare("select * from stu_1"); $sth->execute; while (my @recs=$sth->fetchrow_array) { print $recs[0].":".$recs[1]."\n"; } $dbh->disconnect;