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