Как можно позиционировать STDIN?

[metton]

Как можно позиционировать STDIN?
Пытаюсь вот так:

my $qs;
read(STDIN, $qs, $ENV{\'CONTENT_LENGTH\'}-1);
print \'

[1]\'.$qs.\'

\';

seek(STDIN,0,1);

read(STDIN, $qs, $ENV{\'CONTENT_LENGTH\'}-23);
print \'

[2]\'.$qs.\'

\';

Не получается...


Заранее спасибо.

[Mog.]

А разве можно seek\'ом STDIN позиционировать?

[metton]

2Mog.
Вот я и хочу узнать можно ли seek-ом или вообще чем-нибудь?

[metton]

Как же всё-таки позиционировать STDIN?

[Mog.]

Сдается, что никак не позиционируется STDIN. Да и смысл то какой в этом ? Данные то там меняются непрерывно. Проще "позиционировать" полученные из этого потока данные.

[metton]

2Mog.
Вопрос возник когда я, считав, пост данные, попытался считать их ещё раз. Не получилось - понял, что указатель уже на eof. Пробовал функции, которые "убеждают" указатель, что eof еще не наступил. Всё равно не получилось.
Вопрос был чисто теоретический.
Естесственно, удобнее считать данные в переменную, а потом ей пользоваться.