|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Valera Molyakov 2:5020/400 19 Sep 2000 10:29:18
To : All
Subject : Re: syswrite + STDIN
--------------------------------------------------------------------------------
Hi, Paul !
Paul Kulchenko <paulclinger@yahoo.com> сообщил в новостях
следующее:39C632DD.8287ACF4@yahoo.com...
> 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.
В том-то и беда что tell возвертает -1.
Что-же делать и как быть ?
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
