2

我对 Perl 并不陌生，我需要任何人的帮助来完成一个奇怪的要求。

  1. 我想逐帧比较两个视频。我可以使用 AVISYNTH 直接比较它们，但问题是两个视频都是相同的，但初始帧会在不同的时间开始。

  2. 为此，我将每个视频拆分为帧/图像，并将它们分别存储在两个文件夹中

  3. 现在我想将第一个文件夹的 frame1/image1 与第二个文件夹的所有初始 10-15 图像进行比较。

  4. 如果第二个文件夹的第 4 个图像匹配，则需要进一步停止该过程，第 4 帧应存储/视为第二个文件夹的索引。

  5. 完成后，我想开始对两个文件夹之间的图像进行实际比较。即文件夹1的图像1与文件夹2的图像4 文件夹1的图像2与文件夹2的图像5 文件夹1的图像3与文件夹2的图像6...等等

我想在 perl / Matlab 中完成所有这些过程。任何机构都可以帮助我提出您的想法或建议。

谢谢 Ganesh

4

1 回答 1

1

假设我们有一个子程序compare_frames可以比较两个帧，如果它们相同则返回 true。

然后我们可以通过遍历文件夹 2 中的前几帧并比较这些帧来找到偏移量：

# return the offset of the first equal image,
# searching frames between "from" (defaulting to 1) and "upto" (defaulting to 15)
sub find_offset (%) {
   my ($min_index, $max_index) = @{+{ from=>1, upto=>15, @_ }}{qw(from upto)};
   for my $index ($min_index .. $max_index) { # assuming 1-based indexing scheme
      return $index - 1 if compare_frames(1, $index);
   }
   warn "no offset found";
   return undef; # or better, exit the program.
}

在脚本的主要部分中，您稍后将运行my $offset = find_offset upto=>15并使用它来进行大部分处理。但是，这假定文件夹 1 始终是文件夹 2 的子集。

在我们的比较子程序中，我们希望尽快返回“false”。根据图像格式，如果大小不同，我们可以说两个图像不能相等。但是，位图的大小是固定的，因此这里没有意义，因为所有帧都具有相同的分辨率。其他图像格式具有不同的压缩密度，其中两张图片可能相等，即使其中一张压缩得更多。在这种情况下，请删除stat代码。

# decide if two frames are equal.
# $frame1 is from the first set of frames,
# $frame2 is the frame from the second set.
sub compare_frames {
   my ($frame1, $frame2) = @_;
   my $file1 = "folder1/$frame1";
   my $file2 = "folder2/$frame1";
   # stat the files for the size.
   my $size1 = (stat $file1)[7];
   my $size2 = (stat $file2)[7];
   return 0 if $size1 != $size2; # strict equality, maybe you want to include some sort of tolerance.
   # do main comparision
   $cmp->set_image1($file1);
   $cmp->set_image2($file2);
   return $cmp->compare;
}

其中$cmp是 的比较器对象Image::Compare，以及预设的比较方法。

然后，在主要比较期间，您将compare_frames($i, $i + $offset).

于 2012-12-06T10:27:41.827 回答