程嶏清单12-13.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 11 行

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