....
.....
......
sm zh@______.com
df /Draft
df /Junkmail
sm dzt@_____.com
df /Draft
df /Junkmail
sm master@_______.com
mm 345 /Drafts
mm 344 /Drafts
mm 343 /Drafts
mm 342 /Drafts
df /Draft
df /Junkmail
sm jtj_yxxf@_________.cn
df /Draft
df /Junkmail
......
.....
....

[root@mailserver tmp]# pwd
/tmp
[root@mailserver tmp]# chmod 777 ./mail/
[root@mailserver tmp]# ll
总用量 12
drwxrwxrwx  2 root root 4096 10月 10 22:39 mail
srwxr-xr-x  1 root root    0  7月  1 14:43 mapping-root
drwxr-xr-x  3 root root 4096  9月 24 10:56 orion
drwx------  2 root root 4096 10月 10 22:24 ssh-coEvb25444
prw-------  1 root root    0  8月 19 17:49 vmware-root.0
[root@mailserver tmp]# cd mail/
[root@mailserver mail]# ls
delete_file
[root@mailserver mail]# chmod 666 delete_file
[root@mailserver mail]# ll
总用量 252
-rw-rw-rw-  1 root   root     244758 10月 10 22:58 delete_file

sys@mydb(10.168.0.202) SQL> grant create any directory to dcb_user2  /Grant succeeded.Elapsed: 00:00:00.07

create or replace directory mail_dir as '/tmp/mail/';create table delete_file
(line varchar2(200)
)
organization external
(type oracle_loaderdefault directory mail_diraccess parameters( records delimited by newlinefieldsreject rows with all null fields)location('delete_file')
)
reject limit unlimited;

create table mail_stat
( account varchar2(50) , mail int
);

CREATE OR REPLACE PROCEDURE delete_state
ISv_line varchar2(200);v_account varchar2(50);CURSOR cur is select line from delete_file;BEGIN open cur;loopfetch cur into v_line;EXIT when cur%NOTFOUND; if instr(v_line,'sm ')=1 thenv_account := REPLACE(v_line,'sm ','');insert into mail_stat (account,mail) values ( v_account , 0 );end if;if instr(v_line,'mm ')=1 thenupdate mail_stat set mail=mail+1 where account=v_account;end if;END LOOP;CLOSE cur;COMMIT;
END delete_state ;