perl大文件读取处理的模块介绍

该模块用perl的数组代表一个文件，文件的每一行对应数组的一个元素，第一行为元素0，第二回为1，...
文件本身实际并不加载到内存，对数组元素的操作立刻作用到文件里。最大的方便是可以任意指定处理开头结尾的某几行。

基本用法：

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 end

for (@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 expect
push @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

更多功能请大家参考cpan上的文档。

perl跳过首行读取文件的实现代码
#!/usr/bin/perlopen(READ,"$file");readlineREAD;#skipthefirstlinewhile(READ){my($id,$axis1,$axis2,$axis3,$value)=split//;$line=sprintf("%d%d%d%d%d%d",$id,$axis1,$axis2,$axis3,$value,$axis1+$axis2);prin

Perl split字符串分割函数用法指南
本文和大家重点讨论一下Perlsplit函数的用法，Perl中的一个非常有用的函数是Perlsplit函数-把字符串进行分割并把分割后的结果放入数组中。这个Perlsplit

perl数组的多数字下标示例代码
perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作。注意：这些