in reply to Re^8: Rolling variable
in thread Rolling variable

If he wanted to save the count "8" into a file, what would be the point? If he wanted the last 8 counts of the function, it will always return "8" would it not? If that was the case, he could just set $count to '8' and be done with it.

Anyways, im not going to argue with anyone, it was merely an opinion/suggestion that I posted earlier and was not meant to start a war over something that could have been interpreted 5 different ways. Thanks for your insight though, I will keep it in mind for future reference.

Replies are listed 'Best First'.
Re^10: Rolling variable
by stevieb (Canon) on Jul 30, 2015 at 18:31 UTC

    I believe the OP wanted effectively to list the files in a directory, get the count of the number of files, and save this number in a file. Per my recommended approach (Tie::File), each line in the store file would contain an integer of the number of files. This file would have eight lines (one per hour apparently). After the file hits eight lines, the top one (oldest) gets shifted off, and the most recent goes to the bottom.

[reply]
[d/l]
Re^10: Rolling variable
by fishmonger (Chaplain) on Jul 30, 2015 at 18:57 UTC

    If he wanted to save the count "8" into a file, what would be the point? If he wanted the last 8 counts of the function, it will always return "8" would it not?

    You definitely are cherry pinking and misreading the OP's question and statements. He doesn't want to track the number of times a function or script is called. He want's to track the number of files in a directory over an 8 hour period. He didn't say his reason why, but that is what he wants.

    None of us are wanting or trying to argue. We're just trying to clear up some misunderstandings.

    Both mine and stevieb's suggestions accomplishes what the OP asked. Yours unfortunately does not.

[reply]
      If he just needed a file count every hour and only keep the last 8 hours worth of file counts on any specific directory, he sure had a heck of a way of explaining it ;0

      Your right I completely misunderstood what he was asking and offered a irrelevant solution to his problem.
      Best reguards.

      :)
[reply]

        You've been around a little while, you should know that many people who come here that know only enough about Perl to be dangerous don't understand what they're asking, so we often have to do our best to interpret.

        Don't take it personally. Even the most abrasive Monks of old weren't criticizing another Monk for posting a possible solution that didn't fit (for the most part); they were simply informing them of newer/more efficient/better or different ways of doing something.

        This site is, and always has been about education. Learning new ways to do things we have gotten used to, and picking up new things we've never heard of.

        Cheers,

        -stevieb

[reply]

In Section Seekers of Perl Wisdom