#!/usr/bin/perl

   ####
    ##
    ##
##  ##  $JOEY
 ####   2011.08.31.

use strict;

################################################
# | DESCRIPTION:
# |     Get the current date in YYYY-MM-DD format or the time in HH:MM:SS format
# | USAGE:
# |     my $DATE = current_ISODATE([D,T]);
# |     e.g. print current_ISODATE("D")." ".current_ISODATE("T")."\n";
# | RESULTS:
# |     YYYY-MM-DD or HH:MM:SS

    sub current_ISODATE($) {
       my $output_type = shift;
       my $ISOdate;
       my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
       $year += 1900;
       $mon += 1;

       if ($output_type eq "D") {
           $ISOdate = sprintf "%04d-%02d-%02d", $year, $mon, $mday;
       } elsif ($output_type eq "T") {
           $ISOdate = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
       }
       return $ISOdate;
    }

# |
################################################

# e.g.:
# print current_ISODATE("D")." ".current_ISODATE("T")."\n"


A bejegyzés trackback címe:

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.