oracle数据库的表数据导出为csv文件

 今天有朋友的同学问起我怎么把oracle数据库的表数据导出为csv文件？当然用TOAD查询数据，并选择save as,并选择other delim char为“，”然后粘出数据到.dat即可.可是用pl/sql怎么实现？我也没做过。所以就google了一下。找到办法，如下：

1.先创建如下function,用以保存表数据为csv文件：
create or replace function  dump_csv( p_query     in varchar2,
                                      p_separator in varchar2
                                                    default ',',
                                      p_dir       in varchar2 ,
                                      p_filename  in varchar2 )
return number
AUTHID CURRENT_USER
is
    l_output        utl_file.file_type;
    l_theCursor     integer default dbms_sql.open_cursor;
    l_columnValue   varchar2(2000);
    l_status        integer;
    l_colCnt        number default 0;
    l_separator     varchar2(10) default '';
    l_cnt           number default 0;
begin
    l_output := utl_