perl select 函数

perl 的select 函数

1 作用：改变系统默认输出的文件句柄

2 语法：

     select FILREHADL

       select

       select RBITS,WBITS, EBITS,TIMEOUT

 

3 定义和用法
       设置输出的文件句柄（FILEHANDLER）为默认文件句柄（default FILEHANDLER）。指定文件句柄，然后返回当前的默认文件句柄的名称。
      select（RBITS，WBITS，EBITS，TIMEOUT）调用系统功能的select()使用特定位数。在select函数设置处理非管制非阻塞I / O请求。返回的数字等待的I / O的文件句柄标量情况下，或文件句柄和等待的时间在清单中剩余的数量

 

4 返回值

1.       如果指定了FILEHANDLER则返回以前默认的文件句柄（FILEHANDLER）

2.       如果没有指定FILEHANDLER则返回当前默认的文件句柄（FILEHANDLER）

 

例子

#! use/bin/perl -w

1.  open(a_fh,">a.txt");

2.  $old_fh= select(a_fd);

3.  print "This is sent to $old_fh/n";

4.  print $old_fh;

5.  select($old_fh);

6.  print("This is sent to STDOUT./n");

 

第一行（1）打开文件句柄a_fh，指定文件为a.txt

第二行（2）使用select（）设置默认的文件句柄为a_fh，并且返回以前默认的文件句柄

第三行（3）将“This is sent to $oldHandle/n”打印到FILE句柄指示的文件“a.txt”中（可以到a.txt中查看具体的信息）

第四行（4）打印出以前默认的文件句柄（STDOUT）

第五行（5）将文件句柄设置为以前默认的文件句柄（STDOUT）

第六行（6）将“This is sent to STDOUT./n”打印到以前默认文件句柄（STDOUT）中