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!
-
#!/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);
-