这个perl程序怎么失败啊

zljjg2000

准备在文件 e:\sss-file\ok\plm-arp-config.txt中的每一行下面添加一行“hello”，程序arp.pl如下：

#!C:\strawberry\perl\bin\perl -w
open(PP,"E:\/sss-file\ok\/plm-arp-config.txt");
open(FP,">>E:\/sss-file\ok\/plm-arp-config-new");
while(<PP>)
{
       
$line=$_;
print  FP $line."\n";
print  FP “hello\n"';
}
close(PP);
close(FP);

但出错信息：
readline() on closed filehandle PP at E:/sss-file/ok/arp.pl line 4.

不知什么原因啊

rubyish

试试:

1. "E:\\sss-file\\ok\\plm-arp-config.txt"
   
2. E:\\sss-file\\ok\\plm-arp-config-new

复制代码

zljjg2000

谢谢楼上，我改了一下程序，但还是一样的错误，我将程序修改成如下了：

#!C:\strawberry\perl\bin\perl -w
#open(PP,"E:\\plm-arp-config.txt")|| die $!;
open(PP,"E:\tmp\\plm-arp-config.txt") || die $!;
open(FP,">>E:\tmp\\plm-arp-config-new") || die $!;
while (<PP>)
{
print  FP $_."\n";
}
close(PP);
close(FP);

程序执行后，结果是：
E:\tmp>arp.pl
Invalid argument at E:\tmp\arp.pl line 3.

E:\tmp>

看不出是哪个参数错了

qq27898

楼主问题解决了？

zljjg2000

还没有，就是参考给的方法，将如下：
open(PP,"E:\/sss-file\ok\/plm-arp-config.txt");

改成了
open(PP,"E:\\sss-file\\ok\\plm-arp-config.txt");

读取目录的问题解决了，应该是s,o,p之前若有\，则会产生其他含义，谢谢楼上。
但还是有上面的错误。

zljjg2000

啊，解决了！！
原来open(PP,"E:\tmp\\plm-arp-config.txt") || die $!;
需要更改成
open(PP,"E:\\tmp\\plm-arp-config.txt") || die $!;
即t之前加上\，也会有其他含义，所以也需要\\


谢谢楼上rubyish了！