Question

perl open函数问题

程序如下：
use 5.010;
open FH,'<E:\perl1.txt' or die ("$!");
$file="$dir/perl1.txt";
$mytext=<FH>;
print "$mytext";
close FH;

结果就是 打印系统提示信息：no such file or directory.也就是$!,open失败。
我是在windows下运行的，E:\perl1.txt文件是存在的。不是perl软件方面问题，运行过其它程序。

Answer 1

open FH,'<E:\perl1.txt' or die ("$!");

应该改成

open FH, '<', 'E:/perl1.txt' or die ("$!");

 

过去，open函数可以像你那样使用，但会被人恶意使用，造成严重后果。所以Perl为了防止open函数的这一漏洞，要求三个参数。具体原因可以参考perl的open函数文档。

Answer 2

看上去还好嘛... 不如试试这样写怎样 ?

open FH, "E:/perl1.txt" or warn $!;
print <FH>;
close FH;

#如果不行, 再加下面一句
print `dir e: /b`;
# 看看是否真的有 perl1.txt

还有就是, 你在档案总管里是否已设成显示所有副档名? 会不会你改了个名叫 perl1.txt 档, 而其实是

perl1.txt.txt ? 你看图时有看到 .jpg 这类副档名吗 ?