本节内容：
perl文件读写、perl文件操作的方法。
一般情况，对文件操作，也就是读、写操作。
本节学习下perl是怎样对文件进行读写操作的。
1，perl 打开文件
语法：open(filehandle,filename)，其中filehandle是一个标志，也就是类似PHP中的fopen后的$handle;filename是文件名，路径可为相对或者绝对路径。
复制代码 代码示例:
#!c:/perl/bin/perl
my $filename = 'test.txt';
if(open(MYFILE,$filename))
{
print('i can open this file');
close(MYFILE);
}
else
{
print('i can' open this file');
}
exit;
文件用完以后，别忘了close掉。
2，perl 读取文件内容
在打开文件以后，我们可以读取文件里面的内容出来，直接用<MYFILE>即可。
如果只是读取第一行的内容，可以用变量$line=<MYFILE>;如果要读取全部的内容，那么就用数组@myfile = <MYFILE>;
复制代码 代码示例:
#!c:/perl/bin/perl
my $filename = 'test.txt';
if(open(MYFILE,$filename))
{
print "i have opened this filen";
#print MYFILE 'i can open this file'."n" ;
@myfile = <MYFILE>;
$count = 0;
while($count < @myfile)
{
print("$myfile[$count]n");
$count++;
}
close(MYFILE);
}
else
{
print('i can' open this filen');
}
exit;
3，perl 写文件
写文件有2种形式，一种是覆盖写，一种是追加写。
覆盖的话，会把原来的内容清空，而追加则不会。
如何去写是根据打开文件来判断的。如：open(MYFILE,>filename)形式打开，则在写文件时会清空原来的内容；
如果是open(MYFILE,>>filename)形式打开，则不会清空。
复制代码 代码示例:
#!c:/perl/bin/perl
my $filename = 'test.txt';
if(open(MYFILE,">>".$filename))
{
print "i have opened this filen";
print MYFILE "i can open this filen";
close(MYFILE);
}
else
{
print('i can' open this filen');
}
exit;
注意，print函数写文件时，有2个参数，第一个参数是MYFILE，也就是打开的文件，然后跟着的参数是写入文件的内容。
文件操作除了以上的读写外，还有状态判断什么的，暂时不介绍了，需要用时查查即可。
