#!/usr/bin/env perl
# Perl script to turn on the volcanos on the world map used with worldwrap.sh which is put in pqact to automate

use warnings;										#Turn on warnings
use Storable qw(store retrieve);							#Add Storable module with functions

$date_name="";										#Declare variables
chdir('/home/wxp/sa/final') or die "could not open directory\n";			#Change directory to /home/wxp/sa/final
while(<>){										#while file is piped in
	s/[\001\003\036\r]//g; 								#Remove non printable characters ^A ^C ^^ ^M
	if(/^ISSUED\:|^VOLCANO\:|^DTG\:/){ 						#Grab issue date/time and volcano name
		s/ISSUED\:\s+|VOLCANO\:\s+|DTG\:\s+|\d+\-\d+|\/|\.|VAAC.+$//g;		#Remove keywords that we don't want in our string
		$date_name = $date_name . "$_";						#Store the lines in a single variable
	}
}
@date_name=split(/\n+/,$date_name); $date_name=""; @date_name=grep /\S/, @date_name;	#Split on newline, delete $date_name variable, clear
											#empty elements in the array
foreach(@date_name){									#Iterate thru @date_name array
	s/\s+//g;									#Remove spaces from all elements of the array
	if(/\d+/){$date=$_; $date =~ s/Z//g;}						#Assign date to $date variable and remove trailing Z
	if(/[A-Z]+/){$name=$_;}								#Assign volcano name to $name variable
}
#print "$date $name\n";

%volcano_status = ("$name\n" => "$date ",);						#Start hash with $date and $name
store(\%volcano_status, 'stat') or die "Can't store %a in stat!\n";			#Use Storable module to add hash to file stat