译者声明：译者对译文不做任何担保，译者对译文不拥有任何权利并且不负担任何责任和义务。
原文：http://cm.bell-labs.com/7thEdMan/vol2/sed

摘要

• 1) 编辑那些对舒适的交互式编辑而言太大的文件。
• 2) 在编辑命令太复杂而难于在交互模式下键入的时候编辑任何大小的文件。
• 3) 要在对输入的一趟扫描中有效的进行多个‘全局’编辑函数。

• 介绍
• 1. 整体操作
  • 1.1. 命令行标志
  • 1.2. 编辑命令的应用次序
  • 1.3. 模式空间
  • 1.4. 示例
    • 例子
• 2. 地址: 选择要编辑的行
  • 2.1. 行号地址
  • 2.2. 上下文地址
  • 2.3. 地址的数目
  • 例子
• 3. 函数
  • 3.1. 面向整行的函数
    • 例子
  • 3.2. 替换函数
    • 例子
  • 3.3. 输入输出函数
    • 例子
  • 3.4. 多输入行函数
  • 3.5. 保存和取回函数
    • 例子
  • 3.6. 控制流函数
  • 3.7. 杂类函数
• 引用
• 介绍

sed 是一个非交互式上下文(context)编辑器，它被设计在下列三种情况下发挥作用:

1) 编辑那些对舒适的交互式编辑而言太大的文件。2) 在编辑命令太复杂而难于在交互模式下键入的时候编辑任何大小的文件。3) 要在对输入的一趟扫描中有效的进行多个‘全局’(global)编辑函数。

因为每次只把输入的某些行驻留在内存中，并且不使用临时文件，所以可编辑的文件的有效大小，只受限于输入和输出要同时共存于次级存储的要求。

可以单独的建立复杂的编辑脚本并作为给 sed 的命令文件。对于复杂的编辑，这节省了可观的键入和随之而来的错误。从命令文件运行 sed 高效于作者所知道的任何交互式编辑器，甚至包括能用预先写好的脚本驱动的编辑器。

相较于交互式编辑器而言，根本性的损失是缺乏相对地址(由于操作是每次一行的)，和缺乏对命令如期运行的立即验证。

sed 是 UNIX 编辑器 ed 的直系后代。由于在交互式和非交互式操作之间的差异，在 ed 和 sed 之间已经有了可观的变化；甚至 ed 的惯常用户都会经常感到惊讶(并可能气愤)，如果他们没有阅读本文档的章节 2 和 3，就草率的使用 sed 的话。在两个编辑器之间最显著的家族性共同之处，在于他们所识别的模式(‘正则表达式’)的种类；匹配模式的代码可以从 ed 的代码几乎原封不动的复制过来，在章节 2 中对正则表达式的描述就是从 UNIX Programmer’s Manual[1] 几乎原封不动的复制过来的。(代码和描述都是 Dennis M. Ritchie 写的)。

1. 整体操作

sed 缺省的把标准输入复制到标准输出，在把每行写到输出之前可能在其上进行一个或多个编辑命令。这种行为可以通过命令行上的标志来更改；参见下面的章节 1.1。

编辑命令的一般格式为:

[地址1,地址2][函数][参数]

一个或两个地址是可以省略的；地址的格式在章节 2 中给出。可以用任何数目的空白或 tab 把地址和函数分隔开。函数必须出现；在章节 3 中讨论可用的所有命令。依据给出的是哪个函数，参数可能是必需的或是可选的；它们在章节 3 中每个单独的函数之下讨论。

忽略在这些行开始处的 tab 字符和空格。

1.1. 命令行标志

在命令行上识别三个标志:

• -n：告诉 sed 不复制所有的行，只复制 p 函数或在 s 函数后 p 标志所指定的行(参见章节 3.3)。
• -e：告诉 sed 把下一个参数接受为编辑命令。
• -f：告诉 sed 把下一个参数接受为文件名；这个文件应当包含一行一个的编辑命令。

1.2. 编辑命令的应用次序

在做任何编辑之前(实际上，甚至在打开任何文件之前)，所有编辑命令都被编译成了在执行阶段(在把这些命令实际应用于输入文件的行的时候)有适当效率的形式。按它们出现的次序编译这些命令；一般而言这也是在执行时尝试应用它们的次序。这些命令一次应用一个；给每个命令的输入都是所有前面命令的输出。

编译命令应用的缺省的线性次序可以通过控制流命令 t 和 b 来变更(参见章节 3)。即使在应用次序被这些命令改变的时候，给任何命令的输入仍是任何此前应用的命令的输出。

1.3. 模式空间

模式匹配的范围叫做模式空间。一般而言，模式空间是输入文本中某一行，但是可以通过使用 N 命令把多于一行读入模式空间(参见章节 3.6.)。

1.4. 示例

例子分散在正文中。除非特别说明，例子都假定了下列输入文本:

In Xanadu did Kubla Khan
A stately pleasure dome decree:
Where Alph, the sacred river, ran
Through caverns measureless to man
Down to a sunless sea.

(在任何情况下 sed 命令的输出都不能被当作是对 Coleridge 作品的改进。)

例子:

命令

2q

会在复制了输入的前两行之后退出。输出将是:

In Xanadu did Kubla Khan
A stately pleasure dome decree:

2. 地址: 选择要编辑的行

编辑命令要应用于其上的，输入文件中的行可以通过地址来选择。地址可以是行号或者是上下文地址。

通过用花括号(‘{ }’)组合(group)命令，可以用一个地址(或地址对)来控制一组命令的应用(参见章节 3.6.)。

2.1. 行号地址

行号是十进制整数。在从输入读入每一行的时候，增加一个行号计数器；行号地址匹配(选择)导致这个内部计数器等于地址行号的输入行。计数器在多个输入文件上累计运行，在打开一个新文件的时候它不被复零(reset)。

作为特殊情况，字符 $ 匹配输入文件的最后一行。

2.2. 上下文地址

上下文地址是包围在斜杠中(‘/’)的模式(‘正则表达式’)。sed 识别的正则表达式被构造如下:

• 1) 普通字符(不是下面讨论的某个字符)是一个正则表达式，并且匹配这个字符。
• 2) 在正则表达式开始处的‘^’符号(circumflex)匹配在行开始处的空(null)字符。
• 3) 在正则表达式结束处的美元符号‘$’匹配在行结束处的空字符。
• 4) 字符‘\n’匹配内嵌的换行字符，而不是在模式空间结束处的换行。
• 5) 点‘.’匹配除了模式空间的终止换行之外的任何字符。
• 6) 跟随着星号‘*’的正则表达式，匹配它所跟丛的正则表达式的任何数目(包括 0)的毗连出现。
• 7) 在方括号‘[ ]’内的字符串，匹配在字符串内的任何字符，而非其他。但是如果这个字符串的第一个字符是‘^’符号，正则表达式匹配除了在这个字符串内的字符和模式空间的终止换行之外的任何字符。
• 8) 正则表达式的串联(concatenation)是正则表达式，它匹配这个正则表达式的成员所匹配的字符串的串联。
• 9) 在顺序的‘\(’和‘\)’之间的正则表达式，在效果上等同于没有它修饰的正则表达式，但它有个副作用，将在下面的 s 命令和紧后面的规定 10 中描述。
• 10) 表达式‘\d’意味着与在同一个表达式中先前的‘\(’和‘\)’中包围的表达式所匹配的那些字符同样的字符串。这里的 d 是一个单一的数字；指定的字符串是‘\(’的从左至右的第 d 个出现所起始的字符串。例如，表达式‘^\(.*\)\1’匹配开始于同一个字符串的两次重复出现的行。
• 11) 孤立的空正则表达式(就是‘//’)等价于编译的最后一个正则表达式。

要使用特殊字符(^ $ . * [ ] \ /)中的某一个字符作为文字(去匹配输入中它们自身的出现)，要对这个特殊字符前导一个反斜杠‘\’。

上下文地址‘匹配’输入要求地址内的整个模式匹配模式空间的某个部分。

2.3. 地址的数目

在下一章节中的命令可能有 0, 1 或 2 个地址。在每个命令中都给出了允许的地址的最大数目。地址多于最大允许个数的命令被认为是错误的。

如果命令没有地址，它应用于输入中每个行。

如果命令有一个地址，它应用于匹配这个地址的所有行。

如果命令有两个地址，它应用于匹配第一个地址的第一行，和直到(并包括)匹配第二个地址的第一个后续行的所有后续行。接着在后续的行上再次尝试匹配第一个地址，并重复这个处理。

两个地址用逗号分隔。

例子:

/an/         匹配我们样例文本的第 1, 3, 4 行
/an.*an/     匹配第 1 行
/^an/        没有匹配行
/./          匹配所有行
/\./         匹配第 5 行
/r*an/       匹配第 1,3, 4 行(number = zero!)
/\(an\).*\1/ 匹配第 1 行

1. 1. Sed简介

• sed是一种在线编辑器，它一次处理一行内容。处理时，把当前处理的行存储在临时缓冲区中，称为“模式空间”（pattern space），接着用sed命令处理缓冲区中的内容，处理完成后，把缓冲区的内容送往屏幕。接着处理下一行，这样不断重复，直到文件末尾。文件内容并没有改变，除非你使用重定向存储输出。Sed主要用来自动编辑一个或多个文件；简化对文件的反复操作；编写转换程序等。以下介绍的是Gnu版本的Sed 3.02。

1. 2. 定址

• 可以通过定址来定位你所希望编辑的行，该地址用数字构成，用逗号分隔的两个行数表示以这两行为起止的行的范围（包括行数表示的那两行）。如1，3表示1，2，3行，美元符号($)表示最后一行。范围可以通过数据，正则表达式或者二者结合的方式确定 。

1. 3. Sed命令

• 调用sed命令有两种形式：
• sed [options] 'command' file(s)
• sed [options] -f scriptfile file(s)
• <
  a\
  在当前行后面加入一行文本。
• b lable
  分支到脚本中带有标记的地方，如果分支不存在则分支到脚本的末尾。
• c\
  用新的文本改变本行的文本。
• d
  从模板块（Pattern space）位置删除行。
• D
  删除模板块的第一行。
• i\
  在当前行上面插入文本。
• h
  拷贝模板块的内容到内存中的缓冲区。
• H
  追加模板块的内容到内存中的缓冲区
• g
  获得内存缓冲区的内容，并替代当前模板块中的文本。
• G
  获得内存缓冲区的内容，并追加到当前模板块文本的后面。
• l
  列表不能打印字符的清单。
• n
  读取下一个输入行，用下一个命令处理新的行而不是用第一个命令。
• N
  追加下一个输入行到模板块后面并在二者间嵌入一个新行，改变当前行号码。
• p
  打印模板块的行。
• P（大写）
  打印模板块的第一行。
• q
  退出Sed。
• r file
  从file中读行。
• t label
  if分支，从最后一行开始，条件一旦满足或者T，t命令，将导致分支到带有标号的命令处，或者到脚本的末尾。
• T label
  错误分支，从最后一行开始，一旦发生错误或者T，t命令，将导致分支到带有标号的命令处，或者到脚本的末尾。
• w file
  写并追加模板块到file末尾。
• W file
  写并追加模板块的第一行到file末尾。
• !
  表示后面的命令对所有没有被选定的行发生作用。
• s/re/string
  用string替换正则表达式re。
• =
  打印当前行号码。
• #
  把注释扩展到下一个换行符以前。
• 以下的是替换标记
• g表示行内全面替换。
• p表示打印行。
• w表示把行写入一个文件。
• x表示互换模板块中的文本和缓冲区中的文本。
• y表示把一个字符翻译为另外的字符（但是不用于正则表达式）
• 4. 选项
  <
  -e command, --expression=command
  允许多台编辑。
• -h, --help
  打印帮助，并显示bug列表的地址。
• -n, --quiet, --silent
  取消默认输出。
• -f, --filer=script-file
  引导sed脚本文件名。
• -V, --version
  打印版本和版权信息。

1. 5. 元字符集
   <
   ^
   锚定行的开始 如：/^sed/匹配所有以sed开头的行。

• $
  锚定行的结束 如：/sed$/匹配所有以sed结尾的行。
• .
  匹配一个非换行符的字符 如：/s.d/匹配s后接一个任意字符，然后是d。
• *
  匹配零或多个字符 如：/*sed/匹配所有模板是一个或多个空格后紧跟sed的行。
• []
  匹配一个指定范围内的字符，如/[Ss]ed/匹配sed和Sed。
• [^]
  匹配一个不在指定范围内的字符，如：/[^A-RT-Z]ed/匹配不包含A-R和T-Z的一个字母开头，紧跟ed的行。
• \(..\)
  保存匹配的字符，如s/\(love\)able/\1rs，loveable被替换成lovers。
• &
  保存搜索字符用来替换其他字符，如s/love/**&**/，love这成**love**。
• \<
  锚定单词的开始，如:/\
• \>
  锚定单词的结束，如/love\>/匹配包含以love结尾的单词的行。
• x\{m\}
  重复字符x，m次，如：/0\{5\}/匹配包含5个o的行。
• x\{m,\}
  重复字符x,至少m次，如：/o\{5,\}/匹配至少有5个o的行。
• x\{m,n\}
  重复字符x，至少m次，不多于n次，如：/o\{5,10\}/匹配5--10个o的行。

1. 6. 实例
   删除：d命令
   $ sed '2d' example-----删除example文件的第二行。

• $ sed '2,$d' example-----删除example文件的第二行到末尾所有行。
• $ sed '$d' example-----删除example文件的最后一行。
• $ sed '/test/'d example-----删除example文件所有包含test的行。
• 替换：s命令
  $ sed 's/test/mytest/g' example-----在整行范围内把test替换为mytest。如果没有g标记，则只有每行第一个匹配的test被替换成mytest。
• $ sed -n 's/^test/mytest/p' example-----(-n)选项和p标志一起使用表示只打印那些发生替换的行。也就是说，如果某一行开头的test被替换成mytest，就打印它。
• $ sed 's/^192.168.0.1/&localhost/' example-----&符号表示替换换字符串中被找到的部份。所有以192.168.0.1开头的行都会被替换成它自已加 localhost，变成192.168.0.1localhost。
• $ sed -n 's/\(love\)able/\1rs/p' example-----love被标记为1，所有loveable会被替换成lovers，而且替换的行会被打印出来。
• $ sed 's#10#100#g' example-----不论什么字符，紧跟着s命令的都被认为是新的分隔符，所以，“#”在这里是分隔符，代替了默认的“/”分隔符。表示把所有10替换成100。
• 选定行的范围：逗号
  $ sed -n '/test/,/check/p' example-----所有在模板test和check所确定的范围内的行都被打印。
• $ sed -n '5,/^test/p' example-----打印从第五行开始到第一个包含以test开始的行之间的所有行。
• $ sed '/test/,/check/s/$/sed test/' example-----对于模板test和west之间的行，每行的末尾用字符串sed test替换。
• 多点编辑：e命令
  $ sed -e '1,5d' -e 's/test/check/' example-----(-e)选项允许在同一行里执行多条命令。如例子所示，第一条命令删除1至5行，第二条命令用check替换test。命令的执行顺序对结果有影响。如果两个命令都是替换命令，那么第一个替换命令将影响第二个替换命令的结果。
• $ sed --expression='s/test/check/' --expression='/love/d' example-----一个比-e更好的命令是--expression。它能给sed表达式赋值。
• 从文件读入：r命令
  $ sed '/test/r file' example-----file里的内容被读进来，显示在与test匹配的行后面，如果匹配多行，则file的内容将显示在所有匹配行的下面。
• 写入文件：w命令
  $ sed -n '/test/w file' example-----在example中所有包含test的行都被写入file里。
• 
  追加命令：a命令
  $ sed '/^test/a\\--->this is a example' example<-----'this is a example'被追加到以test开头的行后面，sed要求命令a后面有一个反斜杠。
• 插入：i命令
  $ sed '/test/i\\
• new line
• -------------------------' example
• 如果test被匹配，则把反斜杠后面的文本插入到匹配行的前面。
• 下一个：n命令
  $ sed '/test/{ n; s/aa/bb/; }' example-----如果test被匹配，则移动到匹配行的下一行，替换这一行的aa，变为bb，并打印该行，然后继续。
• 变形：y命令
  $ sed '1,10y/abcde/ABCDE/' example-----把1--10行内所有abcde转变为大写，注意，正则表达式元字符不能使用这个命令。
• 退出：q命令
  $ sed '10q' example-----打印完第10行后，退出sed。
• 保持和获取：h命令和G命令
  $ sed -e '/test/h' -e '$G example-----在sed处理文件的时候，每一行都被保存在一个叫模式空间的临时缓冲区中，除非行被删除或者输出被取消，否则所有被处理的行都将打印在屏幕上。接着模式空间被清空，并存入新的一行等待处理。在这个例子里，匹配test的行被找到后，将存入模式空间，h命令将其复制并存入一个称为保持缓存区的特殊缓冲区内。第二条语句的意思是，当到达最后一行后，G命令取出保持缓冲区的行，然后把它放回模式空间中，且追加到现在已经存在于模式空间中的行的末尾。在这个例子中就是追加到最后一行。简单来说，任何包含test的行都被复制并追加到该文件的末尾。
• 保持和互换：h命令和x命令
  $ sed -e '/test/h' -e '/check/x' example -----互换模式空间和保持缓冲区的内容。也就是把包含test与check的行互换。

1. 7. 脚本
   Sed脚本是一个sed的命令清单，启动Sed时以-f选项引导脚本文件名。Sed对于脚本中输入的命令非常挑剔，在命令的末尾不能有任何空白或文本，如果在一行中有多个命令，要用分号分隔。以#开头的行为注释行，且不能跨行。

• 比如，如果要打印出含有字串”1024”的行，我就可能会用：
  cat filename | sed –n ‘/1024/p’sed命令详解!

• CREATE OR REPLACE TRIGGER biu_emp_deptno
  BEFORE INSERT OR UPDATE OF deptno
  ON emp
  FOR EACH ROW
  WHEN (New.deptno <> 40)
  BEGIN
    :New.comm := 0;
  END;
  /
• INSERT INTO emp ( EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
  VALUES ( 8000, 'Jack', 'ANALYST', NULL, '31-12月-2003', 5000, 600, 20);
  INSERT INTO emp ( EMPNO, ENAME, JOB, MGR, HIREDATE, SAL, COMM, DEPTNO)
  VALUES ( 8001, 'Fred', 'MANAGER', NULL, '31-12月-2002', 6000, 500, 40);
  COMMIT;
• SELECT ename, sal, comm, deptno
  FROM emp
  WHERE empno>=8000;
• CREATE TABLE TEST_TRG (ID NUMBER, NAME VARCHAR2(20));
• CREATE SEQUENCE SEQ_TEST;
• CREATE OR REPLACE TRIGGER BI_TEST_TRG
  BEFORE INSERT OR UPDATE OF ID
  ON TEST_TRG
  FOR EACH ROW
  BEGIN
    IF INSERTING THEN
      SELECT SEQ_TEST.NEXTVAL INTO :NEW.ID FROM DUAL;
    ELSE
      RAISE_APPLICATION_ERROR(-20020, '不允许更新ID值！');
    END IF;
  END;
  /
• INSERT INTO TEST_TRG VALUES (0, 'First row');
  INSERT INTO TEST_TRG VALUES (0, 'Second row');
  INSERT INTO TEST_TRG VALUES (0, 'Third row');
  COMMIT;
• SELECT * FROM TEST_TRG;
• CREATE OR REPLACE TRIGGER aiud_ordmast
  AFTER INSERT OR UPDATE OR DELETE
  ON order_master
  BEGIN
    IF UPDATING THEN
      DBMS_OUTPUT.PUT_LINE('ORDER_MASTER 中的数据已更新');
    ELSIF DELETING THEN
      DBMS_OUTPUT.PUT_LINE('ORDER_MASTER 中的数据已删除');
    ELSIF INSERTING THEN
      DBMS_OUTPUT.PUT_LINE('数据已插入 ORDER_MASTER');
    END IF;
  END;
  /
• CREATE VIEW ord_view AS
  SELECT order_master.orderno, order_master.ostatus,
         order_detail.qty_deld, order_detail.qty_ord   
  FROM order_master, order_detail
  WHERE order_master.orderno = order_detail.orderno;
• CREATE OR REPLACE TRIGGER order_mast_insert
  INSTEAD OF INSERT ON ord_view
  REFERENCING NEW AS n
  FOR EACH ROW
  DECLARE
    CURSOR ecur IS SELECT *  FROM order_master
      WHERE order_master.orderno = :n.orderno;
    CURSOR dcur IS SELECT * FROM order_detail
      WHERE order_detail.orderno = :n.orderno;
    a ecur%rowtype;
    b dcur%rowtype;
  BEGIN
    OPEN ecur;
    OPEN dcur;
    FETCH ecur into a;
    FETCH dcur into b;
    IF dcur%notfound THEN
      INSERT INTO order_master(orderno,ostatus)
      VALUES(:n.orderno, :n.ostatus);
    ELSE
      UPDATE order_master SET order_master.ostatus = :n.ostatus
      WHERE order_master.orderno = :n.orderno;
    END IF;
    IF ecur%notfound THEN
      INSERT INTO order_detail(qty_ord,qty_deld,orderno)
      VALUES(:n.qty_ord, :n.qty_deld, :n.orderno);
    ELSE
      UPDATE order_detail
      SET order_detail.qty_ord  = :n.qty_ord,
          order_detail.qty_deld = :n.qty_deld
      WHERE order_detail.orderno = :n.orderno;
    END IF;
    CLOSE ecur;
    CLOSE dcur;
  END;
  /
• CREATE TABLE dropped_obj
  (
    obj_name VARCHAR2(30),
    obj_type VARCHAR2(20),
    drop_date DATE
  );
• CREATE OR REPLACE TRIGGER log_drop_obj
  AFTER DROP ON SCHEMA
  BEGIN
    INSERT INTO dropped_obj
    VALUES (ORA_DICT_OBJ_NAME, ORA_DICT_OBJ_TYPE, SYSDATE);
  END;
  /
• CREATE TABLE for_drop ( x CHAR );
  DROP TABLE for_drop;
• SELECT * FROM dropped_obj;
• ALTER TRIGGER biu_emp_deptno DISABLE;
• ALTER TRIGGER biu_emp_deptno ENABLE;
• DROP TRIGGER biu_emp_deptno;
• DESC USER_TRIGGERS;
• SELECT TRIGGER_NAME FROM USER_TRIGGERS
  WHERE TABLE_NAME='EMP';
• SELECT TRIGGER_TYPE, TRIGGERING_EVENT, WHEN_CLAUSE
  FROM USER_TRIGGERS
  WHERE TRIGGER_NAME = 'BIU_EMP_DEPTNO';
• SET SERVEROUT ON
  BEGIN
    DBMS_OUTPUT.PUT_LINE('打印三角形');
    FOR i IN 1..9 LOOP
      FOR j IN 1..i LOOP
        DBMS_OUTPUT.PUT('*');
      END LOOP for_j;
      DBMS_OUTPUT.NEW_LINE;
    END LOOP for_i;
  END;
  /
• SET SERVEROUTPUT ON FORMAT WRAPPED
  DECLARE
    result CLOB;
    xmlstr VARCHAR2(32767);
    line   VARCHAR2(2000);
    line_no INTEGER := 1;
  BEGIN
    result := DBMS_XMLQuery.getXml('SELECT empno, ename
      FROM employee');
    xmlstr := DBMS_LOB.SUBSTR(result,32767);
    LOOP
      EXIT WHEN xmlstr IS NULL;
      line := SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10))-1);
      DBMS_OUTPUT.PUT_LINE(line_no || ':' || line);
      xmlstr := SUBSTR(xmlstr,INSTR(xmlstr,CHR(10))+1);
      line_no := line_no + 1;
    END LOOP; 
  END;
  /
