perl文件读取的几种处理方式小结
更新时间：2013年02月08日 20:14:58 作者：
perl打开文件后，可以有几种方式对文件进行读取处理(根据文件大小，文件内容的特征和其它要处理的方式)
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的朋友，都知道perl上下文在perl编程中的重要性，这里粗浅的作下介绍，供初学的朋友参考2013-02-02
Deparse 模块是一个很好的打印机，它可以揭开 Perl 代码神秘的面纱，帮助你理解优化器为你的代码做了那些转换。换言之，它会重新生成Perl代码，试着略去一些晦涩难懂的部分，把代码用一致的格式写出来2013-03-03
这篇文章主要介绍了什么是Perl？编程语言Perl详细介绍,本文着重讲解了Perl的发展历史,需要的朋友可以参考下2015-02-02
用Perl操作Excel文档的例子，有需要的朋友可以参考下2013-02-02
这篇文章主要给大家介绍了如何通过一篇文章搞懂：词法作用域、动态作用域、回调函数及闭包的相关资料，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面来一起看看吧2018-12-12
这篇文章主要介绍了Perl函数(子程序)学习笔记,本文讲解了函数定义、函数返回值、函数参数传递等内容,需要的朋友可以参考下2014-11-11
这篇文章主要介绍了Perl读写文件简单示例,本文直接给出实现代码,需要的朋友可以参考下2015-04-04
这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小值等实用功能代码,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl图形化包管理工具PPM学习使用笔记,本文详细讲解了什么是PPM、PPM界面的功能按钮说明、PPM如何安装卸载包等内容,需要的朋友可以参考下2015-06-06
perl为行读取方式，有着强大的对行处理的能力，同样，通过内部命令和巧妙的编程技巧，其对列的处理能力同样不可小觑2013-02-02
最新评论