一个简单文本操作

文件 a.txt:
1
2<BR />
3
4

perl:
use Tie::File;
tie @array, 'Tie::File', "a.txt" ,recsep=>"/n"; #  or die "aa";
$array[1] =~ s/(?=<BR)/<BR //>/ng01/;
untie @array;


实现将每次最新的替换放到顶部。类似一个入栈操作。这里操作的对象是文件的行，主要用到了Tie::File这个 5.8引入的核心模块。