• DECLARE
    l_num   NUMBER;
    counter NUMBER;
  BEGIN
    counter:=1;
    WHILE counter <= 10
    LOOP
      l_num := ABS((DBMS_RANDOM.RANDOM MOD 100)) + 1;
      DBMS_OUTPUT.PUT_LINE(l_num);
      counter := counter + 1;
    END LOOP;
  END;
  /
• -- 以 SYSTEM 用户登录执行命令
  CREATE DIRECTORY TEST_DIR AS 'C:\DEVELOP';
  GRANT READ, WRITE ON DIRECTORY TEST_DIR TO SCOTT;
• -- 以 SCOTT 用户登录
  DECLARE
    src CLOB;
    xmlfile UTL_FILE.FILE_TYPE;
    length INTEGER;
    buffer VARCHAR2(16384);
  BEGIN
    src := DBMS_XMLQuery.getXml('select * from emp');
    length := DBMS_LOB.GETLENGTH(src);
    DBMS_LOB.READ(src, length, 1, buffer);
    xmlfile := UTL_FILE.FOPEN('TEST_DIR', 'employees.xml', 'w');
    UTL_FILE.PUT(xmlfile, buffer);
    UTL_FILE.FCLOSE(xmlfile);
  END;
  /
• SET SERVEROUT ON FORMAT WRAPPED
  DECLARE
    input_file   UTL_FILE.FILE_TYPE;
    input_buffer VARCHAR2(4000);
  BEGIN
    input_file := UTL_FILE.FOPEN('TEST_DIR', 'employees.xml', 'r');
    FOR I IN 1..11 LOOP
      UTL_FILE.GET_LINE(input_file, input_buffer);
      DBMS_OUTPUT.PUT_LINE(input_buffer);
    END LOOP;
    UTL_FILE.FCLOSE(input_file);
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE('------------------');
  END;
  /

------数据库的导出和备份exp

• exp help=y
• exp system/aptech@accp
• exp system/aptech@accp file=FULLDB full=y buffer=32768
• exp scott/tiger@accp
• exp scott/tiger@accp file=scott_back owner=scott
• exp scott/tiger@accp tables=(emp, dept) file=scott_back_tab
• exp accp/accp@accp tables=(sales:p3) file=accp_back_part
• exp system/aptech@accp tablespaces=(users) file=tbs_users
• exp parfile='c:\parameters.txt'
• imp help=y
• imp accp/accp@accp file=item_back.dmp ignore=y full=y
• imp system/aptech@accp file=scott_back fromuser=scott touser=martin tables=(emp,dept)
• 
  SELECT DEST_ID,DEST_NAME,STATUS,DESTINATION
  FROM V$ARCHIVE_DEST WHERE STATUS='VALID';
• SELECT DEST_ID, NAME, ARCHIVED FROM V$ARCHIVED_LOG;

------------建表的几个事例

• CREATE TABLE employee
  ( empno NUMBER(10) PRIMARY KEY,
  ename VARCHAR2(25),
  designation VARCHAR2(20),
  dateofjoining DATE,
  branchcode VARCHAR2(15) REFERENCES Branch_Details (branchcode),
  deptcode VARCHAR2(15) REFERENCES Dept_Details (deptcode) );
• alter session set nls_date_language = 'AMERICAN';
• INSERT INTO employee VALUES ('E001', 'John Smith' , 'Manager', '1-FEB-2001', 'BH01', 'DP02');
  INSERT INTO employee VALUES ('E002', 'Jane', 'Sales Manager','1-JUNE-2001', 'BH02', 'DP02');
  INSERT INTO employee VALUES ('E003', 'Harry ', 'Accountant', '1-NOV-2001', 'BH03', 'DP01');
  INSERT INTO employee VALUES ('E004', 'JOE', 'Accountant', '1-DEC-2001', 'BH03', 'DP03');
  INSERT INTO employee VALUES ('E005', 'Michael', 'Manager', '1-JAN-2001', 'BH03', 'DP02');
  INSERT INTO employee VALUES ('E006', 'Jack Aranck', 'Sales Manager', '1-NOV-2001', 'BH05', 'DP01');
  INSERT INTO employee VALUES ('E007', 'George', 'Sr. Accountant', '1-NOV-2001', 'BH05', 'DP03');
  INSERT INTO employee VALUES ('E008', 'John Aranck' , 'Sr. Accountant', '1-FEB-2001', 'BH01', 'DP02');
• /
  CREATE TABLE Salary_Records
  (empno  VARCHAR2(10) REFERENCES Employee(empno),
  working_Days NUMBER,
  empsal NUMBER);
• INSERT INTO Salary_Records VALUES ('E001', 'BH01', 'DP02' , 'John Smith' , 30, 12000);
  INSERT INTO Salary_Records VALUES ('E002', 'BH02', 'DP02' , 'Jane' , 25, 15000);
  INSERT INTO Salary_Records VALUES ('E003', 'BH03', 'DP01' , 'Harry' , 30, 12000);
  INSERT INTO Salary_Records VALUES ('E004', 'BH03', 'DP03' , 'Joe' , 30, 20000);
  INSERT INTO Salary_Records VALUES ('E005', 'BH03', 'DP02' , 'Michael' , 30, 18000);
  INSERT INTO Salary_Records VALUES ('E006', 'BH05', 'DP01' , 'Jack Aranck' , 30, 18000);
  INSERT INTO Salary_Records VALUES ('E007', 'BH05', 'DP03' , 'George' , 30, 18000);
• /
  CREATE TABLE Dept_Details
  (deptcode  VARCHAR2(15) Constraint pkdeptcode PRIMARY KEY,
  deptname CHAR(15)) ;
• INSERT INTO Dept_Details VALUES ('DP01','Marketing');
  INSERT INTO Dept_Details VALUES ('DP02','Sales');
  INSERT INTO Dept_Details VALUES ('DP03','Accountants');
• CREATE TABLE Branch_Details
  (branchcode  VARCHAR2(15) Constraint pkbranchcode PRIMARY KEY,
  address1  VARCHAR2(20),
  address2  VARCHAR2(20),
  city  CHAR(10),
  phone_no CHAR(15));
• INSERT into Branch_Details values('BH01', '01 northway', 'cyber Street', 'New york', '802-384-9491');
  INSERT into Branch_Details values('BH02', '56 K Street', 'Pall Mansion', 'California', '354-768-9895');
  INSERT into Branch_Details values('BH03', '78 BlueStreet', 'Camay Mall', ' Las Wegas', '323-434-4565');
  INSERT into Branch_Details values('BH04', 'Kay Street', ' 700 E LAKE DRIVE', ' New York', '454-655-5286');
