程嶏清单12-13.txt

< linux网络编程工具>>配套源码

sub write_to_stdout 
{
          local ($savefile, $saveformat);
          $savefile = select(STDOUT);
          $saveformat = $~;
          $~ = "MYFORMAT";
          write;
          $~ = $saveformat;
          select($savefile);
}