lib.pl
上传用户:qdrechuli
上传日期:2022-08-01
资源大小:917k
文件大小:0k
源码类别:

视频捕捉/采集

开发平台:

Visual C++

  1. # allow a 2 pixel difference between the values in array ref 1 and array
  2. # ref 2
  3. sub aeq
  4. {
  5. my ($ar1, $ar2) = @_;
  6. for (my $i = 0; $i < @$ar1; $i++)
  7. {
  8. return unless defined $ar2->[$i];
  9. return unless abs($ar1->[$i] - $ar2->[$i]) <= 2;
  10. }
  11. return 1;
  12. }