Question

perl运行时出现报错下面是源代码和报错内容，

open IN,"1CHR.txt";
open OUTemp1,'>',"OutPDB.txt";
while(<IN>){
if ($_=~m/^ATOM/){
#s/[A-Z]//g;
print OUTemp1 "$_";
}
}
close OUTemp1;
运行这个代码时出现readline() on closed filehandle IN at _tmp.pl line 6.这个报错怎么才能修整好。

Answer 1

首先你将这两句

open IN,"1CHR.txt";
open OUTemp1,'>',"OutPDB.txt";

改成
open IN, "1CHR.txt" or die "Can't read file";
open OUTemp1, ">OutPDB.txt" or die "Can't create OUT";

看看有没有报出甚麼错 ?

追问

报错内容：
Can't read file at _tmp.pl line 4.

追答

那就是 "1chr.txt" 不存在或者不存在於你执行 script 的目录.
再改为以下试试看

$in = "C:/...../1chr.txt" ;

die "File not exists" unless -e $in;
$out = "c:/..../OutPDB.txt" ;

open ( IN, $in ) or die "Can't read file";
open ( OUTemp1, ">$out") or die "Can't create OUT";

再看看有没有报甚麼错 ?

Answer 2

按照你的写法重新做了个模拟，没有发现问题，唯一可能出现的问题是你的第一个 句柄文件可能不不存在或者空或者没有指定路径 而无法正确读到数据。

Answer 3

这个应该是你的1CHR.txt 这个文件不存在，你可以确认一下文件名和路径。
你将你的脚本和1CHR.txt 放到同一个目录下运行试试