Shaunn Johnson wrote: > > --Howdy: Hello,
> ## get first of this month as anchor ## > > my $day_now=(localtime())[3]; > my $firstday=$day_now - ($day_now-1); The first day of the month is always 1 so there is no need to calculate it! my $firstday = 1; > my $month_now=(localtime())[4]+1; > my $year_now=(localtime())[5]; > my $new_year_now=$year_now + 1900; > > ## now define whole value ## > > # my $full_date = "$month_now/$day_now/$new_year_now"; > my $full_date = "$month_now/$firstday/$new_year_now"; You might want to use sprintf to get leading zeros. my $full_date = sprintf '%02d/%02d/%04d', $month_now, $firstday, $new_year_now; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