• commit;

/

• CREATE TABLE ProductDetails
  (Prod_No NUMBER,
  ProdId  VARCHAR2(10),
  ProdName VARCHAR2(15),
  ProdPrice NUMBER);
• INSERT INTO ProductDetails VALUES (001,'P001', 'MCSE', 600);
  INSERT INTO ProductDetails VALUES (002,'P002', 'SQL SERVER 2000', 800);
  INSERT INTO ProductDetails VALUES (003,'P003', 'JAVA', 500);
  INSERT INTO ProductDetails VALUES (004,'P004', 'C++', 300);
  INSERT INTO ProductDetails VALUES (005,'P005', 'LINUX', 400);
  INSERT INTO ProductDetails VALUES (006,'P006', 'MCSD', 500);
  INSERT INTO ProductDetails VALUES (007,'P007', 'ORACLE', 400);
• alter session set nls_date_language = 'SIMPLIFIED CHINESE';
• /
  CREATE TABLE ORDER_DETAILS
  (
   ORDERNO                                  VARCHAR2(5) PRIMARY KEY,
   ODATE                                              DATE,
   VENCODE                                            VARCHAR2(5),
   itemcode         VARCHAR2(10),
    qty_ordered         NUMBER,
   OSTATUS                                            CHAR(1),
   DEL_DATE                                           DATE,
  ORDER_COST         NUMBER
  );
• /
  CREATE TABLE ORDER_COST
  (
  ORDERNO VARCHAR2(10) REFERENCES order_details(orderno),
  ordercost NUMBER);
• /
  CREATE TABLE EMPLOYEES
  (
  EMP_ID  NUMBER(4) NOT NULL,
  LAST_NAME VARCHAR2(30)  NOT NULL,
   FIRST_NAME VARCHAR2(30),
   DEPT_ID  NUMBER(2),
   JOB_CAT  VARCHAR(30),
   SALARY   NUMBER(8,2)
  );

/

• CREATE TABLE BOOK_DETAILS
  (
  BOOKID VARCHAR2(5) NOT NULL,
  BOOK_NM VARCHAR2(20) NOT NULL,
  DOP DATE,
  PRICE NUMBER,
  AUTHOR VARCHAR2(30)
  );
  
  

• CREATE TABLE toys
  (
   toyid    VARCHAR2(10),
   toyname  VARCHAR2(15),
   toyprice NUMBER
  );
• 
  INSERT INTO toys VALUES('P001', 'Doll', 100);
• INSERT INTO toys VALUES('P002','Batman',125);
• INSERT INTO toys VALUES('P003','Spiderman',110);
• INSERT INTO toys VALUES('P004','He-man',200);
• COMMIT;
• CREATE OR REPLACE PROCEDURE
  find_emp(emp_no NUMBER)
  AS
    empname VARCHAR2(20);
  BEGIN
    SELECT ename INTO empname
    FROM EMP WHERE empno = emp_no;
    DBMS_OUTPUT.PUT_LINE('雇员姓名是 '|| empname);
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE ('雇员编号未找到');
  END find_emp;
  /
• SET SERVEROUT ON
  EXECUTE find_emp(7900);
• CREATE OR REPLACE PROCEDURE
  itemdesc(item_code IN VARCHAR2)
  IS
    v_itemdesc VARCHAR2(5);
  BEGIN
    SELECT itemdesc INTO v_itemdesc
    FROM itemfile
    WHERE itemcode = item_code;
    DBMS_OUTPUT.PUT_LINE(item_code||'项目的说明为'||v_itemdesc);
  END;
  /
• EXECUTE itemdesc ('i201');
• CREATE OR REPLACE PROCEDURE
  test(value1 IN VARCHAR2,value2 OUT NUMBER)
  IS
    identity NUMBER;
  BEGIN
    SELECT ITEMRATE INTO identity
    FROM itemFile
    WHERE itemcode = value1;
    IF identity < 200 THEN
      value2:=100;
    ELSE
      value2:=50;
    END IF;
  END;
  /
• DECLARE
    value2 NUMBER;
  BEGIN
    test ('i202' ,value2);
    DBMS_OUTPUT.PUT_LINE('value2 的值为'||TO_CHAR(value2));
  END;
  /
• CREATE OR REPLACE PROCEDURE
  swap(p1 IN OUT NUMBER, p2 IN OUT NUMBER) IS
    v_temp NUMBER;
  BEGIN
    v_temp := p1;
    p1 := p2;
    p2 := v_temp;
  END;
  /
• DECLARE
    num1 NUMBER := 100;
    num2 NUMBER := 200;
  BEGIN
    swap(num1, num2);
    DBMS_OUTPUT.PUT_LINE('num1 = ' || num1);
    DBMS_OUTPUT.PUT_LINE('num2 = ' || num2);
  END;
  /
• GRANT EXECUTE ON find_emp TO MARTIN;
• GRANT EXECUTE ON swap TO PUBLIC;
• DROP PROCEDURE test;
• CREATE OR REPLACE FUNCTION
  fun_hello RETURN VARCHAR2 IS
  BEGIN
    RETURN '朋友，您好！今天是' || TO_CHAR(SYSDATE, 'DAY');
  END;
  /
• SELECT fun_hello FROM DUAL;
• CREATE OR REPLACE FUNCTION
  item_price_range (price NUMBER)
  RETURN VARCHAR2 AS
    min_price NUMBER;
    max_price NUMBER;
  BEGIN
    SELECT MAX(ITEMRATE), MIN(ITEMRATE)
    INTO max_price, min_price FROM itemfile;
    IF price >= min_price AND price <= max_price THEN
      RETURN '输入的单价介于最低价与最高价之间';
    ELSE
      RETURN '超出范围';
    END IF;
  END;
  /
• DECLARE
    P   NUMBER := 300;
    MSG VARCHAR2(200);
  BEGIN
    MSG := item_price_range(P);
    DBMS_OUTPUT.PUT_LINE(MSG);
  END;
  /
• GRANT EXECUTE ON fun_hello TO MARTIN;
• DROP FUNCTION fun_hello;
• CREATE OR REPLACE PROCEDURE p2 AS
    a VARCHAR2(50);
  BEGIN
    SELECT venadd1 INTO a
    FROM vendor_master WHERE vencode='V002';
    DBMS_OUTPUT.PUT_LINE(a);
    ROLLBACK;
  END;
  /
• CREATE OR REPLACE PROCEDURE p1 AS
    b VARCHAR2(50);
  BEGIN
    UPDATE vendor_master SET venadd1='10 Walls Street'
    WHERE vencode='V002';
    P2();
    SELECT venadd1 INTO b
    FROM vendor_master WHERE vencode='V002';
    DBMS_OUTPUT.PUT_LINE(b);
  END;
  /
• EXECUTE p1;
• CREATE OR REPLACE PROCEDURE p2 AS
    a VARCHAR2(50);
    PRAGMA AUTONOMOUS_TRANSACTION;
  BEGIN
    SELECT venadd1 INTO a
    FROM vendor_master WHERE vencode='V002';
    DBMS_OUTPUT.PUT_LINE(a);
    ROLLBACK;
  END;
  /
• EXECUTE p1;
• CREATE OR REPLACE PACKAGE pack_me IS
    PROCEDURE order_proc (orno VARCHAR2);
    FUNCTION order_fun(ornos VARCHAR2) RETURN VARCHAR2;
  END pack_me;
  /
• CREATE OR REPLACE PACKAGE BODY pack_me AS
    PROCEDURE order_proc (orno VARCHAR2) IS
      stat CHAR(1);
    BEGIN
      SELECT ostatus INTO stat FROM order_master
      WHERE orderno = orno;
      IF stat = 'p' THEN
        DBMS_OUTPUT.PUT_LINE('暂挂的订单');
      ELSE
        DBMS_OUTPUT.PUT_LINE('已完成的订单');
      END IF;
    END order_proc;
   
    FUNCTION order_fun(ornos VARCHAR2)
    RETURN VARCHAR2
    IS
      icode   VARCHAR2(5);
      ocode   VARCHAR2(5);
      qtyord  NUMBER;
      qtydeld NUMBER;
    BEGIN
      SELECT qty_ord, qty_deld, itemcode, orderno
      INTO   qtyord, qtydeld, icode, ocode
      FROM order_detail
      WHERE orderno = ornos;
      IF qtyord < qtydeld THEN
        RETURN ocode;
      ELSE
        RETURN icode;
      END IF;
    END order_fun;
  END pack_me;
  /
• EXECUTE pack_me.order_proc('o002');
• DECLARE
    msg VARCHAR2(10);
  BEGIN
    msg := pack_me.order_fun('o002');
    DBMS_OUTPUT.PUT_LINE('值是 ' || msg);
  END;
  /
• CREATE OR REPLACE PACKAGE cur_pack IS
    CURSOR ord_cur(vcode VARCHAR2)
    RETURN order_master%ROWTYPE;
    PROCEDURE ord_pro(vcode VARCHAR2);
  END cur_pack;
  /
• CREATE OR REPLACE PACKAGE BODY cur_pack AS
   CURSOR ord_cur(vcode VARCHAR2)
   RETURN order_master%ROWTYPE IS
   SELECT * FROM order_master
   WHERE VENCODE=vcode;
   PROCEDURE ord_pro(vcode VARCHAR2) IS
     or_rec order_master%ROWTYPE;
   BEGIN
    OPEN ord_cur(vcode);
    LOOP
      FETCH ord_cur INTO or_rec;
      EXIT WHEN ord_cur%NOTFOUND;
      DBMS_OUTPUT.PUT_LIne('返回的值为' || or_rec.orderno);
    END LOOP;
   END ord_pro;
  END cur_pack;
  /
• EXEC cur_pack.ord_pro('V001');
• COLUMN OBJECT_NAME FORMAT A18
• SELECT object_name, object_type
  FROM USER_OBJECTS
  WHERE object_type IN ('PROCEDURE', 'FUNCTION',
   'PACKAGE', 'PACKAGE BODY');
• DESC USER_SOURCE
• COLUMN LINE FORMAT 9999
  COLUMN TEXT FORMAT A50
