File content retrive/view problem using DBMS_LOB...?

Question

Below this procedure working fine but getting buffer length/file content display problem...
CREATE OR REPLACE Procedure READ_FILE_LOB_tmp IS
l_dir CONSTANT VARCHAR2(30) := 'READ_LOB_DIR';
l_fil CONSTANT VARCHAR2(30) := 'testfile.txt';
l_sen CONSTANT RAW(100) := UTL_RAW.CAST_TO_RAW(CHR(10));
l_loc BFILE;
l_pos NUMBER := 1;
l_sum BINARY_INTEGER := 0;
l_buf VARCHAR2(400);
l_end NUMBER;
l_getlength NUMBER;
l_ret BOOLEAN := FALSE;
BEGIN
l_loc := BFILENAME(l_dir, l_fil);
l_getlength := DBMS_LOB.getlength(l_loc);
l_ret := DBMS_LOB.FILEEXISTS(l_loc) = 1;
IF (l_ret) THEN
DBMS_LOB.OPEN(l_loc, DBMS_LOB.LOB_READONLY);
LOOP
l_end := DBMS_LOB.INSTR(l_loc, l_sen, l_pos, 1);
IF l_end >= l_getlength THEN
EXIT;
END IF;
l_sum := l_end - l_pos;
DBMS_LOB.READ(l_loc, l_sum, l_pos, l_buf);
dbms_output.put_line(UTL_RAW.CAST_TO_VARCHAR2(l_buf));
l_pos := l_pos + l_sum + 1;
END LOOP;
DBMS_LOB.CLOSE(l_loc);
END IF;
END;
My file content:
Test Content1
Test Content2
Test Content3
Test Content4
Test Content5
When i run this procedure, get the output like below format:
Test Content1
Test Content2
Test Content3
Test Content4
Test Content5
But I want to display as per file content format...

Answer 1

I changed the code like...
CREATE OR REPLACE Procedure READ_FILE_LOB IS
l_dir CONSTANT VARCHAR2(30) := 'READ_LOB_DIR';
l_fil CONSTANT VARCHAR2(30) := 'testfile.txt';
l_seb CONSTANT RAW(100) := UTL_RAW.CAST_TO_RAW(CHR(32));
l_sen CONSTANT RAW(100) := UTL_RAW.CAST_TO_RAW(CHR(10));
l_loc BFILE;
l_pos NUMBER := 1;
l_sum BINARY_INTEGER := 0;
l_buf VARCHAR2(4000);
l_end NUMBER;
l_ret BOOLEAN := FALSE;
l_getlength NUMBER;
BEGIN
l_loc := BFILENAME(l_dir, l_fil);
l_getlength := DBMS_LOB.getlength(l_loc);
--dbms_output.put_line(l_getlength);
If l_getlength > 0 then
l_ret := DBMS_LOB.FILEEXISTS(l_loc) = 1;
IF (l_ret) THEN
DBMS_LOB.OPEN(l_loc, DBMS_LOB.LOB_READONLY);
LOOP
l_end := DBMS_LOB.INSTR(l_loc, l_sen, l_pos, 1);
IF l_end = 0 THEN
l_sum := l_getlength - l_pos + 1;
DBMS_LOB.READ(l_loc, l_sum, l_pos, l_buf);
dbms_output.put_line(UTL_RAW.CAST_TO_VARCHAR2(l_buf));
EXIT;
END IF;
l_sum := l_end - l_pos;
DBMS_LOB.READ(l_loc, l_sum, l_pos, l_buf);
DBMS_LOB.TRIM(l_buf, (l_sum * 2) - 2);
dbms_output.put_line(UTL_RAW.CAST_TO_VARCHAR2(l_buf));
l_pos := l_pos + l_sum + 1;
END LOOP;
DBMS_LOB.CLOSE(l_loc);
END IF;
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Error:' || SQLERRM);
DBMS_LOB.CLOSE(l_loc);
END;
Now its working fine with my format