Question

关于perl中文件句柄的问题

#!/usr/bin/perl -w
if(open (MYFILE,"hao.txt") or die){
}else{print "not open";
exit (1)};
为什么打不开文件呢,exit(1)又是什么意思呢?

Answer 1

open (MYFILE,"hao.txt") 是打开当前目录下的文件hao.txt，如果你当前目录下没有这个文件就无法打开，就会输出 not open。
exit(1)就是退出了。exit 0 可以告知你的程序的使用者：你的程序是正常结束的。如果 exit 非 0 值，那么你的程序的使用者通常会认为你的程序产生了一个错误。

追问

后面的1是什么意思呢?

追答

1就是非0啊，就是说明你的程序出了一个错误，1你可以换成任何非0的值。perl里面没有true或false布尔量，只能用0和非0来代替

追问

那我写程序的时候怎么知道程序对不对 能不能在exit后面不加东西?呵呵 不好意思哈

追答

一般写程序的时候，你就加判断啊，如果对了输出什么，如果错了输出什么。exit后面必须加个值。
如果你是想检查perl程序有没有写错的话，你可以运行它啊，有错误的时候会提示你什么地方不对的啊。

追问

还有我运行程序的时候出现了这样的错误怎么解决呢
readdir() attempted on invalid dirhandle DH at ptransfer line 16.
closedir() attempted on invalid dirhandle DH at ptransfer line 20.
谢谢你了

追答

希望你能贴出代码

追问

opendir(DH,"$dir");

my(@total,$i);

$i=0;

foreach (readdir DH){

$total[$i]=$_;

$i++;

}

closedir DH;
这是其中一部分 代码很长

追答

不好意思，我调不出你的错误，不过这个错误应该没有影响你的运行吧。你贴出的代码，我读文件并输出没有问题。
你的$dir值是多少啊

追问

有500多条序列总共..

追答

你先把序列减少点，在closedir DH;之前加一段print @total;看看输出有没有问题啊。
一般检错在关键点加点输出语句，检查每步得到的结果是否是想要的。

Answer 2

看看对应目录下有没有这个文件
这样写else是不能执行的会被die获得然后退出
exit是程序的返回值，一般0认为正常非0出现异常