使用Expect和命名管状远程控制SQL*Plus

我把管道名叫做“sp_{username}”。这样就允许同一个用户的两个不同会话共享同一个SQL*Plus会话。我使用默认的“SQL>”提示符，但是为了避免“SQL>”显示我的数据并导致数据被截断的可能性，最好还是使用一个长的随机字符串。

下一步是Perl客户端：

　　#!/usr/bin/perl -w
　　# spc.pl
　　use Socket;
　　use strict;
　　my $cmd = join(' ',@ARGV);
　　my $name = "/tmp/sp_$ENV{USER}";
　　my $proto = getprotobyname('udp');
　　socket(S,PF_UNIX,SOCK_STREAM,0) or die "socket: $!";
　　select S; $| = 1; select STDOUT;
　　connect(S,sockaddr_un($name)) or die "connect: $!";
　　print S $cmd,"n";
　　print while (<S>);
　　close(S);
　　exit;

这段脚本连接到UDP服务器，发送一条单行命令（所有命令行参数的串联），然后将数据发回标准输出。最后，如果服务进程还没有运行，两个Perl脚本的前面的CSH将启动服务程序然后将它们的参数传给客户端程序：

　　#!/bin/csh
　　# sp.csh
　　set f=/tmp/sp_$user
　　if (-e $f == 0) then
　　　　perl spd.pl &
　　　　sleep 1
　　endif
　　perl spc.pl "$*"

现在，有了这个远程控制程序，我就可以像下面这样来做了：

　　$ alias sp sp.csh
　　$ sp "connect scott/tiger"
　　Connected.
　　$ sp "select * from dual;"
　　D
　　-
　　X
　　$ sp "select sysdate from dual;" | grep MAY
　　05-MAY-03
　　$ sp "select * from emp;" | wc
　　　　70　　184　 1890
　　$ sp "exit"

最后一条命令将关闭服务程序。

这个提示中的脚本非常粗糙；不允许使用多行SQL语句。如果一个SQL语句不完整，服务进程将会挂起等待SQL提示符；如果SQL提示符改变服务进程也会挂起。但是在使用SQL*Plus的时候不丢掉shell环境依然非常有用。对于一般的命令使用它可以创建别名和使用shell功能，使用历史和替代变量，或者在内嵌环境中使用SQL*Plus。