linux社区爱心援助Linux认证系列教程业界动态站务新闻公司招聘建议留言网址大全LPI专题CISCO专题
设为首页
加入收藏
管理团队
JSP  
JAVA  
PERL  
 您的位置:首页 > 开发语言 > perl >
栏目导栏
  php
  JSP
  ASP
  asp.net
  JAVA
  c/c++/c#
  perl
  JavaScript
  Basic
  Delphi
资料搜索
热门文章
·perl入门学习指南
·perl入门教程:Perl 的变量
·Perl文件及目录操作
·perl入门教程:正则表达式
·perl入门教程:Perl的语法与C语
·perl入门教程:Perl概述
·Perl常用系统函数
·perl中传递和存储文件句柄
·perl 学习笔记
·perl入门教程:Perl 程序的属性
·Perl命令行应用介绍
·Perl连接Oracle数据库的方法
·curl+perl的自动MAIL报警程序
·Perl的基本输入输出
·使用 perldoc 找文档
最新文章
·perl 学习笔记
·Perl 特殊变量
·perl Base64码的获取
·perl 父子进程的数据库连接继承
·工作中的实用 perl 脚本
·perl中传递和存储文件句柄
·curl+perl的自动MAIL报警程序
·Perl类包的动态调用
·使用open创建的管道进行父子进
·perl 执行一个系统命令(svn in
·windows平台下根据可执行文件名
·关联数组(hash)
·Perl语言在风险评估的系统基础
·在Perl/CGI中使用模板
·PERL CGI 常见问题
Google
 
perl中传递和存储文件句柄
[ 作者:  加入时间:2007-11-09 10:40:55  来自:Linux联盟收集整理 ]
为了将一个文件句柄转换为typeglob引用,只需在其名字前加"\*"dPTLinux联盟
$fh=\ *MY_FH;dPTLinux联盟
dPTLinux联盟
typeglob引用能够直接传给subroutinedPTLinux联盟
hello(\*MY_FH);dPTLinux联盟
也能被subroutine返回dPTLinux联盟
my $fh=get_fh();dPTLinux联盟
sub get_fh {dPTLinux联盟
    open (FOO, "foo.txt") or die "foo: $!";dPTLinux联盟
    returen \*FOO;dPTLinux联盟
}dPTLinux联盟
dPTLinux联盟
查看一个句柄是否有效dPTLinux联盟
使用fileno()函数dPTLinux联盟
$integer=fileno(FILEHANDLE)dPTLinux联盟
fileno()函数以字符串的形式,typeglob形式或者typeglob引用形式接受句柄。如果句柄有效,返回文件句柄的文件描述符。STDIN STDOUT STDERR描述符为0 1 2,其他文件句柄具有大于3的文件描述。如果没有有效句柄,fileno()返回undef值。dPTLinux联盟
die="not a filehandle" unless defined fileno($fh);dPTLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论
评论】【加入收藏夹】【 】【打印】【关闭
※ 相关链接
 ·curl+perl的自动MAIL报警程序  (2007-11-09 10:39:00)
 ·Perl类包的动态调用  (2007-11-09 10:38:30)
 ·perl 执行一个系统命令(svn info),发一封邮件  (2007-11-09 10:37:11)
 ·windows平台下根据可执行文件名杀掉进程的perl代码段  (2007-11-09 10:36:33)
 ·Perl语言在风险评估的系统基础信息采集工作中的应用  (2007-10-29 11:21:11)
 ·在Perl/CGI中使用模板  (2007-10-11 17:35:11)
 ·PERL CGI 常见问题  (2007-10-11 17:34:39)
 ·perl写CGI时出现500号错误总结  (2007-10-11 17:33:28)
 ·Perl编写CGI时需要注意问题  (2007-10-11 17:32:44)
 ·Perl CGI编程安全点滴  (2007-10-11 17:31:59)