use strict;
use warnings;

my $csvprint;
my $csv;
opendir DIR, "./dates/";

my @inputfiles = grep { $_ ne '.' && $_ ne '..' } readdir (DIR);

my @sorting = sort {$a cmp $b} @inputfiles;
#print @sorting,"\n\n\n";
foreach(@sorting)
{
	my $start = "2009_12_30";
	my $end = "2010_01_05";
	
	if ($_=~ /^$start/../^$end/)
	{
		open FILE, "< ./dates/$_";
		while (<FILE>)
		{
			chomp;
			
			my @content = split (/\,/,$_);
			my @datesplit = split(/\_/,$content[0]);
			$csvprint = "$datesplit[0],$datesplit[1],$content[1]\n";
			if ($csvprint ne 0)
			{
				$csv .= $csvprint;
			}
			else
			{
				
				print "blank\n";
			}
		}
	}
	else
	{
		print "nothing printed. \n";
		#print $_,"\n";
	}
	
	#print $csvprint,"\n\n";
}
#print $csv;
open CSV,"> 1.csv";
print CSV $csvprint;