How to use UTL_COMPRESS package to compress the txt file

admin

How to use UTL_COMPRESS package to compress the txt file and create gz file in unix with oracle 11 g?

below code is working fine for compress the large size file as well.

1. DECLARE
   
2.    in_filename VARCHAR2(100);
   
3.    src_file   BFILE;
   
4.    v_content  BLOB;
   
5.    v_blob_len INTEGER;
   
6.    v_file     utl_file.file_type;
   
7.    v_buffer   RAW(32767);
   
8.    v_amount   BINARY_INTEGER := 32767;
   
9.    v_pos      INTEGER := 1;
   
10. BEGIN
    
11.     in_filename := 'Test.txt';
    
12.    src_file := bfilename('DIR_UTL_COM_TEST', in_filename);
    
13.    dbms_lob.fileopen(src_file, dbms_lob.file_readonly);
    
14.    v_content  := utl_compress.lz_compress(src_file, 9);
    
15.    v_blob_len := dbms_lob.getlength(v_content);
    
16.    v_file     := utl_file.fopen('DIR_UTL_COM_TEST',
    
17.                                 in_filename || '.gz',
    
18.                                 'wb');
    
19.    WHILE v_pos < v_blob_len LOOP
    
20.       dbms_lob.READ(v_content, v_amount, v_pos, v_buffer);
    
21.       utl_file.put_raw(v_file, v_buffer, TRUE);
    
22.       v_pos := v_pos + v_amount;
    
23.    END LOOP;
    
24.    utl_file.fclose(v_file);
    
25. 
    
26. EXCEPTION
    
27.    WHEN OTHERS THEN
    
28.       IF utl_file.is_open(v_file) THEN
    
29.          utl_file.fclose(v_file);
    
30.       END IF;
    
31.       RAISE;
    
32. END;

複製代碼