- - 1-1-2004 - - 2-1-2004 - - 3-1-2004 - - 15-1-2004 - - 16-1-2004 - - 1-2-2004 - - 2-2-2004 - - 1-2004 - - 2-2004 - ##

##

sub MonthlyMaxTempSpellMessage{

    my $month = shift;            
    #print "\n$month";

    $month = "-$month-";          
    #print "\n$month";            

    my $xp = XML::XPath->new(filename 
    =>'weather_records.xml'); 
  
    my @data=();
   
    my $nodes = $xp->findnodes("//DailyWeatherRecord
    [contains(date,'$month')]"); 

    foreach my $node($nodes->get_nodelist){
    
               
     push @data, [$xp->findvalue(".//date",$node),$xp-
     >findvalue(".//maxdrybulb /\@number",$node)];
               
          
    }

  for my $aref ( @data ) {
     print "\t [ @$aref ],\n";
   }   

##

##

my $monthmts=1;
MonthlyMaxTempSpellMessage($monthmts);