• SELECT line, text FROM USER_SOURCE
  WHERE NAME='TEST';
• DESC pack_me;

--_tables.sql

• CREATE TABLE ORDER_DETAIL
  (
    ORDERNO     VARCHAR2(5) PRIMARY KEY,
    ODATE       DATE,
    VENCODE     VARCHAR2(5),
    itemcode    VARCHAR2(10),
    qty_ord     NUMBER,
    qty_deld    NUMBER,
    OSTATUS     CHAR(1),
    DEL_DATE    DATE,
    ORDER_COST  NUMBER
  );
• CREATE TABLE salary_records
  (
    EMPNO VARCHAR2(10),
    BRANCHCODE VARCHAR2(15),
    DEPTCODE VARCHAR2(15),
    EMP_NAME CHAR(20),
    WORKING_DAYS NUMBER,
    EMPSAL NUMBER
  );
• INSERT INTO salary_records VALUES('E001', 'BH01','DP02','John Smith',30,12000);
  INSERT INTO salary_records VALUES('E002','BH02','DP02','Jane',25, 15000);
  INSERT INTO salary_records VALUES('E003','BH03','DP02','Harry',30,12000);
  INSERT INTO salary_records VALUES('E004','BH01','DP02','WILLIAMS',24,13000);
  COMMIT;

• SET SERVEROUTPUT ON
  BEGIN
    UPDATE toys SET toyprice=270
    WHERE toyid='T005';
    IF SQL%FOUND THEN
      DBMS_OUTPUT.PUT_LINE('表已更新');
    ELSE
      DBMS_OUTPUT.PUT_LINE('编号未找到');
    END IF;
  END;
  /
• BEGIN
    UPDATE vendor_master
    SET venname='Rob Mathew'
    WHERE vencode='V004';
    DBMS_OUTPUT.PUT_LINE('更新了' || SQL%ROWCOUNT || '行');
  END;
  /
• DECLARE
   empid VARCHAR2(10);
   desig VARCHAR2(20);
  BEGIN
   empid:= '&职员编号';
   SELECT designation INTO desig
   FROM employee WHERE empno=empid;
    IF SQL%ROWCOUNT>0 THEN
      DBMS_OUTPUT.PUT_LINE('职员的头衔是' || desig);
    END IF;
  EXCEPTION
   WHEN NO_DATA_FOUND THEN
     DBMS_OUTPUT.PUT_LINE('职员未找到');
  END;
  /
• DECLARE
   empid VARCHAR2(10);
  BEGIN
    SELECT empno INTO empid FROM employee;
  EXCEPTION
    WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE('该查询提取多行');
  END;
  /
• SET SERVEROUTPUT ON
  DECLARE
    my_toy_price toys.toyprice%TYPE;
    CURSOR toy_cur IS
      SELECT toyprice FROM toys
      WHERE toyprice<250;
  BEGIN
    OPEN toy_cur;
    LOOP
      FETCH toy_cur INTO my_toy_price;
      EXIT WHEN toy_cur%NOTFOUND;
      DBMS_OUTPUT.PUT_LINE (toy_cur%ROWCOUNT || '. 玩具单价:' || my_toy_price);
    END LOOP;
    CLOSE toy_cur;
  END;
  /
• DECLARE
    new_price NUMBER;
    CURSOR cur_toy IS
      SELECT toyprice FROM toys
       WHERE toyprice<100
       FOR UPDATE OF toyprice;
  BEGIN
    OPEN cur_toy;
    LOOP
      FETCH cur_toy INTO new_price;
      EXIT WHEN cur_toy%NOTFOUND;
      UPDATE toys
      SET toyprice = 1.1*new_price
      WHERE CURRENT OF cur_toy;
    END LOOP;
    CLOSE cur_toy;
    COMMIT;
  END;
  /
• SET SERVEROUTPUT ON
  DECLARE
    dept_code emp.deptno%TYPE;
    emp_code  emp.empno%TYPE;
    emp_name  emp.ename%TYPE;
    CURSOR emp_cur(deptparam NUMBER) IS
      SELECT empno, ename FROM emp
      WHERE deptno=deptparam;
  BEGIN
    dept_code := &部门编号;
    OPEN emp_cur(dept_code);
    LOOP
      FETCH emp_cur INTO emp_code, emp_name;
      EXIT WHEN emp_cur%NOTFOUND;
      DBMS_OUTPUT.PUT_LINE(emp_code||' '||emp_name);
    END LOOP;
    CLOSE emp_cur;
  END;
  /
• DECLARE
     CURSOR mytoy_cur IS
       SELECT toyid, toyname, toyprice
       FROM toys;
  BEGIN
   FOR toy_rec IN mytoy_cur LOOP
      DBMS_OUTPUT.PUT_LINE ('玩具编号：'||toy_rec.toyid||' '
      ||'玩具名称：' ||toy_rec.toyname||' '
      ||'玩具单价：'  ||toy_rec.toyprice);
    END LOOP;
  END;
  /
• SET SERVEROUTPUT ON
  -- 先执行
  ACCEPT tab PROMPT '你想查看什么信息？员工信息(E)或部门信息(D):'
• -- 再执行
  DECLARE
    TYPE refcur_t IS REF CURSOR;
    refcur refcur_t;
    p_id NUMBER;
    p_name VARCHAR2(100);
    selection VARCHAR2(1) := UPPER(SUBSTR('&tab ',1,1));
  BEGIN
    IF selection = 'E' THEN
      OPEN refcur FOR
        SELECT empno id, ename name
        FROM emp;
      DBMS_OUTPUT.PUT_LINE('===员工信息===');
    ELSIF selection = 'D' THEN
      OPEN refcur FOR
        SELECT deptno id, dname name
        FROM dept;
      DBMS_OUTPUT.PUT_LINE('===部门信息===');
    ELSE
      DBMS_OUTPUT.PUT_LINE('请输入员工信息(E) 或 部门信息(D)');
      RETURN;
    END IF;
    FETCH refcur INTO p_id, p_name;
    WHILE refcur%FOUND LOOP
      DBMS_OUTPUT.PUT_LINE('#' || p_id || ':' || p_name);
      FETCH refcur INTO p_id, p_name;
    END LOOP;
    CLOSE refcur;
  END; 
  /
• SET SERVEROUTPUT ON
• VARIABLE maxsal NUMBER
• EXECUTE :maxsal := 2500
• DECLARE
    r_emp emp%ROWTYPE;
    TYPE c_type IS REF CURSOR;
    cur c_type;
    p_salary NUMBER;
  BEGIN
    p_salary := :maxsal;
    OPEN cur FOR 'select * from emp where sal>:1
                  order by sal desc'
    USING p_salary;
    DBMS_OUTPUT.PUT_LINE('薪水大于'|| p_salary ||'的员工有：');
    LOOP
      FETCH cur INTO r_emp;
      EXIT WHEN cur%NOTFOUND;
      DBMS_OUTPUT.PUT_LINE('编号：'|| r_emp.empno
        || ' 姓名：' || r_emp.ename
        || ' 薪水：' || r_emp.sal );
    END LOOP;
    CLOSE cur;
  END;
  /
  --employee.sql
• CREATE TABLE Dept_Details
  (deptcode  VARCHAR2(15) Constraint pkdeptcode PRIMARY KEY,
  deptname CHAR(15)) ;
• INSERT INTO Dept_Details VALUES ('DP01','Marketing');
  INSERT INTO Dept_Details VALUES ('DP02','Sales');
  INSERT INTO Dept_Details VALUES ('DP03','Accountants');
• CREATE TABLE Branch_Details
  (branchcode  VARCHAR2(15) Constraint pkbranchcode PRIMARY KEY,
  address1  VARCHAR2(20),
  address2  VARCHAR2(20),
  city  CHAR(10),
  phone_no CHAR(15));
• INSERT into Branch_Details
    values('BH01', '01 northway', 'cyber Street', 'New york', '802-384-9491');
  INSERT into Branch_Details
    values('BH02', '56 K Street', 'Pall Mansion', 'California', '354-768-9895');
  INSERT into Branch_Details
    values('BH03', '78 BlueStreet', 'Camay Mall', ' Las Wegas', '323-434-4565');
  INSERT into Branch_Details
    values('BH04', 'Kay Street', ' 700 E LAKE DRIVE', ' New York', '454-655-5286');
• COMMIT;
• CREATE TABLE employee(
  empno           VARCHAR2(5),
  ename           VARCHAR2(25),
  designation     VARCHAR2(20),
  dateofjoining   DATE,
  branchcode      VARCHAR2(15) REFERENCES Branch_Details (branchcode),
  deptcode        VARCHAR2(15) REFERENCES Dept_Details (deptcode)
  );
• INSERT INTO employee VALUES('E001', 'John Smith', 'Sales Manager','14-7月-05', 'BH01','DP02');
• INSERT INTO employee VALUES('E002', 'Jane', 'Sales Manager','14-8月-02', 'BH02','DP02');
• INSERT INTO employee VALUES('E003', 'Harry', 'Accountant','14-7月-05', 'BH03','DP02');
• INSERT INTO employee VALUES('E004', 'Joe', 'Accountant','14-7月-05', 'BH03','DP02');
• COMMIT;
  

• GRANT ALL ON EMP TO ACCP;
• -- 以ACCP用户登录数据库
  -- CONNECT ACCP/ACCP;
  CREATE SYNONYM EMP FOR SCOTT.EMP;
• SELECT * FROM EMP;
• CREATE PUBLIC SYNONYM emp_syn FOR SCOTT.emp;
• SELECT * FROM TAB;
  CREATE TABLE TAB (A NUMBER);
  SELECT * FROM TAB;
• DROP SYNONYM EMP;
• CREATE SEQUENCE toys_seq
  START WITH 10
  INCREMENT BY 2
  MAXVALUE 2000
  NOCYCLE
  CACHE 30;
• INSERT INTO toys (toyid, toyname, toyprice)
    VALUES ('P' || toys_seq.NEXTVAL, 'TWENTY', 25);
  INSERT INTO toys (toyid, toyname, toyprice)
    VALUES ('P' || toys_seq.NEXTVAL, 'MAGIC PENCIL', 75);
