1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
SQL> set lin 32000 trims on und - head on pages 0 emb on
SQL> spool xxx.txt
SQL> set trims off
SQL> select emp.*,'x' from emp where rownum=1;
EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO /
---------- ---------- --------- ---------- ---------- ---------- ---------- ---------- -
7369 SMITH CLERK 7902 1980-12-17 800 20 x
SQL> spool off
SQL> !perl -ne "print 'set lin '.(length(\$_)-3) if (/----/)" <xxx.txt >xxx.sql
SQL> @xxx
SQL> sho lin
linesize 86
SQL> select * from emp;
EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO
---------- ---------- --------- ---------- ---------- ---------- ---------- ----------
7369 SMITH CLERK 7902 1980-12-17 800 20
7499 ALLEN SALESMAN 7698 1981-02-20 1600 300 30
7521 WARD SALESMAN 7698 1981-02-22 1250 500 30
7566 JONES MANAGER 7839 1981-04-02 2975 20
7654 MARTIN SALESMAN 7698 1981-09-28 1250 1400 30
7698 BLAKE MANAGER 7839 1981-05-01 2850 30
7782 CLARK MANAGER 7839 1981-06-09 2450 10
7788 SCOTT ANALYST 7566 1987-04-19 3000 20
7839 KING PRESIDENT 1981-11-17 5000 10
7844 TURNER SALESMAN 7698 1981-09-08 1500 0 30
7876 ADAMS CLERK 7788 1987-05-23 1100 20
7900 JAMES CLERK 7698 1981-12-03 950 30
7902 FORD ANALYST 7566 1981-12-03 3000 20
7934 MILLER CLERK 7782 1982-01-23 1300 10 |
Partager