Data consolidation using Perl [closed]

by

Use a hash of hashes, where the first level key is an hour, and the second level key is a function name. The values would then be arrayrefs containing all data points. You can then extract the min/max values. Or you could keep the current min/max values, and test against these for each new value.

To parse the input, I recommend the Text::CSV module.

The code would look a bit like:

use List::Util qw/min max/;

my %times;
while (my ($hour, $fun, $val) = ...) {
  push @{ $times{$hour}{$fun} }, $val;
}

for my $hour (sort { $a <=> $b } keys %times) {
  my $funs = $times{$hour};
  for my $fun (sort keys %$funs) {
    my $vals = $funs->{$fun};
    my $count = @$vals;
    my $min = min @$vals;
    my $max = max @$vals;
    ...;
  }
}

More Related Contents:

  1. Remove Text between two Strings
  2. If condition based look up not working [closed]
  3. Detecting when an else block gets executed for the second time [closed]
  4. What does this HTML::Parser() code do in Perl? [closed]
  5. Why use strict and warnings?
  6. Why are Perl 5’s function prototypes bad?
  7. What’s the difference between Perl’s backticks, system, and exec?
  8. How can I require an optional Perl module if installed?
  9. Specifying file to process to Perl one-liner
  10. How do I run a Perl script from within a Perl script?
  11. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  12. What pseudo-operators exist in Perl 5?
  13. How does double arrow (=>) operator work in Perl?
  14. Why are Perl source filters bad and when is it OK to use them?
  15. Perl 5.20 and the fate of smart matching and given-when
  16. How can I convert the stringified version of array reference to actual array reference in Perl?
  17. Use of ‘use utf8;’ gives me ‘Wide character in print’
  18. How does Perl parse unquoted bare words?
  19. Perl build, unit testing, code coverage: A complete working example
  20. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  21. In Perl, how can I find the index of a given value in an array?
  22. How can I run a system command in Perl asynchronously?
  23. How do I tell what type of value is in a Perl variable?
  24. What should I use for a Perl script’s shebang line?
  25. How can I find memory leaks in long-running Perl program?
  26. Why do Perl variables need to start with $, %,@ (sigils)?
  27. Print lines from one file that are not contained in another file
  28. Perl DBD::Oracle Module installation
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment