The code you posted was an example of replicating the output of the wc(1) command from Unix, which counts lines, words, and characters in a file. While I have not attempted it personally, to count movements in a video I would imagine a process similar to the following:

  1. Break video into frames
  2. Reduce color pallet (possibly to a limited grayscale) to reduce the possibility of false readings due to frame-to-frame changes in lighting.
  3. Possibly reduce image size, to reduce the possibility of false readings due to changes by objects not of interest.
  4. Loop through the frames, comparing each to its successor, looking for more than pixel changes than a particular threshold that you set, to indicate that a sufficient movement has occurred.

There are probably better ways than this, but this is what came to my mind. I hope more knowledgeable monks will share their experiences and provide the guidance you seek to help you solve your problem.

Hope that helps.

In reply to Re: Regarding Perl Counting by atcroft
in thread Regarding Perl Counting by anisha3

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.