hi.. im new to perl. I need help on how to create a bill based on calender. If its a week old plan or before the plan expires i need to create a bill.
i have done this much
#!/usr/local/bin/perl
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek
+, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$mont
+h] $dayOfMonth, $year";
print $theTime;
use strict;
use warnings;
$timefile="/home/$theTime-time.txt ";
open (MYFILE, '>',$timefile);
my $count=0;
printf "Time value:",$theTime;
print MYFILE $theTime;
close (MYFILE);