Modifying Date value in this short script

mslimp

Hello, I'm a bit new to Perl so I was hoping someone with experience could give me a quick answer.

Question: The following script changes the date from today's date to (today's date+6 months). How do i change that value to 2 or 3 months instead?

Thanks!

Expand|Select|Wrap|Line Numbers

 
#!/usr/local/bin/perl -w
 
use strict;

use Date::Calc qw( Delta_Days Add_Delta_Days Today Month_to_Text );
 
my $TAC_FILE = "$ENV{HOME}/tacacs/common/user_accounts";
 
my ($year, $month, $day) = Add_Delta_Days(Today(), 30);
 
my $m = substr(Month_to_Text($month),0,3);
 
my $expire_date =  "$m $day $year";
 
open(TACFILE, "$TAC_FILE") || die "Can't open $TAC_FILE file\n";
 
while(<TACFILE>) {
 
   if (/^\s+member\s+=\s+\S+\s+$/) {

      s/^(\s+)(member\s+=\s+\S+)/$1$2\n$1expires = "$expire_date"/

   }
 
   print $_;

}

close(TACFILE);

Ganon11

Not being completely familiar with all the modules used here, it still looks like the Add_Delta_Days function is only adding 30 days to Today(), which is approximately 1 month. You can try changing the value in Add_Delta_Days, or see if there's another function in Date::Calc like Add_Delta_Months.

Modifying Date value in this short script

Post your reply

Similar topics