• SELECT toys_seq.CURRVAL FROM dual;
• ALTER SEQUENCE toys_seq
  MAXVALUE 5000
  CYCLE;
• DROP SEQUENCE toys_seq;
• CREATE VIEW ven_view AS SELECT * FROM vendor_master;
• CREATE VIEW pause_view AS
  SELECT * FROM order_master
  WHERE ostatus = 'p';
• UPDATE pause_view SET ostatus = 'd'
  WHERE ostatus = 'p';
• CREATE OR REPLACE VIEW pause_view AS
  SELECT * FROM order_master 
  WHERE ostatus = 'p'
  WITH CHECK OPTION CONSTRAINT chk_pv;
• UPDATE pause_view SET ostatus = 'd'
  WHERE ostatus = 'p';
• CREATE OR REPLACE VIEW pause_view AS
  SELECT orderno, odate FROM order_master;
• UPDATE pause_view SET ostatus = 'd';
• CREATE OR REPLACE VIEW pause_view AS
  SELECT * FROM order_master
  WITH READ ONLY;
• UPDATE pause_view SET ostatus = 'd';
• CREATE OR REPLACE VIEW ord_ven AS
  SELECT * FROM vendor_master
  ORDER BY venname;
• CREATE FORCE VIEW ven AS SELECT * FROM venmast;
• ALTER VIEW ven COMPILE;
• CREATE OR REPLACE VIEW ven_ord_view AS
  SELECT vm.vencode, venname, orderno, odate, ostatus
  FROM   vendor_master vm, order_master om
  WHERE  vm.vencode = om.vencode;
• CREATE OR REPLACE VIEW ven_ord_outj_view AS
  SELECT vm.vencode, venname, orderno, odate, ostatus
  FROM   vendor_master vm, order_master om
  WHERE  vm.vencode = om.vencode(+);
• SELECT vm.vencode, venname, orderno, odate, ostatus
  FROM vendor_master vm LEFT OUTER JOIN order_master om
  ON vm.vencode = om.vencode;
• UPDATE ven_ord_view SET odate = odate+1
  WHERE vencode ='V003';
• UPDATE ven_ord_view SET venname = 'Michael'
  WHERE vencode = 'V004';
• SELECT * FROM USER_UPDATABLE_COLUMNS
  WHERE TABLE_NAME = 'VEN_ORD_VIEW';
• CREATE VIEW vendor_master_view AS
  SELECT vencode, UPPER(venname) vendor_name
  FROM vendor_master;
• DROP VIEW pause_view;
• CREATE INDEX item_index ON itemfile (itemcode);
• ALTER INDEX item_index REBUILD;
• DROP INDEX item_index;
• CREATE UNIQUE INDEX item_index ON itemfile (itemcode);
• CREATE INDEX comp_index ON itemfile(p_category, itemrate);
• CREATE INDEX rev_index ON itemfile (itemcode) REVERSE;
• ALTER INDEX rev_index REBUILD NOREVERSE;
• CREATE BITMAP INDEX bit_ind1 ON order_detail(itemcode);
• CREATE TABLE ind_org_tab (
    vencode NUMBER(4) PRIMARY KEY,
    venname VARCHAR2(20)
  )
  ORGANIZATION INDEX;
• -- 以 SYSTEM 用户授予 ACCP 用户 QUERY REWRITE 权限
  CREATE INDEX vn_ind ON vendor_master(UPPER(venname));
• CREATE INDEX exp_ind ON itemfile (qty_hand*itemrate);
• SELECT * FROM vendor_master
  WHERE UPPER(venname)='SMALL';
• CREATE TABLE order_mast
  (
     orderno NUMBER(4),
     venname VARCHAR2(20)
  )
  PARTITION BY RANGE(orderno)
  (
     PARTITION oe1 VALUES LESS THAN (1000),
     PARTITION oe2 VALUES LESS THAN (2000),
     PARTITION oe3 VALUES LESS THAN (MAXVALUE)
  );
• CREATE INDEX myind ON order_mast(orderno) LOCAL;
• SELECT segment_name, partition_name,
         segment_type, tablespace_name
  FROM   USER_SEGMENTS
  WHERE segment_name = 'MYIND';
• CREATE INDEX glb_ind ON order_mast(orderno) GLOBAL
  PARTITION BY RANGE (orderno)
  (
    PARTITION ip1 VALUES LESS THAN (1500),
    PARTITION ip2 VALUES LESS THAN (MAXVALUE)
  );
• SELECT INDEX_NAME, TABLE_NAME, COLUMN_NAME
  FROM USER_IND_COLUMNS
  ORDER BY INDEX_NAME, COLUMN_POSITION;
• -- CREATE DIRECTORY BOOK_TEXT AS 'C:\BOOKS';
  CREATE TABLE my_book (
    file_descr VARCHAR2(40),
    book_file BFILE
  );
• INSERT INTO my_book VALUES ('第一章',
    BFILENAME ('BOOK_TEXT', 'chapter01.txt'));
• COMMIT;
• CREATE DIRECTORY IMAGES AS 'C:\IMAGES';
  GRANT READ ON DIRECTORY IMAGES TO SCOTT;
• CREATE TABLE my_diagrams
  (
    chapter_descr VARCHAR2(40),
    diagram_no INTEGER,
    diagram BLOB
  );
• DECLARE
    l_bfile  BFILE;
    l_blob BLOB;
  BEGIN
    INSERT INTO my_diagrams (diagram)
    VALUES (EMPTY_BLOB())
    RETURN diagram INTO l_blob;
    l_bfile := BFILENAME('IMAGES', '\MYIMAGE.JPG');
    DBMS_LOB.OPEN(l_bfile, DBMS_LOB.FILE_READONLY);
    DBMS_LOB.LOADFROMFILE(l_blob, l_bfile, DBMS_LOB.GETLENGTH(l_bfile));
    DBMS_LOB.CLOSE(l_bfile);
    COMMIT;
  END;
  /
• CREATE TABLE my_book_text
  (
    chapter_id NUMBER(3),
    chapter_descr VARCHAR2(40),
    chapter_text CLOB
  );
• INSERT INTO my_book_text
  VALUES(5, '第五章 PL/SQL简介',
   'PL/SQL可用于创建存储过程、触发器和程序包等，用来处理业务规则、数据库事件或给SQL命令的执行添加程序逻辑。');
  COMMIT;
• SET SERVEROUTPUT ON
  DECLARE
    clob_var   CLOB;
    amount     INTEGER;
    offset     INTEGER;
    output_var VARCHAR2(100);
  BEGIN
    SELECT chapter_text INTO clob_var
    FROM my_book_text
    WHERE chapter_id=5;
    amount := 24;  -- 要读取的字符数
    offset := 1;   -- 起始位置
    DBMS_LOB.READ (clob_var,amount,offset,output_var);
    DBMS_OUTPUT.PUT_LINE(output_var);
  END;
  /
• SET SERVEROUTPUT ON
  DECLARE
    icode VARCHAR2(4);
    irate NUMBER;
  BEGIN
    SELECT itemcode, itemrate INTO icode, irate
    FROM itemfile
    WHERE itemcode = 'i203';
    IF irate > 200 THEN
      UPDATE itemfile SET itemrate = itemrate - 200
      WHERE  itemcode = 'i203';
    ELSE
      UPDATE itemfile SET itemrate = itemrate - 50
      WHERE  itemcode = 'i203';
    END IF;
    DBMS_OUTPUT.PUT_LINE('itemcode'|| ' ' ||'itemrate');
    DBMS_OUTPUT.PUT_LINE(icode || ' ' || irate);
  END;
  /
• BEGIN
    CASE '&grade'
      WHEN 'A' THEN DBMS_OUTPUT.PUT_LINE('优异');
      WHEN 'B' THEN DBMS_OUTPUT.PUT_LINE ('优秀');
      WHEN 'C' THEN DBMS_OUTPUT.PUT_LINE ('良好');
      WHEN 'D' THEN DBMS_OUTPUT.PUT_LINE ('一般');
      WHEN 'E' THEN DBMS_OUTPUT.PUT_LINE ('较差');
      ELSE DBMS_OUTPUT.PUT_LINE ('没有此成绩');
    END CASE;
  END;
  /
• DECLARE
    grade VARCHAR2(2);
  BEGIN
    grade := '&grade';
    CASE
      WHEN grade='A' THEN DBMS_OUTPUT.PUT_LINE('优异');
      WHEN grade='B' THEN DBMS_OUTPUT.PUT_LINE ('优秀');
      WHEN grade='C' THEN DBMS_OUTPUT.PUT_LINE ('良好');
      WHEN grade='D' THEN DBMS_OUTPUT.PUT_LINE ('一般');
      WHEN grade='E' THEN DBMS_OUTPUT.PUT_LINE ('较差');
      ELSE DBMS_OUTPUT.PUT_LINE ('没有此成绩');
    END CASE;
  END;
  /
• BEGIN
    LOOP
      IF &marks > 60 THEN
        DBMS_OUTPUT.PUT_LINE('该生已通过');
        EXIT;
      END IF;
    END LOOP;
  END;
  /
• DECLARE
    MONTHLY_VALUE NUMBER := 0;
    DAILY_VALUE NUMBER:=0;
  BEGIN
    WHILE monthly_value <= 4000
    LOOP
      monthly_value := daily_value * 31;  
      daily_value := daily_value + 10; 
      dbms_output.put_line('每日销量：' || daily_value); 
    END LOOP;
    dbms_output.put_line('每月销量：' || monthly_value);
  END;
  /
• BEGIN
    FOR even_number IN 1..25 LOOP
      DBMS_OUTPUT.PUT_LINE(even_number*2);
    END LOOP;
  END;
  /
• DECLARE
    qtyhand itemfile.qty_hand%type;
    relevel itemfile.re_level%type;
  BEGIN
    SELECT qty_hand,re_level INTO qtyhand,relevel
    FROM itemfile WHERE itemcode = 'i201';
    IF qtyhand < relevel THEN
     GOTO updation;
    ELSE
     GOTO quit;
    END IF;
    <<updation>>
    UPDATE itemfile SET qty_hand = qty_hand + re_level
    WHERE itemcode = 'i201';
    <<quit>>
    NULL;
  END;
  /
