Pastable version of Processing files by date.

<pre class='prettyprint' language='perl'>use Time::DaysInMonth;

# Get todays date in the form of YYMMDD
(undef, undef, undef, my $dayLast, my $monthLast, my $yearLast, undef, undef, undef) = localtime(time);
$yearLast	= $yearLast - 100;	# Year is given as YYY, make it YY.

# Grap the name of the first log file (in the form of exYYMMDD.log) for our starting point and extract just the YYMMDD.
my $dateFirst = $logs[0];
$dateFirst =~ s/^ex//; $dateFirst =~ s/$.log//;

# Parse the input of YYMMDD into three separate variables.
my $yearFirst = substr($dateFirst, 0, 2);
my $monthFirst = substr($dateFirst, 2, 2);
my $dayFirst = substr($dateFirst, 4, 2);

for (my $year = $yearFirst; $year &lt;= $yearLast; $year++) {
	if ($yearFirst == $yearLast) {
		$monthStart	= $monthFirst;
		$monthEnd	= $monthLast;
	} elsif ($year == $yearFirst) {
		$monthStart	= $monthFirst;
		$monthEnd	= 12;
	} elsif ($year == $yearLast) {
		$monthStart	= 1;
		$monthEnd	= $monthLast;
	} else {
		$monthStart	= 1;
		$monthEnd	= 12;
	} # End Months initialization.

for (my $month = $monthStart; $month &lt;= $monthEnd; $month++) {
		if ( ($year == $yearFirst) &amp;&amp; ($month == $monthStart) ) {
			$dayStart	= $dayFirst;	
		} else {
			$dayStart	= 1;
		} # End Days initialization.
		$dayEnd = days_in($year + 2000, $month);

for (my $day = $dayStart; $day &lt;= $dayEnd; $day++) {
			#
			# Push each filename into an array.
			#
		} # End loop through Days.

#
		# Zip The Files.
		#

} # End loop through Months
} # End loop through Years.</pre>
<a href="http://www.refactormycode.com/codes/770-processing-files-by-date" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Processing files by date.