,

Отладка с помощью DBMS_PIPE

четверг, 6 августа 2009 г. Оставить комментарий

Для отладки и логирования я достаточно часто применяю пакет dbms_pipe, этот способ имеет свои преимущества и недостатки. Обычно для отладки применяется пошаговое выполнение, это удобно, но отладка должна быть разрешена, пакет должен быть скомпилирован с флажком debug, и код можно выполнить в своей сессии.

Для отладки можно использовать dbms_output, но результат виден только после выполнения всего кода, и также должна быть возможность выполнить код из своей сессии.

Также можно использовать любую таблички и в автономной транзакции писать туда служебную отладочную информацию – чаще всего так и поступаем. Единственное, чем мне не нравится этот способ – надо постоянно селектить табличку на предмет появления там новых строк.

Поэтому я достаточно часто использую передачу данных через pipe. Данные передаются не транзакционно, мы их получаем в реальном времени. Но есть и недостатки: dbms_pipe нельзя использовать в RAC, и возможны случаи, когда буфер может быть переполнен.

Сначала надо дать гранты на выполнения пакета dbms_pipe.


grant execute on dbms_pipe to myuser;

Создадим 2 метода для отсылки и приема сообщений.



create or replace package custom_pipe is

-- Author : USER
-- Purpose : работаем с pipe
-- отправить сообщение через pipe
procedure SendMessage( psPipe in varchar2
,psMessage in varchar2
);

-- получить сообщение через pipe
function ReceiveMessage( psPipe in varchar2
,psKey in varchar2
,psMessage out varchar2
) return integer;

end custom_pipe;

/



create or replace package body custom_pipe is

procedure SendMessage( psPipe in varchar2
,psMessage in varchar2
)
is
i integer;
begin
dbms_pipe.pack_message(psMessage);
i := dbms_pipe.send_message(psPipe, 30);
if i != 0 then
raise_application_error(-20101, 'Ошибка при посылке сообщения клиенту!');
end if;
end SendMessage;

function ReceiveMessage( psPipe in varchar2
,psKey in varchar2
,psMessage out varchar2
) return integer
is
call_stat integer := 0;
next_item integer := 0;
temp_varchar2 VARCHAR2(2000);
temp_date DATE;
temp_number NUMBER;
temp_rowid ROWID;
temp_raw RAW(2000);
vnResult integer := 0;
begin
psMessage := '';
call_stat := DBMS_PIPE.RECEIVE_MESSAGE(psPipe, 0);
if (call_stat = 0) then
next_item := DBMS_PIPE.NEXT_ITEM_TYPE;
while next_item > 0 loop
if next_item = 9 then
DBMS_PIPE.UNPACK_MESSAGE(temp_varchar2);
elsif next_item = 6 then
DBMS_PIPE.UNPACK_MESSAGE(temp_number);
temp_varchar2 := TO_CHAR(temp_number);
elsif next_item = 11 then
DBMS_PIPE.UNPACK_MESSAGE_ROWID(temp_rowid);
temp_varchar2 := ROWIDTOCHAR(temp_rowid);
elsif next_item = 12 then
DBMS_PIPE.UNPACK_MESSAGE(temp_date);
temp_varchar2 := TO_CHAR(temp_date,'DD.MM.YYYY HH24:MI:SS');
elsif next_item = 23 then
DBMS_PIPE.UNPACK_MESSAGE_RAW(temp_raw);
temp_varchar2 := RAWTOHEX(temp_raw);
else
temp_varchar2 := '';
-- temp_varchar2 := 'Не верный тип элемента: '||TO_CHAR(next_item);
end if;
psMessage := substr(psMessage || temp_varchar2, 1, 4000);
next_item := DBMS_PIPE.NEXT_ITEM_TYPE;
if (upper(temp_varchar2) = upper(psKey) ) then
vnResult := 1;
exit;
end if;
end loop;
elsif (call_stat = 1) then
null;
elsif (call_stat in (2,3) ) then
raise_application_error(-20100, 'Ошибка при получении сообщения!');
end if;
return(vnResult);
end ReceiveMessage;

end custom_pipe;

Воспользуемся пакетом. В одной сессии будем передавать сообщения, а в другой получать.



SQL> declare
vspipe varchar2(30) := 'TEST_PIPE';
begin
for i in 1 .. 20
loop
custom_pipe.sendmessage(pspipe => vspipe,
psmessage => 'Текущее время: ' || to_char(sysdate, 'dd.mm.yyyy hh24:mi:ss'));
dbms_output.put_line('Текущее время: ' || to_char(sysdate, 'dd.mm.yyyy hh24:mi:ss'));
-- задержка 4 секунды
dbms_lock.sleep(3);
end loop;
end;
/

Для получения сообщении можно воспользоваться функцией ReceiveMessage, я так и делаю, когда надо передать сообщение в другую сессию. Но для отладки я пользуюсь возможностью, которая предоставляется средой разработки “PL/SQL Developer” от Allround Automations. Выбираем в меню “Tools->Event Monitor…” и настраиваем на прослушивание своего pipe.


image


0 коммент. »

Оставьте Ваш комментарий