Perl文件操作学习笔记

最新推荐文章于 2024-10-10 14:47:43 发布

lctm2005

最新推荐文章于 2024-10-10 14:47:43 发布

阅读量518

点赞数

文章标签： perl file input

本文链接：https://blog.csdn.net/lctm2005/article/details/7487411

版权

if (open(MYFILE, "E:\\Perl\\Code\\string.pl")) {
print("success open the file\n");
############################################
#output all of MYFILE's content 1
############################################
print(<MYFILE>);
print("=========1=========\n");
############################################
#output all of MYFILE's content 2
############################################
@array = <MYFILE>;
foreach $i (@array) {
print ($i);
}
print("========2==========\n");
############################################
#output the first line of MYFILE's content
############################################
$line = <MYFILE>;
print($line);
print("========3==========\n");
}else{
die ("cannot open input file E:\Perl\Code\string.pl\n");
};
# <MYFILE>的左值其实是个指针，如果运行了 print(<MYFILE>); 剩下的两步将每人任何输出，因为指针已经走到了文件尾。
# 运行了@array = <MYFILE>;也是一样的， print($line);将不会有任何输出