my $consecutive = 5;
my ($last_range, $first_day);
my %ranges = ( '15'   =>     'mild',
               '20'   =>     'warm',
               '25'   =>     'verywarm',
               '30'   =>     'hot',
               '35'   =>     'veryhot',
               '40'   =>     'extremelyhot');

foreach my $day (@data) {
    $day->[1] = int $day->[1];
    my $range = $day->[1] - ($day->[1] % 5);

    if ($range == $last_range) {
        $seen++;
    } else {
        $last_range = $range;
        $first_day = $day->[0];
        $seen = 1;
    }

    if ($seen == $consecutive) {
        print "$first_day $day->[0] " . 
              $ranges{$range} . "\n";
    }
}
[download]

hm, at first sight i would say that $last_range, $first_day should be initialised outside the for-loop. look at and execute this:


for ( 1 .. 10 ) {
    my $i;
    $i++;
    print $i;
}
print "\n";
my $i;
for ( 1 .. 10 ) {
    $i++;
    print $i;
}
print "\n";
[download]

Hello zejames!
Thanks a lot for your reply. I do not understand your code fully, please bear with me. What
are the variables last_range and first_day used for, and what should their initial values be?

Also for this line,

my $range = $day->[1] - ($day->[1] % 5);
[download]

I get this error:

Operation `%': no method found,left argument in overloaded package XML
+::XPath::Literal,right argument has no overloaded magic at C:\..\xmlr
+ecord_parse.pl line 604.
[download]

Using sprintf removes the error, but I'm not sure whether this is correct(i.e. the control string "%f"):

  my  $range = sprintf("%f","$day->[1]") - (sprintf("%
  f","$day->[1]") % 5);
[download]

My array of arrays @data looks like this:

[ 1-1-2004 15.0 ],
     [ 2-1-2004 15.5 ],
     [ 3-1-2004 16.5 ],
     [ 4-1-2004 17.0 ],
     [ 5-1-2004 17.5 ],
     [ 6-1-2004 18.0 ],
     [ 7-1-2004 18.5 ],
     [ 8-1-2004 19.0 ],
     [ 9-1-2004 19.5 ],
     [ 10-1-2004 25.0 ],
     [ 11-1-2004 26.5 ],
     [ 12-1-2004 27.5 ],
     [ 13-1-2004 28.0 ],
     [ 14-1-2004 29.5 ],
     [ 15-1-2004 28.0 ],
     [ 16-1-2004 28.8 ],
[download]

So the resulting array of arrays I need to build should look like this:

1-1-2004 5-1-2004    mild
10-1-2004 14-1-2004  verywarm
[download]

The values of $range (printing inside the loop)I'm getting are:

15
15.5
15.5
15
15.5
15
15.5
15
15.5
25
25.5
25.5
25
25.5
25
25.8
[download]

This statements does not print anything:

print "$first_day $day->[0] ".$ranges{$range}."\n";
[download]

Please help, really need it!

Thanks,
perl_seeker:)

I don't understand your first problem. Testing my code here with the @data defined as :


@data = ( [ '1-1-2004', 15.0 ],
     [ '2-1-2004', 15.5 ],
     [ '3-1-2004', 16.5 ],
     [ '4-1-2004', 17.0 ],
     [ '5-1-2004', 17.5 ],
     [ '6-1-2004', 18.0 ],
     [ '7-1-2004', 18.5 ],
     [ '8-1-2004', 19.0 ],
     [ '9-1-2004', 19.5 ],
     ...
      [ '16-1-2004', 28.8 ]);
[download]

does work here. Could you provide code ? Your problem seems to be XML related.

As for the range, you're right, there is problem, that is corrected in the new version, by converting temperature to an integer :


$day->[1] = int $day->[1];
[download]


$last_range is used to remember the current range we are in. If that range remains unchanged 5 times, we print the range information.

$first_day is used to remember the first day we saw the temperature of the current range;

HTH

--
zejames

I have found it useful to always use date format "YYYYMMDD", which has the following advantages:

• numeric sort, lexical sort, and chrono sort are the same
• ordering of units by size (years => months => days) are internally consistent, and consistent with our standard number representation
• consistent with ISO standard date formatting

use strict;
use warnings;

my $rows = 5;
my @temps = ('mild','warm','very warm','hot','very hot','extremely hot
+');
my ($range, $lrange, $start, $c, @data, @results);

# Creating nested arrays with data
while (<DATA>) { chomp; push @data, [split(/ /)]; }

$lrange = -1;
for (@data) {
    $range = getrange(@$_[1]);
    if ($range == $lrange) {
        if (++$c == $rows) {
            push (@results, [$start, @$_[0], $temps[$range]]);
            $lrange = -1; $c = 0;
        }
    }
    else {
        $start = @$_[0]; $lrange = $range; $c = 1;
    }
}

# Printing results, tab delimited
for (@results) { print join("\t", @$_) . "\n"; }

sub getrange {
    return 5 if $_[0] >= 40;
    return 0 if $_[0] < 20;
    return int($_[0] / 5 - 3);
}

__DATA__
1-1-2004 33.95
2-1-2004 30.34
3-1-2004 31.50
4-1-2004 32.50
5-1-2004 33.50
6-1-2004 90.00
7-1-2004 51.45
8-1-2004 52.56
9-1-2004 56.23
10-1-2004 50.54
11-1-2004 52.43
[download]

Hi Ted! way to go, your code works just fine. I'll need to go through it properly to understand it fully. Your help is much appreciated.

Cheers,
perl_seeker:)

Oops! I tested your code by reading the data from a text file to build @data, and it worked fine. While trying to
run your code with the rest of my code( I have built @data by parsing an XML file using XML::XPath), I'm getting errors similar to this

Operation `/': no method found,
    left argument in overloaded package  
        XML::XPath::Literal,right argument has no 
      overloaded magic at C:\..\xmlrecord_parse.pl line 608.

Tool completed with exit code 255
[download]

So I've changed this portion of code, but I'm not sure if this is correct :

          return 5 if (int($_[0]) >= 40);
          return 0 if (int($_[0]) < 20);
          return ((int($_[0]) / 5) - 3);
[download]

However, the results printed now are:

1-1-2004    5-1-2004    mild
[download]

Whereas they should be:

1-1-2004    5-1-2004    mild
10-1-2004    14-1-2004    very warm
[download]

Data

1-1-2004 15.0 
2-1-2004 15.5 
3-1-2004 16.5
4-1-2004 17.0
5-1-2004 17.5
6-1-2004 18.0
7-1-2004 18.5
8-1-2004 19.0
9-1-2004 19.5
10-1-2004 25.0
11-1-2004 26.5
12-1-2004 27.5
13-1-2004 28.0
14-1-2004 29.5
15-1-2004 28.0
16-1-2004 28.8
[download]

What do I need to change in the code?
Thanks,
perl_seeker :)