perl文件读取的几种处理方式小结
更新时间：2020年6月29日 13:43 点击：1446
1、单行(大文件处理)：
复制代码 代码如下:
my $oneline = <$FL> 或
while（$line=<H>）
{ }
2、读取全部(小文件处理)：
复制代码 代码如下:
open (my $in, "path ") or die "open error: $! ";
my @lines = <$in> ;
3、读3行(大文件及特殊处理需要)：
复制代码 代码如下:
open (my $in, "path ") or die "open error: $! ";
my @lines;
push (@lines, scalar <$in> ) for (1..3);
4、每次按条件读入三行，并且按照条件输出两行。或根据其他具体要求修改达到相应目的。
复制代码 代码如下:
while (<TEST>) {
if(index ($_, "=") > -1){
my $position=tell(TEST);
my $keyword_line=$_;
my $line_1=<TEST>;
my $line_2=<TEST>;
# @a=split//,$keyword_line; 比较它们的元素是否相等，一直没成功
# @b=split//,$line_1; 利用if ($a[0]eq $a[0])来判断
# @c=split//,$line_2;
if (($line_2)&&(index($line_2, "=")>-1)){ # 或者if ($line_2=~/=/)
print OUTFILE "$_$line_1";
}
if (!($line_2)) { print OUTFILE "$_$line_1"; last; }
seek(TEST, $position, 0);
}
}
相关文章
- perl CPAN中有一个Tie-File 模块极大方便了对大文件的操作...2020-06-29
- 这篇文章主要为大家介绍了数据驱动测试DDT之Selenium读取Excel文件，...2021-11-13
- Perl文件读取的经典用法，有需要的朋友可以参考下...2020-06-29
- 这篇文章主要为大家详细介绍了C#实现XML文件读取的相关代码，具有一定的参考价值，感兴趣的小伙伴们可以参考一下...2020-06-25
- perl打开文件后，可以有几种方式对文件进行读取处理(根据文件大小，文件内容的特征和其它要处理的方式)...2020-06-29
- 这篇文章主要介绍了Java利用反射实现文件的读取操作,本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下...2021-02-05