【Perl】模块 Tie::File-白红宇

【Perl】模块 Tie::File

阅读量：6150 次

发布时间：2019-06-21

本文共 1142 字，大约阅读时间需要 3 分钟。

1 Tie::File

建立一个list和file的关系，对list的操作会反映到file上去。

use 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

2 应用举例

use Tie::File;my @array;my $filename = "a.txt";tie(@array,'Tie::File',$filename) or die;print "$array[3]\n";print "$#array\n";$array[3] = "hello";$array[1] = "world";splice(@array, 1, 0, "insert into 0 and 1 line");delete $array[$#array];$#array -= 2;print pop @array;untie($array);