perl滑动匹配核心代码

原创 2013年12月05日 13:42:18

 if ($ansfline eq "\"data\"")
        {
        $dataflag=1;
        next;
      }
     if($dataflag==1)
     {
      
      #以下代码滑动匹配时间
      if($compflag==0)
      {  if ($ansfline<=$result_time1)
          {
            $compflag=1;
            $pre2=tell(ansf1);
           
         
         }
       }
       elsif($compflag==1)
       { 
          if ($ansfline>=$result_time2)
          {
            $compflag=2;
           
         
         }
        #elsif($ansfline<=$result_time1)
        #{
        #   $compflag=1;             
        #}
         else
         {
          #$position_minus=$position-$pre;
            seek(ansf, $pre, 0);   #回退1行
             $position_change = tell(ansf);
            
             #print "position minus 1 is $position_change\n";
             $compflag=0;
         }
        
          
                    
       }
       elsif($compflag==2)
       {
           if($ansfline=~/"\*"/)
           {
            #print "find\n";
            $result_total+=$result_time2-$result_time1;
            print(frecOut "find $resfline in $resFile is not match in $ansFile\n");
           }
           else
           {
            
             #seek(ansf, $pre, 0);
             seek(ansf, $pre2, 0);     #回退两行
             $position_change = tell(ansf);
            
             #print "position minus 2 is $position_change\n";

           }
          
            $compflag=0;
          
          
       }
      
       }
       
      }   

手机版滑动图片相册核心代码

  • 2017年05月25日 19:07
  • 3KB
  • 下载

Perl进行古诗匹配

  • 2014年09月02日 22:26
  • 449KB
  • 下载

Perl语言入门笔记 第八章 用正则表达式进行匹配

#用正则表达式进行匹配 =pod m// = // = m%%,m||,m,m{},m(),匹配的时候根据需要写自己的定界符,像qw省略双引号定界符一样 模式匹配修饰符: 跟在定界符后面的,//...

正向最大匹配分词算法 perl版

  • 2009年02月05日 13:03
  • 2KB
  • 下载

perl中的多行匹配问题

perl脚本中的多行匹配          在处理文件的时候,我们经常会遇到多行匹配的问题,大骆驼中所讲到的两种方法:     1.利用范围操作符".."     2.利用输入记录分隔符"$/...

perl 模式匹配参数详解

一、简介    模式指在字符串中寻找的特定序列的字符,由反斜线包含:/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词:@array = split(/ /, $line...

perl 模式匹配

第六章 模式匹配 by flamephoenix 一、简介 二、匹配操作符 三、模式中的特殊字符   1、字符+   2、字符 []和[^]   3、字符 *和?   4、转义字符...

perl字符匹配

如果在Unix中曾经使用过sde,awk,grep这些指令的话,相信对于 Perl 语言中的文字处理模式(Regular Expression)应该不会感到陌生才对。在Perl语言中因为有这个功能,所...
  • finger0
  • finger0
  • 2012年02月06日 16:07
  • 2401

perl 5.10新特性智能匹配操作符合~~介绍

~~ 操作符号的 使用。

浅显讲解perl的模式匹配

perl 接触的还不是很多,就把最近用到的匹配相关整理一下。
  • lyh2668
  • lyh2668
  • 2014年09月13日 10:40
  • 212
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:perl滑动匹配核心代码
举报原因:
原因补充:

(最多只允许输入30个字)