ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     17 Oct 2002  14:24:57
 To : Alexei Vi. Baikalov
 Subject : Re: STD_IN STD_OUT
 -------------------------------------------------------------------------------- 
 

 Alexei Vi. Baikalov wrote:
 
 > 
 > Попалась задача:
 > использую для коннекта в базу удаленный sqlplus
 > 
 > open (STD_OUT,"|/usr/bin/rsh -l oracle 192.168.0.1 
 > $ORACLE_HOME/bin/sqlplus -silent usr/pwd\@sid");
 > 
 > Делаю енвайр для селекта.
 > 
 > print STD_OUT "set pagesize 0 \n";
 > print STD_OUT "set heading off \n";
 > print STD_OUT "set feedback off \n";
 > print STD_OUT "set colsep \"    \" \n";
 > 
 > и наконец сам селект.
 > 
 > print STD_OUT "select * from table where code=18\;\n";
 > 
 > Дак вод!!! Как мне обрабатывать результат! !!!!!!!!!!!!!!!!!! В принципе!
 > 
 > И желательно построчно, потому как результаты бывают огромадными и 
 > пихать их в переменную некрасиво.
 > 
 > print STD_OUT "disconnect \;\n";
 > print STD_OUT "exit \;\n";
 > close STD_OUT;
 > 
 > DBI
 > DBD::Oracle ставить не предлагайте. :( Бьюсь уже пол года, не могу на 
 > БиЭсДю 3-ю поставить, на 4-ю ставится. И крутится.
 
 Hу если очень хочется стоя в лыжах в гамаке, то
 
 perldoc IPC::Open2
 perldoc IO::Select
 
 (в твоем частном случае, можно даже попытаться без select.
 Асинхронных ответов, по крайней мере тех, что не поместятся в
 буффер pipe не предвидится и deadlock-а не будет).
 
 Андрей
 
 P.S. А может все же DBD::Proxy хотя бы?
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    STD_IN STD_OUT   Alexei Vi. Baikalov   17 Oct 2002 13:25:07   Re: STD_IN STD_OUT   Andrey Sapozhnikov   17 Oct 2002 14:24:57