To extract the current date by using time and localtime

  
#!/usr/bin/perl -w

$t = time();

# Convert seconds to local time.
($sec, $min, $hour, $dom, $mon, $year,$wday, $yday, $isdst) = localtime($t);

# Convert data to normal values.
$year += 1900;

# Provide English equivalents.
@months = ("January", "February",
           "March", "April", "May",
           "June", "July", "August",
           "September", "October", 
           "November", "December");

@week = ("Sunday", "Monday", "Tuesday",
         "Wednesday", "Thursday",
         "Friday", "Saturday");

# Print data.
printf("Time is: %2.2d:%2.2d:%2.2d\n",
    $hour, $min, $sec);

printf("Date is: %s, %d-%s-%d\n",
    $week[$wday], $dom, $months[$mon], 
    $year);

printf("%d days since 1 January\n",
    $yday);

if ($isdst) {
    print "Is daylight savings time.\n";
} else {
    print "No daylight savings time in effect.\n";
}

Related examples in the same category

1.	Set the value of localtime to a scalar variable, you'll get a typical UNIX-style time
2.	scalar(localtime(time()))
3.	Splitting Time
4.	Create new time based on the value from localtime
5.	Print out the current time in standard time
6.	Is leap year subroutine
7.	Execute date command and get user input
8.	Time of Day
9.	Switch Time
10.	Converting Time
11.	Splitting Local Time
12.	localtime converts a time into the local time.
13.	gmtime function converts a time value into Greenwich Mean Time

To extract the current date by using time and localtime : date time « Data Type « Perl

Related examples in the same category