ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yury Kopyl                           2:5020/400     18 Dec 2002  15:57:53
 To : Dmitry Bezgodov
 Subject : Re: FDESC => STDOUT ???
 -------------------------------------------------------------------------------- 
 

 Hекто Dmitry Bezgodov  по поводу "FDESC => STDOUT ???" нашкрябал(а)
 следующее:
 
  DB> Привет гуру,
 
  DB> Как я могу переназначить вывод на другой дескриптор файла?
  DB> пример (неработающего) кода:
 
  DB> my $fout;
  DB> unless ( open ( FDESC, ">somefile")){
  DB>    $fout=FDESC;
  DB> }else {
  DB>    $fout=STDOUT;
  DB> }
  DB> ...
  DB> print $fout $message;
 
 Чем SELECT не устраивает?
 
 my $old_fh=SELECT(STDOUT);
 unless ( open ( FDESC, ">somefile")){
     SELECT(FDESC);
 }else {
     SELECT(STDOUT);
  };
 
 print "someting";
 
  Yury Kopyl aka hrg | http://id.totem.ru | [TEAM Пошло все на.... ]
 
 --- ifmail v.2.15dev5
  * Origin: IAC Samara-Internet, Ltd. (2:5020/400)
 
 

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