• DECLARE
    sql_stmt VARCHAR2(200);
    emp_id NUMBER(4) := 7566;
    emp_rec emp%ROWTYPE;
  BEGIN
    EXECUTE IMMEDIATE
      'CREATE TABLE bonus1 (id NUMBER, amt NUMBER)';
•   sql_stmt := 'SELECT * FROM emp WHERE empno = :id';
    EXECUTE IMMEDIATE sql_stmt INTO emp_rec USING emp_id;
  END;
  /
• SET SERVEROUTPUT ON
  DECLARE
    ordernum VARCHAR2(5);
  BEGIN
    SELECT orderno INTO ordernum
    FROM order_master;
  EXCEPTION
    WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE ('返回多行');
  END;
  /
• SET SERVEROUTPUT ON
  DECLARE
    invalidCATEGORY EXCEPTION;
    category varchar2(10);
  BEGIN
    category := '&Category';
    IF category NOT IN ('附件','顶盖','备件') THEN
      RAISE invalidCATEGORY;
    ELSE
      DBMS_OUTPUT.PUT_LINE('您输入的类别是'|| category);
    END IF;
  EXCEPTION
    WHEN invalidCATEGORY THEN
      DBMS_OUTPUT.PUT_LINE('无法识别该类别');
  END;
  /
• DECLARE
    rate itemfile.itemrate%TYPE;
    rate_exception EXCEPTION;
  BEGIN
    SELECT NVL(itemrate,0) INTO rate FROM itemfile
    WHERE  itemcode = 'i207';
    IF rate = 0 THEN
      RAISE rate_exception;
    ELSE
      DBMS_OUTPUT.PUT_LINE('项费率为：' || rate);
    END IF;
  EXCEPTION
    WHEN rate_exception THEN
      RAISE_APPLICATION_ERROR(-20001, '未指定项费率');
  END;
  /
  
  

• DROP TABLE vendor_master CASCADE CONSTRAINTS;
  CREATE TABLE vendor_master
  (
    vencode  VARCHAR2(5),
    venname  VARCHAR2(25),
    venadd1  VARCHAR2(20),
    venadd2  VARCHAR2(20),
    venadd3  VARCHAR2(20),
    tel_no   VARCHAR2(12)
  );
• INSERT INTO vendor_master
    VALUES('V001', 'John Smith', '11 E Main St','West Avenue', 'Alabama', '91724523');
  INSERT INTO vendor_master
    VALUES('V002','Dave Jones','1055 North Pitt', 'Atlanta','GA','87623433');
  INSERT INTO vendor_master (vencode, venname, tel_no)
    VALUES('V003', 'Williams', '23121872');
  INSERT INTO vendor_master
    VALUES('V004', 'Small', null, null, null, '54287912');
  COMMIT;
• DROP TABLE order_master CASCADE CONSTRAINTS;
  CREATE TABLE order_master
  (
    orderno VARCHAR2(5),
    odate DATE,
    vencode VARCHAR2(5),
    ostatus CHAR(1),
    del_date DATE
  );
• -- 临时修改日期语言, 以识别英文格式的月份
  alter session set nls_date_language = 'AMERICAN';
• INSERT INTO order_master VALUES('o001','12-MAY-05', 'V002','c', '15-MAY-05');
  INSERT INTO order_master VALUES('o002','14-MAY-05', 'V001','p', '15-MAY-05');
  INSERT INTO order_master VALUES('o003','14-MAY-05', 'V001','p', '15-FEB-05');
  INSERT INTO order_master VALUES('o004','14-MAY-05', 'V003','p', '15-FEB-05');
  INSERT INTO order_master VALUES('o005','14-MAY-05', 'V001','p', '15-FEB-05');
  INSERT INTO order_master VALUES('o006','14-APR-03', 'V004','p', '18-MAY-05');
  INSERT INTO order_master VALUES('o007','14-MAY-04', 'V003','p', '10-FEB-05');
  INSERT INTO order_master VALUES('o008','11-MAY-05', 'V001','p', '12-JUN-05');
  INSERT INTO order_master VALUES('o009','14-JAN-05', 'V002','c', '16-FEB-05');
  INSERT INTO order_master VALUES('o011','14-JAN-05', 'V001','p', '10-FEB-05');
  INSERT INTO order_master VALUES('o012','14-FEB-05', 'V003','p', '15-MAY-05');
  INSERT INTO order_master VALUES('o013','14-MAR-05', 'V001','p', '15-MAY-05');
  INSERT INTO order_master VALUES('o014','14-FEB-05', 'V002','c', '12-MAY-05');
  INSERT INTO order_master VALUES('o015','14-APR-03', 'V004','p', '17-APR-05');
  COMMIT;
• -- 修改日期语言为简体中文
  alter session set nls_date_language = 'SIMPLIFIED CHINESE';
• DROP TABLE itemfile CASCADE CONSTRAINTS;
  CREATE TABLE itemfile
  (
    itemcode varchar2(4),
    itemdesc varchar2(20),
    p_category varchar2(20),
    qty_hand number(5),
    re_level number(5),
    max_level number(5),
    itemrate number(7,2)
  );
• INSERT INTO itemfile VALUES('i201','nuts','spares',100,50,250,20);
  INSERT INTO itemfile VALUES('i202','bolts','spares',95,125,300,16.5);
  INSERT INTO itemfile VALUES('i204','holders','spares',18,30,75,112);
  INSERT INTO itemfile VALUES('i205','covers','accessories',30,15,50,400);
  INSERT INTO itemfile VALUES('i203','panels','accessories',75,30,150,4000);
  INSERT INTO itemfile VALUES('i206','brackets','spares',150,73,200,132);
• COMMIT;
• SELECT * FROM order_master WHERE vencode='V002'
  FOR UPDATE; -- OF odate, del_date;
• UPDATE order_master SET del_date='28-8月-05'
  WHERE vencode='V002';
• COMMIT;
• SELECT * FROM order_master WHERE vencode='V002'
  FOR UPDATE;
• SELECT * FROM order_master WHERE vencode='V002'
  FOR UPDATE WAIT 5;
• LOCK TABLE order_master IN SHARE MODE;
• LOCK TABLE itemfile IN EXCLUSIVE MODE NOWAIT;
• CREATE TABLE SALES
  (
    PRODUCT_ID VARCHAR2(5),
    SALES_DATE DATE NOT NULL,
    SALES_COST NUMBER(10)
  )
  PARTITION BY RANGE (SALES_COST)
  (
    PARTITION P1 VALUES LESS THAN (1000),
    PARTITION P2 VALUES LESS THAN (2000),
    PARTITION P3 VALUES LESS THAN (3000)
  );
• CREATE TABLE SALES2
  (
    PRODUCT_ID VARCHAR2(5),
    SALES_DATE DATE NOT NULL,
    SALES_COST NUMBER(10)
  )
  PARTITION BY RANGE (SALES_DATE)
  (
    PARTITION P1 VALUES LESS THAN (TO_DATE('2003-01-01', 'YYYY-MM-DD')),
    PARTITION P2 VALUES LESS THAN (TO_DATE('2004-01-01', 'YYYY-MM-DD')),
    PARTITION P3 VALUES LESS THAN (MAXVALUE)
  );
• CREATE TABLE EMPLOYEE
  (
    EMP_ID NUMBER(4),
    EMP_NAME VARCHAR2(14),
    EMP_ADDRESS VARCHAR2(15),
    DEPARTMENT VARCHAR2(10)
  )
  PARTITION BY HASH (DEPARTMENT) PARTITIONS 4;
• CREATE TABLE MY_EMP
  (
    EMPNO NUMBER(4),
    ENAME VARCHAR2(15)
  )
  PARTITION BY HASH (EMPNO)
  (
    PARTITION part_1,
    PARTITION part_2
  );
• CREATE TABLE SALES3
  (
    PRODUCT_ID VARCHAR2 (5),
    SALES_DATE DATE NOT NULL,
    SALES_COST NUMBER (10)
  )
  PARTITION BY RANGE (SALES_DATE)
  SUBPARTITION BY HASH (PRODUCT_ID)
  SUBPARTITIONS 5
  (
    PARTITION P1 VALUES LESS THAN (DATE '2001-04-01'),
    PARTITION P2 VALUES LESS THAN (DATE '2001-07-01'),
    PARTITION P3 VALUES LESS THAN (DATE '2001-09-01'),
    PARTITION P4 VALUES LESS THAN (MAXVALUE)
  );
• CREATE TABLE EMPLOYEE
  (
    EMP_ID NUMBER(4),
    EMP_NAME VARCHAR2(14),
    EMP_ADDRESS VARCHAR2(15),
    DEPARTMENT VARCHAR2(10)
  )
  PARTITION BY LIST (EMP_ADDRESS)
  (
    PARTITION NORTH VALUES ('芝加哥'),
    PARTITION WEST VALUES ('旧金山', '洛杉矶'),
    PARTITION SOUTH VALUES ('亚特兰大', '达拉斯', '休斯顿'),
    PARTITION EAST VALUES ('纽约', '波士顿')
  );
• INSERT INTO SALES3 VALUES ('P001', '02-3月-2001', 2000);
  INSERT INTO SALES3 VALUES ('P002', '10-5月-2001', 2508);
  INSERT INTO SALES3 VALUES ('P003', '05-7月-2001', 780);
  INSERT INTO SALES3 VALUES ('P004', '12-9月-2001', 1080);
  COMMIT;
• SELECT * FROM SALES3 PARTITION (P3);
• INSERT INTO MY_EMP SELECT EMPNO, ENAME FROM SCOTT.EMP;
• SELECT * FROM MY_EMP PARTITION (PART_1);
• DELETE FROM MY_EMP PARTITION (PART_2);
• ALTER TABLE SALES ADD PARTITION P4 VALUES LESS THAN (4000);
• ALTER TABLE SALES DROP PARTITION P4;
• ALTER TABLE SALES TRUNCATE PARTITION P3;
• ALTER TABLE SALES MERGE PARTITIONS P1, P2 INTO PARTITION P2;
• ALTER TABLE SALES2 SPLIT PARTITION P3 AT (DATE '2005-01-01')
  INTO (PARTITION P31, PARTITION P32);
• ALTER TABLE SALES2 RENAME PARTITION P31 TO P3;
  ALTER TABLE SALES2 RENAME PARTITION P32 TO P4;
  
  

• -- 创建一个自动增长的表空间worktbs
  CREATE TABLESPACE worktbs
  DATAFILE 'D:\ORACLE\ORADATA\APTECH\WORKTBS01.DBF'
  SIZE 10M AUTOEXTEND ON;
• -- 创建用户
  CREATE USER MARTIN
  IDENTIFIED BY martinpwd
  DEFAULT TABLESPACE USERS
  TEMPORARY TABLESPACE TEMP;
• -- 授予连接和创建各种数据库对象的权限
  GRANT CONNECT TO MARTIN;
• -- 授予使用表空间资源的权限
  GRANT RESOURCE TO MARTIN;
• -- 修改用户密码
  ALTER USER MARTIN IDENTIFIED BY martinpass;
• -- 删除用户及其拥有的对象
  DROP USER MARTIN CASCADE;
• -- Connect as SCOTT
  SELECT ROWID, ENAME FROM EMP WHERE EMPNO='7900';
• SELECT * FROM EMP WHERE ROWNUM<11;
• -- 创建表
  CREATE TABLE vendor_master (
   vencode  VARCHAR2(5),
   venname  VARCHAR2(20),
   venadd1  VARCHAR2(20),
   venadd2  VARCHAR2(20),
   venadd3  VARCHAR2(20)
  );
• ALTER TABLE vendor_master
    MODIFY (venname varchar2(25));
• ALTER TABLE vendor_master
    ADD (
   tel_no varchar2(12),
   tngst_no number(12)
  );
• ALTER TABLE vendor_master DROP COLUMN tngst_no;
• -- 显示表结构
  DESC vendor_master
• -- 删除表
  DROP TABLE vendor_master;
• SELECT * FROM vendor_master;
• SELECT vencode, venname, tel_no FROM vendor_master;
• SELECT DISTINCT vencode FROM order_master;
• SELECT * FROM order_master
  WHERE    vencode='V004'
  ORDER BY del_date;
• SELECT itemcode, itemdesc, p_category,
         qty_hand, re_level, max_level
  FROM itemfile;
• SELECT   itemcode, itemdesc, p_category,
           qty_hand, re_level, max_level
  FROM     itemfile
  ORDER BY p_category, itemcode DESC;
• CREATE TABLE newitemfile AS SELECT * FROM itemfile;
• CREATE TABLE newitemfile1 AS SELECT itemcode, itemdesc, qty_hand FROM itemfile;
• CREATE TABLE newitemfile2 AS SELECT * FROM itemfile WHERE 1 = 2;
• SELECT itemcode,itemdesc, max_level, max_level*2 AS new_maxlevel FROM itemfile;
• SELECT itemcode,itemdesc, max_level, max_level*2 "New Maximum Level" FROM itemfile;
• INSERT INTO vendor_master
  VALUES('V001', 'John Smith', '11 E Main St', 'West Avenue', 'Alabama', '91724523');
• INSERT INTO vendor_master(vencode, venname, tel_no)
  VALUES('V003', 'Williams', '23121872');
• INSERT INTO vendor_master
  VALUES('V004', 'Small', null, null, null, '54287912');
• CREATE TABLE order_master(
    orderno VARCHAR2(5),
    odate DATE,  
    vencode VARCHAR2(5),
    ostatus CHAR(1),
    del_date DATE
  );
• INSERT INTO order_master
  VALUES('o001', '12-5月-05', 'V002', 'c', '25-5月-05');
• INSERT INTO newvendor_master select * from vendor_master;
• INSERT INTO newvendor_master(vencode,venname) select vencode,venname from vendor_master;
• UPDATE vendor_master
  SET    tel_no = '71645221'
  WHERE  vencode = 'V002';
• UPDATE order_master SET ostatus = 'c' ;
• DELETE FROM order_master WHERE orderno='o006';
• UPDATE order_master
  SET    del_date = '30-8月-05'
  WHERE orderno <= 'o002';
  SAVEPOINT mark1;
  DELETE FROM order_master WHERE orderno = 'o002';
  SAVEPOINT mark2;
  ROLLBACK TO SAVEPOINT mark1;
  COMMIT;
• GRANT SELECT, UPDATE ON order_master
       TO MARTIN;
• GRANT UPDATE(qty_hand,re_level) ON itemfile
       TO MARTIN;
• GRANT SELECT ON vendor_master
        TO accounts WITH GRANT OPTION;
• REVOKE SELECT, UPDATE ON order_master FROM MARTIN ;
• SELECT itemdesc, max_level - qty_hand avble_limit
  FROM  itemfile
  WHERE p_category='spares';
• SELECT itemdesc, re_level
  FROM  itemfile
  WHERE qty_hand < max_level/2;
• SELECT orderno FROM  order_master
  WHERE del_date IN('15-5月-05','15-2月-05');
• SELECT vencode,venname,tel_no
  FROM vendor_master
  WHERE venname LIKE '%s';
• SELECT vencode,venname,tel_no
  FROM vendor_master
  WHERE venname LIKE 'S___l';
• SELECT * FROM order_master
  WHERE odate > '10-5月-05' AND del_date < '26-5月-05';
• SELECT orderno FROM order_master
  UNION
  SELECT orderno FROM order_detail;
• SELECT orderno FROM order_master
  UNION ALL
  SELECT orderno FROM order_detail;
• SELECT qty_hand,max_level FROM itemfile
  UNION
  SELECT qty_ord,qty_deld FROM order_detail
  ORDER BY 2;
• SELECT orderno FROM order_master
  INTERSECT
  SELECT orderno FROM order_detail;
• SELECT orderno FROM order_master
  MINUS
  SELECT orderno FROM order_detail;
• SELECT ('供应商'||venname||'的地址是 '||venadd1||' '       
       || venadd2 ||' '|| venadd3) address
  FROM vendor_master WHERE vencode='V001';
• SELECT del_date, ADD_MONTHS(del_date,2) FROM order_master;
• SELECT SYSDATE,LAST_DAY(SYSDATE) FROM dual;
• SELECT del_date, ROUND(del_date,'YEAR')
  FROM   order_master
  WHERE  vencode='V001';
• SELECT ROUND(DATE'2005-5-10', 'MONTH'),
         ROUND(DATE'2005-6-16', 'MONTH')
  FROM dual;
• SELECT NEXT_DAY(SYSDATE,'星期二') FROM dual;
• SELECT TRUNC(SYSDATE, 'YEAR') FROM dual;
• SELECT TRUNC(SYSDATE,'DAY') FROM dual;
• SELECT TRUNC(SYSDATE) FROM dual;
• SELECT EXTRACT(YEAR FROM SYSDATE) FROM dual;
• -- 字符函数
• select initcap('hello') from dual;
  select lower('FUN') from dual;
  select upper('sun') from dual;
  select ltrim( 'xyzadams','xyz') from dual;
  select rtrim('xyzadams','ams') from dual;
  select translate('jack','abcd' ,'1234') from dual;
  select replace('jack and jue' ,'j','bl') from dual;
  select instr ('worldwide','d') from dual;
  select substr('abcdefg',3,2) from dual;
  select concat ('Hello',' world') from dual;
• SELECT CHR(67) FROM dual;
• SELECT LPAD('function',15,'=') FROM dual;
• SELECT TRIM (LEADING 9 FROM 99998769789999) FROM dual;
• SELECT TRIM (TRAILING 9 FROM 99998769789999) FROM dual;
• SELECT TRIM (9 FROM 9999876789999) FROM dual;
• SELECT LENGTH('frances') FROM dual;
• SELECT orderno, DECODE(ostatus,'p','准备处理','c','已完成') 
  FROM order_master;
• -- 数字函数
  select abs(-15) from dual;
  select ceil(44.778) from dual;
  select sin(1.571) from dual;
  select cos(0) from dual;
  select sign(-32) from dual;
  select floor(100.2) from dual;
  select power(4,2) from dual;
  select mod(10,3) from dual;
  select round(100.256,2) from dual;
  select trunc(100.256,2) from dual;
  select sqrt(4) from dual;
• SELECT TO_CHAR(sysdate,'YYYY"年"fmMM"月"fmDD"日" HH24:MI:SS') FROM dual;
• SELECT TO_CHAR(itemrate,'C99999') FROM itemfile;
• SELECT TO_DATE('2005-12-06' , 'yyyy-mm-dd') FROM dual;
• SELECT SQRT(TO_NUMBER('100')) FROM dual;
• SELECT itemdesc, NVL(re_level,0) FROM itemfile;
• SELECT itemdesc,NVL2(re_level,re_level,max_level)
  FROM itemfile;
• SELECT itemdesc,NULLIF(re_level,max_level)
  FROM itemfile;
• SELECT AVG (re_level) FROM  itemfile
  WHERE p_category='accessories';
• SELECT MIN(max_level) FROM  itemfile
  WHERE p_category='spares';
• SELECT SUM(itemrate*max_level) FROM itemfile;
• SELECT * FROM itemfile;
• SELECT COUNT(*) FROM itemfile;
• SELECT COUNT(itemrate) FROM itemfile;
• SELECT COUNT(DISTINCT p_category) FROM itemfile;
• SELECT p_category,MAX(itemrate) FROM itemfile
  GROUP BY p_category;
• SELECT p_category,MAX(itemrate) FROM itemfile
  GROUP BY p_category
  HAVING p_category NOT IN ('accessories');
• SELECT ename, job, deptno, sal, ROW_NUMBER() OVER
    (ORDER BY sal DESC) AS SAL_RANK
  FROM SCOTT.EMP;
• SELECT ename, job, deptno, sal, ROW_NUMBER() OVER
    (PARTITION BY deptno ORDER BY sal DESC) AS SAL_RANK
  FROM SCOTT.EMP;
• SELECT ename, sal, comm, deptno,
       RANK() OVER (PARTITION BY deptno
  ORDER BY sal DESC, comm) RANK
  FROM scott.emp;
• SELECT d.dname, e.ename, e.sal, DENSE_RANK()
         OVER (PARTITION BY e.deptno ORDER BY e.sal DESC) DENSERANK
  FROM emp e, dept d
  WHERE e.deptno = d.deptno;