From Wiki

Perl: DateTimeLocaltime

G�n�n tarihinin bi�imli yazdırılması:

#!/usr/bin/perl 

use strict;
use warnings;

print date(), "\n";

sub date {
	my ($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst)=localtime(time);
	$mon++;
	$year += 1900;
	my $tarih = "$year.$mon.$mday" . "_" . "$hour.$min.$sec";
	return $tarih;
}

Retrieved from http://kozgun.net/wiki/pmwiki.php?n=Perl.DateTimeLocaltime
Page last modified on December 31, 2005, at 04:53 AM