Oracle技术网—如何在Windosws 2000中安装perl并访问Oracle

如何在Windosws 2000中安装perl并访问Oracle？
系统环境：
本例使用软件下载地址：
安装方法：
一、安装 Perl 解释器第一步，双击 ActivePerl-5.6.0.620-MSWin32-x86-multi-thread.msi 文件进行安装，使用缺省配置进行安装　　　　安装目录选择c:\perl；
第二步，修改注册表，运行 RegEdit　　　　1、定位－＞HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC\Parameters\Script Map　　　　2、新建字符串：名称：".pl" <——>数据："c:\perl\bin\perl.exe %s %s"　　　　3、新建字符串：名称：".cgi"<——>数据："c:\perl\bin\perl.exe %s %s"
第三步，设置 IIS 服务器　　　　开始－＞设置－＞控制面板－＞管理工具－＞Internet 服务管理器－＞默认Web站点－＞　　　　鼠标右键－＞属性－＞主目录－＞配置－＞添加－＞　　　　可执行文件（X）：“C:\Perl\bin\Perl.exe %s %s”－＞扩展名（E）：“.pl”－＞　　　　确定－＞确定－＞确定－＞　　　　默认Web站点－＞鼠标右键－＞新建－＞虚拟目录－＞下一步－＞别名（perl）－＞　　　　目录选择（c:\perl\）－＞添加读取、运行脚本、执行权限－＞下一步－＞完成－＞
注：ActivePerl-5.6.0.620-MSWin32-x86-multi-thread.msi安装完，才能使用ppm命令注：Perl通过DBI/DBD客户接口提供对DB2、Oracle、Sybase、Informix、Mysql...等数据库的访问二、安装 Perl 连接数据库的模块，先安DBI，后安Oracle接口模块首先，拨号或通过专线连接到Internet上C:\>ppmPPM interactive shell (2.1.1) - type ‘help‘ for available commands.PPM>PPM> install dbiInstall package ‘dbi?‘ (y/N): yRetrieving package ‘dbi‘...Installing C:\Perl\site\lib\auto\DBI\dbd_xsh.hInstalling C:\Perl\site\lib\auto\DBI\DBI.bsInstalling C:\Perl\site\lib\auto\DBI\DBI.dllInstalling C:\Perl\site\lib\auto\DBI\DBI.expInstalling C:\Perl\site\lib\auto\DBI\DBI.libInstalling C:\Perl\site\lib\auto\DBI\dbipport.hInstalling C:\Perl\site\lib\auto\DBI\DBIXS.hInstalling C:\Perl\site\lib\auto\DBI\dbi_sql.hInstalling C:\Perl\site\lib\auto\DBI\Driver.xstInstalling C:\Perl\site\lib\DBI.pmInstalling C:\Perl\site\lib\Win32\DBIODBC.pmInstalling C:\Perl\site\lib\DBI\DBD.pmInstalling C:\Perl\site\lib\DBI\FAQ.pmInstalling C:\Perl\site\lib\DBI\Format.pmInstalling C:\Perl\site\lib\DBI\ProxyServer.pmInstalling C:\Perl\site\lib\DBI\Shell.pmInstalling C:\Perl\site\lib\DBI\W32ODBC.pmInstalling C:\Perl\site\lib\DBD\ADO.pmInstalling C:\Perl\site\lib\DBD\ExampleP.pmInstalling C:\Perl\site\lib\DBD\Multiplex.pmInstalling C:\Perl\site\lib\DBD\NullP.pmInstalling C:\Perl\site\lib\DBD\Proxy.pmInstalling C:\Perl\site\lib\DBD\Sponge.pmInstalling C:\Perl\site\lib\Bundle\DBI.pmInstalling C:\Perl\bin\dbiproxyInstalling C:\Perl\bin\dbiproxy.batInstalling C:\Perl\bin\dbishInstalling C:\Perl\bin\dbish.batWriting C:\Perl\site\lib\auto\DBI\.packlistPPM>PPM> install dbd-oracleInstall package ‘dbd-oracle?‘ (y/N): yRetrieving package ‘dbd-oracle‘...Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.bsInstalling C:\Perl\site\lib\auto\DBD\Oracle\Oracle.dllInstalling C:\Perl\site\lib\auto\DBD\Oracle\Oracle.expInstalling C:\Perl\site\lib\auto\DBD\Oracle\Oracle.libInstalling C:\Perl\site\lib\oraperl.phInstalling C:\Perl\site\lib\Oraperl.pmInstalling C:\Perl\site\lib\DBD\Oracle.pmInstalling C:\Perl\bin\ora_explainInstalling C:\Perl\bin\ora_explain.batWriting C:\Perl\site\lib\auto\DBD\Oracle\.packlistPPM> PPM> install dbd-oracle8Install package ‘dbd-oracle8?‘ (y/N): yRetrieving package ‘dbd-oracle8‘...Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.dllInstalling C:\Perl\site\lib\auto\DBD\Oracle\Oracle.expInstalling C:\Perl\site\lib\auto\DBD\Oracle\Oracle.libInstalling C:\Perl\site\lib\oraperl.phInstalling C:\Perl\site\lib\Oraperl.pmInstalling C:\Perl\site\lib\DBD\Oracle.pmWriting C:\Perl\site\lib\auto\DBD\Oracle8\.packlistPPM> PPM> exitQuit！C:\>如果在家中不能上网，可以到Activestate下载各种模块，网址是：http://www.activestate.com/PPMPackages/PPM命令的解释E:\>ppmPPM interactive shell (2.1.1) - type ‘help‘ for available commands.PPM> helpCommands:    exit              - leave the program.    help [command]    - prints this screen, or help on ‘command‘.    install PACKAGES  - installs specified PACKAGES.    quit              - leave the program.    query [options]   - query information about installed packages.    remove PACKAGES   - removes the specified PACKAGES from the system.    search [options]  - search information about available packages.    set [options]     - set/display current options.    verify [options]  - verifies current install is up to date.    version           - displays PPM version numberexit　　　　　　　　--退出PPM程序help　　　　　　　　--显示PPM帮助install PACKAGES　　--安装模块，PACKAGES为模块名quit　　　　　　　　--同exit，退出PPM程序query [options]　　 --查询当前已安装模块，不加参数：查询所有已安装模块remove PACKAGES　　 --卸载已安装模块search [options]　　--查询可供安装的模块，在ActivePerl的站点上set [options]　　　 --verify [options]　　--version　　　　　　 --显示PPM版本号三、第一个Perl例子给这个程序取名为test.pl，放到c:\perl\目录下浏览器中输入http://oradb/perl/test.pl#-------------------------------------#!/perl/bin/perl  print "Content-type:text/html\n\n";  print "hellp Perl！";exit;#-------------------------------------四、写第一个连接Oracle的Perl程序test.pl1、连入SQL*Plus以system/manager用户登录，SQL> conn system/manager创建新的用户：如user1/pass1，赋予connect,resource权限。SQL> grant connect,resource to user1 identified by pass1;SQL> conn user1/pass1SQL> create table test(a varchar2(20),b date);SQL> insert into test values(‘原有值‘,sysdate);SQL> insert into test values(‘原有值‘,sysdate);SQL> insert into test values(‘原有值‘,sysdate);SQL> commit;SQL> select a,to_char(b,‘yyyy-mm-dd hh24:mi:ss‘) 日期 from test;A                    日期-------------------- -------------------原有值               2000-11-26 00:04:47原有值               2000-11-26 00:04:47原有值               2000-11-26 00:04:482、在c:\perl下创建test.pl，用notebook编辑，输入以下代码#-------------------------------------#!/perl/bin/perlprint "Content-type:text/html\n\n";#引用格式：&#8220;use 模块名&#8221;use DBI;my $dbh = DBI->connect("dbi:Oracle:oradb", ‘user1‘,‘pass1‘);my $sql = qq{ insert into test values(‘网页生成值‘,sysdate)}; my $sth = $dbh->prepare( $sql );$sth->execute(); $dbh->disconnect();print "新记录已生成，请用SQL*Plus重新查询！";exit;#-------------------------------------注：dbi:Oracle:oradb中的oradb是Oracle数据库的实例名，使用时，请更换成你自己的实例名3、打开一个浏览器窗口，输入以下地址来查看运行结果http://oradb/perl/test.pl注：oradb为本机计算机名4、进入SQL*Plus，重新查询测试表test，查看新记录是否生成成功SQL> conn user1/pass1SQL> select a,to_char(b,‘yyyy-mm-dd hh24:mi:ss‘) 日期 from test;A                    日期-------------------- -------------------原有值               2000-11-26 00:04:47原有值               2000-11-26 00:04:47原有值               2000-11-26 00:04:48网页生成值           2000-11-26 00:15:45网页生成值           2000-11-26 00:15:58网页生成值           2000-11-26 00:16:15网页生成值           2000-11-26 00:16:28经验证，新记录生成成功。
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。