Perl模块之Tie::File

原文：http://hi.baidu.com/mylongwalk/blog/item/004df0220cc2cc4dad34dea0.html

perl的Tie::File模块真是与乎寻常的强大

Tie::File:  
             Tie::File - Access the lines of a disk file via a Perl array: 将一个file和array tie起来，对array所做的任何操作都会同步反映到file上，等同于对文件进行了操作。

注意：Tie::File模块不适用于处理存放大量短小记录的文件！！

    这里所说的记录型文件，是指文件读写时的最小单位是记录而不是通常的字节。数据记录之间以记录分隔符隔开，故要求文件有效数据的内容不会与记录分隔符相混淆。通常我们使用的文本文件就属于记录型文件，它的记录分隔符在win32下是\r\n序列，在unix下则是\n。对于记录型文件，Perl提供了一个模块Tie::File将文件同一个数组关联起来，对数组进行操作就等价于对文件本身进行操作，数组内容所有的改变都会立即反映在文件中。更令人兴奋的是同文件相关的这个数组是一个“虚拟”数组，本身并不会占用多少空间，因此即使操作数以GB计的文件也十分轻松。其用法如下：

use strict;                                                                      
use warnings;                                                                    
use Tie::File;                                                                   

my @lines; # 文件关联数组                                                        
my $filename='./test.dat'; # 记录文件名                                          

tie(@lines,'Tie::File',$filename) or die; # 将记录文件同数组关联，默认为文本型文件
                                          # 记录分隔符使用"\r\n"或"\n"           

$lines[0]="Hello"; # 这里对数组内容的操作就直接反映到文件中去了                  
$lines[1]="world!"; # 增加一条新记录                                             
splice(@lines,1,0,"insert another line"); # 在老记录之间插入记录                                                     
delete $lines[0]; # 删除记录                                                     

untie(@lines); # 解除文件同数组的关联                                            

这就是对文本文件的一系列操作，可以看出该模块使用起来十分灵活简便。除此之外模块还有几个选项可以调整细节行为，常用选项如下：

    1. recsep
    类似于$/, 用来指定记录分隔符，分隔符可以是任意字符串。每条记录都不包含分隔符，但写入文件时都会自动附加上一个记录分隔符，如果记录内容本身已经附加有分隔符则会忽略。读出记录内容时会自动去除分隔符(由autochomp选项控制)。默认的记录分隔符是"\r\n"或"\n"，我们可以任意改变它以适应自己的需求。唯一需要注意的地方就是记录分隔符不可与有效数据内容混淆，也不能为空(没有记录分隔符就谈不上记录型文件了)。            
         tie (@array, 'Tie::File', $file, recsep => 'es');
This says that records are delimited by the string es . If the file contained the following data:
         Curse these pesky flies!\n
then the @array would appear to have four elements:
1."Curse th"
2 ."e p"
3."ky fli"
4."!\n"

            

    2. autochomp
    指定读出记录时是否去除记录分隔符，(默认)为真值时会自动去除分隔符。如：
     Normally, array elements have the record separator removed, so that if the file contains the text

Gold
Frankincense
Myrrh

    the tied array will appear to contain ("Gold", "Frankincense", "Myrrh")（不包括换行）If you set   autochomp to a false value, the record separator will not be removed. If the file above was tied with

tie (@gifts, "Tie::File", $gifts, autochomp => 0);

   then the array @gifts would appear to contain ("Gold\n", "Frankincense\n", "Myrrh\n") , or (on Win32 systems) ("Gold\r\n", "Frankincense\r\n", "Myrrh\r\n") .      

   3. splice
     spice是perl命令，不是此模块所独有，用法如下：
    splice ARRAY,OFFSET,LENGTH,LIST
    splice ARRAY,OFFSET,LENGTH
    splice ARRAY,OFFSET
    splice ARRAY    
    从第offset个元素开始，删除长度为length个元素，若list存在，则 用list代替删除掉的数据（若lenght=0，则变成了添加）。若省略length，则删除从offset开始的所有数据。offset和 length都省略则删除所有元素。

除此之外还有mode、memory、dw_size等选项。另外在指定选项时可以在选项前加一个“-”号，即tie(...,-recsep=& gt;...)和tie(...,recsep=>...)这两种形式是等价的。对该模块的进一步说明请参考perldoc Tie::File
http://perldoc.perl.org/Tie/File.html