Tie::File - Access the lines of a disk file via a Perl array
基本使用例子:
# This file documents Tie::File version 0.98use Tie::File;tie@array,'Tie::File', filename or die...;$array[13]='blah';# line 13 of the file is now 'blah'print$array[42];# display line 42 of the file$n_recs=@array;# how many records are in the file?$#array-=2;# chop two records off the endfor(@array){s/PERL/Perl/g;# Replace PERL with Perl everywhere in the file}# These are just like regular push, pop, unshift, shift, and splice# Except that they modify the file in the way you would expectpush@array, new recs...;my$r1=pop@array;unshift@array, new recs...;my$r2=shift@array;@old_recs=splice@array,3,7, new recs...;untie@array;# all finished
Tie::File最近由于工作需要需要在读取文件内容的时候同时修改文件的内容。折腾了一阵,最后用的一个很傻瓜的方法来解决这个问题。将文件内容读入到数组中,然后对数组进行修改。然后删除文件再创建新的同名文件。 虽然问题暂时解决了,但后来一想应该还有更好的方法。于是找到这个模块。Tie::File - Access the lines of a disk file via a Pe