ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Paul Kulchenko                       2:5020/400     18 Sep 2000  19:18:31
 To : All
 Subject : Re: syswrite + STDIN
 -------------------------------------------------------------------------------- 
 

 Hi, Valera!
 
 Valera Molyakov wrote:
 
 > Читаю со стандартного входа
 >     read(STDIN,$buf,$ENV{'CONTENT_LENGTH'})
 > Проблем нет.
 > Hо в некоторых случаях мне необходимо еще раз перечитать тоже самое из него,
 > вариант сохранить в переменных не подходит.
 > Так вот как переставить указатель ?
 > пробовал возвращать указатель sysseek seek, снова записать то что прочитал
 > print syswrite
 
 ПИСАТЬ туда не получится, поскольку файл открыт только для чтения.
 Следующая конструкция будет работать
 $p = tell(STDIN);                    # запомнили позицию
 read(STDIN, $buf, 100); print $buf;  # прочитали 
 seek(STDIN, $p, 0);                  # обратно
 read(STDIN, $buf, 100); print $buf;  # прочитали тоже самое
 
 perldoc на соответствующие функции (tell, seek)
 
 Best wishes, Paul.
 --- ifmail v.2.15dev5
  * Origin: Trans World Airlines (TWA) (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    syswrite + STDIN   Valera Molyakov   18 Sep 2000 16:06:11   Re: syswrite + STDIN   Paul Kulchenko   18 Sep 2000 19:18:31   Re: syswrite + STDIN   Valera Molyakov   19 Sep 2000 10:29:18   Re: syswrite + STDIN   Paul Kulchenko   19 Sep 2000 23:06:43