информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Spanning Tree Protocol: недокументированное применениеПортрет посетителяСтрашный баг в Windows
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / web building
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Совсем забыл предупредить. 16.07.05 23:37  Число просмотров: 3455
Автор: J'JF <Dmytro Volhushyn> Статус: Elderman
<"чистая" ссылка>
Перед манипуляциями с $buffer (после вывода в него всего, что нужно) STDOUT нужно закрыть от греха подальше (либо сразу восстанавливать STDOUT в прежнем виде). Иначе могут возникнуть всякие неприятные моменты. В общем делать нужно примерно так:
my $buffer;

open my $oldout, ">&STDOUT";    #создаем копию STDOUT

close STDOUT;
open(STDOUT, '>',\$buffer);
print "qwerty";
close STDOUT

{$buffer = "Buffer= ".$buffer;} #Здесь обрабатываем переменную $buffer

open STDOUT, ">&", $oldout;     #восстанавливаем STDOUT
print STDOUT $buffer;           #Содержимое $buffer уйдет пользователю

---

Просто нежелатеьлно манипулировать с $buffer, пока он ассоциирован с STDOUT - могут возникнуть накладки, разобраться в которых без ста грамм нереально :)
Например, меня поставило в тупик следующее:
my $buffer;

open my $oldout, ">&STDOUT";    #создаем копию STDOUT

close STDOUT;
open(STDOUT, '>',\$buffer);
print "qwerty";

{$buffer = "Buffer= ".$buffer;} #Здесь обрабатываем переменную $buffer

print "aaa";

open STDOUT, ">&", $oldout;     #восстанавливаем STDOUT
print STDOUT $buffer;           #Содержимое $buffer уйдет пользователю

---


и получаем на выходе:

Bufferaaawerty

Кто-нибудь объяснит мне, отчего "aaa" залетело не в конец $buffer, а в его середину, да еще и с заменой трех символов?
<web building> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach