主页 > 知识库 > perl文件读取的几种处理方式小结

perl文件读取的几种处理方式小结

热门标签:百度AI接口 电话运营中心 语音系统 企业做大做强 呼叫中心市场需求 硅谷的囚徒呼叫中心 Win7旗舰版 客户服务

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文件读取的几种处理方式小结》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266