Perl学习笔记之文件操作（perl常用函数）一篇读懂

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;

my $filename=’test.txt’;
if(open(MYFILE,$filename))
{
my @myfile=<MYFILE>; #如果要读取多行，用此方法，如果只读取一行为:$myfile=<>;
my $count=0; #要读取的行数，初始值为0
printf “I have opened this file: %s\n”, $filename;
while($count < @myfile){ #遍历
print (“$myfile[$count]\n”); #注意此种写法.
$count++;
}
close(MYFILE);
}
else{
print “I can’t open this file!”;
}
exit;