如何在shell中运行sql语句？

lyrican

我的数据库已经建好，在sqlplus里可以访问到局域网中一台windows的数据库。

我现在想实现在的是把一段sql语句存为一个shell文件。在执行shell文件的时候就可以打开sqlplus,并运行里面的sql语句。

如: vi sqltest.sh

$ sqlplus test/test@testDB
$ select * from tab;

但运行结果只是连到数据库并出现sql>;提示符，第二行的sql语句并不能执行。请教教我该怎么写呢？

lyrican

经过shell坛子里lovelyarry的帮助已经解决。现把成功代码发出来！希望有同样问题的朋友能节约一丁点时间，也算是对lovelyarry的报答吧。


sqlplus test/test@testDB<<!
select * from tab;
exit
!

gangjh

還有在
http://www.zdnet.com.cn/developer/code/story/0,3800066897,39225241,00.htm 上學到的方法
Example:
alias sp=sp.sh
sp "connect test/test"
sp "select table_name from user_tables"
sp "select  sysdate from dual"
sp "exit"


spd.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. # spd.pl - the SQL*Plus daemon server
   
4. use strict;
   
5. use Expect;
   
6. use Socket;
   
7. 
   
8. # set up expect
   
9. # -- timeout after about 10 minutes
   
10. my $timeout = 600;
    
11. # -- scan for the SQL*Plus prompt
    
12. my $prompt = 'SQL>;';
    
13. my $exp = new Expect();
    
14. $exp->;raw_pty(1);
    
15. $exp->;log_stdout(0);
    
16. $exp->;spawn('sqlplus','/nolog') || die "unable to spawn sqlplus: $!";
    
17. $exp->;expect($timeout,'-ex',$prompt) || die $exp->;error();
    
18. print $exp "set sqlprompt $prompt;\n";
    
19. $exp->;expect($timeout,'-ex',$prompt) || die $exp->;error();
    
20. $exp->;clear_accum();
    
21. 
    
22. my $name = "/tmp/sp_$ENV{USER}";
    
23. unlink($name);
    
24. socket(S,PF_UNIX,SOCK_STREAM,0) || die "socket: $!";
    
25. bind(S,sockaddr_un($name)) || die "bind: $!";
    
26. listen(S,SOMAXCONN) || die "listen: $!";
    
27. 
    
28. while(accept(C,S))
    
29. {
    
30.     # single threaded to avoid confusion
    
31.     my $cmd = <C>;;
    
32.     $cmd =~ s/[\r\n]*$//g;
    
33.     print $exp $cmd,"\n";
    
34.     if ($cmd =~ /^exit;$/mi)
    
35.     {
    
36.         print C "exit.\n";
    
37.         close C;
    
38.         last;
    
39.     }
    
40.     print C $cmd."\n" ;
    
41.     $exp->;expect($timeout,$prompt) || die $exp->;error() ;
    
42.     print C $exp->;before();
    
43.     close C;
    
44. }
    
45. 
    
46. $exp->;soft_close();
    
47. close S;
    
48. unlink($name);
    
49. exit;
    
50. 
    

复制代码

spc.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. # spc.pl
   
4. use Socket;
   
5. use strict;
   
6. my $cmd = join(' ',@ARGV);
   
7. my $name = "/tmp/sp_$ENV{USER}";
   
8. my $proto = getprotobyname('udp');
   
9. 
   
10. $cmd=$cmd.";" if ( not $cmd =~ /.+;$/)  ;
    
11. 
    
12. 
    
13. socket(S,PF_UNIX,SOCK_STREAM,0) or die "socket: $!";
    
14. select S; $| = 1; select STDOUT;
    
15. connect(S,sockaddr_un($name)) or die "connect: $!";
    
16. 
    
17. print S $cmd,"\n";
    
18. print while (<S>;);
    
19. close(S);
    
20. exit;
    
21. 
    

复制代码

sp.sh

1. 
   
2. #!/bin/sh
   
3. 
   
4. MF=$0;
   
5. 
   
6. if [ -h $0 ] ; then
   
7.         MFILE=$(ls -l $0 );
   
8.         MF=${MFILE#*->;};
   
9. fi
   
10. 
    
11. MWD=$( dirname $MF );
    
12. 
    
13. f=/tmp/sp_$USER
    
14. 
    
15. if [ ! -e $f ]; then
    
16.     perl $MWD/spd.pl &
    
17.     sleep 1 ;
    
18. fi
    
19. perl $MWD/spc.pl "$*"
    
20. 
    

复制代码