in reply to Using a range of dates in yymmdd format
Be warned about using a (non-standard, and as such potentially bad) yymmdd format.#!/usr/bin/perl use strict; use warnings; use Date::Manip; my $start_date_str = '080225'; my $end_date_str = '080304'; my $std_start_date_str = join( '-', substr($start_date_str, 0,2 ), sub +str($start_date_str, 2) ); my $std_end_date_str = join( '-', substr($end_date_str, 0,2 ), sub +str($end_date_str, 2) ); my $current_dt = ParseDate( $std_start_date_str); my $end_dt = ParseDate( $std_end_date_str); while( $current_dt le $end_dt) { my $display_date_str = UnixDate( $current_dt, '%y%m%d' ); print "$display_date_str\n"; $current_dt = DateCalc( $current_dt, '+ 1 day'); }
|
|---|