1
我有一個xlsx文件sample.xlsx
存儲在一個大小約爲1,699 KB的遠程目錄中。 我已經嘗試了兩種流行的PL/SQL包(UTL_COMPRESS和AS_ZIP),分別將它們壓縮到gzip
和zip
。使用PL/SQL更好的文件壓縮包?
隨着下面使用AS_ZIP
的代碼,我已經將文件壓縮到1619 KB:
declare
g_zipped_blob blob;
l_file_name varchar2(100) := 'sample.xlsx';
l_directory varchar2(100) := 'EXT_TAB_DATA';
begin
as_zip.add1file(g_zipped_blob, l_file_name, as_zip.file2blob(l_directory, l_file_name));
as_zip.finish_zip(g_zipped_blob);
as_zip.save_zip(g_zipped_blob, l_directory, 'my2.zip');
dbms_lob.freetemporary(g_zipped_blob);
end;
隨着使用UTL_COMPRESS
下面的代碼(從原始post截取),我的文件壓縮到1618 KB:
DECLARE
in_filename VARCHAR2(100) := 'sample.xlsx';
l_directory varchar2(100) := 'EXT_TAB_DATA';
src_file BFILE;
v_content BLOB;
v_blob_len INTEGER;
v_file utl_file.file_type;
v_buffer RAW(32767);
v_amount BINARY_INTEGER := 32767;
v_pos INTEGER := 1;
BEGIN
src_file := bfilename(l_directory, in_filename);
dbms_lob.fileopen(src_file, dbms_lob.file_readonly);
v_content := utl_compress.lz_compress(src_file, 9);
v_blob_len := dbms_lob.getlength(v_content);
v_file := utl_file.fopen(l_directory,
in_filename || '.gz',
'wb');
WHILE v_pos < v_blob_len LOOP
dbms_lob.READ(v_content, v_amount, v_pos, v_buffer);
utl_file.put_raw(v_file, v_buffer, TRUE);
v_pos := v_pos + v_amount;
END LOOP;
utl_file.fclose(v_file);
EXCEPTION
WHEN OTHERS THEN
IF utl_file.is_open(v_file) THEN
utl_file.fclose(v_file);
END IF;
RAISE;
END;
雖然很小,但看起來UTL_COMPRESS
在文件大小上有更好的壓縮。 我想知道在Oracle提供的UTL_COMPRESS
上使用自定義AS_ZIP
是否有一些看不見的優勢?
謝謝。
簡單謝謝@APC!我會接受它作爲答案。你會推薦哪兩個? –
請注意'xslx'已經是壓縮格式。 – Vadzim