perl 文件操作总结
作者：
一、打开、关闭文件
open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：
if (open(MYFILE, "myfile"))
{
# here is what to do if the file opened successfully
}
当文件操作完毕后，用close(MYFILE); 关闭文件。
读：open(文件句柄，"<文件名") open(文件句柄，"文件名") 前提文件必须已经存在，否则会返回0，出错信息在!中
写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，!中有出错信息。
追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。
读写：open(文件句柄,"+<文件名")，通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。
二、读文件
语句line = <MYFILE>;从文件中读取一行数据存储到简单变量line中并把文件指针向后移动一行。
语句@array = <MYFILE>;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。
主要使用以下三个函数：
1__VE_ITEM__Ø tell函数
函数tell用来确定文件中当前位置（亦即第一条记录后的那个字节）。Tell返回的值也是记录长度的字节数。
length = tell ( FILE );
如一条记录有3个字节长度，字节0，1和2。因而，文件中的当前位置是3，这就是一条记录的长度。
1__VE_ITEM__Ø seek函数
如果记录的长度已知，函数seek可用于查找文件中的任何记录。
函数seek接受3个参数：filename、offset和method。
Offset是在文件中确定新的当前位置时，所需移动的字节数。这个数一般可以这样计算：所需跳过的记录数乘以记录的字节数。
Method指出要开始查找的位置：
0表示从文件开始处计算；
1表示从当前位置开始计算；
2表示从文件结束出开始计算（这种情况下，offset一般为负数）。
例如：
seek ( FILE, 5*length, 0 )
执行后，他会使用计算式5*length和method为0来跳过文件的前5条记录，把第6条记录作为文件的当前位置
1__VE_ITEM__Ø truncate函数
truncate函数接收两个参数：一个文件句柄和一个文件字节位置。它从文件字节处开始移除记录，直到文件结束。
Perl字符串处理函数
Perl字符串处理函数index
调用语法position=index(string,substring,position);
解说返回子串substring在字符串string中的位置，如果不存在则返回-1。参数position是可选项，表示匹配之前跳过的字符数，或者说从该位置开始匹配。
Perl字符串处理函数rindex
调用语法position=rindex(string,substring,position);
解说与index类似，区别是从右端匹配。
Perl字符串处理函数length
调用语法num=length(string);
解说返回字符串长度，或者说含有字符的数目。
Perl字符串处理函数pos
调用语法offset=pos(string);
解说返回最后一次模式匹配的位置。
Perl字符串处理函数substr
调用语法substr(expr,skipchars,length)
解说抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，或者说从位置skipchars开始抽取子串（第一个字符位置为0），子串长度为length，此参数可忽略，意味着取剩下的全部字符。
当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。
Perl字符串处理函数study
调用语法study(scalar);
解说用一种内部格式提高变量的访问速度，同一时刻只对一个变量起作用。
Perl字符串处理函数lc
uc
调用语法retval=lc(string);
retval=uc(string);
解说将字符串全部转换成小/大写字母。
Perl字符串处理函数lcfirst
ucfirst
调用语法retval=lcfirst(string);
retval=ucfirst(string);
解说将第一个字母转换成小/大写。
Perl字符串处理函数quotameta
调用语法newstring=quotemeta(oldstring);
解说将非单词的字母前面加上反斜线(\\)。
语句：string=quotemeta(string);
等效于：string=~s/(\\W)/\\\\1/g;
常用于模式匹配操作中，确保字符串中没有字符被看作匹配操作符。
Perl字符串处理函数join
调用语法join(joinstr,list);
解说把字符串列表(数组)组合成一个长的字符串，在每两个列表元素间插入串joinstr。
Perl字符串处理函数sprintf
调用语法sprintf(string,fields);
解说与printf类似，区别是结果不输出到文件，而作为返回值赋给变量。
例子num=26;
outstr=sprintf("%d=%xhexadecimalor%ooctal\",num,num,num);
print(outstr);
结果输出26=1ahexadecimalor32octal